File manager - Edit - /usr/local/usermin-1.860/mailbox/save_virt.cgi
Back
#!/usr/bin/perl # Create, modify or delete a virtual folder use strict; use warnings; our (%text, %in, %config); require './mailbox-lib.pl'; &ReadParse(); my @folders = &list_folders(); my ($folder, $old); if (!$in{'new'}) { $folder = $folders[$in{'idx'}]; $old = { %$folder }; } &error_setup($text{'save_err'}); if ($in{'delete'}) { # Just delete this folder file &delete_folder($old); } else { # Validate inputs $in{'name'} =~ /\S/ || &error($text{'save_ename'}); &parse_folder_options($folder, 0, \%in); # Save the folder $folder->{'type'} = 6; $folder->{'name'} = $in{'name'}; $folder->{'delete'} = $in{'deletesub'}; $folder->{'perpage'} = $in{'perpage_def'} ? undef : $in{'perpage'}; $folder->{'fromaddr'} = $in{'fromaddr_def'} ? undef : $in{'fromaddr'}; $folder->{'sent'} = $in{'sent'}; &save_folder($folder, $old); } &redirect(($config{'mail_system'} == 4 ? "list_ifolders.cgi" : "list_folders.cgi"). "?refresh=".&urlize($folder->{'name'}));
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 1.28 |
proxy
|
phpinfo
|
Settings