Linux server.thearyasamaj.org 4.18.0-553.56.1.el8_10.x86_64 #1 SMP Tue Jun 10 05:00:59 EDT 2025 x86_64
Apache
: 103.90.241.146 | : 216.73.216.28
Cant Read [ /etc/named.conf ]
5.6.40
ftpuser@mantra.thearyasamaj.org
www.github.com/MadExploits
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
CPANEL RESET
CREATE WP USER
README
+ Create Folder
+ Create File
/
usr /
libexec /
webmin /
squid /
[ HOME SHELL ]
Name
Size
Permission
Action
help
[ DIR ]
drwxr-xr-x
images
[ DIR ]
drwxr-xr-x
lang
[ DIR ]
drwxr-xr-x
CHANGELOG
2.59
KB
-rw-r--r--
acl.cgi
10.91
KB
-rwxr-xr-x
acl_save.cgi
8.13
KB
-rwxr-xr-x
acl_security.pl
1.72
KB
-rwxr-xr-x
always.cgi
1.76
KB
-rwxr-xr-x
always_save.cgi
1.17
KB
-rwxr-xr-x
backup_config.pl
732
B
-rwxr-xr-x
cachemgr.cgi
1.03
KB
-rwxr-xr-x
calamaris.cgi
3.09
KB
-rwxr-xr-x
cgi_args.pl
2.23
KB
-rwxr-xr-x
chown.cgi
1.42
KB
-rwxr-xr-x
clear.cgi
2.87
KB
-rwxr-xr-x
config-AlmaLinux-7.0-ALL
439
B
-rw-r--r--
config-Amazon-Linux-2-ALL
398
B
-rw-r--r--
config-CentOS-Linux-7.0-ALL
398
B
-rw-r--r--
config-CentOS-Stream-Linux-8.0...
439
B
-rw-r--r--
config-Oracle-Linux-8.0-ALL
439
B
-rw-r--r--
config-Redhat-Enterprise-Linux...
439
B
-rw-r--r--
config-Rocky-Linux-7.0-ALL
439
B
-rw-r--r--
config-Scientific-Linux-7.0-AL...
398
B
-rw-r--r--
config-Ubuntu-Linux-16.0-ALL
447
B
-rw-r--r--
config-aix
365
B
-rw-r--r--
config-cobalt-linux
364
B
-rw-r--r--
config-coherent-linux
422
B
-rw-r--r--
config-corel-linux
338
B
-rw-r--r--
config-debian-linux
338
B
-rw-r--r--
config-debian-linux-10.0-ALL
447
B
-rw-r--r--
config-debian-linux-3.0-4.9
344
B
-rw-r--r--
config-debian-linux-5.0-5.9
454
B
-rw-r--r--
config-debian-linux-6.0-6.9
442
B
-rw-r--r--
config-debian-linux-7.0-9.0
449
B
-rw-r--r--
config-freebsd
395
B
-rw-r--r--
config-freebsd-8-ALL
484
B
-rw-r--r--
config-generic-linux
405
B
-rw-r--r--
config-gentoo-linux
412
B
-rw-r--r--
config-hpux
405
B
-rw-r--r--
config-irix
405
B
-rw-r--r--
config-lfs-linux
374
B
-rw-r--r--
config-macos
405
B
-rw-r--r--
config-mandrake-linux
409
B
-rw-r--r--
config-mandrake-linux-8.0-ALL
406
B
-rw-r--r--
config-msc-linux
422
B
-rw-r--r--
config-netbsd
360
B
-rw-r--r--
config-open-linux
429
B
-rw-r--r--
config-open-linux-3.1e
431
B
-rw-r--r--
config-openSUSE-Linux-15.0-ALL
447
B
-rw-r--r--
config-openbsd
395
B
-rw-r--r--
config-openmamba-linux
347
B
-rw-r--r--
config-openserver
405
B
-rw-r--r--
config-osf1
405
B
-rw-r--r--
config-pardus-linux
416
B
-rw-r--r--
config-redhat-linux
341
B
-rw-r--r--
config-redhat-linux-24.0-ALL
439
B
-rw-r--r--
config-redhat-linux-6.0
427
B
-rw-r--r--
config-redhat-linux-6.1-23.0
420
B
-rw-r--r--
config-slackware-linux
405
B
-rw-r--r--
config-sol-linux
401
B
-rw-r--r--
config-solaris
405
B
-rw-r--r--
config-solaris-11-ALL
461
B
-rw-r--r--
config-suse-linux
332
B
-rw-r--r--
config-suse-linux-8.0
359
B
-rw-r--r--
config-suse-linux-8.2-ALL
456
B
-rw-r--r--
config-trustix-linux
412
B
-rw-r--r--
config-turbo-linux
341
B
-rw-r--r--
config-united-linux
435
B
-rw-r--r--
config-unixware
405
B
-rw-r--r--
config.info
1.16
KB
-rw-r--r--
config.info.ca
1.42
KB
-rw-r--r--
config.info.cs
924
B
-rw-r--r--
config.info.de
1.4
KB
-rw-r--r--
config.info.es
1.36
KB
-rw-r--r--
config.info.fa
1.57
KB
-rw-r--r--
config.info.fr
538
B
-rw-r--r--
config.info.it
570
B
-rw-r--r--
config.info.ja
1.34
KB
-rw-r--r--
config.info.nl
1.35
KB
-rw-r--r--
config.info.no
1.22
KB
-rw-r--r--
config.info.pl
737
B
-rw-r--r--
config.info.pt_BR
1.44
KB
-rw-r--r--
config.info.ru
1.39
KB
-rw-r--r--
config.info.sv
569
B
-rw-r--r--
config.info.tr
369
B
-rw-r--r--
config.info.uk
1.41
KB
-rw-r--r--
config.info.zh
450
B
-rw-r--r--
config.info.zh_TW
355
B
-rw-r--r--
defaultacl
228
B
-rw-r--r--
delete_http_accesses.cgi
848
B
-rwxr-xr-x
delete_http_reply_accesses.cgi
913
B
-rwxr-xr-x
delete_https.cgi
838
B
-rwxr-xr-x
delete_icp_accesses.cgi
836
B
-rwxr-xr-x
delete_icps.cgi
1.14
KB
-rwxr-xr-x
delete_pools.cgi
1.42
KB
-rwxr-xr-x
delete_refreshes.cgi
840
B
-rwxr-xr-x
edit_acl.cgi
6.99
KB
-rwxr-xr-x
edit_admin.cgi
2.44
KB
-rwxr-xr-x
edit_authparam.cgi
4.62
KB
-rwxr-xr-x
edit_cache.cgi
7.39
KB
-rwxr-xr-x
edit_cache_host.cgi
4.76
KB
-rwxr-xr-x
edit_cachemgr.cgi
1.82
KB
-rwxr-xr-x
edit_delay.cgi
2.86
KB
-rwxr-xr-x
edit_ext.cgi
1.53
KB
-rwxr-xr-x
edit_headeracc.cgi
1.96
KB
-rwxr-xr-x
edit_icp.cgi
5.28
KB
-rwxr-xr-x
edit_iptables.cgi
1.91
KB
-rwxr-xr-x
edit_logs.cgi
4.74
KB
-rwxr-xr-x
edit_manual.cgi
919
B
-rwxr-xr-x
edit_mem.cgi
2.48
KB
-rwxr-xr-x
edit_misc.cgi
3.92
KB
-rwxr-xr-x
edit_nauth.cgi
1.26
KB
-rwxr-xr-x
edit_nuser.cgi
1.46
KB
-rwxr-xr-x
edit_pool.cgi
4.18
KB
-rwxr-xr-x
edit_ports.cgi
3.28
KB
-rwxr-xr-x
edit_progs.cgi
3.06
KB
-rwxr-xr-x
edit_refresh.cgi
1.91
KB
-rwxr-xr-x
http_access.cgi
2
KB
-rwxr-xr-x
http_access_save.cgi
1.37
KB
-rwxr-xr-x
http_reply_access.cgi
1.81
KB
-rwxr-xr-x
http_reply_access_save.cgi
1.25
KB
-rwxr-xr-x
icp_access.cgi
1.98
KB
-rwxr-xr-x
icp_access_save.cgi
1.35
KB
-rwxr-xr-x
index.cgi
5.54
KB
-rwxr-xr-x
init_cache.cgi
3.03
KB
-rwxr-xr-x
install_check.pl
615
B
-rwxr-xr-x
list_headeracc.cgi
1.71
KB
-rwxr-xr-x
list_refresh.cgi
1.63
KB
-rwxr-xr-x
log_parser.pl
1.27
KB
-rwxr-xr-x
module.info
496
B
-rw-r--r--
module.info.af
0
B
-rw-r--r--
module.info.af.auto
122
B
-rw-r--r--
module.info.ar
0
B
-rw-r--r--
module.info.ar.auto
191
B
-rw-r--r--
module.info.be
0
B
-rw-r--r--
module.info.be.auto
231
B
-rw-r--r--
module.info.bg
0
B
-rw-r--r--
module.info.bg.auto
249
B
-rw-r--r--
module.info.ca
112
B
-rw-r--r--
module.info.ca.auto
16
B
-rw-r--r--
module.info.cs
27
B
-rw-r--r--
module.info.cs.auto
105
B
-rw-r--r--
module.info.da
0
B
-rw-r--r--
module.info.da.auto
134
B
-rw-r--r--
module.info.de
110
B
-rw-r--r--
module.info.de.auto
20
B
-rw-r--r--
module.info.el
0
B
-rw-r--r--
module.info.el.auto
230
B
-rw-r--r--
module.info.es
31
B
-rw-r--r--
module.info.es.auto
124
B
-rw-r--r--
module.info.eu
0
B
-rw-r--r--
module.info.eu.auto
138
B
-rw-r--r--
module.info.fa
0
B
-rw-r--r--
module.info.fa.auto
231
B
-rw-r--r--
module.info.fi
0
B
-rw-r--r--
module.info.fi.auto
159
B
-rw-r--r--
module.info.fr
28
B
-rw-r--r--
module.info.fr.auto
127
B
-rw-r--r--
module.info.he
0
B
-rw-r--r--
module.info.he.auto
194
B
-rw-r--r--
module.info.hr
0
B
-rw-r--r--
module.info.hr.auto
143
B
-rw-r--r--
module.info.hu
0
B
-rw-r--r--
module.info.hu.auto
170
B
-rw-r--r--
module.info.it
0
B
-rw-r--r--
module.info.it.auto
142
B
-rw-r--r--
module.info.ja
37
B
-rw-r--r--
module.info.ja.auto
147
B
-rw-r--r--
module.info.ko
31
B
-rw-r--r--
module.info.ko.auto
121
B
-rw-r--r--
module.info.lt
0
B
-rw-r--r--
module.info.lt.auto
151
B
-rw-r--r--
module.info.lv
0
B
-rw-r--r--
module.info.lv.auto
159
B
-rw-r--r--
module.info.ms
116
B
-rw-r--r--
module.info.ms.auto
15
B
-rw-r--r--
module.info.mt
0
B
-rw-r--r--
module.info.mt.auto
144
B
-rw-r--r--
module.info.nl
27
B
-rw-r--r--
module.info.nl.auto
98
B
-rw-r--r--
module.info.no
0
B
-rw-r--r--
module.info.no.auto
131
B
-rw-r--r--
module.info.pl
27
B
-rw-r--r--
module.info.pl.auto
115
B
-rw-r--r--
module.info.pt
29
B
-rw-r--r--
module.info.pt.auto
103
B
-rw-r--r--
module.info.pt_BR
32
B
-rw-r--r--
module.info.pt_BR.auto
109
B
-rw-r--r--
module.info.ro
0
B
-rw-r--r--
module.info.ro.auto
147
B
-rw-r--r--
module.info.ru
40
B
-rw-r--r--
module.info.ru.auto
171
B
-rw-r--r--
module.info.sk
0
B
-rw-r--r--
module.info.sk.auto
181
B
-rw-r--r--
module.info.sl
0
B
-rw-r--r--
module.info.sl.auto
146
B
-rw-r--r--
module.info.sv
26
B
-rw-r--r--
module.info.sv.auto
111
B
-rw-r--r--
module.info.th
0
B
-rw-r--r--
module.info.th.auto
231
B
-rw-r--r--
module.info.tr
29
B
-rw-r--r--
module.info.tr.auto
132
B
-rw-r--r--
module.info.uk
0
B
-rw-r--r--
module.info.uk.auto
243
B
-rw-r--r--
module.info.ur
0
B
-rw-r--r--
module.info.ur.auto
205
B
-rw-r--r--
module.info.vi
0
B
-rw-r--r--
module.info.vi.auto
147
B
-rw-r--r--
module.info.zh
30
B
-rw-r--r--
module.info.zh.auto
84
B
-rw-r--r--
module.info.zh_TW
33
B
-rw-r--r--
module.info.zh_TW.auto
90
B
-rw-r--r--
move_always.cgi
762
B
-rwxr-xr-x
move_headeracc.cgi
777
B
-rwxr-xr-x
move_http.cgi
748
B
-rwxr-xr-x
move_http_reply.cgi
797
B
-rwxr-xr-x
move_icp.cgi
736
B
-rwxr-xr-x
move_never.cgi
751
B
-rwxr-xr-x
move_pool.cgi
831
B
-rwxr-xr-x
move_refresh.cgi
822
B
-rwxr-xr-x
nat
34.84
KB
-rw-r--r--
never.cgi
1.75
KB
-rwxr-xr-x
never_save.cgi
1.15
KB
-rwxr-xr-x
parser-lib.pl
6.39
KB
-rwxr-xr-x
pool_access.cgi
1.82
KB
-rwxr-xr-x
pool_access_save.cgi
1.17
KB
-rwxr-xr-x
purge.cgi
1.11
KB
-rwxr-xr-x
restart.cgi
381
B
-rwxr-xr-x
save_admin.cgi
2.23
KB
-rwxr-xr-x
save_authparam.cgi
5.29
KB
-rwxr-xr-x
save_cache.cgi
6.03
KB
-rwxr-xr-x
save_cache_host.cgi
3.8
KB
-rwxr-xr-x
save_cachemgr.cgi
1.15
KB
-rwxr-xr-x
save_delay.cgi
656
B
-rwxr-xr-x
save_ext.cgi
2.32
KB
-rwxr-xr-x
save_headeracc.cgi
1.26
KB
-rwxr-xr-x
save_icp.cgi
1.18
KB
-rwxr-xr-x
save_iptables.cgi
2.9
KB
-rwxr-xr-x
save_logs.cgi
3.14
KB
-rwxr-xr-x
save_manual.cgi
493
B
-rwxr-xr-x
save_mem.cgi
1.72
KB
-rwxr-xr-x
save_misc.cgi
2.65
KB
-rwxr-xr-x
save_nuser.cgi
1.89
KB
-rwxr-xr-x
save_pool.cgi
3.19
KB
-rwxr-xr-x
save_ports.cgi
2.59
KB
-rwxr-xr-x
save_progs.cgi
2.55
KB
-rwxr-xr-x
save_refresh.cgi
1.46
KB
-rwxr-xr-x
squid-auth.pl
446
B
-rwxr-xr-x
squid-lib.pl
16.16
KB
-rwxr-xr-x
start.cgi
1.16
KB
-rwxr-xr-x
stop.cgi
881
B
-rwxr-xr-x
syslog_logs.pl
715
B
-rwxr-xr-x
useradmin_update.pl
2.8
KB
-rwxr-xr-x
Delete
Unzip
Zip
${this.title}
Close
Code Editor : acl_save.cgi
#!/usr/bin/perl # acl_save.cgi # Save or delete an ACL use strict; use warnings; no warnings 'redefine'; no warnings 'uninitialized'; our (%text, %in, %access, $squid_version, %config, %acl_types); require './squid-lib.pl'; $access{'actrl'} || &error($text{'eacl_ecannot'}); &ReadParseMime(); &lock_file($config{'squid_conf'}); my $conf = &get_config(); &error_setup($text{'aclsave_failsave'}); my @acls = &find_config("acl", $conf); my @denys = &find_config("deny_info", $conf); my ($acl, $deny); if (defined($in{'index'})) { $acl = $conf->[$in{'index'}]; } if (defined($in{'dindex'})) { $deny = $conf->[$in{'dindex'}]; } my @aclopts = ( ); my $logacl; if ($in{'delete'}) { # Is there more than one ACL with this name? my $name = $acl->{'values'}->[0]; my $count = 0; foreach my $a (&find_config("acl", $conf)) { $count++ if ($a->{'values'}->[0] eq $name); } # Is this ACL in use? &error_setup($text{'aclsave_faildel'}); if ($count == 1) { foreach my $h (&find_config("http_access", $conf)) { my @v = @{$h->{'values'}}; for(my $i=1; $i<@v; $i++) { if ($v[$i] eq $name || $v[$i] eq "!$name") { &error($text{'aclsave_epr'}); } } } foreach my $h (&find_config("icp_access", $conf)) { my @v = @{$h->{'values'}}; for(my $i=1; $i<@v; $i++) { if ($v[$i] eq $in{'name'} || $v[$i] eq "!$in{'name'}") { &error($text{'aclsave_eicpr'}); } } } } splice(@acls, &indexof($acl, @acls), 1); if ($deny) { splice(@denys, &indexof($deny, @denys), 1); } $logacl = $acl; } else { # Check ACL details $in{'name'} =~ /^\S+$/ || &error($text{'aclsave_ename'}); my $changed = 0; $changed++ if ($acl && $in{'name'} ne $acl->{'values'}->[0]); for(my $i=0; $i<@acls; $i++) { if ($changed && $acls[$i]->{'values'}->[0] eq $in{'name'}) { &error(&text('aclsave_eexists',$in{'name'})); } } my @vals; if ($in{'type'} eq "src" || $in{'type'} eq "dst") { push(@aclopts, "-n") if ($in{'nodns'}); for(my $i=0; defined(my $from = $in{"from_$i"}); $i++) { my $to = $in{"to_$i"}; my $mask = $in{"mask_$i"}; next if (!$from && !$to && !$mask); &check_ipaddress($from) || &check_ip6address($from) || &error(&text('aclsave_efrom',$from)); !$to || &check_ipaddress($to) || &check_ip6address($to) || &error(&text('aclsave_eto',$to)); $mask =~ /^\d*$/ || &check_ipaddress($mask) || &error(&text('aclsave_enmask',$mask)); if ($to && $mask) { push(@vals, "$from-$to/$mask"); } elsif ($to) { push(@vals, "$from-$to"); } elsif ($mask) { push(@vals, "$from/$mask"); } else { push(@vals, $from); } } } elsif ($in{'type'} eq "myip") { for(my $i=0; defined(my $ip = $in{"ip_$i"}); $i++) { my $mask = $in{"mask_$i"}; next if (!$mask || !$ip); &check_ipaddress($ip) || &check_ip6address($ip) || &error(&text('aclsave_eip',$ip)); $mask =~ /^\d+$/ || &check_ipaddress($mask) || &error(&text('aclsave_enmask',$mask)); push(@vals, "$ip/$mask"); } } elsif ($in{'type'} eq "srcdomain") { push(@vals, split(/[\r\n]+/, $in{'vals'})); if (!@vals && !$in{'keep'}) { &error($text{'aclsave_ecdom'}); } } elsif ($in{'type'} eq "dstdomain") { push(@aclopts, "-n") if ($in{'nodns'}); push(@vals, split(/[\r\n]+/, $in{'vals'})); if (!@vals && !$in{'keep'}) { &error($text{'aclsave_esdom'}); } } elsif ($in{'type'} eq "time") { if (!$in{'day_def'}) { push(@vals, join('', split(/\0/, $in{'day'}))); } if (!$in{'hour_def'}) { $in{'h1'} =~ /^\d+$/ || &error($text{'aclsave_eshour'}); $in{'h2'} =~ /^\d+$/ || &error($text{'aclsave_eehour'}); $in{'m1'} =~ /^\d+$/ || &error($text{'aclsave_esmin'}); $in{'m2'} =~ /^\d+$/ || &error($text{'aclsave_eemin'}); push(@vals, "$in{'h1'}:$in{'m1'}-$in{'h2'}:$in{'m2'}"); } } elsif ($in{'type'} eq "url_regex") { push(@aclopts, "-i") if ($in{'caseless'}); push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "urlpath_regex") { push(@aclopts, "-i") if ($in{'caseless'}); push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "port") { push(@vals, split(/\s+/, $in{'vals'})); } elsif ($in{'type'} eq "proto") { push(@vals, split(/\0/, $in{'vals'})); } elsif ($in{'type'} eq "method") { push(@vals, split(/\0/, $in{'vals'})); } elsif ($in{'type'} eq "browser" || $in{'type'} eq "snmp_community" || $in{'type'} eq "req_mime_type" || $in{'type'} eq "rep_mime_type") { push(@vals, $in{'vals'}); } elsif ($in{'type'} eq "user" || $in{'type'} eq "ident") { push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "src_as" || $in{'type'} eq "dst_as") { push(@vals, split(/\s+/, $in{'vals'})); } elsif ($in{'type'} eq "proxy_auth" && $squid_version < 2.3) { push(@vals, $in{'vals'}) if ($in{'vals'}); } elsif ($in{'type'} eq "proxy_auth" && $squid_version >= 2.3) { push(@vals, $in{'authall'} ? "REQUIRED" : split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "proxy_auth_regex" || $in{'type'} eq "ident_regex") { push(@aclopts, "-i") if ($in{'caseless'}); push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "srcdom_regex" || $in{'type'} eq "dstdom_regex") { push(@aclopts, "-i") if ($in{'caseless'}); push(@aclopts, "-n") if ($in{'nodns'}); push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "myport") { $in{'vals'} =~ /^\d+$/ || &error("'$in{'vals'}' is not a valid port number"); push(@vals, $in{'vals'}); } elsif ($in{'type'} eq "maxconn") { $in{'vals'} =~ /^\d+$/ || &error("'$in{'vals'}' is not a valid number of requests"); push(@vals, $in{'vals'}); } elsif ($in{'type'} eq "arp") { push(@vals, split(/[\r\n]+/, $in{'vals'})); } elsif ($in{'type'} eq "external") { $in{'class'} || &error($text{'eacl_eclass'}); push(@vals, $in{'class'}); push(@vals, split(/\s+/, $in{'args'})); } elsif ($in{'type'} eq "max_user_ip") { if ($in{'strict'}){ push(@vals, '-s'); } push(@vals, $in{'vals'}); } if (!$in{'file_def'}) { # Writing to an external file $in{'file'} || &error($text{'aclsave_enofile'}); &can_access($in{'file'}) || &error(&text('aclsave_efile', $in{'file'})); if (!$in{'keep'}) { if (!$acl && -e $in{'file'}) { &error($text{'aclsave_ealready'}); } my $fh = "FILE"; &open_lock_tempfile($fh, ">$in{'file'}"); foreach my $v (@vals) { &print_tempfile($fh, $v,"\n"); } &close_tempfile($fh); } @vals = ( $in{'name'}, $in{'type'}, @aclopts, "\"$in{'file'}\"" ); } else { # Just saving in Squid config directly if ($vals[0] =~ /^"(.*)"$/) { my $f = $1; &can_access($f) || &error(&text('aclsave_efile', $f)); if ($f !~ /^\// && $access{'root'} ne '/') { $vals[0] = "\"$access{'root'}/$f\""; } } @vals = ( $in{'name'}, $in{'type'}, @aclopts, @vals ); } my $newacl = { 'name' => 'acl', 'values' => \@vals }; $logacl = $newacl; if ($acl) { splice(@acls, &indexof($acl, @acls), 1, $newacl); } else { push(@acls, $newacl); } my $newdeny = { 'name' => 'deny_info', 'values' => [ $in{'deny'}, $vals[0] ] }; my $didx = &indexof($deny, @denys); if ($deny && $in{'deny'}) { $denys[$didx] = $newdeny; } elsif ($deny) { splice(@denys, $didx, 1); } elsif ($in{'deny'}) { push(@denys, $newdeny); } # Update http_access and icp_access directives if the ACL was renamed if ($changed) { my @https = &find_config("http_access", $conf); my @icps = &find_config("icp_access", $conf); my @replys = &find_config("http_reply_access", $conf); my $on = $acl->{'values'}->[0]; foreach my $c (@https, @icps, @replys) { for(my $j=1; $j<@{$c->{'values'}}; $j++) { if ($c->{'values'}->[$j] eq $on) { $c->{'values'}->[$j] = $in{'name'}; } elsif ($c->{'values'}->[$j] eq "!$on") { $c->{'values'}->[$j] = "!$in{'name'}"; } } } &save_directive($conf, "http_access", \@https); &save_directive($conf, "icp_access", \@icps); } } &save_directive($conf, "acl", \@acls); &save_directive($conf, "deny_info", \@denys); &flush_file_lines(); &unlock_file($config{'squid_conf'}); &webmin_log($in{'delete'} ? 'delete' : $acl ? 'modify' : 'create', 'acl', $logacl->{'values'}->[0], \%in); &redirect("edit_acl.cgi?mode=acls");
Close