Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl -w
- my $adminuser = "cyrus"; # Cyrus admin user
- my $adminpw = "traf"; # Cyrus admin password
- my $server = "localhost";
- use Cyrus::IMAP::Admin;
- $imap = Cyrus::IMAP::Admin->new($server) || die "Unable to connect to $server";
- if (! $imap) {
- die "Error creating IMAP connection object\n";
- }
- $imap->authenticate(-user => $adminuser,
- -password => $adminpw,
- ) || die "Authentication Failure";
- if ($imap->error) {
- die $imap->error;
- }
- print "Successfully connected to IMAP server.\n";
- $imap->reconstruct("user.$string_from_file");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement