Файловый менеджер - Редактировать - /usr/share/webmin/squid/always.cgi
Назад
#!/usr/bin/perl # always.cgi # A form for editing or creating http_access directives use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'othercaches'} || &error($text{'eicp_ecannot'}); &ReadParse(); my $conf = &get_config(); my @always; if (!defined($in{'index'})) { &ui_print_header(undef, $text{'always_create'}, "", undef, 0, 0, 0, &restart_button()); } else { &ui_print_header(undef, $text{'always_edit'}, "", undef, 0, 0, 0, &restart_button()); @always = @{$conf->[$in{'index'}]->{'values'}}; } print &ui_form_start("always_save.cgi", "post"); if (@always) { print &ui_hidden("index", $in{'index'}); } print &ui_table_start($text{'always_header'}, undef, 2); # Allow or deny this ACL? print &ui_table_row($text{'ahttp_a'}, &ui_radio("action", $always[0] || "allow", [ [ "allow", $text{'ahttp_a1'} ], [ "deny", $text{'ahttp_d'} ] ])); # Get list of ACLs being matched, and all ACLs my (@yes, @no); for(my $i=1; $i<@always; $i++) { if ($always[$i] =~ /^!(.*)/) { push(@no, $1); } else { push(@yes, $always[$i]); } } my %done; my @acls = grep { !$done{$_->{'values'}->[0]}++ } &find_config("acl", $conf); unshift(@acls, { 'values' => [ 'all' ] }) if ($squid_version >= 3); my $r = @acls; $r = 10 if ($r > 10); print &ui_table_row($text{'ahttp_ma'}, &ui_select("yes", \@yes, [ map { $_->{'values'}->[0] } @acls ], $r, 1, 1)); print &ui_table_row($text{'ahttp_dma'}, &ui_select("no", \@no, [ map { $_->{'values'}->[0] } @acls ], $r, 1, 1)); print &ui_table_end(); print &ui_form_end([ [ undef, $text{'buttsave'} ], @always ? ( [ 'delete', $text{'buttdel'} ] ) : ( ) ]); &ui_print_footer("edit_icp.cgi", $text{'ahttp_return'});
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0.01 |
proxy
|
phpinfo
|
Настройка