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	3.42 KB	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.16 KB	-rwxr-xr-x	2026-07-17 21:17
backup.cgi	2.27 KB	-rwxr-xr-x	2026-07-17 21:22
backup.pl	3.22 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	361 B	-rwxr-xr-x	2026-07-17 21:17
config	91 B	-rw-r--r--	2026-07-17 21:17
config.info	534 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	640 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	658 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	437 B	-rw-r--r--	2026-07-17 21:17
config.info.de	632 B	-rw-r--r--	2026-07-17 21:17
config.info.es	430 B	-rw-r--r--	2026-07-17 21:17
config.info.hu	0 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	451 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	608 B	-rw-r--r--	2026-07-17 21:17
config.info.no	588 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	672 B	-rw-r--r--	2026-07-17 21:17
config.info.pt_BR	440 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	144 B	-rw-r--r--	2026-07-17 21:17
config.info.uk	157 B	-rw-r--r--	2026-07-17 21:17
defaultacl	39 B	-rw-r--r--	2026-07-17 21:17
delete_dumps.cgi	720 B	-rwxr-xr-x	2026-07-17 21:22
edit_dump.cgi	5.79 KB	-rwxr-xr-x	2026-07-17 21:22
feedback_files.pl	229 B	-rwxr-xr-x	2026-07-17 21:17
freebsd-lib.pl	12.49 KB	-rwxr-xr-x	2026-07-17 21:17
fsdump-lib.pl	8.12 KB	-rwxr-xr-x	2026-07-17 21:22
ftp.pl	4.36 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	4.61 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	379 B	-rwxr-xr-x	2026-07-17 21:17
irix-lib.pl	8.45 KB	-rwxr-xr-x	2026-07-17 21:17
kill.cgi	877 B	-rwxr-xr-x	2026-07-17 21:22
linux-lib.pl	25.19 KB	-rwxr-xr-x	2026-07-17 21:17
log_parser.pl	770 B	-rwxr-xr-x	2026-07-17 21:17
macos-lib.pl	12.49 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	460 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	232 B	-rw-r--r--	2026-07-17 21:17
module.info.ar.auto	19 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	298 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	138 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	31 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	116 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	152 B	-rw-r--r--	2026-07-17 21:17
module.info.de	146 B	-rw-r--r--	2026-07-17 21:17
module.info.de.auto	13 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	355 B	-rw-r--r--	2026-07-17 21:17
module.info.es	50 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	149 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	170 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	235 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	188 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	0 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	191 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	168 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	31 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	155 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	181 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	231 B	-rw-r--r--	2026-07-17 21:17
module.info.ko	32 B	-rw-r--r--	2026-07-17 21:17
module.info.ko.auto	125 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	123 B	-rw-r--r--	2026-07-17 21:17
module.info.ms.auto	19 B	-rw-r--r--	2026-07-17 21:17
module.info.nl	27 B	-rw-r--r--	2026-07-17 21:17
module.info.nl.auto	130 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	127 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	102 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	159 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR	41 B	-rw-r--r--	2026-07-17 21:17
module.info.pt_BR.auto	127 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	50 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	218 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	160 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	158 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	305 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	119 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW	30 B	-rw-r--r--	2026-07-17 21:17
module.info.zh_TW.auto	98 B	-rw-r--r--	2026-07-17 21:17
multi.pl	572 B	-rwxr-xr-x	2026-07-17 21:22
newtape.cgi	592 B	-rwxr-xr-x	2026-07-17 21:22
newtape.pl	1.58 KB	-rwxr-xr-x	2026-07-17 21:22
notape.pl	493 B	-rwxr-xr-x	2026-07-17 21:22
prefs.info	21 B	-rw-r--r--	2026-07-17 21:17
restore.cgi	935 B	-rwxr-xr-x	2026-07-17 21:22
restore_form.cgi	1.1 KB	-rwxr-xr-x	2026-07-17 21:22
rmulti.pl	784 B	-rwxr-xr-x	2026-07-17 21:22
save_dump.cgi	4.12 KB	-rwxr-xr-x	2026-07-17 21:22
solaris-lib.pl	6.46 KB	-rwxr-xr-x	2026-07-17 21:17
uninstall.pl	347 B	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl
# save_dump.cgi
# Save the details of a scheduled backup

require './fsdump-lib.pl';
&foreign_require("cron", "cron-lib.pl");
&ReadParse();
&error_setup($text{'save_err'});

# Create wrapper for ftp transfer script
&cron::create_wrapper($ftp_cmd, $module_name, "ftp.pl");

if ($in{'id'}) {
	$dump = &get_dump($in{'id'});
	$access{'edit'} && &can_edit_dir($dump) ||
		&error($text{'dump_ecannot2'});
	@jobs = &foreign_call("cron", "list_cron_jobs");
	foreach $j (@jobs) {
		$job = $j if ($j->{'command'} eq "$cron_cmd $dump->{'id'}");
		}
	$oldenabled = $dump->{'enabled'};
	}
else {
	$access{'edit'} || &error($text{'dump_ecannot1'});
	}

if ($in{'delete'}) {
	# Just delete this dump
	&delete_dump($dump);
	if ($job) {
		&lock_file($job->{'file'});
		&foreign_call("cron", "delete_cron_job", $job);
		&unlock_file($job->{'file'});
		}
	delete($dump->{'pass'});
	&webmin_log("delete", undef, $dump->{'id'}, $dump);
	&redirect("");
	}
elsif ($in{'restore'}) {
	# Redirect to restore form
	&redirect("restore_form.cgi?fs=$dump->{'fs'}&id=$in{'id'}");
	}
elsif ($in{'clone'}) {
	# Redirect to create form, but in clone mode
	&redirect("edit_dump.cgi?id=$in{'id'}&clone=1");
	}
else {
	# Validate and store inputs
	if (&multiple_directory_support($in{'fs'})) {
		$in{'dir'} =~ s/[\r\n]+/\t/g;
		foreach $d (split(/\t+/, &date_subs($in{'dir'}))) {
			-d $d || &error($text{'save_edir'});
			if ($in{'fs'} ne 'tar') {
				$fs = &directory_filesystem($d);
				&same_filesystem($fs, $in{'fs'}) ||
					&error($text{'save_efs'});
				}
			&can_edit_dir($d) || &error($text{'dump_ecannot3'});
			}
		$in{'dir'} || &error($text{'save_edir'});
		$dump->{'tabs'} = 1;	# tab used to split dirs
		}
	else {
		$d = &date_subs($in{'dir'});
		-d $d || &error($text{'save_edir'});
		if ($in{'fs'} ne 'tar') {
			$fs = &directory_filesystem($d);
			&same_filesystem($fs, $in{'fs'}) ||
				&error($text{'save_efs'});
			}
		&can_edit_dir($d) || &error($text{'dump_ecannot3'});
		}
	$dump->{'dir'} = $in{'dir'};
	$dump->{'fs'} = $in{'fs'};
	$dump->{'email'} = $in{'email_def'} ? '*' : $in{'email'};
	$dump->{'subject'} = $in{'subject_def'} ? undef : $in{'subject'};
	if ($access{'extra'}) {
		if (defined($in{'extra'}) &&
			$in{'extra'} =~ /[;&|`\$<>\r\n\0]/) {
			&error("Invalid extra command-line parameters");
			}
		$dump->{'extra'} = $in{'extra'};
		}
	if ($access{'cmds'}) {
		$dump->{'before'} = $in{'before'};
		$dump->{'after'} = $in{'after'};
		$dump->{'beforefok'} = !$in{'beforefok'};
		$dump->{'afterfok'} = !$in{'afterfok'};
		$dump->{'afteraok'} = !$in{'afteraok'};
		}
	$in{'file'} =~ s/^\s+//; $in{'file'} =~ s/\s+$//;
	$in{'hfile'} =~ s/^\s+//; $in{'hfile'} =~ s/\s+$//;
	&parse_dump($dump);
	$dump->{'reverify'} = $in{'reverify'} if (defined(&verify_dump));
	$dump->{'enabled'} = $in{'enabled'};
	$dump->{'follow'} = $in{'enabled'} == 2 ? $in{'follow'} : undef;
	&foreign_call("cron", "parse_times_input", $dump, \%in);

# Create or update the dump and cron job
	&lock_file($cron_cmd);
	&cron::create_wrapper($cron_cmd, $module_name, "backup.pl");
	&unlock_file($cron_cmd);
	&save_dump($dump);
	local $oldjob = $job;
	if ($dump->{'enabled'} == 1) {
		# Create cron job and script
		$job->{'user'} = 'root';
		$job->{'active'} = 1;
		$job->{'special'} = $dump->{'special'};
		$job->{'mins'} = $dump->{'mins'};
		$job->{'hours'} = $dump->{'hours'};
		$job->{'days'} = $dump->{'days'};
		$job->{'months'} = $dump->{'months'};
		$job->{'weekdays'} = $dump->{'weekdays'};
		$job->{'command'} = "$cron_cmd $dump->{'id'}";
		}
	&lock_file(&cron::cron_file($job)) if ($job);
	if ($dump->{'enabled'} == 1 && !$oldjob) {
		# Create the cron job
		&foreign_call("cron", "create_cron_job", $job); 
		}
	elsif ($dump->{'enabled'} == 1 && $oldjob) {
		# Update the cron job
		&foreign_call("cron", "change_cron_job", $job); 
		}
	elsif ($dump->{'enabled'} != 1 && $oldjob) {
		# Delete the cron job
		&foreign_call("cron", "delete_cron_job", $job);
		}
	&unlock_file(&cron::cron_file($job)) if ($job);

delete($dump->{'pass'});
	&webmin_log($in{'id'} ? "modify" : "create", undef,
		    $dump->{'id'}, $dump);
	if ($in{'savenow'}) {
		&redirect("backup.cgi?id=$dump->{'id'}");
		}
	else {
		&redirect("");
		}
	}