33 lines
726 B
Perl
33 lines
726 B
Perl
#!/usr/bin/perl
|
|
#
|
|
# Usage: batchreconstruct inputfile
|
|
#
|
|
# Purpose: Runs the Cyrus reconstruct command on each newly-created
|
|
# Cyrus mailbox created by folderxfer
|
|
#
|
|
# Input: List of usernames, one per line
|
|
#
|
|
#$Id: batchreconstruct,v 1.1 2005/04/15 20:24:15 jdennis Exp $
|
|
|
|
#$whoami = "/usr/ucb/whoami"; # Solaris
|
|
$whoami = "/usr/bin/whoami";
|
|
$reconstruct = "/usr/lib/cyrus-imapd/reconstruct";
|
|
$cmd = "$reconstruct -r";
|
|
|
|
chop ($iam = `$whoami`);
|
|
if ($iam ne "cyrus" ) {
|
|
die "You must be cyrus to run this script!\n";
|
|
}
|
|
|
|
$users = "$ARGV[0]";
|
|
if (!$users) { die "Usage: $0 input_file\n"; }
|
|
|
|
open(MB,"$users") || die "can't open $users";
|
|
|
|
while (<MB>) {
|
|
chop;
|
|
system("$cmd user.$_");
|
|
}
|
|
close MB;
|
|
|