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