Файловый менеджер - Редактировать - /usr/share/webmin/qmailadmin/edit_ffile.cgi
Назад
#!/usr/bin/perl # edit_ffile.cgi # Allow editing of a filter config file require (-r 'sendmail-lib.pl' ? './sendmail-lib.pl' : -r 'qmail-lib.pl' ? './qmail-lib.pl' : './postfix-lib.pl'); &ReadParse(); if (substr($in{'file'}, 0, length($access{'apath'})) ne $access{'apath'}) { &error(&text('ffile_efile', $in{'file'})); } &ui_print_header(undef, $text{'ffile_title'}, ""); &open_readfile(FILE, $in{'file'}); while(<FILE>) { s/\r|\n//g; if (/^(\S+)\s+(\S+)\s+(\S+)\s+(.*)$/) { push(@filter, [ $1, $2, $3, $4 ]); } elsif (/^(2)\s+(\S+)$/) { $other = $2; } } close(FILE); print "<b>",&text('ffile_desc', "<tt>$in{'file'}</tt>"),"</b><p>\n"; print "<form action=save_ffile.cgi method=post enctype=multipart/form-data>\n"; print "<input type=hidden name=file value=\"$in{'file'}\">\n"; print "<input type=hidden name=num value=\"$in{'num'}\">\n"; print "<input type=hidden name=name value=\"$in{'name'}\">\n"; $i = 0; foreach $f (@filter, [ 1, '', '', '' ], [ 1, '', '', '' ], [ 1, '', '', '' ], [ 1, '', '', '' ], [ 1, '', '', '' ]) { $field = "<select name=field_$i>\n"; foreach $ft ('', 'from', 'to', 'subject', 'cc', 'body') { $field .= sprintf "<option value='%s' %s>%s</option>\n", $ft, $f->[2] eq $ft ? "selected" : "", $ft ? $text{"ffile_$ft"} : " "; } $field .= "</select>\n"; $what = "<select name=what_$i>\n"; $what .= sprintf "<option value=0 %s>%s</option>\n", $f->[0] == 0 ? "selected" : "", $text{"ffile_what0"}; $what .= sprintf "<option value=1 %s>%s</option>\n", $f->[0] == 1 ? "selected" : "", $text{"ffile_what1"}; $what .= "</select>\n"; $match = "<input name=match_$i size=20 value='$f->[3]'>\n"; $action = "<input name=action_$i size=30 value='$f->[1]'>\n"; print &text('ffile_line', $field, $what, $match, $action),"<br>\n"; $i++; } print &text('ffile_other', "<input name=other size=30 value='$other'>"),"<br>\n"; print "<input type=submit value=\"$text{'save'}\">\n"; print "</form>\n"; &ui_print_footer("edit_alias.cgi?name=$in{'name'}&num=$in{'num'}", $text{'aform_return'});
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0 |
proxy
|
phpinfo
|
Настройка