Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	855 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.2 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	1.63 KB	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	840 B	-rwxr-xr-x	2026-07-17 21:17
config	158 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	107 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux-4.0-ALL	172 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	176 B	-rw-r--r--	2026-07-17 21:17
config-gentoo-linux	107 B	-rw-r--r--	2026-07-17 21:17
config-mandrake-linux-10.3-ALL	107 B	-rw-r--r--	2026-07-17 21:17
config-netbsd	120 B	-rw-r--r--	2026-07-17 21:17
config-openbsd	179 B	-rw-r--r--	2026-07-17 21:17
config-openmamba-linux	113 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	175 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	222 B	-rw-r--r--	2026-07-17 21:17
config.info	425 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	514 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	226 B	-rw-r--r--	2026-07-17 21:17
config.info.de	471 B	-rw-r--r--	2026-07-17 21:17
config.info.es	310 B	-rw-r--r--	2026-07-17 21:17
config.info.fa	365 B	-rw-r--r--	2026-07-17 21:17
config.info.fi	0 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	465 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	407 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	387 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	396 B	-rw-r--r--	2026-07-17 21:17
config.info.no	379 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	488 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	308 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	372 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	314 B	-rw-r--r--	2026-07-17 21:17
defaultacl	46 B	-rw-r--r--	2026-07-17 21:17
edit_global.cgi	4.8 KB	-rwxr-xr-x	2026-07-17 21:22
edit_log.cgi	3.67 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	5.13 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	545 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	707 B	-rwxr-xr-x	2026-07-17 21:17
mass.cgi	1.81 KB	-rwxr-xr-x	2026-07-17 21:22
module.info	201 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	184 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	203 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	156 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	21 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	46 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	108 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	119 B	-rw-r--r--	2026-07-17 21:17
module.info.de	113 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	18 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	248 B	-rw-r--r--	2026-07-17 21:17
module.info.es	52 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	118 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	153 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	230 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	151 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	45 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	125 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	142 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	37 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	116 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	142 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	181 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	147 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	118 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	18 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	34 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	101 B	-rw-r--r--	2026-07-17 21:17
module.info.no	33 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	93 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	91 B	-rw-r--r--	2026-07-17 21:17
module.info.pl.auto	18 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	152 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	161 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	53 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	153 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	174 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	130 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	154 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	225 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	130 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	24 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	100 B	-rw-r--r--	2026-07-17 21:17
save_global.cgi	4.14 KB	-rwxr-xr-x	2026-07-17 21:22
save_log.cgi	5.38 KB	-rwxr-xr-x	2026-07-17 21:22
view_log.cgi	1.74 KB	-rwxr-xr-x	2026-07-17 21:22
webalizer-lib.pl	8.74 KB	-rwxr-xr-x	2026-07-17 21:17
webalizer.pl	822 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# index.cgi
# Display available apache or squid logfiles

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %config, %gconfig, %access, $module_name);
require './webalizer-lib.pl';
&foreign_require("cron", "cron-lib.pl");

# Check if webalizer is actually installed
if (!&has_command($config{'webalizer'})) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		&help_search_link("webalizer", "man", "doc", "google"));
	print &text('index_ewebalizer', "<tt>$config{'webalizer'}</tt>",
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";

&foreign_require("software", "software-lib.pl");
	my $lnk = &software::missing_install_link(
			"webalizer", $text{'index_webalizer'},
			"../$module_name/", $text{'index_title'});
	print $lnk,"\n" if ($lnk);

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

# Get the version number
my $out;
my $webalizer_version = &get_webalizer_version(\$out);
if (!$webalizer_version) {
	&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
		&help_search_link("webalizer", "man", "doc", "google"));
	print &text('index_egetversion',
			 "<tt>$config{'webalizer'} -v</tt>",
			 "<pre>$out</pre>"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

if (&compare_version_numbers($webalizer_version, 2) < 0) {
	&main_header();
	print &text('index_eversion', "<tt>$config{'webalizer'}</tt>",
			 "$webalizer_version", "2.0"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Check if the config file exists
if (!-r $config{'webalizer_conf'}) {
	&main_header();
	print &text('index_econf', "<tt>$config{'webalizer_conf'}</tt>",
		 "@{[&get_webprefix()]}/config.cgi?$module_name"),"\n";
	&ui_print_footer("/", $text{'index'});
	exit;
	}

# Query apache and squid for their logfiles
my @logs = &get_all_logs();

# Remove in-accessible logs, and redirect if only one
@logs = grep { &can_edit_log($_->{'file'}) } @logs;
if (@logs == 1 && -r $logs[0]->{'file'} &&
    $access{'noconfig'} && !$access{'add'} && !$access{'global'}) {
	# User can only edit/view one log file ..
	my $l = $logs[0];
	if ($access{'view'}) {
		&redirect("view_log.cgi/".&urlize(&urlize($l->{'file'})).
			  "/index.html");
		}
	else {
		&redirect("edit_log.cgi?file=".&urlize($l->{'file'}).
                	  "&type=$l->{'type'}&custom=$l->{'custom'}");
		}
	exit;
	}

&main_header();
my @links = ( );
if (@logs) {
	if (!$access{'view'}) {
		print &ui_form_start("mass.cgi", "post");
		push(@links, &select_all_link("d"),
			 &select_invert_link("d"));
		}
	push(@links, &ui_link("edit_log.cgi?new=1", $text{'index_add'}))
		if (!$access{'view'} && $access{'add'});
	print &ui_links_row(\@links);
	my @tds = ( "width=5" );
	print &ui_columns_start([ $access{'view'} ? ( ) : ( "" ),
				 $text{'index_path'},
				 $text{'index_type'},
			 	 $text{'index_size'},
				 $text{'index_sched'},
				 $text{'index_rep'} ], 100, 0, \@tds);
	my %done;
	foreach my $l (@logs) {
		next if ($done{$l->{'file'}}++);
		my @files = &all_log_files($l->{'file'});
		next if (!@files);
		my $lconf = &get_log_config($l->{'file'});
		my @cols;
		my $short = $l->{'file'};
		if (length($short) > 40) {
			$short = "...".substr($short, -40);
			}
		if ($access{'view'}) {
			push(@cols, $short);
			}
		else {
			push(@cols, &ui_link("edit_log.cgi?file=".
				 &urlize($l->{'file'}).
				 "&type=$l->{'type'}&custom=$l->{'custom'}",
				 $short));
			}
		push(@cols, &text('index_type'.$l->{'type'}));
		my ($size, $latest) = (0, 0);
		foreach my $f (@files) {
			my @st = stat($f);
			$size += $st[7];
			$latest = $st[9] if ($st[9] > $latest);
			}
		$latest = $latest ? localtime($latest) : " ";
		push(@cols, $size ? &nice_size($size) : $text{'index_empty'});
		push(@cols, $lconf->{'sched'} ?
			&text('index_when', &cron::when_text($lconf)) :
			$text{'no'});
		if ($lconf->{'dir'} && -r "$lconf->{'dir'}/index.html") {
			push(@cols, &ui_link("view_log.cgi/".
				 &urlize(&urlize($l->{'file'})).
				 "/index.html", $text{'index_view'}));
			}
		else {
			push(@cols, "");
			}
		if ($access{'view'}) {
			print &ui_columns_row(\@cols);
			}
		elsif (!%$lconf) {
			print &ui_columns_row([ ui_img("images/empty.gif"),
						@cols ]);
			}
		else {
			print &ui_checked_columns_row(\@cols, \@tds, "d",
						 $l->{'file'});
			}
		}
	print &ui_columns_end();
	}
else {
	print "$text{'index_nologs'}\n";
	push(@links, &ui_link("edit_log.cgi?new=1", $text{'index_add'}))
		if (!$access{'view'} && $access{'add'});
	}
print &ui_links_row(\@links);
if (@logs && !$access{'view'}) {
	print &ui_form_end([ [ "enable", $text{'index_enable'} ],
			 [ "disable", $text{'index_disable'} ] ]);
	}

if (!$access{'view'} && $access{'global'}) {
	print &ui_hr();
	print &ui_buttons_start();
	print &ui_buttons_row("edit_global.cgi",
			      $text{'index_global'},
			      $text{'index_globaldesc'});
	print &ui_buttons_end();
	}

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

sub main_header
{
my $prog = &get_webalizer_prog();
&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1, 0,
	&help_search_link($prog, "man", "doc", "google"),
	undef, undef, &text('index_version_'.$prog, $webalizer_version));
}