mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
40 lines
1.3 KiB
Perl
Executable File
40 lines
1.3 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Delete all mail in some mailbox, after asking for confirmation
|
|
|
|
require './mailboxes-lib.pl';
|
|
&ReadParse();
|
|
&can_user($in{'user'}) || &error($text{'mail_ecannot'});
|
|
&is_user($in{'user'}) || -e $in{'user'} || &error($text{'mail_efile'});
|
|
@folders = &list_user_folders_sorted($in{'user'});
|
|
($folder) = grep { $_->{'index'} == $in{'folder'} } @folders;
|
|
|
|
if ($in{'confirm'}) {
|
|
# Do it!
|
|
$sz = &mailbox_folder_size($folder);
|
|
&mailbox_empty_folder($folder);
|
|
&webmin_log("delmail", undef, undef, { 'from' => $folder->{'file'},
|
|
'count' => $sz });
|
|
&redirect("list_mail.cgi?user=$in{'user'}&folder=$in{'folder'}".
|
|
"&dom=$in{'dom'}");
|
|
}
|
|
else {
|
|
# Ask first
|
|
&ui_print_header(undef, $text{'delall_title'}, "");
|
|
print &ui_confirmation_form(
|
|
"delete_all.cgi",
|
|
&text('delall_rusure',
|
|
"<tt>$folder->{'file'}</tt>",
|
|
&mailbox_folder_size($folder),
|
|
&nice_size(&folder_size($folder))),
|
|
[ [ 'user', $in{'user'} ],
|
|
[ 'dom', $in{'dom'} ],
|
|
[ 'folder', $in{'folder'} ] ],
|
|
[ [ 'confirm', $text{'delall_ok'} ] ],
|
|
);
|
|
&ui_print_footer("list_mail.cgi?user=$in{'user'}&folder=$in{'folder'}".
|
|
"&dom=$in{'dom'}", $text{'mail_return'},
|
|
&user_list_link(), $text{'index_return'});
|
|
}
|
|
|
|
|