Viewing file:  copy.cgi (848 B) -rwxr-xr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Copy (or move) all messages from one folder to another
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %config);
require './mailbox-lib.pl';
&ReadParse();
my @folders = &list_folders();
my $folder = $folders[$in{'idx'}];
my $dest = $folders[$in{'dest'}];
&ui_print_unbuffered_header(undef, $text{'copy_title'}, "");
print &text('copy_doing', &html_escape($folder->{'name'}), &html_escape($dest->{'name'})),"<p>\n";
&mailbox_copy_folder($folder, $dest);
print $text{'copy_done'},"<p>\n";
if ($in{'move'}) {
print &text('copy_deleting', &html_escape($folder->{'name'})),"<p>\n";
&mailbox_empty_folder($folder);
print $text{'copy_done'},"<p>\n";
}
&ui_print_footer($config{'mail_system'} == 4 ? "list_ifolders.cgi"
: "list_folders.cgi",
$text{'folders_return'});
|