Gecko [ 122.154.134.11 ]

Name	Size	Permission
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.86 KB	-rwxr-xr-x
acl_save.cgi	8.08 KB	-rwxr-xr-x
acl_security.pl	1.72 KB	-rwxr-xr-x
always.cgi	1.71 KB	-rwxr-xr-x
always_save.cgi	1.12 KB	-rwxr-xr-x
backup_config.pl	679 B	-rwxr-xr-x
cachemgr.cgi	1001 B	-rwxr-xr-x
calamaris.cgi	3.01 KB	-rwxr-xr-x
cgi_args.pl	2.18 KB	-rwxr-xr-x
chown.cgi	1.36 KB	-rwxr-xr-x
clear.cgi	2.82 KB	-rwxr-xr-x
config-Amazon-Linux-2-ALL	398 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	398 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	398 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	398 B	-rw-r--r--
config-Ubuntu-Linux-16.0-ALL	441 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-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-ALL	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-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	422 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	435 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.39 KB	-rw-r--r--
config.info.ca.UTF-8	1.42 KB	-rw-r--r--
config.info.cz	895 B	-rw-r--r--
config.info.cz.UTF-8	968 B	-rw-r--r--
config.info.de	1.46 KB	-rw-r--r--
config.info.de.UTF-8	1.46 KB	-rw-r--r--
config.info.es	1.43 KB	-rw-r--r--
config.info.es.UTF-8	1.43 KB	-rw-r--r--
config.info.fa	1.92 KB	-rw-r--r--
config.info.fr	573 B	-rw-r--r--
config.info.fr.UTF-8	584 B	-rw-r--r--
config.info.it	612 B	-rw-r--r--
config.info.it.UTF-8	612 B	-rw-r--r--
config.info.ja_JP.UTF-8	1.34 KB	-rw-r--r--
config.info.ja_JP.euc	1.03 KB	-rw-r--r--
config.info.nl	1.35 KB	-rw-r--r--
config.info.nl.UTF-8	1.35 KB	-rw-r--r--
config.info.no	1.25 KB	-rw-r--r--
config.info.no.UTF-8	1.25 KB	-rw-r--r--
config.info.pl	768 B	-rw-r--r--
config.info.pl.UTF-8	791 B	-rw-r--r--
config.info.pt_BR	1.4 KB	-rw-r--r--
config.info.pt_BR.UTF-8	1.44 KB	-rw-r--r--
config.info.ru.UTF-8	1.44 KB	-rw-r--r--
config.info.ru_RU	941 B	-rw-r--r--
config.info.ru_RU.UTF-8	1.44 KB	-rw-r--r--
config.info.ru_SU	941 B	-rw-r--r--
config.info.sv	592 B	-rw-r--r--
config.info.sv.UTF-8	613 B	-rw-r--r--
config.info.tr	351 B	-rw-r--r--
config.info.uk_UA	969 B	-rw-r--r--
config.info.uk_UA.UTF-8	1.45 KB	-rw-r--r--
config.info.zh_CN	373 B	-rw-r--r--
config.info.zh_CN.UTF-8	450 B	-rw-r--r--
config.info.zh_TW.Big5	296 B	-rw-r--r--
config.info.zh_TW.UTF-8	355 B	-rw-r--r--
defaultacl	228 B	-rw-r--r--
delete_http_accesses.cgi	795 B	-rwxr-xr-x
delete_http_reply_accesses.cgi	860 B	-rwxr-xr-x
delete_https.cgi	785 B	-rwxr-xr-x
delete_icp_accesses.cgi	783 B	-rwxr-xr-x
delete_icps.cgi	1.09 KB	-rwxr-xr-x
delete_pools.cgi	1.37 KB	-rwxr-xr-x
delete_refreshes.cgi	787 B	-rwxr-xr-x
edit_acl.cgi	6.94 KB	-rwxr-xr-x
edit_admin.cgi	2.39 KB	-rwxr-xr-x
edit_authparam.cgi	4.57 KB	-rwxr-xr-x
edit_cache.cgi	7.34 KB	-rwxr-xr-x
edit_cache_host.cgi	4.71 KB	-rwxr-xr-x
edit_cachemgr.cgi	1.76 KB	-rwxr-xr-x
edit_delay.cgi	2.8 KB	-rwxr-xr-x
edit_ext.cgi	1.48 KB	-rwxr-xr-x
edit_headeracc.cgi	1.9 KB	-rwxr-xr-x
edit_icp.cgi	5.23 KB	-rwxr-xr-x
edit_iptables.cgi	1.86 KB	-rwxr-xr-x
edit_logs.cgi	4.69 KB	-rwxr-xr-x
edit_manual.cgi	910 B	-rwxr-xr-x
edit_mem.cgi	2.43 KB	-rwxr-xr-x
edit_misc.cgi	3.87 KB	-rwxr-xr-x
edit_nauth.cgi	1.21 KB	-rwxr-xr-x
edit_nuser.cgi	1.41 KB	-rwxr-xr-x
edit_pool.cgi	4.13 KB	-rwxr-xr-x
edit_ports.cgi	3.22 KB	-rwxr-xr-x
edit_progs.cgi	3 KB	-rwxr-xr-x
edit_refresh.cgi	1.86 KB	-rwxr-xr-x
http_access.cgi	1.95 KB	-rwxr-xr-x
http_access_save.cgi	1.32 KB	-rwxr-xr-x
http_reply_access.cgi	1.76 KB	-rwxr-xr-x
http_reply_access_save.cgi	1.2 KB	-rwxr-xr-x
icp_access.cgi	1.93 KB	-rwxr-xr-x
icp_access_save.cgi	1.29 KB	-rwxr-xr-x
index.cgi	5.49 KB	-rwxr-xr-x
init_cache.cgi	2.98 KB	-rwxr-xr-x
install_check.pl	562 B	-rwxr-xr-x
list_headeracc.cgi	1.66 KB	-rwxr-xr-x
list_refresh.cgi	1.58 KB	-rwxr-xr-x
log_parser.pl	1.21 KB	-rwxr-xr-x
module.info	496 B	-rw-r--r--
module.info.ca	111 B	-rw-r--r--
module.info.ca.UTF-8	124 B	-rw-r--r--
module.info.cz	27 B	-rw-r--r--
module.info.cz.UTF-8	33 B	-rw-r--r--
module.info.de	110 B	-rw-r--r--
module.info.de.UTF-8	122 B	-rw-r--r--
module.info.es	31 B	-rw-r--r--
module.info.es.UTF-8	37 B	-rw-r--r--
module.info.fr	28 B	-rw-r--r--
module.info.fr.UTF-8	34 B	-rw-r--r--
module.info.ja_JP.UTF-8	46 B	-rw-r--r--
module.info.ja_JP.euc	37 B	-rw-r--r--
module.info.ko_KR.UTF-8	40 B	-rw-r--r--
module.info.ko_KR.euc	33 B	-rw-r--r--
module.info.ms_MY	122 B	-rw-r--r--
module.info.ms_MY.UTF-8	134 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.nl.UTF-8	33 B	-rw-r--r--
module.info.pl	27 B	-rw-r--r--
module.info.pl.UTF-8	33 B	-rw-r--r--
module.info.pt	29 B	-rw-r--r--
module.info.pt.UTF-8	35 B	-rw-r--r--
module.info.pt_BR	32 B	-rw-r--r--
module.info.pt_BR.UTF-8	38 B	-rw-r--r--
module.info.ru.UTF-8	46 B	-rw-r--r--
module.info.ru_RU	31 B	-rw-r--r--
module.info.ru_RU.UTF-8	49 B	-rw-r--r--
module.info.ru_SU	31 B	-rw-r--r--
module.info.sv	26 B	-rw-r--r--
module.info.sv.UTF-8	32 B	-rw-r--r--
module.info.tr	29 B	-rw-r--r--
module.info.zh_CN	28 B	-rw-r--r--
module.info.zh_TW.Big5	33 B	-rw-r--r--
move_always.cgi	709 B	-rwxr-xr-x
move_headeracc.cgi	724 B	-rwxr-xr-x
move_http.cgi	695 B	-rwxr-xr-x
move_http_reply.cgi	744 B	-rwxr-xr-x
move_icp.cgi	683 B	-rwxr-xr-x
move_never.cgi	698 B	-rwxr-xr-x
move_pool.cgi	778 B	-rwxr-xr-x
move_refresh.cgi	769 B	-rwxr-xr-x
nat	34.84 KB	-rw-r--r--
never.cgi	1.7 KB	-rwxr-xr-x
never_save.cgi	1.09 KB	-rwxr-xr-x
parser-lib.pl	6.34 KB	-rwxr-xr-x
pool_access.cgi	1.77 KB	-rwxr-xr-x
pool_access_save.cgi	1.12 KB	-rwxr-xr-x
purge.cgi	1.06 KB	-rwxr-xr-x
restart.cgi	328 B	-rwxr-xr-x
save_admin.cgi	2.18 KB	-rwxr-xr-x
save_authparam.cgi	5.24 KB	-rwxr-xr-x
save_cache.cgi	5.98 KB	-rwxr-xr-x
save_cache_host.cgi	3.75 KB	-rwxr-xr-x
save_cachemgr.cgi	1.09 KB	-rwxr-xr-x
save_delay.cgi	603 B	-rwxr-xr-x
save_ext.cgi	2.27 KB	-rwxr-xr-x
save_headeracc.cgi	1.21 KB	-rwxr-xr-x
save_icp.cgi	1.13 KB	-rwxr-xr-x
save_iptables.cgi	2.85 KB	-rwxr-xr-x
save_logs.cgi	3.09 KB	-rwxr-xr-x
save_manual.cgi	493 B	-rwxr-xr-x
save_mem.cgi	1.67 KB	-rwxr-xr-x
save_misc.cgi	2.6 KB	-rwxr-xr-x
save_nuser.cgi	1.84 KB	-rwxr-xr-x
save_pool.cgi	3.13 KB	-rwxr-xr-x
save_ports.cgi	2.54 KB	-rwxr-xr-x
save_progs.cgi	2.5 KB	-rwxr-xr-x
save_refresh.cgi	1.4 KB	-rwxr-xr-x
squid-auth.pl	389 B	-rwxr-xr-x
squid-lib.pl	16.1 KB	-rwxr-xr-x
start.cgi	1.11 KB	-rwxr-xr-x
stop.cgi	828 B	-rwxr-xr-x
syslog_logs.pl	657 B	-rwxr-xr-x
useradmin_update.pl	2.75 KB	-rwxr-xr-x

Code Editor : squid-lib.pl

# squid-lib.pl
# Functions for configuring squid.conf

BEGIN { push(@INC, ".."); };
use strict;
use warnings;
use WebminCore;
&init_config();
do 'parser-lib.pl';
our ($module_root_directory, %text, %config, %in, $module_config_directory);

our %access = &get_module_acl();
our $auth_program = "$module_config_directory/squid-auth.pl";
our $auth_database = "$module_config_directory/users";
our @caseless_acl_types = ( "url_regex", "urlpath_regex", "proxy_auth_regex",
			    "srcdom_regex", "dstdom_regex", "ident_regex" );
our @nodns_acl_types = ( "dst", "dstdomain", "dstdom_regex" );

# Get the squid version
our $squid_version = &read_file_contents("$module_config_directory/version") || 0;
$squid_version =~ s/\r|\n//g;

# choice_input(text, name, &config, default, [display, option]+)
# Display a number of radio buttons for selecting some option
sub choice_input
{
my ($label, $name, $conf, $def, @opts) = @_;
my $v = &find_config($_[1], $_[2]);
my $vv = $v ? $v->{'value'} : $_[3];
my @opts2;
for(my $i=0; $i<@opts; $i+=2) {
	push(@opts2, [ $opts[$i+1], $opts[$i] ]);
	}
return &ui_table_row($label,
	&ui_radio($name, $vv, \@opts2));
}

# select_input(text, name, &config, default, [display, option]+)
# Like choice_input, but uses a drop-down select field
sub select_input
{
my ($label, $name, $conf, $def, @opts) = @_;
my $v = &find_config($_[1], $_[2]);
my $vv = $v ? $v->{'value'} : $_[3];
my @opts2;
for(my $i=0; $i<@opts; $i+=2) {
	push(@opts2, [ $opts[$i+1], $opts[$1] ]);
	}
return &ui_table_row($label,
	&ui_select($name, $vv, \@opts2));
}

# save_choice(name, default, &config)
# Save a selection from choice_input()
sub save_choice
{
my ($name, $def, $conf) = @_;
if ($in{$name} eq $def) {
	&save_directive($conf, $name, [ ]);
	}
else {
	&save_directive($conf, $name, [{ 'name' => $name,
					 'values' => [ $in{$name} ] }]);
	}
}

# list_input(text, name, &config, type, [default])
# Display a list of values
sub list_input
{
my ($label, $name, $conf, $type, $def) = @_;
my @av;
foreach my $v (&find_config($name, $conf)) {
	push(@av, @{$v->{'values'}});
	}
if ($type == 0) {
	# text area
	my $opt = "";
	if ($def) {
		$opt = &ui_radio($name."_def", @av ? 0 : 1,
			 [ [ 1, $def ], [ 0, $text{'ec_listed'} ] ])."<br>\n";
		}
	return &ui_table_row($label,
		$opt.&ui_textarea($name, join("\n", @av), 3, 20));
	}
else {
	# one long text field
	my $field = $def ? &ui_opt_textbox($name, join(' ',@av), 50, $def)
			 : &ui_textbox($name, join(' ',@av), 50);
	return &ui_table_row($label, $field, 3);
	}
}

# save_list(name, &checkfunc, &config)
sub save_list
{
my ($name, $func, $conf) = @_;
my @vals;
if (!$in{$name."_def"}) {
	@vals = split(/\s+/, $in{$_[0]});
	if ($func) {
		foreach my $v (@vals) {
			&check_error($func, $v);
			}
		}
	}
if (@vals) {
	&save_directive($conf, $name,
			[{ 'name' => $name, values => \@vals }]);
	}
else {
	&save_directive($conf, $name, [ ]);
	}
}

# check_error(&function, value)
sub check_error
{
my ($func, $value) = @_;
return if (!$func);
my $err = &$func($value);
if ($err) { &error($err); }
}

# address_input(text, name, &config, type)
# Display a text area for entering 0 or more addresses
sub address_input
{
my ($label, $name, $conf, $type) = @_;
my @av;
foreach my $v (&find_config($name, $conf)) {
	push(@av, @{$v->{'values'}});
	}
if ($type == 0) {
	# text area
	return &ui_table_row($label,
		&ui_textarea($name, join("\n", @av), 3, 30));
	}
else {
	# one long text field
	return &ui_table_row($label,
		&ui_textbox($name, join(' ',@av), 50), 3);
	}
}

# save_address(name, config)
sub save_address
{
my ($name, $conf) = @_;
my @vals;
foreach my $addr (split(/\s+/, $in{$name})) {
	&check_ipaddress($addr) || &error(&text('lib_emsg1', $addr));
	push(@vals, $addr);
	}
if (@vals) {
	&save_directive($conf, $name,
			[{ 'name' => $name, values => \@vals }]);
	}
else {
	&save_directive($conf, $name, [ ]);
	}
}

# opt_input(text, name, &config, default, size, units)
# Display an optional field for entering something
sub opt_input
{
my ($label, $name, $conf, $def, $size, $units) = @_;
my $v = &find_config($_[1], $_[2]);
return &ui_table_row($label,
	&ui_opt_textbox($name, $v ? $v->{'value'} : undef, $size,
			$def)." ".$units,
	$size > 30 ? 3 : 1);
}

# save_opt(name, &function, &config)
# Save an input from opt_input()
sub save_opt
{
my ($name, $func, $conf) = @_;
if ($in{$name."_def"}) {
	&save_directive($conf, $name, [ ]);
	}
else {
	&check_error($func, $in{$name});
	my $dir = { 'name' => $name, 'values' => [ $in{$name} ] };
	&save_directive($conf, $name, [ $dir ]);
	}
}

# opt_time_input(text, name, &config, default, size)
sub opt_time_input
{
my ($label, $name, $conf, $def, $size) = @_;
my $v = &find_config($name, $conf);
return &ui_table_row($label,
	&ui_radio($name."_def", $v ? 0 : 1,
	  [ [ 1, $def ],
	    [ 0, &time_fields($name, $size, $v ? @{$v->{'values'}} : ( )) ] ]));
}

# time_fields(name, size, time, units)
sub time_fields
{
my ($name, $size, $time, $units) = @_;
my @ts = ( [ "second" =>	$text{"lib_seconds"} ],
	   [ "minute" =>	$text{"lib_minutes"} ],
	   [ "hour" =>		$text{"lib_hours"} ],
	   [ "day" =>		$text{"lib_days"} ],
	   [ "week" =>		$text{"lib_weeks"} ],
	   [ "fortnight" => 	$text{"lib_fortnights"} ],
	   [ "month" =>		$text{"lib_months"} ],
	   [ "year" =>		$text{"lib_years"} ],
	   [ "decade" =>	$text{"lib_decades"} ] );
$units =~ s/s$//;
return &ui_textbox($name, $time, $size)." ".
       &ui_select($name."_u", $units, \@ts);
}

# save_opt_time(name, &config)
sub save_opt_time
{
my ($name, $conf) = @_;
my %ts = ( "second" =>     $text{"lib_seconds"},
           "minute" =>     $text{"lib_minutes"},
           "hour" =>       $text{"lib_hours"},
           "day" =>        $text{"lib_days"},
           "week" =>       $text{"lib_weeks"},
           "fortnight" =>  $text{"lib_fortnights"},
           "month" =>      $text{"lib_months"},
           "year" =>       $text{"lib_years"},
           "decade" =>     $text{"lib_decades"} );

if ($in{$name."_def"}) {
	&save_directive($conf, $name, [ ]);
	}
elsif ($in{$name} !~ /^[0-9\.]+$/) {
	&error(&text('lib_emsg2', $in{$name}, $ts{$in{$name."_u"}}) );
	}
else {
	my $dir = { 'name' => $name,
		    'values' => [ $in{$name}, $in{$name."_u"} ] };
	&save_directive($conf, $name, [ $dir ]);
	}
}

# opt_bytes_input(text, name, &config, default, size)
sub opt_bytes_input
{
my ($label, $name, $conf, $def, $size) = @_;
my @ss = ( [ "KB", $text{'lib_kb'} ],
	   [ "MB", $text{'lib_mb'} ],
	   [ "GB", $text{'lib_gb'} ] );
my $v = &find_config($name, $conf);
my $input = &ui_textbox($name, $v ? $v->{'values'}->[0] : "", $size)." ".
	    &ui_select($name."_u", $v ? $v->{'values'}->[1] : "", \@ss);
return &ui_table_row($label,
	&ui_radio($name."_def", $v ? 0 : 1,
		  [ [ 1, $def ], [ 0, $input ] ]));
}

# save_opt_bytes(name, &config)
sub save_opt_bytes
{
my ($name, $conf) = @_;
my %ss = ( "KB" => $text{'lib_kb'},
           "MB" => $text{'lib_mb'},
           "GB" => $text{'lib_gb'} );

if ($in{$name."_def"}) {
	&save_directive($conf, $name, [ ]);
	}
elsif ($in{$name} !~ /^[0-9\.]+$/) {
	&error(&text('lib_emsg3', $in{$name}, $ss{$in{$name."_u"}}) );
	}
else {
	my $dir = { 'name' => $name,
		    'values' => [ $in{$name}, $in{$name."_u"} ] };
	&save_directive($conf, $name, [ $dir ]);
	}
}

our %acl_types = ("src", $text{'lib_aclca'},
	          "dst", $text{'lib_aclwsa'},
	          "srcdomain", $text{'lib_aclch'},
	          "dstdomain", $text{'lib_aclwsh'},
	          "time", $text{'lib_acldat'},
	          "url_regex", $text{'lib_aclur'},
	          "urlpath_regex", $text{'lib_aclupr'},
	          "port", $text{'lib_aclup'},
	          "proto", $text{'lib_aclup1'},
	          "method", $text{'lib_aclrm'},
	          "browser", $text{'lib_aclbr'},
	          "user", $text{'lib_aclpl'},
	          "arp", $text{'lib_aclarp'} );
if ($squid_version >= 2.0) {
	$acl_types{'src_as'} = $text{'lib_aclsan'};
	$acl_types{'dst_as'} = $text{'lib_acldan'};
	$acl_types{'proxy_auth'} = $text{'lib_aclea'};
	$acl_types{'srcdom_regex'} = $text{'lib_aclcr'};
	$acl_types{'dstdom_regex'} = $text{'lib_aclwsr'};
	}
if ($squid_version >= 2.2) {
	$acl_types{'ident'} = $text{'lib_aclru'};
	$acl_types{'myip'} = $text{'lib_aclpia'};
	delete($acl_types{'user'});
	}
if ($squid_version >= 2.3) {
	$acl_types{'maxconn'} = $text{'lib_aclmc'};
	$acl_types{'myport'} = $text{'lib_aclpp'};
	$acl_types{'snmp_community'} = $text{'lib_aclsc'};
	}
if ($squid_version >= 2.4) {
	$acl_types{'req_mime_type'} = $text{'lib_aclrmt'};
	$acl_types{'proxy_auth_regex'} = $text{'lib_aclear'};
	}
if ($squid_version >= 2.5) {
	$acl_types{'rep_mime_type'} = $text{'lib_aclrpmt'};
	$acl_types{'ident_regex'} = $text{'lib_aclrur'};
	$acl_types{'external'} = $text{'lib_aclext'};
	$acl_types{'max_user_ip'} = $text{'lib_aclmuip'};
	}

# restart_button()
# Returns HTML for a link to put in the top-right corner of every page
sub restart_button
{
return undef if ($config{'restart_pos'} == 2);
my $args = "redir=".&urlize(&this_url());
if (&is_squid_running()) {
	return ($access{'restart'} ?
		"<a href=\"restart.cgi?$args\">$text{'lib_buttac'}</a><br>\n" :
	        "").
	       ($access{'start'} ?
		"<a href=\"stop.cgi?$args\">$text{'lib_buttss'}</a>\n" : "");
	}
else {
	return $access{'start'} ?
		"<a href=\"start.cgi?$args\">$text{'lib_buttss1'}</a>\n" : "";
	}
}

# is_squid_running()
# Returns the process ID if squid is running
sub is_squid_running
{
my $conf = &get_config();

# Find all possible PID files
my @pidfiles;
my $pidstruct = &find_config("pid_filename", $conf);
push(@pidfiles, $pidstruct->{'values'}->[0]) if ($pidstruct);
my $def_pidstruct = &find_config("pid_filename", $conf);
push(@pidfiles, $def_pidstruct->{'values'}->[0]) if ($def_pidstruct);
push(@pidfiles, $config{'pid_file'}) if ($config{'pid_file'});
@pidfiles = grep { $_ ne "none" } @pidfiles;

# Try check one
foreach my $pidfile (@pidfiles) {
	my $pid = &check_pid_file($pidfile);
	return $pid if ($pid);
	}

if (!@pidfiles) {
	# Fall back to checking for Squid process
	my ($pid) = &find_byname("squid");
	return $pid;
	}

return 0;
}

# this_url()
# Returns the URL in the apache directory of the current script
sub this_url
{
my $url = $ENV{'SCRIPT_NAME'};
if (defined($ENV{'QUERY_STRING'})) {
	$url .= "?$ENV{'QUERY_STRING'}";
	}
return $url;
}

# list_auth_users(file)
sub list_auth_users
{
my ($file) = @_;
my @rv;
my $lnum = 0;
my $fh = "USERS";
&open_readfile($fh, $file);
while(<$fh>) {
	if (/^(#*)([^:]+):(\S+)/) {
		push(@rv, { 'user' => $2, 'pass' => $3,
			    'enabled' => !$1, 'line' => $lnum });
		}
	$lnum++;
	}
close($fh);
if ($config{'sort_conf'}) {
	return sort { $a->{'user'} cmp $b->{'user'} } @rv;
	}
else {
	return @rv;
	}
}

# get_squid_user(&config)
# Returns the effective user and group (if any)
sub get_squid_user
{
my ($conf) = @_;
if ($squid_version < 2) {
	my $ceu = &find_config("cache_effective_user", $conf);
	if ($ceu) {
		return ($ceu->{'values'}->[0], $ceu->{'values'}->[1]);
		}
	return (undef, undef);
	}
else {
	my $ceu = &find_config("cache_effective_user", $_[0]);
	my $ceg = &find_config("cache_effective_group", $_[0]);
	return ($ceu->{'values'}->[0], $ceg ? $ceg->{'values'}->[0]
					    : $ceu->{'values'}->[1]);
	}
}

# chown_files(user, group, config)
# Change ownership of all squid log and cache directories
sub chown_files
{
my ($user, $group, $conf) = @_;
my @list = ( $config{'log_dir'} );

# add pidfile
my $pidfile;
if (my $str = &find_config("pid_filename", $conf)) {
	$pidfile = $str->{'values'}->[0];
	}
else {
	$pidfile = $config{'pid_file'};
	}
push(@list, $pidfile);

# add other log directories
foreach my $d ("cache_access_log", "access_log", "cache_log",
	       "cache_store_log", "cache_swap_log") {
	my $str;
	if (($str = &find_config($d, $conf)) &&
	    $str->{'values'}->[0] =~ /^(\S+)\/[^\/]+$/) {
		push(@list, $1);
		}
	}

# add cache directories
if (my @str = &find_config("cache_dir", $conf)) {
	foreach my $str (@str) {
		if ($squid_version >= 2.3) {
			push(@list, $str->{'values'}->[1]);
			}
		else {
			push(@list, $str->{'values'}->[0]);
			}
		}
	}
else {
	push(@list, $config{'cache_dir'});
	}
system("chown -Rf $user:$group ".join(" ",@list)." >/dev/null 2>&1");
}

# can_access(file)
sub can_access
{
my ($file) = @_;
my @f = grep { $_ ne '' } split(/\//, $file);
return 1 if ($access{'root'} eq '/');
my @a = grep { $_ ne '' } split(/\//, $access{'root'});
for(my $i=0; $i<@a; $i++) {
	return 0 if ($a[$i] ne $f[$i]);
	}
return 1;
}

# get_auth_file(&config)
sub get_auth_file
{
if ($squid_version >= 2.5) {
	my @auth = &find_config("auth_param", $_[0]);
	my ($program) = grep { $_->{'values'}->[0] eq 'basic' &&
			       $_->{'values'}->[1] eq 'program' } @auth;
	return $program ? $program->{'values'}->[3] : undef;
	}
else {
	my $authprog = &find_value("authenticate_program", $_[0]);
	return $authprog && $authprog =~ /(\S+)\s+(\/\S+)$/ ? $2 : undef;
	}
}

# parse_external(&external_acl_type)
sub parse_external
{
my ($acltype) = @_;
my @v = @{$acltype->{'values'}};
my $rv = { 'name' => $v[0] };
my $i;
for($i=1; $v[$i] =~ /^(\S+)=(\S+)$/; $i++) {
	$rv->{'opts'}->{$1} = $2;
	}
if ($v[$i] =~ /^\"(.*)\"$/) {
	$rv->{'format'} = $1;
	}
else {
	$rv->{'format'} = $v[$i];
	}
$i++;
$rv->{'program'} = $v[$i++];
$rv->{'args'} = [ @v[$i .. $#v] ];
return $rv;
}

# check_cache(&config, &caches, [include-disabled])
# Returns 1 if the cache directory looks OK, 0 if not. Also fills in the 
# caches list
sub check_cache
{
my ($conf, $cachesrv, $distoo) = @_;
my (@caches, $coss);
my @cachestruct = &find_config("cache_dir", $conf);
my $disabled = 0;
if ($distoo && !@cachestruct) {
	# Check disabled cache directives, but exclude ones that don't exist
	@cachestruct = &find_config("cache_dir", $conf, 1);
	@cachestruct = grep { -e $_->{'values'}->[1] } @cachestruct;
	$disabled = 1 if (@cachestruct);
	}
if (@cachestruct) {
	if ($squid_version >= 2.3) {
		@caches = map { $_->{'values'}->[1] } @cachestruct;
		}
	else {
		@caches = map { $_->{'values'}->[0] } @cachestruct;
		}
	@caches = grep { /^\// } @caches;
	($coss) = grep { $_->{'values'}->[0] eq "coss" } @cachestruct;
	}
if (!@caches) {
	@caches = ( $config{'cache_dir'} );
	}
@$cachesrv = @caches;
if ($coss) {
	# Allow COSS files too
	foreach my $c (@caches) {
		return 0 if (!-f $c && (!-d $c || (!-d "$c/00" && !-r "$c/rock")));
		}
	}
else {
	# Check for dirs only
	foreach my $c (@caches) {
		return 0 if (!-d $c || (!-d "$c/00" && !-r "$c/rock"));
		}
	}
return 1;
}

# get_squid_port()
# Returns the port Squid is listening on
sub get_squid_port
{
my $conf = &get_config();
my $port;
if ($squid_version >= 2.3) {
	LOOP: foreach my $p (&find_config("http_port", $conf)) {
		foreach my $v (@{$p->{'values'}}) {
			if ($v =~ /^(\d+)$/) {
				$port = $1;
				}
			elsif ($v =~ /^(\S+):(\d+)$/) {
				$port = $2;
				}
			last LOOP if ($port);
			}
		}
	}
else {
	$port = &find_value("http_port", $conf);
	}
return defined($port) ? $port : 3128;
}

# apply_configuration()
# Activate the current Squid configuration
sub apply_configuration
{
if ($config{'squid_restart'}) {
	my $out = &backquote_logged("$config{'squid_restart'} 2>&1");
	return "<pre>".&html_escape($out)."</pre>" if ($?);
	}
else {
	my $out = &backquote_logged("$config{'squid_path'} -f $config{'squid_conf'} -k reconfigure 2>&1");
	return "<pre>".&html_escape($out)."</pre>"
		if ($? && $out !~ /warning/i);
	}
return undef;
}

# list_cachemgr_actions()
# Returns a list of actions for use in the cachemgr_passwd directive
sub list_cachemgr_actions
{
return ("5min" ,"60min" ,"asndb" ,"authenticator" ,"cbdata" ,"client_list" ,"comm_incoming" ,"config" ,"counters" ,"delay" ,"digest_stats" ,"dns" ,"events" ,"filedescriptors" ,"fqdncache" ,"histograms" ,"http_headers" ,"info" ,"io" ,"ipcache" ,"mem" ,"menu" ,"netdb" ,"non_peers" ,"objects" ,"offline_toggle" ,"pconn" ,"peer_select" ,"redirector" ,"refresh" ,"server_list" ,"shutdown" ,"store_digest" ,"storedir" ,"utilization" ,"via_headers" ,"vm_objects");
}

# get_all_config_files()
# Returns all files from the Squid config
sub get_all_config_files
{
# Add main config file
my @rv = ( $config{'squid_conf'} );

# Add users file
my $conf = &get_config();
my $file = &get_auth_file($conf);
push(@rv, $file) if ($file);

# Add files from ACLs
my @acl = &find_config("acl", $conf);
foreach my $a (@acl) {
	if ($a->{'values'}->[2] =~ /^"(.*)"$/ || $a->{'values'}->[3] =~ /^"(.*)"$/ || $a->{'values'}->[4] =~ /^"(.*)"$/) {
		push(@rv, $1);
		}
	}

return &unique(@rv);
}

${this.title}

Code Editor : squid-lib.pl