mirror of
https://github.com/postfixadmin/postfixadmin.git
synced 2024-09-19 19:22:14 +02:00
32 lines
463 B
Plaintext
32 lines
463 B
Plaintext
|
#!/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;
|
||
|
|