File manager - Edit - /usr/local/usermin-1.860/mailbox/edit_virt.cgi
Back
#!/usr/bin/perl # Display a form for creating or editing a virtual folder use strict; use warnings; our (%text, %in, %config); require './mailbox-lib.pl'; &ReadParse(); my @folders = &list_folders(); my $folder; if ($in{'new'}) { &ui_print_header(undef, $text{'edit_title1'}, ""); } else { &ui_print_header(undef, $text{'edit_title2'}, ""); $folder = $folders[$in{'idx'}]; } # Form and table start print &ui_form_start("save_virt.cgi"); print &ui_hidden("idx", $in{'idx'}); print &ui_hidden("new", $in{'new'}); print &ui_table_start($text{'edit_header'}, undef, 2); # Folder type print &ui_table_row($text{'edit_mode'}, $text{'edit_virt'}); # Folder name print &ui_table_row($text{'edit_name'}, &ui_textbox("name", $folder->{'name'}, 40)); # Deletion mode print &ui_table_row($text{'edit_delete'}, &ui_yesno_radio("deletesub", $folder->{'delete'})); &show_folder_options($folder); print &ui_table_end(); if ($in{'new'}) { print &ui_form_end([ [ undef, $text{'create'} ] ]); } else { print &ui_form_end([ [ undef, $text{'save'} ], [ 'delete', $text{'delete'} ] ]); } &ui_print_footer($config{'mail_system'} == 4 ? "list_ifolders.cgi" : "list_folders.cgi", $text{'folders_return'});
| ver. 1.4 |
Github
|
.
| PHP 7.4.33 | Generation time: 0.77 |
proxy
|
phpinfo
|
Settings