Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	855 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.2 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	1.63 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	840 B	-rwxr-xr-x	2026-07-17 21:17
config	158 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	107 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-ALL	172 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	176 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	107 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux-10.3-ALL	107 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	120 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	179 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	175 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	222 B	-rw-r--r--	2026-07-17 21:17
config.info	425 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	514 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	226 B	-rw-r--r--	2026-07-17 21:17
config.info.de	471 B	-rw-r--r--	2026-07-17 21:17
config.info.es	310 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	365 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	465 B	-rw-r--r--	2026-07-17 21:17
config.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	407 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	387 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	396 B	-rw-r--r--	2026-07-17 21:17
config.info.no	379 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	488 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	308 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	372 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	314 B	-rw-r--r--	2026-07-17 21:17
defaultacl	46 B	-rw-r--r--	2026-07-17 21:17
edit_global.cgi	4.8 KB	-rwxr-xr-x	2026-07-17 21:22
edit_log.cgi	3.67 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	5.13 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	545 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	707 B	-rwxr-xr-x	2026-07-17 21:17
mass.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	201 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	184 B	-rw-r--r--	2026-07-17 21:17
module.info.bg	0 B	-rw-r--r--	2026-07-17 21:17
module.info.bg.auto	203 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	156 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	21 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	46 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	108 B	-rw-r--r--	2026-07-17 21:17
module.info.da	0 B	-rw-r--r--	2026-07-17 21:17
module.info.da.auto	119 B	-rw-r--r--	2026-07-17 21:17
module.info.de	113 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.el	0 B	-rw-r--r--	2026-07-17 21:17
module.info.el.auto	248 B	-rw-r--r--	2026-07-17 21:17
module.info.es	52 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	118 B	-rw-r--r--	2026-07-17 21:17
module.info.eu	0 B	-rw-r--r--	2026-07-17 21:17
module.info.eu.auto	153 B	-rw-r--r--	2026-07-17 21:17
module.info.fa	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fa.auto	230 B	-rw-r--r--	2026-07-17 21:17
module.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fi.auto	151 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	45 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.hr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.hr.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	37 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	116 B	-rw-r--r--	2026-07-17 21:17
module.info.it	0 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	142 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	181 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	0 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	147 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	93 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	91 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.pt	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	0 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	53 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	153 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	174 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.tr.auto	154 B	-rw-r--r--	2026-07-17 21:17
module.info.uk	0 B	-rw-r--r--	2026-07-17 21:17
module.info.uk.auto	225 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh.auto	130 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	100 B	-rw-r--r--	2026-07-17 21:17
save_global.cgi	4.14 KB	-rwxr-xr-x	2026-07-17 21:22
save_log.cgi	5.38 KB	-rwxr-xr-x	2026-07-17 21:22
view_log.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
webalizer-lib.pl	8.74 KB	-rwxr-xr-x	2026-07-17 21:17
webalizer.pl	822 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_global.cgi
# Save options to a webalizer.conf file

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %config, %gconfig, %access, $module_name, %in, $remote_user);
require './webalizer-lib.pl';
&error_setup($text{'global_err'});
$access{'view'} && &error($text{'edit_ecannot'});
&ReadParse();
!$in{'file'} || &can_edit_log($in{'file'}) || &error($text{'edit_ecannot'});
$in{'file'} || $access{'global'} || &error($text{'edit_ecannot'});

my $cfile = &config_file_name($in{'file'}) if ($in{'file'});
if ($in{'delete'}) {
	# Just delete the configuration for this logfile
	&unlink_logged($cfile);
	&redirect("");
	exit;
	}

&lock_file($cfile || $config{'webalizer_conf'});
my $conf = &get_config($in{'file'});

# Validate and store inputs
if ($in{'report_def'}) {
	&save_directive($conf, "ReportTitle");
	}
else {
	$in{'report'} =~ /\S/ || &error($text{'global_ereport'});
	&save_directive($conf, "ReportTitle", $in{'report'});
	}

if ($in{'host_def'}) {
	&save_directive($conf, "HostName");
	}
elsif (defined($in{'host'})) {
	$in{'host'} =~ /^\S+$/ || &error($text{'global_ehost'});
	&save_directive($conf, "HostName", $in{'host'});
	}

my @pages = split(/\s+/, $in{'page'});
&save_directive($conf, "PageType", @pages);

my @index = split(/\s+/, $in{'index'});
&save_directive($conf, "IndexAlias", @index);

if ($in{'gmt'}) {
	&save_directive($conf, "GMTTime", "yes");
	}
else {
	&save_directive($conf, "GMTTime");
	}

if ($in{'fold'}) {
	&save_directive($conf, "FoldSeqErr", "yes");
	}
else {
	&save_directive($conf, "FoldSeqErr");
	}

if ($in{'visit_def'}) {
	&save_directive($conf, "VisitTimeout");
	}
else {
	$in{'visit'} =~ /^\d+$/ || &error($text{'global_evisit'});
	&save_directive($conf, "VisitTimeout", $in{'visit'});
	}

if ($in{'dns_def'}) {
	&save_directive($conf, "DNSChildren");
	}
else {
	$in{'dns'} =~ /^\d+$/ || &error($text{'global_edns'});
	&save_directive($conf, "DNSChildren", $in{'dns'});
	}

if ($in{'history_def'}) {
	&save_directive($conf, "HistoryName");
	}
else {
	$in{'history'} =~ /^\S+$/ || &error($text{'global_ehistory'});
	&save_directive($conf, "HistoryName", $in{'history'});
	}

if ($in{'current_def'}) {
	&save_directive($conf, "IncrementalName");
	}
else {
	$in{'current'} =~ /^\S+$/ || &error($text{'global_ecurrent'});
	&save_directive($conf, "IncrementalName", $in{'current'});
	}

if ($in{'cache_def'}) {
	&save_directive($conf, "DNSCache");
	}
else {
	$in{'cache'} =~ /^\S+$/ || &error($text{'global_ecache'});
	&save_directive($conf, "DNSCache", $in{'cache'});
	}

foreach my $g ('DailyGraph', 'DailyStats', 'HourlyGraph',
	       'HourlyStats', 'CountryGraph', 'GraphLegend') {
	if ($in{$g}) {
		&save_directive($conf, $g);
		}
	else {
		&save_directive($conf, $g, "no");
		}
	}

foreach my $t ('TopSites', 'TopKSites', 'TopURLs', 'TopKURLs', 'TopReferrers',
	       'TopAgents', 'TopCountries', 'TopEntry', 'TopExit',
	       'TopSearch', 'TopUsers') {
	if ($in{"${t}_def"} == 1) {
		&save_directive($conf, $t);
		}
	elsif ($in{"${t}_def"} == 2) {
		&save_directive($conf, $t, "0");
		}
	else {
		$in{$t} =~ /^\d+$/ || &error(&text('global_etable',
						   $text{"global_$t"}));
		&save_directive($conf, $t, $in{$t});
		}
	}

foreach my $a ('AllSites', 'AllURLs', 'AllReferrers', 'AllAgents',
	       'AllSearchStr', 'AllUsers') {
	if ($in{$a}) {
		&save_directive($conf, $a, "yes");
		}
	else {
		&save_directive($conf, $a);
		}
	}

foreach my $hid ("HideURL", "HideSite", "HideReferrer",
	         "HideUser", "HideAgent") {
	my @hidv = split(/\s+/, $in{lc($hid)});
	&save_directive($conf, $hid, @hidv);
	}

foreach my $ign ("IgnoreURL", "IgnoreSite", "IgnoreReferrer",
	         "IgnoreUser", "IgnoreAgent") {
	my @ignv = split(/\s+/, $in{lc($ign)});
	&save_directive($conf, $ign, @ignv);
	}

foreach my $inc ("IncludeURL", "IncludeSite", "IncludeReferrer",
	         "IncludeUser", "IncludeAgent") {
	my @incv = split(/\s+/, $in{lc($inc)});
	&save_directive($conf, $inc, @incv);
	}

&flush_file_lines();
&unlock_file($cfile || $config{'webalizer_conf'});
&webmin_log("modify", "global", $in{'file'});
&redirect($in{'file'} ? "edit_log.cgi?file=".&urlize($in{'file'}).
		        "&type=$in{'type'}&custom=$in{'custom'}" : "");