Файловый менеджер - Редактировать - /usr/share/webmin/squid/list_headeracc.cgi
Назад
#!/usr/bin/perl # list_headeracc.cgi # Display all header access control restrictions use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'headeracc'} || &error($text{'header_ecannot'}); &ui_print_header(undef, $text{'header_title'}, "", "list_headeracc", 0, 0, 0, &restart_button()); my $conf = &get_config(); # Work out what header access directives we support my @types = $squid_version >= 3.0 ? ("request_header_access", "reply_header_access") : ("header_access"); # Show a table for each foreach my $t (@types) { my @headeracc = &find_config($t, $conf); my @links = ( &ui_link("edit_headeracc.cgi?new=1&type=$t", $text{'header_add'}) ); print &ui_subheading($text{'header_'.$t}),"<p>\n" if ($t ne "header_access"); if (@headeracc) { print &ui_links_row(\@links); print &ui_columns_start([ $text{'header_name'}, $text{'header_act'}, $text{'header_acls'}, $text{'eacl_move'} ]); my $hc = 0; foreach my $h (@headeracc) { my @v = @{$h->{'values'}}; my @cols = ( ); push(@cols, &ui_link("edit_headeracc.cgi?type=$t&". "index=$h->{'index'}", $v[0])); push(@cols, $v[1] eq 'allow' ? $text{'eacl_allow'} : $text{'eacl_deny'}); push(@cols, join(" ", @v[2..$#v])); push(@cols, &ui_up_down_arrows( "move_headeracc.cgi?$hc+-1+$t", "move_headeracc.cgi?$hc+1+$t", $hc != 0, $hc != @headeracc-1)); print &ui_columns_row(\@cols); $hc++; } print &ui_columns_end(); } else { print "$text{'header_none'}<p>\n"; } print &ui_links_row(\@links); print &ui_hr() if ($t ne $types[$#types]); } &ui_print_footer("", $text{'index_return'});
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0.01 |
proxy
|
phpinfo
|
Настройка