Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die $@;
+ ) or die "$@\n";
$app->create_mailbox(
Mailbox => $username,
Domain => $mydomain,
);
- die $app->message unless $app->ok;
+ die $app->message."\n" unless $app->ok;
}
sub icradius_rc_insert {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die $@;
+ ) or die "$@\n";
$app->delete_mailbox(
Mailbox => $username,
Domain => $mydomain,
);
- die $app->message unless $app->ok;
+ die $app->message."\n" unless $app->ok;
}
sub icradius_rc_delete {
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die $@;
+ ) or die "$@\n";
$app->rename_mailbox(
Domain => $mydomain,
New_Mailbox => $new_username,
);
- die $app->message unless $app->ok;
+ die $app->message."\n" unless $app->ok;
}
Domain => $mydomain,
Timeout => 60,
#Debug => 1,
- ) or die $@;
+ ) or die "$@\n";
$app->change_mailbox(
Domain => $mydomain,
Password => $password,
);
- die $app->message unless $app->ok;
+ die $app->message."\n" unless $app->ok;
}