Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
newfeatures	[ DIR ]	drwxr-xr-x
tmp	[ DIR ]	drwxr-xr-x
CHANGELOG	2.11 KB	-rw-r--r--
LICENSE	34.32 KB	-rw-r--r--
README.md	1.59 KB	-rw-r--r--
awstats.pl	962 B	-rwxr-xr-x
cgi_args.pl	469 B	-rwxr-xr-x
config	116 B	-rw-r--r--
config-debian-linux	199 B	-rw-r--r--
config-freebsd	137 B	-rw-r--r--
config-mandrake-linux-10.0-*	106 B	-rw-r--r--
config-redhat-linux-10.0-*	208 B	-rw-r--r--
config-suse-linux-9.3-*	116 B	-rw-r--r--
config.cgi	4.2 KB	-rwxr-xr-x
config.info	642 B	-rw-r--r--
config.info.nl	713 B	-rw-r--r--
config.info.no	655 B	-rw-r--r--
config.info.tr	642 B	-rw-r--r--
config_save.cgi	2.14 KB	-rwxr-xr-x
defaultacl	48 B	-rw-r--r--
edit.cgi	3.5 KB	-rwxr-xr-x
generate.cgi	1.28 KB	-rwxr-xr-x
icon.cgi	533 B	-rwxr-xr-x
index.cgi	1.61 KB	-rwxr-xr-x
install-type	4 B	-rw-r--r--
module.info	123 B	-rw-r--r--
module.info.af.auto	30 B	-rw-r--r--
module.info.ar.auto	29 B	-rw-r--r--
module.info.be.auto	26 B	-rw-r--r--
module.info.bg.auto	26 B	-rw-r--r--
module.info.ca.auto	25 B	-rw-r--r--
module.info.cs.auto	26 B	-rw-r--r--
module.info.da.auto	29 B	-rw-r--r--
module.info.de	28 B	-rw-r--r--
module.info.el.auto	31 B	-rw-r--r--
module.info.es.auto	28 B	-rw-r--r--
module.info.eu.auto	32 B	-rw-r--r--
module.info.fa.auto	27 B	-rw-r--r--
module.info.fi.auto	28 B	-rw-r--r--
module.info.fr.auto	25 B	-rw-r--r--
module.info.he.auto	27 B	-rw-r--r--
module.info.hr.auto	26 B	-rw-r--r--
module.info.hu.auto	29 B	-rw-r--r--
module.info.it.auto	26 B	-rw-r--r--
module.info.ja.auto	28 B	-rw-r--r--
module.info.ko.auto	22 B	-rw-r--r--
module.info.lt.auto	42 B	-rw-r--r--
module.info.lv.auto	26 B	-rw-r--r--
module.info.ms.auto	26 B	-rw-r--r--
module.info.mt.auto	29 B	-rw-r--r--
module.info.nl	27 B	-rw-r--r--
module.info.no	29 B	-rw-r--r--
module.info.pl.auto	29 B	-rw-r--r--
module.info.pt.auto	30 B	-rw-r--r--
module.info.pt_BR.auto	33 B	-rw-r--r--
module.info.ro.auto	27 B	-rw-r--r--
module.info.ru.auto	29 B	-rw-r--r--
module.info.sk.auto	26 B	-rw-r--r--
module.info.sl.auto	27 B	-rw-r--r--
module.info.sv.auto	29 B	-rw-r--r--
module.info.th.auto	44 B	-rw-r--r--
module.info.tr.auto	29 B	-rw-r--r--
module.info.uk.auto	26 B	-rw-r--r--
module.info.ur.auto	31 B	-rw-r--r--
module.info.vi.auto	26 B	-rw-r--r--
module.info.zh.auto	22 B	-rw-r--r--
module.info.zh_TW.auto	25 B	-rw-r--r--
run-all-awstats.pl	748 B	-rwxr-xr-x
save.cgi	3.48 KB	-rwxr-xr-x
view.cgi	1.25 KB	-rwxr-xr-x
virtual_feature.pl	22.55 KB	-rwxr-xr-x
virtualmin-awstats-lib.pl	13.77 KB	-rwxr-xr-x

Code Editor : save.cgi

#!/usr/bin/perl
# Save options for one AWStats domain
use strict;
use warnings;
our (%access, %text, %in, %config);
our $module_name;
our $cron_cmd;

require './virtualmin-awstats-lib.pl';
&foreign_require("cron", "cron-lib.pl");
&ReadParse();
&error_setup($text{'save_err'});
my ($oldjob, $job);
if ($in{'new'}) {
	$access{'create'} || &error($text{'edit_ecannot2'});
	}
else {
	&can_domain($in{'dom'}) || &error($text{'edit_ecannot'});
	$oldjob = $job = &find_cron_job($in{'dom'});
	}
$access{'editsched'} || &error($text{'edit_ecannot'});

if ($in{'delete'}) {
	# Just delete awstats config and cron job
	$in{'dom'} eq 'model' && &error($text{'edit_emodel'});
	&delete_config($in{'dom'});
	&cron::delete_cron_job($job) if ($job);
	&redirect("");
	}
elsif ($in{'gen'}) {
	# Redirect to report generator
	&redirect("generate.cgi?dom=$in{'dom'}");
	}
elsif ($in{'view'}) {
	# Redirect to report viewer
	&redirect("view.cgi?config=$in{'dom'}");
	}
elsif ($in{'config'}) {
	# Redirect to awstats.conf page
	&redirect("config.cgi?dom=$in{'dom'}");
	}
else {
	# Validate inputs
	if ($in{'new'}) {
		$in{'dom'} =~ /^[a-z0-9\.\-\_]+$/i ||
			&error($text{'save_edom'});
		my ($clash) = grep { $_ eq $in{'dom'} } &list_configs();
		$clash && &error($text{'save_eclash'});
		}
	if ($in{'new'} || $access{'editlog'}) {
		if ($in{'logsrc'} == 0) {
			-r $in{'log'} || $in{'log'} =~ /\%/ ||
				&error($text{'save_elog'});
			}
		else {
			my @w = &split_quoted_string($in{'cmd'});
			&has_command($w[0]) ||
				&error($text{'save_ecmd'});
			$in{'log'} = $in{'cmd'}.' |';
			}
		}
	if ($in{'format'} == 0) {
		$in{'other'} =~ /\%/ || &error($text{'save_eformat'});
		}
	-d $in{'data'} || &error($text{'save_edata'});
	if ($in{'sched'}) {
		$job ||= { 'user' => 'root',
			   'command' => "$cron_cmd $in{'dom'}",
			   'active' => 1 };
		&cron::parse_times_input($job, \%in);
		}
	defined(getpwnam($in{'user'})) || &error($text{'save_euser'});
	if ($access{'user'} ne '*') {
		my @users = split(/\s+/, $access{'user'});
		&indexof($in{'user'}, @users) >= 0 ||
			&error($text{'save_euser2'});
		}

if ($in{'new'}) {
		# Copy template conf file to new one
		my $out = &backquote_logged("cp ".quotemeta(&awstats_model_file())." ".quotemeta("$config{'config_dir'}/awstats.$in{'dom'}.conf"));
		$? && &error(&text('save_ecopy', "<tt>$out</tt>"));
		}

# Update the config file
	my $conf = &get_config($in{'dom'});
	if ($in{'new'}) {
		&save_directive($conf, $in{'dom'}, "SiteDomain", $in{'dom'});
		&save_directive($conf, $in{'dom'}, "HostAliases", "www.$in{'dom'}");
		}
	if ($in{'new'} || $access{'editlog'}) {
		&save_directive($conf, $in{'dom'}, "LogFile", $in{'log'});
		}
	&save_directive($conf, $in{'dom'}, "LogFormat",
			$in{'format'} == 0 ? $in{'other'} : $in{'format'});
	&save_directive($conf, $in{'dom'}, "DirData", $in{'data'});
	&flush_file_lines();

# Save the run-as user, and setup the cron job
	&save_run_user($in{'dom'}, $in{'user'});
	&cron::create_wrapper($cron_cmd, $module_name, "awstats.pl");
	if ($in{'sched'} && $oldjob) {
		# Just update job
		&cron::change_cron_job($job);
		}
	elsif ($in{'sched'} && !$oldjob) {
		# Add cron job
		&cron::create_cron_job($job);
		}
	elsif (!$in{'sched'} && $oldjob) {
		# Remove cron job
		&cron::delete_cron_job($job);
		}

# Redirect appropriately
	if (&foreign_check("virtual-server")) {
		&foreign_require("virtual-server", "virtual-server-lib.pl");
		my $d = &virtual_server::get_domain_by("dom", $in{'dom'});
		if ($d) {
			&virtual_server::domain_redirect($d);
		}
	}
	else {
		&redirect("");
		}
	}

${this.title}

Code Editor : save.cgi