Gecko [ 122.154.134.11 ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.14 KB	-rw-r--r--
acl_security.pl	555 B	-rwxr-xr-x
backup_config.pl	1.21 KB	-rwxr-xr-x
bandwidth-lib.pl	21.22 KB	-rwxr-xr-x
config	50 B	-rw-r--r--
config-mandrake-linux	30 B	-rw-r--r--
config.info	260 B	-rw-r--r--
config.info.ca	295 B	-rw-r--r--
config.info.ca.UTF-8	296 B	-rw-r--r--
config.info.de	289 B	-rw-r--r--
config.info.de.UTF-8	289 B	-rw-r--r--
config.info.es	300 B	-rw-r--r--
config.info.es.UTF-8	300 B	-rw-r--r--
config.info.fr	279 B	-rw-r--r--
config.info.fr.UTF-8	279 B	-rw-r--r--
config.info.hr	0 B	-rw-r--r--
config.info.hu	265 B	-rw-r--r--
config.info.hu.UTF-8	279 B	-rw-r--r--
config.info.ms_MY	259 B	-rw-r--r--
config.info.ms_MY.UTF-8	259 B	-rw-r--r--
config.info.nl	270 B	-rw-r--r--
config.info.nl.UTF-8	270 B	-rw-r--r--
config.info.no	270 B	-rw-r--r--
config.info.no.UTF-8	270 B	-rw-r--r--
config.info.pl	270 B	-rw-r--r--
config.info.pl.UTF-8	272 B	-rw-r--r--
config.info.ru_RU	0 B	-rw-r--r--
config.info.sv	0 B	-rw-r--r--
defaultacl	8 B	-rw-r--r--
index.cgi	12.02 KB	-rwxr-xr-x
log_parser.pl	372 B	-rwxr-xr-x
module.info	189 B	-rw-r--r--
module.info.ca	159 B	-rw-r--r--
module.info.ca.UTF-8	173 B	-rw-r--r--
module.info.cz	29 B	-rw-r--r--
module.info.cz.UTF-8	35 B	-rw-r--r--
module.info.de	140 B	-rw-r--r--
module.info.de.UTF-8	152 B	-rw-r--r--
module.info.es	46 B	-rw-r--r--
module.info.es.UTF-8	52 B	-rw-r--r--
module.info.fr	39 B	-rw-r--r--
module.info.fr.UTF-8	45 B	-rw-r--r--
module.info.hu	29 B	-rw-r--r--
module.info.hu.UTF-8	35 B	-rw-r--r--
module.info.ms_MY	149 B	-rw-r--r--
module.info.ms_MY.UTF-8	161 B	-rw-r--r--
module.info.nl	28 B	-rw-r--r--
module.info.nl.UTF-8	34 B	-rw-r--r--
module.info.no	43 B	-rw-r--r--
module.info.no.UTF-8	49 B	-rw-r--r--
module.info.pl	129 B	-rw-r--r--
module.info.pl.UTF-8	144 B	-rw-r--r--
module.info.ru_RU	39 B	-rw-r--r--
module.info.ru_RU.UTF-8	70 B	-rw-r--r--
rotate.cgi	391 B	-rwxr-xr-x
rotate.pl	1.3 KB	-rwxr-xr-x
setup.cgi	3.18 KB	-rwxr-xr-x
turnoff.cgi	1.22 KB	-rwxr-xr-x
uninstall.pl	264 B	-rwxr-xr-x

Code Editor : setup.cgi

#!/usr/bin/perl
# Add needed firewall rules and syslog entry, and apply configurations

require './bandwidth-lib.pl';
&ReadParse();
$access{'setup'} || &error($text{'setup_ecannot'});

# Work out interface
$iface = $in{'iface'} || $in{'other'};
$iface =~ /^\S+$/ || &error($text{'setup_eiface'});

# Add missing firewall rules
$err = &setup_rules($iface);
&error($err) if ($err);

if ($syslog_module eq "syslog") {
	# Add syslog entry
	$conf = &syslog::get_config();
	$sysconf = &find_sysconf($conf);
	if (!$sysconf) {
		&lock_file($syslog::config{'syslog_conf'});
		if ($syslog::config{'tags'}) {
			local $conf = &syslog::get_config();
			($tag) = grep { $_->{'tag'} eq '*' } @$conf;
			}
		&syslog::create_log({ 'file' => $bandwidth_log,
				      'active' => 1,
				      'section' => $tag,
				      'sel' => [ &get_loglevel() ] });
		&unlock_file($syslog::config{'syslog_conf'});
		$err = &syslog::restart_syslog();
		&error($err) if ($err);
		}
	}
else {
	# Add syslog-ng entry
	$conf = &syslog_ng::get_config();
	($dest, $filter, $log) = &find_sysconf_ng($conf);
	&lock_file($syslog_ng::config{'syslogng_conf'});
	if (!$dest) {
		# Create destination file entry
		$dest = { 'name' => 'destination',
			  'type' => 1,
			  'values' => [ 'd_bandwidth' ],
			  'members' => [
				{ 'name' => 'file',
				  'values' => [ $bandwidth_log ] }
					]
			};
		&syslog_ng::save_directive($conf, undef, undef, $dest, 0);
		}
	if (!$filter) {
		# Create filter for facility and level
		local @ll = &get_loglevel();
		($fac, $lvl) = split(/\./, $ll[0]);
		$lvl =~ s/^=//;
		$filter = { 'name' => 'filter',
			    'type' => 1,
			    'values' => [ 'f_bandwidth' ],
			    'members' => [ ]
			  };
		if ($fac ne "*") {
			push(@{$filter->{'members'}},
			     { 'name' => 'facility',
			       'values' => [ $fac ] });
			}
		if ($fac ne "*" && $lvl ne "*") {
			push(@{$filter->{'members'}}, "and");
			}
		if ($lvl ne "*") {
			push(@{$filter->{'members'}},
			     { 'name' => 'priority',
			       'values' => [ $lvl ] });
			}
		&syslog_ng::save_directive($conf, undef, undef, $filter, 0);
		}
	if (!$log) {
		# Create log for the default source, destination and filter
		@sources = &syslog_ng::find("source", $conf);
		$log = { 'name' => 'log',
			 'type' => 1,
			 'values' => [ ],
			 'members' => [
				{ 'name' => 'source',
				  'values' => [ $sources[0]->{'value'} ], },
				{ 'name' => 'filter',
				  'values' => [ "f_bandwidth" ], },
				{ 'name' => 'destination',
				  'values' => [ "d_bandwidth" ], },
					]
			};
		&syslog_ng::save_directive($conf, undef, undef, $log, 0);
		}
	&unlock_file($syslog_ng::config{'syslogng_conf'});
	}

# Save the interface
&lock_file($module_config_file);
$config{'iface'} = $iface;
&save_module_config();
&unlock_file($module_config_file);

# Setup the rotation cron job
$job = &find_cron_job();
if (!$job) {
	&cron::create_wrapper($cron_cmd, $module_name, "rotate.pl");
	$job = { 'user' => 'root',
		 'active' => 1,
		 'command' => $cron_cmd,
		 'mins' => '0',
		 'hours' => '*',
		 'days' => '*',
		 'months' => '*',
		 'weekdays' => '*',
		};
	&lock_file(&cron::cron_file($job));
	&cron::create_cron_job($job);
	&unlock_file(&cron::cron_file($job));
	}

&webmin_log("setup", undef, $iface);
&redirect("");

${this.title}

Code Editor : setup.cgi