}
sub cyrus_insert {
- my( $username, $quota ) =
+ my( $username, $quota ) = @_;
my $client = Cyrus::IMAP::Admin->new($cyrus_server);
$client->authenticate(
}
sub cyrus_delete {
- my( $username ) = shift;
+ my $username = shift;
my $client = Cyrus::IMAP::Admin->new($cyrus_server);
$client->authenticate(
=head1 VERSION
-$Id: svc_acct.pm,v 1.35 2001-09-11 04:17:47 ivan Exp $
+$Id: svc_acct.pm,v 1.36 2001-09-11 12:00:19 ivan Exp $
=head1 BUGS