Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
help	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.14 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	399 B	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	1.21 KB	-rwxr-xr-x	2026-07-17 21:17
bandwidth-lib.pl	25.03 KB	-rwxr-xr-x	2026-07-17 21:17
config	50 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux	30 B	-rw-r--r--	2026-07-17 21:17
config.info	280 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	296 B	-rw-r--r--	2026-07-17 21:17
config.info.de	285 B	-rw-r--r--	2026-07-17 21:17
config.info.es	292 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	267 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	279 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	259 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	270 B	-rw-r--r--	2026-07-17 21:17
config.info.no	266 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	272 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
defaultacl	8 B	-rw-r--r--	2026-07-17 21:17
index.cgi	12.64 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	372 B	-rwxr-xr-x	2026-07-17 21:17
module.info	189 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	230 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	247 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	161 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	29 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	115 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	136 B	-rw-r--r--	2026-07-17 21:17
module.info.de	140 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	294 B	-rw-r--r--	2026-07-17 21:17
module.info.es	42 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	114 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	192 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	244 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	174 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	39 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	132 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	158 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	29 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	149 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	172 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	189 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	165 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	143 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	28 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.no	35 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	100 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	132 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	164 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	170 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	61 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	216 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	152 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	138 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	197 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	273 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	126 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	0 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	132 B	-rw-r--r--	2026-07-17 21:17
rotate.cgi	405 B	-rwxr-xr-x	2026-07-17 21:22
rotate.pl	2.49 KB	-rwxr-xr-x	2026-07-17 21:22
setup.cgi	3.28 KB	-rwxr-xr-x	2026-07-17 21:22
turnoff.cgi	1.31 KB	-rwxr-xr-x	2026-07-17 21:22
uninstall.pl	264 B	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/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_journald) {
	# Systemd journal
	# No setup needed
	}
elsif ($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);
		}
	}
elsif ($syslog_module eq "syslog-ng") {
	# 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("");