-
-
Notifications
You must be signed in to change notification settings - Fork 102
/
copy-mailbox.pl
executable file
·101 lines (89 loc) · 2.44 KB
/
copy-mailbox.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
#!/usr/local/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);
}