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	528 B	-rw-r--r--	2026-07-17 21:17
backup_config.pl	630 B	-rwxr-xr-x	2026-07-17 21:17
cgi_args.pl	221 B	-rwxr-xr-x	2026-07-17 21:17
config	67 B	-rw-r--r--	2026-07-17 21:17
config-ALL-linux	67 B	-rw-r--r--	2026-07-17 21:17
config-debian-linux	93 B	-rw-r--r--	2026-07-17 21:17
config-freebsd	142 B	-rw-r--r--	2026-07-17 21:17
config-open-linux	71 B	-rw-r--r--	2026-07-17 21:17
config-redhat-linux	93 B	-rw-r--r--	2026-07-17 21:17
config-solaris-10-ALL	132 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	67 B	-rw-r--r--	2026-07-17 21:17
config.info	288 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	358 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	342 B	-rw-r--r--	2026-07-17 21:17
config.info.de	345 B	-rw-r--r--	2026-07-17 21:17
config.info.es	272 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	390 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	398 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	276 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	321 B	-rw-r--r--	2026-07-17 21:17
config.info.no	325 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	334 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	514 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	356 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	288 B	-rw-r--r--	2026-07-17 21:17
delete_logs.cgi	642 B	-rwxr-xr-x	2026-07-17 21:22
edit_log.cgi	7.1 KB	-rwxr-xr-x	2026-07-17 21:22
edit_sched.cgi	1.4 KB	-rwxr-xr-x	2026-07-17 21:22
force.cgi	619 B	-rwxr-xr-x	2026-07-17 21:22
index.cgi	3.34 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	331 B	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	605 B	-rwxr-xr-x	2026-07-17 21:17
logrotate-lib.pl	9.42 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	203 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	186 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	223 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	145 B	-rw-r--r--	2026-07-17 21:17
module.info.ca.auto	17 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	32 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	114 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	133 B	-rw-r--r--	2026-07-17 21:17
module.info.de	126 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	256 B	-rw-r--r--	2026-07-17 21:17
module.info.es	40 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	120 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	163 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	179 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	139 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	36 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	120 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	141 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	45 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	125 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	152 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	210 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	29 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	119 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	25 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	112 B	-rw-r--r--	2026-07-17 21:17
module.info.no	25 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	109 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	115 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	151 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	160 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	250 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	213 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	44 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	130 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	137 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	162 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	226 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	129 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	138 B	-rw-r--r--	2026-07-17 21:17
prefs.info	18 B	-rw-r--r--	2026-07-17 21:17
save_log.cgi	6.03 KB	-rwxr-xr-x	2026-07-17 21:22
save_sched.cgi	936 B	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# save_log.cgi
# Update, create or delete a log, or global settings

require './logrotate-lib.pl';
&ReadParse();
$parent = &get_config_parent();
$conf = $parent->{'members'};
@files = split(/\s+/, $in{'file'});
if ($in{'global'}) {
	# Editing the global options
	$log = $parent;
	}
elsif ($in{'new'}) {
	# Adding a new section
	$cfilename = $files[0] =~ /\/([^\/]+)$/ ? $1 : undef;
	$log = { 'members' => [ ],
		 'file' => &get_add_file($cfilename) };
	$logfile = $in{'file'};
	}
else {
	# Editing a section
	$oldlog = $log = $conf->[$in{'idx'}];
	$logfile = join(" ", @{$oldlog->{'name'}});
	}

if ($in{'delete'}) {
	# Just delete this log entry
	&lock_file($log->{'file'});
	&save_directive($parent, $log, undef);
	}
elsif ($in{'now'}) {
	# Rotate log immediately
	&ui_print_header(undef, $text{'force_title'}, "");

print $text{'force_doingone'},"\n";
	($ex, $out) = &rotate_log_now($log);
	print "<pre>$out</pre>";
	if ($?) {
		print $text{'force_failed'},"<br>\n";
		}
	else {
		print $text{'force_done'},"<br>\n";
		}

&webmin_log("force", $logfile);
	&ui_print_footer("", $text{'index_return'});
	exit;
	}
else {
	# Validate and store inputs
	&lock_file($log->{'file'});
	&error_setup($text{'save_err'});
	if (!$in{'global'}) {
		foreach $f (@files) {
			$f =~ /^\/\S+$/ || &error($text{'save_efile'});
			}
		@files || &error($text{'save_enofiles'});
		$in{'file'} =~ s/\r//g;
		$log->{'name'} = [ split(/\n/, $in{'file'}) ];
		}

foreach $period ("daily", "weekly", "monthly") {
		&save_directive($log, $period,
				$in{'sched'} eq $period ? "" : undef);
		}

$in{'size_def'} || $in{'size'} =~ /^\d+[kM]?$/ ||
		&error($text{'save_esize'});
	&save_directive($log, "size", $in{'size_def'} ? undef : $in{'size'});

$in{'minsize_def'} || $in{'minsize'} =~ /^\d+[kM]?$/ ||
		&error($text{'save_eminsize'});
	&save_directive($log, "minsize",
			$in{'minsize_def'} ? undef : $in{'minsize'});

$in{'rotate_def'} || $in{'rotate'} =~ /^\d+$/ ||
		&error($text{'save_erotate'});
	&save_directive($log, "rotate", $in{'rotate_def'} ? undef
							    : $in{'rotate'});

&parse_yesno("compress", "nocompress", $log);
	&parse_yesno("delaycompress", "nodelaycompress", $log);
	&parse_yesno("copytruncate", "nocopytruncate", $log);
	&parse_yesno("ifempty", "notifempty", $log);
	&parse_yesno("missingok", "nomissingok", $log);

if ($in{'create'} == 2) {
		&error($text{'save_emust1'}) if ($in{'createuser'} ne '' &&
						   $in{'createmode'} eq '');
		&error($text{'save_emust2'}) if ($in{'creategroup'} ne '' &&
						   $in{'createuser'} eq '');
		$in{'createmode'} eq '' ||
		    $in{'createmode'} =~ /^[0-7]{3,4}$/ ||
			&error($text{'save_ecreatemode'});
		$in{'createuser'} eq '' ||
		    defined(getpwnam($in{'createuser'})) ||
			&error($text{'save_ecreateuser'});
		$in{'creategroup'} eq '' ||
		    defined(getgrnam($in{'creategroup'})) ||
			&error($text{'save_ecreategroup'});
		&save_directive($log, "create",
				$in{'createmode'}." ".
				$in{'createuser'}." ".$in{'creategroup'});
		&save_directive($log, "nocreate");
		}
	elsif ($in{'create'} == 1) {
		&save_directive($log, "create");
		&save_directive($log, "nocreate", "");
		}
	elsif ($in{'create'} == 0) {
		&save_directive($log, "create");
		&save_directive($log, "nocreate");
		}

if ($in{'olddir'} == 2) {
		-d $in{'olddirto'} || &error($text{'save_eolddirto'});
		&save_directive($log, "olddir", $in{'olddirto'});
		&save_directive($log, "noolddir");
		}
	elsif ($in{'olddir'} == 1) {
		&save_directive($log, "olddir");
		&save_directive($log, "noolddir", "");
		}
	elsif ($in{'olddir'} == 0) {
		&save_directive($log, "olddir");
		&save_directive($log, "noolddir");
		}

$in{'ext_def'} || $in{'ext'} =~ /^\S+$/ ||
		&error($text{'save_eext'});
	&save_directive($log, "extension", $in{'ext_def'} ? undef : $in{'ext'});

&parse_yesno("dateext", "nodateext", $log);

if ($in{'mail'} == 2) {
		$in{'mailto'} =~ /^\S+$/ || &error($text{'save_emailto'});
		&save_directive($log, "mail", $in{'mailto'});
		&save_directive($log, "nomail");
		}
	elsif ($in{'mail'} == 1) {
		&save_directive($log, "mail");
		&save_directive($log, "nomail", "");
		}
	elsif ($in{'mail'} == 0) {
		&save_directive($log, "mail");
		&save_directive($log, "nomail");
		}

&parse_yesno("mailfirst", "maillast", $log);

if (defined($in{'errors'})) {
		$in{'errors_def'} || $in{'errors'} =~ /^\S+$/ ||
			&error($text{'save_eerrors'});
		&save_directive($log, "errors", $in{'errors_def'} ? undef
							  : $in{'errors'});
		}

if ($in{'pre'} =~ /\S/) {
		$in{'pre'} =~ s/\r//g;
		&has_endscript($in{'pre'}) && &error($text{'save_epre'});
		&save_directive($log, "prerotate",
				{ "name" => "prerotate",
				  "script" => $in{'pre'} });
		}
	else {
		&save_directive($log, "prerotate");
		}

if ($in{'post'} =~ /\S/) {
		$in{'post'} =~ s/\r//g;
		&has_endscript($in{'post'}) && &error($text{'save_epost'});
		&save_directive($log, "postrotate",
				{ "name" => "postrotate",
				  "script" => $in{'post'} });
		}
	else {
		&save_directive($log, "postrotate");
		}

if (defined($in{'sharedscripts'})) {
		&parse_yesno("sharedscripts", "nosharedscripts", $log);
		}

if (!$in{'global'}) {
		# Save or create the actual log entry
		&save_directive($parent, $oldlog, $log);
		}
	}

&flush_file_lines();
&delete_if_empty($log->{'file'}) if ($in{'delete'});
&unlock_file($log->{'file'});
&webmin_log($in{'delete'} ? "delete" : $in{'new'} ? "create" : "modify",
	    $in{'global'} ? "global" : "log", $logfile);

&redirect("");

# parse_yesno(yesvalue, novalue, &conf)
sub parse_yesno
{
local $d0 = &find($_[0], $_[2]->{'members'});
local $d1 = &find($_[1], $_[2]->{'members'});
if ($in{$_[0]} == 2 && !$d0) {
	# Adding or replacing 'yes' value
	&save_directive($_[2], $d1 || $_[0],
			{ 'name' => $_[0], 'value' => '' });
	}
elsif ($in{$_[0]} == 1 && !$d1) {
	# Adding or replacing 'no' value
	&save_directive($_[2], $d0 || $_[1],
			{ 'name' => $_[1], 'value' => '' });
	}
elsif ($in{$_[0]} == 0) {
	&save_directive($_[2], $_[0]);
	&save_directive($_[2], $_[1]);
	}
}

sub has_endscript
{
local $l;
foreach $l (split(/\n/, $_[0])) {
	return 1 if ($l =~ /^\s*(endscript|endrotate)\s*$/);
	}
return 0;
}