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
# Parse the firewall log and rotate it

$no_acl_check++;
use Time::Local;
require './bandwidth-lib.pl';

our (%config, $module_config_file, $module_var_directory, $pid_file,
     $syslog_module, $syslog_journald, $bandwidth_log);

my ($logfh, $timestamp_file, $lastline);

# Detect firewall system if needed
if (!$config{'firewall_system'}) {
	my $sys = &detect_firewall_system();
	if ($sys) {
		$config{'firewall_system'} = $sys;
		&lock_file($module_config_file);
		&save_module_config();
		&unlock_file($module_config_file);
		}
	else {
		die("Failed to detect firewall system!\n");
		}
	}

# See if this process is already running
if (my $pid = &check_pid_file($pid_file)) {
	print STDERR "rotate.pl process $pid is already running\n";
	exit(1);
	}
open(my $pid, ">$pid_file");
print $pid $$,"\n";
close($pid);

# Get the current time
my $time_now = time();
my @time_now = localtime($time_now);
my @hours = ( );

# Pre-process command
&pre_process();

# Open the log file or pipe to journalctl
if ($syslog_journald) {
	$timestamp_file = "$module_var_directory/last-processed";
	my $last_processed = 0;
	if (-r $timestamp_file) {
		$last_processed = &read_file_contents($timestamp_file);
		chomp($last_processed);
		$last_processed = int($last_processed) || 0;
		}
	my $journal_cmd = &has_command("journalctl");
	$journal_cmd = "$journal_cmd -k --since=\@$last_processed ".
		       "--until=\@$time_now --grep=\"BANDWIDTH_(IN|OUT):\"";
	open($logfh, '-|', $journal_cmd) ||
		die("Cannot open $journal_cmd pipe: $!\n");
	}
else {
	open($logfh, "<".$bandwidth_log) ||
		die("Cannot open $bandwidth_log: $!\n");
	}

# Scan the entries in the log file
while(<$logfh>) {
	if (&process_line($_, \@hours, $time_now)) {
		# Found a valid line
		$lastline = $_;
		}
	elsif (/last\s+message\s+repeated\s+(\d+)/) {
		# re-process the last line N-1 times
		for(my $i=0; $i<$1-1; $i++) {
			&process_line($lastline, \@hours, $time_now);
			}
		}
	else {
		#print "skipping $_";
		}
	}
close($logfh);

# Save all hours
foreach my $hour (@hours) {
	&save_hour($hour);
	}

# Truncate the file (if it exists) and notify syslog
if (-r $bandwidth_log) {
	open(my $log, ">".$bandwidth_log);
	close($log);
	}
&foreign_call($syslog_module, "signal_syslog") if (!$syslog_journald);

# Save last collection time to start from here next time
if ($syslog_journald && @hours) {
	&lock_file($timestamp_file);
	&write_file_contents($timestamp_file, $time_now);
	&unlock_file($timestamp_file);
	}

# Remove PID file
unlink($pid_file);

# Exit with success
exit(0);