You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
32 lines
463 B
Perl
32 lines
463 B
Perl
#!/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;
|
|
|