Gecko [ 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 : edit.cgi

#!/usr/bin/perl
# Show options for one AWStats domain
use strict;
use warnings;
our (%access, %text, %in);

require './virtualmin-awstats-lib.pl';
&foreign_require("cron", "cron-lib.pl");
&ReadParse();
my $conf;
if ($in{'new'}) {
	$access{'create'} || &error($text{'edit_ecannot2'});
	&ui_print_header(undef, $text{'edit_title1'}, "");
	}
else {
	$conf = &get_config($in{'dom'});
	&can_domain($in{'dom'}) || &error($text{'edit_ecannot'});
	my $d;
	if (&foreign_check("virtual-server")) {
		&foreign_require("virtual-server", "virtual-server-lib.pl");
		$d = &virtual_server::get_domain_by("dom", $in{'dom'});
		}
	&ui_print_header($d ? &virtual_server::domain_in($d) : undef,
			 $text{'edit_title2'}, "");
	}
$access{'editsched'} || &error($text{'edit_ecannot'});

print &ui_form_start("save.cgi", "post");
print &ui_table_start($text{'edit_header'}, "100%", 2);

if ($in{'new'}) {
	# Can enter domain name
	print &ui_table_row($text{'edit_dom'},
			    &ui_textbox("dom", undef, 40));
	print &ui_hidden("new", 1);
	}
else {
	# Just show domain name
	print &ui_table_row($text{'edit_dom'}, $in{'dom'});
	print &ui_hidden("dom", $in{'dom'});
	}

# Show log file (if editable)
my $log = &find_value("LogFile", $conf);
if ($in{'new'} || $access{'editlog'}) {
	my $logcmd;
	if ($log =~ s/\s*\|\s*$//) {
		$logcmd = 1;
		}
	print &ui_table_row($text{'edit_logsrc'}, 
		&ui_radio_table("logsrc", $logcmd ? 1 : 0,
		    [ [ 0, $text{'edit_log0'},
			&ui_filebox("log", $logcmd ? "" : $log, 50) ],
		      [ 1, $text{'edit_log1'},
			&ui_textbox("cmd", $logcmd ? $log : "", 50) ],
		    ]));
	}
else {
	print &ui_table_row($text{'edit_log'}, "<tt>$log</tt>");
	}

# Show log format
my $format = &find_value("LogFormat", $conf);
my $formatnum = $in{'new'} ? 4 : $format =~ /^\d+$/ ? $format : 0;
print &ui_table_row($text{'edit_format'},
	    &ui_select("format", $formatnum,
		[ map { [ $_, $text{'edit_format'.$_} ] } (1..4, 0) ])."<br>".
	    &ui_textbox("other", $formatnum == 0 ? $format : undef, 50));

# Destination directory
my $data = &find_value("DirData", $conf);
print &ui_table_row($text{'edit_data'},
		    &ui_textbox("data", $data, 40)."\n".
		    &file_chooser_button("data", 1));

# Run as user
my $user = &get_run_user($in{'dom'});
if ($access{'user'} eq '*') {
	# Can select any user
	print &ui_table_row($text{'edit_user'},
			    &ui_user_textbox("user", $user));
	}
else {
	my @users = split(/\s+/, $access{'user'});
	if (@users == 1) {
		# Cannot select any but one
		print &ui_table_row($text{'edit_user'}, "<tt>$users[0]</tt>");
		print &ui_hidden("user", $users[0]);
		}
	else {
		# Can select from several users
		print &ui_table_row($text{'edit_user'},
			&ui_select("user", $user,
				[ map { [ $_ ] } @users ]));
		}
	}

# Show section for schedule
print &ui_table_hr();
my $job = &find_cron_job($in{'dom'});
print &ui_table_row($text{'edit_sched'},
		    &ui_radio("sched", $job ? 1 : 0,
			      [ [ 0, $text{'edit_sched0'} ],
				[ 1, $text{'edit_sched1'} ] ]));
print "<tr> <td colspan=2><table border width=100%>\n";
$job ||= { 'mins' => 0,
	   'hours' => 0,
	   'days' => '*',
	   'months' => '*',
	   'weekdays' => '*' };
&cron::show_times_input($job);
print "</table></td> </tr>\n";

print &ui_table_end();
if ($in{'new'}) {
	print &ui_form_end([ [ "create", $text{'create'} ] ]);
	}
else {
	print &ui_form_end([ [ "save", $text{'save'} ],
			     [ "delete", $text{'delete'} ],
			     [ "view", $text{'edit_view'} ],
			     [ "config", $text{'edit_config'} ],
			     [ "gen", $text{'edit_gen'} ] ]);
	}

&ui_print_footer("", $text{'index_return'});

${this.title}

Code Editor : edit.cgi