Файловый менеджер - Редактировать - /usr/share/webmin/squid/save_pool.cgi
Назад
#!/usr/bin/perl # save_pool.cgi # Create, update or delete a delay pool use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config); require './squid-lib.pl'; $access{'delay'} || &error($text{'delay_ecannot'}); &ReadParse(); &lock_file($config{'squid_conf'}); my $conf = &get_config(); &error_setup($text{'pool_err'}); my @pools = &find_config("delay_class", $conf); my @params = &find_config("delay_parameters", $conf); my @access = &find_config("delay_access", $conf); my $pools = &find_config("delay_pools", $conf); $pools ||= { 'name' => 'delay_pools' }; my ($pool, $param); if (!$in{'new'}) { ($pool) = grep { $_->{'values'}->[0] == $in{'idx'} } @pools; ($param) = grep { $_->{'values'}->[0] == $in{'idx'} } @params; } else { $pool = { 'name' => 'delay_class', 'values' => [ $pools->{'values'}->[0] + 1 ] }; $param = { 'name' => 'delay_parameters', 'values' => [ $pools->{'values'}->[0] + 1 ] }; } if ($in{'delete'}) { # When deleting, the numbers of any pools 'above' it must be shifted # down, any delay_access directives removed and the delay_pools count # decreased @access = grep { $_->{'values'}->[0] != $in{'idx'} } @access; @pools = grep { $_ ne $pool } @pools; @params = grep { $_ ne $param } @params; map { $_->{'values'}->[0]-- if ($_->{'values'}->[0] > $in{'idx'}) } (@access, @pools, @params); &save_directive($conf, "delay_class", \@pools); &save_directive($conf, "delay_parameters", \@params); &save_directive($conf, "delay_access", \@access); $pools->{'values'}->[0]--; &save_directive($conf, "delay_pools", [ $pools ]); } else { # Validate and store inputs $pool->{'values'}->[1] = $in{'class'}; my @v; if ($in{'class'} == 1) { @v = ( &parse_limit("agg") ); } elsif ($in{'class'} == 2) { @v = ( &parse_limit("agg"), &parse_limit("ind") ); } elsif ($in{'class'} == 3) { @v = ( &parse_limit("agg"), &parse_limit("net"), &parse_limit("ind") ); } elsif ($in{'class'} == 4) { @v = ( &parse_limit("agg"), &parse_limit("net"), &parse_limit("ind"), &parse_limit("user") ); } elsif ($in{'class'} == 5) { @v = ( &parse_limit("tag") ); } $param->{'values'} = [ $param->{'values'}->[0], @v ]; if ($in{'new'}) { # Add the pool and increment the count $pools->{'values'}->[0]++; push(@pools, $pool); push(@params, $param); &save_directive($conf, "delay_pools", [ $pools ]); } &save_directive($conf, "delay_class", \@pools); &save_directive($conf, "delay_parameters", \@params); &save_directive($conf, "delay_access", \@access); } &flush_file_lines(); &unlock_file($config{'squid_conf'}); &webmin_log($in{'new'} ? "create" : $in{'delete'} ? "delete" : "modify", "pool", $in{'idx'}, \%in); &redirect("edit_delay.cgi"); # parse_limit(name) sub parse_limit { my ($name) = @_; if ($in{$name."_def"}) { return "-1/-1"; } else { my @ud = ( .125, 1, 125, 1000, 125000, 1000000 ); my $u1 = $in{$name."_1_n"}; my $u2 = $in{$name."_2_n"}; $u1 =~ /^\d+$/ || $u1 == -1 || &error(&text('pool_elimit1', $u1)); $u2 =~ /^\d+$/ || $u2 == -1 || &error(&text('pool_elimit2', $u2)); $u1 = int($u1 * $ud[$in{$name."_1_u"}]); $u2 = int($u2 * $ud[$in{$name."_2_u"}]); return "$u1/$u2"; } }
| ver. 1.4 |
Github
|
.
| PHP 7.4.3-4ubuntu2.28 | Генерация страницы: 0.01 |
proxy
|
phpinfo
|
Настройка