#acupoftea - www.loginstore.com

System	:	Linux loginstore 5.15.0-187-generic #197-Ubuntu SMP Fri Jul 17 19:17:01 UTC 2026 x86_64
Software	:	Apache/2.4.52 (Ubuntu)
Server	:	190.119.170.206
Domains	:	Cant read /etc/named.conf
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / webmin / bandwidth /

10.10.0.71

Home

File index.cgi

#!/usr/bin/perl
# Show a form for selecting a report

require './bandwidth-lib.pl';
&ReadParse();
use Time::Local;
use Socket;

# Validate the bandwidth file
if (-d $bandwidth_log) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro",
			 1, 1);
	&ui_print_endpage(&text('index_elog', "<tt>$bandwidth_log</tt>",
			 "../config.cgi?$module_name"));
	}

# Validate the bandwidth directory
if ($config{'bandwidth_dir'} && !-d $hours_dir) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro",
			 1, 1);
	&ui_print_endpage(&text('index_edir', "<tt>$hours_dir</tt>",
			 "../config.cgi?$module_name"));
	}

# Make sure the net and cron modules work
foreach $m (split(/\s+/, $module_info{'depends'})) {
	next if ($m =~ /^[0-9\.]+$/);
	if (!&foreign_installed($m)) {
		&ui_print_header(undef, $text{'index_title'}, "", "intro",
				 1, 1);
		%minfo = &get_module_info($m);
		&ui_print_endpage(&text('index_emod', $minfo{'desc'}));
		}
	}

# Make sure one of the syslog modules works
if (!$syslog_module && !$syslog_journald) {
	&ui_print_header(undef, $text{'index_title'}, "", "intro",
			 1, 1);
	&ui_print_endpage(&text('index_esyslog'));
	}

# Check the firewall system
if (!$config{'firewall_system'}) {
	# Try automatic detection
	$sys = &detect_firewall_system();
	if (!$sys) {
		&ui_print_header(undef, $text{'index_title'}, "", "intro",
				 1, 1);
		&ui_print_endpage($text{'index_efiresys'});
		}
	$config{'firewall_system'} = $sys;
	&save_module_config();
	}
else {
	# Is the selected one installed?
	if (!&check_firewall_system($config{'firewall_system'})) {
		&ui_print_header(undef, $text{'index_title'}, "", "intro",
				 1, 1);
		&ui_print_endpage(&text('index_efiresys2',
				  $text{'system_'.$config{'firewall_system'}},
				  "../config.cgi?$module_name"));
		}
	}
&ui_print_header(undef, $text{'index_title'}, "", "intro",
		 1, 1, 0, undef, undef, undef,
		 &text('index_firesys',
		       $text{'system_'.$config{'firewall_system'}},
		       $text{'syslog_'.($syslog_module || $syslog_journald)}));

# Make sure the needed firewall rules and syslog entry are in place
$missingrule = !&check_rules();
if ($syslog_journald) {
	# Systemd journal
	$sysconf = 1; # nothing to do
	}
elsif ($syslog_module eq "syslog") {
	# Normal syslog
	$conf = &syslog::get_config();
	$sysconf = &find_sysconf($conf);
	}
elsif ($syslog_module eq "syslog-ng") {
	# Syslog-ng
	$conf = &syslog_ng::get_config();
	($ngdest, $ngfilter, $nglog) = &find_sysconf_ng($conf);
	$sysconf = $ngdest && $ngfilter && $nglog;
	}

if (($missingrule || !$sysconf) && $access{'setup'}) {
	# Something is missing .. offer to set up
	if ($missingrule && !$sysconf) {
		print &ui_alert_box($text{'index_missing3'}, 'success',
			undef, undef, '');
		}
	elsif ($missingrule) {
		print &ui_alert_box($text{'index_missing2'}, 'success',
			undef, undef, '');
		}
	elsif (!$sysconf) {
		print &ui_alert_box($text{'index_missing1'}, 'success',
			undef, undef, '');
		}
	print &ui_alert_box($text{'index_setupdesc'}, 'info', undef, undef, '');
	print &ui_alert_box($text{'index_setupdesc2'}, 'warn');
	print "\n";
	if ($iptableserr) {
		print $iptableserr,"\n";
		}
	print &ui_form_start("setup.cgi");
	print "$text{'index_iface'}\n";
	foreach $i (&net::active_interfaces(), &net::boot_interfaces()) {
		push(@ifaces, $i->{'fullname'}) if ($i->{'virtual'} eq '' &&
						 $i->{'fullname'});
		}
	print &ui_select("iface", $config{'iface'} || $ifaces[0],
			 [ (map { [ $_, $_ ] } &unique(@ifaces)),
			 [ '', $text{'index_other'} ] ],
			 1, 0, $config{'iface'} ? 1 : 0)." ".
	 &ui_textbox("other", undef, 10);
	print &ui_submit($text{'index_setup'});
	print &ui_form_end();
	print "\n";
	}
elsif ($missingrule || !$sysconf) {
	print "$text{'index_setupdesc'}\n";
	print "$text{'index_setupcannot'}\n";
	}

# See if any hours have been summarized yet
@hours = &list_hours();
if (@hours) {
	# Show reporting form
	print &ui_form_start("index.cgi");
	print &ui_table_start(undef, undef, 2);

print &ui_table_row($text{'index_by'},
		&ui_select("by", $in{'by'},
			[ [ 'hour', $text{'index_hour'} ],
			  [ 'day', $text{'index_day'} ],
			  [ 'host', $text{'index_host'} ],
			  [ 'proto', $text{'index_proto'} ],
			  [ 'iport', $text{'index_iport'} ],
			  [ 'oport', $text{'index_oport'} ],
			  [ 'port', $text{'index_port'} ] ]));

print &ui_table_row($text{'index_for'},
		&ui_select("for", $in{'for'},
			[ [ '', $text{'index_all'} ],
			  [ 'host', $text{'index_forhost'} ],
			  [ 'proto', $text{'index_forproto'} ],
			  [ 'iport', $text{'index_foriport'} ],
			  [ 'oport', $text{'index_foroport'} ] ])." ".
		&ui_textbox("what", $in{'for'} ? $in{'what'} : "", 20));

print &ui_table_row($text{'index_from'},
		&date_input($in{'from_day'}, $in{'from_month'},
			    $in{'from_year'}, "from").
		&hourmin_input($in{'from_hour'}, "00", "from"));

print &ui_table_row($text{'index_to'},
		&date_input($in{'to_day'}, $in{'to_month'},
			    $in{'to_year'}, "to").
		&hourmin_input($in{'to_hour'}, "00", "to"));

if (!%in) {
		# Enable by default
		$in{'low'} = 1;
		}
	print &ui_table_row("",
		&ui_checkbox("low", 1, $text{'index_low'}, $in{'low'}).
		&ui_checkbox("resolv", 1, $text{'index_resolv'}, $in{'resolv'}));

print &ui_table_end();
	print &ui_form_end([ [ undef, $text{'index_search'} ] ]);

# Find and show any results
	if ($in{'by'}) {
		print "\n";
		# Work out the time range, if any
		&error_setup($text{'index_err'});
		$fhour = &parse_hour("from");
		$thour = &parse_hour("to");

# First find traffic that matches the 'for' part
		if ($in{'for'} eq 'host') {
			if ($in{'what'} =~ /^(\d+)\.(\d+)\.(\d+)\.0$/) {
				%forhost = map { ("$1.$2.$3.$_", 1) } (0 .. 255);
				}
			else {
				$forhost = &to_ipaddress($in{'what'});
				$forhost || &error($text{'index_ehost'});
				$forhost{$forhost}++;
				}
			}
		elsif ($in{'for'} eq 'proto') {
			$forproto = uc($in{'what'});
			$forproto || &error($text{'index_eproto'});
			}
		elsif ($in{'for'} eq 'iport' || $in{'for'} eq 'oport') {
			if ($in{'what'} =~ /^\d+$/) {
				$forportmin = $forportmax = $in{'what'};
				}
			elsif ($in{'what'} =~ /^(\d+)\-(\d+)$/) {
				$forportmin = $1;
				$forportmax = $2;
				}
			else {
				$forportmin = getservbyname($in{'what'}, 'tcp');
				$forportmin ||= getservbyname($in{'what'}, 'udp');
				$forportmin || &error($text{'index_eport'});
				$forportmax = $forportmin;
				}
			}
		foreach $h (@hours) {
			next if ($fhour && $h < $fhour);
			next if ($thour && $h > $thour);
			$hour = &get_hour($h);

# Work out start time for this day
			@tm = localtime($h*60*60);
			$thisday = timelocal(0, 0, 0, $tm[3], $tm[4], $tm[5])/(60*60);

# Scan all traffic for the hour
			foreach $k (keys %$hour) {
				# Skip this count if not relevant
				($host, $proto, $iport, $oport) = split(/_/, $k);
				next if (!$proto);
				next if (%forhost && !$forhost{$host});
				next if ($forproto && $proto ne $forproto);
				next if ($in{'for'} eq 'iport' &&
					($iport < $forportmin ||
					 $iport >$forportmax));
				next if ($in{'for'} eq 'oport' &&
					($oport < $forportmin ||
					 $oport >$forportmax));

# Skip this count if classifying by port and there
				# isn't one
				next if ($in{'by'} eq 'iport' && !$iport ||
					$in{'by'} eq 'oport' && !$oport ||
					$in{'by'} eq 'port' && !$iport && !$oport);

# Work out a nice service name
				local ($nsname, $nsoname, $nsiname);
				local $relport;
				if ($in{'by'} eq 'iport') {
					$nsname = $nsiname =
					    getservbyport($iport, lc($proto));
					}
				elsif ($in{'by'} eq 'oport') {
					$nsname = $nsoname =
					    getservbyport($oport, lc($proto));
					}
				elsif ($in{'by'} eq 'port') {
					$nsoname = getservbyport($oport,
						lc($proto));
					$nsiname = getservbyport($iport,
						lc($proto));
					$nsname = $nsoname || $nsiname;
					}

# Resolv the hostname
				local $resolved;
				if ($in{'resolv'} && $in{'by'} eq 'host') {
					$resolved = &to_hostname($host);
					}

# Skip traffic to high ports, if requested
				next if ($in{'low'} && $in{'by'} eq 'iport' &&
					$iport >= 1024 && !$nsname);
				next if ($in{'low'} && $in{'by'} eq 'oport' &&
					$oport >= 1024 && !$nsname);

# Update the relevant category
				($in, $out) = split(/ /, $hour->{$k});
				if ($in{'by'} eq 'hour') {
					$count{$h} += $in+$out;
					$icount{$h} += $in;
					$ocount{$h} += $out;
					}
				elsif ($in{'by'} eq 'day') {
					$count{$thisday} += $in+$out;
					$icount{$thisday} += $in;
					$ocount{$thisday} += $out;
					}
				elsif ($in{'by'} eq 'host') {
					$count{$resolved || $host} += $in+$out;
					$icount{$resolved || $host} += $in;
					$ocount{$resolved || $host} += $out;
					}
				elsif ($in{'by'} eq 'proto') {
					$count{$proto} += $in+$out;
					$icount{$proto} += $in;
					$ocount{$proto} += $out;
					}
				elsif ($in{'by'} eq 'iport') {
					$count{$nsname || "$proto $iport"} +=
						$in+$out;
					$icount{$nsname || "$proto $iport"} +=
						$in;
					$ocount{$nsname || "$proto $iport"} +=
						$out;
					}
				elsif ($in{'by'} eq 'oport') {
					$count{$nsname || "$proto $oport"} +=
						$in+$out;
					$icount{$nsname || "$proto $oport"} +=
						$in;
					$ocount{$nsname || "$proto $oport"} +=
						$out;
					}
				elsif ($in{'by'} eq 'port') {
					if (!$in{'low'} || $oport < 1024 || 
					 $nsoname) {
						$count{$nsoname ||
							"$proto $oport"} += $in;
						$icount{$nsoname ||
							"$proto $oport"} += $in;
						}
					if (!$in{'low'} || $iport < 1024 ||
					 $nsiname) {
						$count{$nsiname ||
							"$proto $iport"} += $out;
						$ocount{$nsiname ||
							"$proto $iport"} += $out;
						}
					}
				}
			}

# Find max and size
		$max = 0;
		foreach $k (keys %count) {
			if ($count{$k} > $max) {
				$max = $count{$k};
				}
			}
		$width = 500;

# Fill in missing hours or days
		if ($in{'by'} eq 'hour' || $in{'by'} eq 'day') {
			@order = sort { $b <=> $a } keys %count;
			$inc = $in{'by'} eq 'hour' ? 1 : 24;
			$plus = $in{'by'} eq 'hour' ? 0 : 1;
			for($i=$order[0]; $i>=$order[$#order]; $i-=$inc) {
				$count{$i} = 0 if (!$count{$i} &&
						!$count{$i+$plus} && !$count{$i-$plus});
				}
			}

# Show graph
		if ($in{'by'} eq 'hour' || $in{'by'} eq 'day') {
			@order = sort { $b <=> $a } keys %count;
			}
		else {
			@order = sort { $count{$b} <=> $count{$a} } keys %count;
			}
		if ($in{'by'} ne 'hour' && $in{'by'} ne 'day') {
			@order = grep { $count{$_} } @order;
			}
		if (@order) {
			print &ui_columns_start([ $text{'index_h'.$in{'by'}},
						$text{'index_usage'},
						$text{'index_in'},
						$text{'index_out'},
						$text{'index_total'} ], 100, 0);
			$itotal = $ototal = $total = 0;
			foreach $k (@order) {
				my @cols;
				if ($in{'by'} eq 'hour') {
					push(@cols, &make_date($k*60*60));
					}
				elsif ($in{'by'} eq 'day') {
					$date = &make_date_day($k*60*60);
					push(@cols, $date);
					}
				else {
					push(@cols, $k);
					}
				my $bar = sprintf
					"".
					 "<img src=images/blue.gif width=%d% ".
					 	"height=10>",
					$max ? int($width * $icount{$k}/$max)+1 : 1;
				$bar .= sprintf
					"<img src=images/red.gif width=%d% ".
						"height=10>",
					$max ? int($width * $ocount{$k}/$max)+1 : 1;
				push(@cols, $bar);
				push(@cols, &nice_size($icount{$k}),
					&nice_size($ocount{$k}),
					&nice_size($count{$k}));
				$total += $count{$k};
				$itotal += $icount{$k};
				$ototal += $ocount{$k};
				print "</tr>\n";
				print &ui_columns_row(\@cols);
				}
			print &ui_columns_row([ undef, undef,
						&nice_size($itotal),
						&nice_size($ototal),
						&nice_size($total) ]);
			print &ui_columns_end();
			}
		else {
			print "$text{'index_nomatch'}\n";
			}
		}
	}
elsif (!$missingrule && $sysconf) {
	print "$text{'index_none'}\n";
	}

if (!$missingrule && $sysconf) {
	print &ui_hr();
	print &ui_buttons_start();

# Show button to rotate now
	print &ui_buttons_row("rotate.cgi", $text{'index_rotate'},
			      $text{'index_rotatedesc'});

if ($access{'setup'}) {
		# Show button to turn off reporting
		print &ui_buttons_row("turnoff.cgi", $text{'index_turnoff'},
				      $text{'index_turnoffdesc'});
		}

print &ui_buttons_end();
	}

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

sub parse_hour
{
local ($pfx) = @_;
local ($day, $month, $year) =
	($in{$pfx."_day"}, $in{$pfx."_month"}-1, $in{$pfx."_year"}-1900);
local $hour = $in{$pfx."_hour"};
return undef if (!$day);
if ($hour eq "") {
	$hour = $pfx eq "from" ? 0 : 23;
	}

eval { $tm = timelocal(0, 0, $hour, $day, $month, $year) };
if (!$tm || $@) {
	&error($text{'index_e'.$pfx});
	}
return int($tm/(60*60));
}

# make_date_day(seconds)
# Converts a Unix date/time in seconds to a human-readable form
sub make_date_day
{
local(@tm);
@tm = localtime($_[0]);
return sprintf "%d/%s/%d",
		$tm[3], $text{"smonth_".($tm[4]+1)},
		$tm[5]+1900;
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2026-07-27 07:22:34
..	DIR	-	drwxr-xr-x	2026-07-27 07:22:34
help	DIR	-	drwxr-xr-x	2026-07-27 07:22:34
images	DIR	-	drwxr-xr-x	2026-07-27 07:22:34
lang	DIR	-	drwxr-xr-x	2026-07-27 07:22:34
CHANGELOG	text/plain	1.14 KB	-rw-r--r--	2026-07-26 11:58:27
acl_security.pl	text/plain	399 B	-rwxr-xr-x	2026-07-26 11:58:27
backup_config.pl	text/plain	1.21 KB	-rwxr-xr-x	2026-07-26 11:58:27
bandwidth-lib.pl	text/plain	25.03 KB	-rwxr-xr-x	2026-07-26 11:58:27
config	text/plain	50 B	-rw-r--r--	2026-07-26 11:58:27
config-mandrake-linux	text/plain	30 B	-rw-r--r--	2026-07-26 11:58:27
config.info	text/plain	280 B	-rw-r--r--	2026-07-26 11:58:27
config.info.ca	text/plain	296 B	-rw-r--r--	2026-07-26 11:58:27
config.info.de	text/plain	285 B	-rw-r--r--	2026-07-26 11:58:27
config.info.es	text/plain	292 B	-rw-r--r--	2026-07-26 11:58:27
config.info.fr	text/plain	267 B	-rw-r--r--	2026-07-26 11:58:27
config.info.hr	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
config.info.hu	text/plain	279 B	-rw-r--r--	2026-07-26 11:58:27
config.info.ms	text/plain	259 B	-rw-r--r--	2026-07-26 11:58:27
config.info.nl	text/plain	270 B	-rw-r--r--	2026-07-26 11:58:27
config.info.no	text/plain	266 B	-rw-r--r--	2026-07-26 11:58:27
config.info.pl	text/plain	272 B	-rw-r--r--	2026-07-26 11:58:27
config.info.sv	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
defaultacl	text/plain	8 B	-rw-r--r--	2026-07-26 11:58:27
index.cgi	text/x-perl	12.64 KB	-rwxr-xr-x	2026-07-27 12:02:35
log_parser.pl	text/plain	372 B	-rwxr-xr-x	2026-07-26 11:58:27
module.info	text/plain	189 B	-rw-r--r--	2026-07-26 11:58:28
module.info.ar	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ar.auto	text/plain	230 B	-rw-r--r--	2026-07-26 11:58:27
module.info.bg	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.bg.auto	text/plain	247 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ca	text/plain	161 B	-rw-r--r--	2026-07-26 11:58:27
module.info.cs	text/plain	29 B	-rw-r--r--	2026-07-26 11:58:27
module.info.cs.auto	text/plain	115 B	-rw-r--r--	2026-07-26 11:58:27
module.info.da	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.da.auto	text/plain	136 B	-rw-r--r--	2026-07-26 11:58:27
module.info.de	text/plain	140 B	-rw-r--r--	2026-07-26 11:58:27
module.info.el	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.el.auto	text/plain	294 B	-rw-r--r--	2026-07-26 11:58:27
module.info.es	text/plain	42 B	-rw-r--r--	2026-07-26 11:58:27
module.info.es.auto	text/plain	114 B	-rw-r--r--	2026-07-26 11:58:27
module.info.eu	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.eu.auto	text/plain	192 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fa	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fa.auto	text/plain	244 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fi	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fi.auto	text/plain	174 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fr	text/plain	39 B	-rw-r--r--	2026-07-26 11:58:27
module.info.fr.auto	text/plain	132 B	-rw-r--r--	2026-07-26 11:58:27
module.info.hr	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.hr.auto	text/plain	158 B	-rw-r--r--	2026-07-26 11:58:27
module.info.hu	text/plain	29 B	-rw-r--r--	2026-07-26 11:58:27
module.info.hu.auto	text/plain	149 B	-rw-r--r--	2026-07-26 11:58:27
module.info.it	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.it.auto	text/plain	172 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ja	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ja.auto	text/plain	189 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ko	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ko.auto	text/plain	165 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ms	text/plain	143 B	-rw-r--r--	2026-07-26 11:58:27
module.info.nl	text/plain	28 B	-rw-r--r--	2026-07-26 11:58:27
module.info.nl.auto	text/plain	109 B	-rw-r--r--	2026-07-26 11:58:27
module.info.no	text/plain	35 B	-rw-r--r--	2026-07-26 11:58:27
module.info.no.auto	text/plain	100 B	-rw-r--r--	2026-07-26 11:58:27
module.info.pl	text/plain	132 B	-rw-r--r--	2026-07-26 11:58:27
module.info.pt	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.pt.auto	text/plain	164 B	-rw-r--r--	2026-07-26 11:58:27
module.info.pt_BR	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.pt_BR.auto	text/plain	170 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ru	text/plain	61 B	-rw-r--r--	2026-07-26 11:58:27
module.info.ru.auto	text/plain	216 B	-rw-r--r--	2026-07-26 11:58:27
module.info.sk	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.sk.auto	text/plain	152 B	-rw-r--r--	2026-07-26 11:58:27
module.info.sv	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.sv.auto	text/plain	138 B	-rw-r--r--	2026-07-26 11:58:27
module.info.tr	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.tr.auto	text/plain	197 B	-rw-r--r--	2026-07-26 11:58:27
module.info.uk	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.uk.auto	text/plain	273 B	-rw-r--r--	2026-07-26 11:58:27
module.info.zh	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.zh.auto	text/plain	126 B	-rw-r--r--	2026-07-26 11:58:27
module.info.zh_TW	application/x-empty	0 B	-rw-r--r--	2026-07-26 11:58:27
module.info.zh_TW.auto	text/plain	132 B	-rw-r--r--	2026-07-26 11:58:27
rotate.cgi	text/x-perl	405 B	-rwxr-xr-x	2026-07-27 12:02:35
rotate.pl	text/x-perl	2.49 KB	-rwxr-xr-x	2026-07-27 12:02:36
setup.cgi	text/x-perl	3.28 KB	-rwxr-xr-x	2026-07-27 12:02:35
turnoff.cgi	text/x-perl	1.31 KB	-rwxr-xr-x	2026-07-27 12:02:35
uninstall.pl	text/plain	264 B	-rwxr-xr-x	2026-07-26 11:58:27

~ ACUPOFTEA - www.loginstore.com