Viewing file:  copy-mailbox.pl (2.43 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
=head1 copy-mailbox.pl
Copy mail from one location to another, perhaps converting formats.
The source mail is specified with the C<--source> flag, and the destination
with the C<--dest> parameter. Both must be followed by a full path, which
can end with a / to indicate that it is in Maildir format.
By default email is just coped, but the C<--delete> flag can be given to
have it moved instead.
=cut
package virtual_server;
if (!$module_name) {
$main::no_acl_check++;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
if ($0 =~ /^(.*)\/[^\/]+$/) {
chdir($pwd = $1);
}
else {
chop($pwd = `pwd`);
}
$0 = "$pwd/copy-mailbox.pl";
require './virtual-server-lib.pl';
$< == 0 || die "list-mailbox.pl must be run as root";
}
# Parse command-line args
$delete = 0;
while(@ARGV > 0) {
local $a = shift(@ARGV);
if ($a eq "--source") {
$src = shift(@ARGV);
}
elsif ($a eq "--dest") {
$dest = shift(@ARGV);
}
elsif ($a eq "--delete") {
$delete = 1;
}
elsif ($a eq "--multiline") {
$multiline = 1;
}
elsif ($a eq "--help") {
&usage();
}
else {
&usage("Unknown parameter $a");
}
}
$src && $dest || &usage("Missing --source or --dest parameter");
# Get the folders
&foreign_require("mailboxes");
$srcfolder = { 'file' => $src,
'type' => 0 };
if ($src =~ /\/$/ || -d $src) {
$srcfolder->{'file'} =~ s/\/$//;
$srcfolder->{'type'} = 1;
}
$destfolder = { 'file' => $dest,
'type' => 0 };
if ($dest =~ /\/$/ || -d $dest) {
$destfolder->{'file'} =~ s/\/$//;
$destfolder->{'type'} = 1;
}
-d $srcfolder->{'file'} || -r $srcfolder->{'file'} ||
&usage("Source folder $srcfolder->{'file'} does not exist");
# Copy mail
$sz = &mailboxes::folder_size($srcfolder);
$count = &mailboxes::mailbox_folder_size($srcfolder);
print $delete ? "Moving" : "Copying";
print " $count messages totalling ",&nice_size($sz)," ...\n";
if ($delete) {
&mailboxes::mailbox_move_folder($srcfolder, $destfolder);
}
else {
&mailboxes::mailbox_copy_folder($srcfolder, $destfolder);
}
# Fix ownership
@st = stat($srcfolder->{'file'});
&execute_command("chown -R $st[4]:$st[5] ".quotemeta($destfolder->{'file'}));
print "... done\n";
sub usage
{
print "$_[0]\n\n" if ($_[0]);
print "Copies or moves mail from one file or directory to another.\n";
print "\n";
print "virtualmin copy-mailbox --source file\n";
print " --dest file\n";
print " [--delete]\n";
exit(1);
}
|