File manager - Edit - /usr/local/usermin-1.860/mailbox/delete_folders.cgi
Back
#!/usr/bin/perl # Delete a bunch of folders use strict; use warnings; our (%text, %in, %config); require './mailbox-lib.pl'; &ReadParse(); &error_setup($text{'fdelete_err'}); # Get the folders my @folders = &list_folders(); my @d = split(/\0/, $in{'d'}); @d || &error($text{'fdelete_enone'}); my @dfolders; foreach my $d (@d) { push(@dfolders, $folders[$d]); } my $redir = $config{'mail_system'} == 4 ? "list_ifolders.cgi" : "list_folders.cgi"; if ($in{'confirm'}) { # Do the deletion foreach my $f (@dfolders) { &delete_folder($f); } &redirect($redir."?refresh=".&urlize($dfolders[0]->{'name'})); } else { # Ask the user if he is sure &ui_print_header(undef, $text{'fdelete_title'}, ""); # Get the total folder size, where mail will actually be lost my $sz = 0; foreach my $f (@dfolders) { if ($f->{'type'} == 0) { $sz += &folder_size($f); } } print &ui_form_start("delete_folders.cgi"); foreach my $d (@d) { print &ui_hidden("d", $d),"\n"; } print "<center><b>", &text($sz ? 'fdelete_rusure' : 'fdelete_rusure2', scalar(@dfolders), &nice_size($sz)),"</b></center><p>\n"; print "<center>",&ui_submit($text{'fdelete_delete'}, "confirm"), "</center>\n"; print &ui_form_end(); &ui_print_footer($redir, $text{'folders_return'}); }
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.49 |
proxy
|
phpinfo
|
Settings