1#!/usr/local/bin/perl
2# Copy (or move) all messages from one folder to another
3use strict;
4use warnings;
5our (%text, %in, %config);
6
7require './mailbox-lib.pl';
8&ReadParse();
9my @folders = &list_folders();
10my $folder = $folders[$in{'idx'}];
11my $dest = $folders[$in{'dest'}];
12
13&ui_print_unbuffered_header(undef, $text{'copy_title'}, "");
14
15print &text('copy_doing', $folder->{'name'}, $dest->{'name'}),"<p>\n";
16&mailbox_copy_folder($folder, $dest);
17print $text{'copy_done'},"<p>\n";
18
19if ($in{'move'}) {
20	print &text('copy_deleting', $folder->{'name'}),"<p>\n";
21	&mailbox_empty_folder($folder);
22	print $text{'copy_done'},"<p>\n";
23	}
24
25&ui_print_footer($config{'mail_system'} == 4 ? "list_ifolders.cgi"
26					     : "list_folders.cgi",
27		 $text{'folders_return'});
28