PAL.C.T MINI SHELL
#!/usr/bin/perl
# Redirect to delete_mail.cgi with correct params
require './mailbox-lib.pl';
&ReadParse();
@d = split(/\0/, $in{'d'});
%ttext = &load_language($current_theme);
$action = $in{'ok1'} ? $in{'action1'} : $in{'action2'};
if ($action eq 'move' || $action eq 'copy') {
# Show dest form
&ui_print_header(undef, $ttext{'action_title'.$action}, "");
print &ui_form_start("delete_mail.cgi", "post");
print &ui_table_start(undef, undef, 2);
print &ui_hidden("folder", $in{'folder'});
print &ui_hidden("start", $in{'start'});
foreach $d (@d) {
print &ui_hidden("d", $d);
}
print &ui_hidden($action."1", 1);
# Source folder
@folders = &list_folders_sorted();
($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
print &ui_table_row($ttext{'action_src'},
$folder->{'name'});
# Dest folder
@mfolders = grep { $_ ne $folder && !$_->{'nowrite'} } @folders;
print &ui_table_row($ttext{'action_dest'},
&folder_select(\@mfolders, under, "mfolder1"));
if (@d == 1) {
($mail) = &mailbox_select_mails($folder, \@d, 1);
print &ui_table_row($ttext{'action_sel2'},
&simplify_subject($mail->{'header'}->{'subject'}));
}
else {
print &ui_table_row($ttext{'action_sel'}, scalar(@d));
}
print &ui_table_end();
print &ui_form_end([ [ undef, $ttext{'action_'.$action} ] ]);
&ui_print_footer("index.cgi?folder=$in{'folder'}&start=$in{'start'}",
$text{'index_return'});
}
else {
# Just redirect
&redirect("delete_mail.cgi?$action=1".
"&folder=".$in{'folder'}.
"&mod=".$in{'mod'}.
join("", map { "&d=$_" } @d));
}
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`