12345678910111213141516171819202122232425262728293031 |
- #!/usr/bin/perl
-
- # Config
-
- $cyrus_user = 'cyrus';
- $cyrus_password = 'cyruspass';
- $cyrus_host = 'localhost';
-
- # unixhierarchysep => 1 (yes) / 0 (no)
- $unixhierarchysep = 1;
-
- # Common routines
-
- sub mailbox_name {
- my $mailbox = shift;
-
- if($unixhierarchysep) {
- $mailbox = 'user/'.$ARGV[0];
- } else {
- $mailbox = 'user.'.$ARGV[0];
- }
-
- return $mailbox;
- }
-
- sub die_on_error {
- my $cyradm = shift;
- if($cyradm->error) { die $cyradm->error; }
- }
- 1;
|