PAL.C.T MINI SHELL
#!/usr/bin/perl
# Save or delete a refresh pattern
use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %in, %access, $squid_version, %config);
require './squid-lib.pl';
$access{'refresh'} || &error($text{'refresh_ecannot'});
&ReadParse();
&lock_file($config{'squid_conf'});
my $conf = &get_config();
&error_setup($text{'refresh_err'});
my @refresh = &find_config("refresh_pattern", $conf);
my $h;
if (defined($in{'index'})) {
$h = $conf->[$in{'index'}];
}
if ($in{'delete'}) {
# delete this restriction
splice(@refresh, &indexof($h, @refresh), 1);
}
else {
# update or create
$in{'re'} =~ /^\S+$/ || &error($text{'refresh_ere'});
$in{'min'} =~ /^\d+$/ || &error($text{'refresh_emin'});
$in{'max'} =~ /^\d+$/ || &error($text{'refresh_emax'});
$in{'pc'} =~ /^\d+$/ && $in{'pc'} >= 0 && $in{'pc'} <= 100 ||
&error($text{'refresh_epc'});
my @vals;
push(@vals, "-i") if ($in{'caseless'});
push(@vals, $in{'re'}, $in{'min'}, $in{'pc'}.'%', $in{'max'});
push(@vals, split(/\0/, $in{'options'}));
my $newr = { 'name' => 'refresh_pattern',
'values' => \@vals };
my $idx = &indexof($h, @refresh);
if ($h) { splice(@refresh, &indexof($h, @refresh), 1, $newr); }
else { push(@refresh, $newr); }
}
&save_directive($conf, "refresh_pattern", \@refresh);
&flush_file_lines();
&unlock_file($config{'squid_conf'});
&webmin_log($in{'delete'} ? 'delete' : $h ? 'modify' : 'create',
"refresh", $in{'re'});
&redirect("list_refresh.cgi");
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`