Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

12345678910111213141516171819202122232425262728293031
  1. #!/usr/bin/perl
  2. # Config
  3. $cyrus_user = 'cyrus';
  4. $cyrus_password = 'cyruspass';
  5. $cyrus_host = 'localhost';
  6. # unixhierarchysep => 1 (yes) / 0 (no)
  7. $unixhierarchysep = 1;
  8. # Common routines
  9. sub mailbox_name {
  10. my $mailbox = shift;
  11. if($unixhierarchysep) {
  12. $mailbox = 'user/'.$ARGV[0];
  13. } else {
  14. $mailbox = 'user.'.$ARGV[0];
  15. }
  16. return $mailbox;
  17. }
  18. sub die_on_error {
  19. my $cyradm = shift;
  20. if($cyradm->error) { die $cyradm->error; }
  21. }
  22. 1;