cyradm: perl: symbol lookup error?

Patrick Goetz pgoetz at mail.utexas.edu
Thu Sep 17 15:07:42 EDT 2015


Thanks.  I'm just now getting around to looking at this script.  This 
creates a mailbox, but don't you also need to set access privileges for 
the user associated with this mailbox?



On 09/16/2015 12:00 PM, Patrick Boutilier wrote:
>
> We use this simple perl script to add users. Fill in appropriate
> username and password.
>
>
>
>
>
> #!/usr/bin/perl -w
> #
> use File::Basename;
> use IMAP::Admin;
>
> if ( 0 == scalar( @ARGV ) ) {
>    die( "\n  Usuage: $0 userid\n");
> }
>
>
> $mailbox = "user.$ARGV[0]";
> $username = "";
> $password = "";
>
> # Set this to the hostname of your IMAP server
> $IMAPSERVER = "localhost";
> #
>
> # Main Code
> #
> # Login to IMAP server
> $imap = IMAP::Admin->new('Server' => $IMAPSERVER,
>                           'Login' => $username,
>                           'Password' => $password,) || die "no go $! !";
>
> print "Login: " . $imap->error . "\n";
>
> # Add user
> $add = $imap->create("$mailbox");
>
> if ($add != 0) {
>          print "Error: " . $imap->error . "\n";
> }
> else {
>          print "$ARGV[0] added.\n";
> }
>
>
> # Close connection
> $imap->close;
> exit;
>
>
> ----
> Cyrus Home Page: http://www.cyrusimap.org/
> List Archives/Info: http://lists.andrew.cmu.edu/pipermail/info-cyrus/
> To Unsubscribe:
> https://lists.andrew.cmu.edu/mailman/listinfo/info-cyrus
>


More information about the Info-cyrus mailing list