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
ulang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	1.25 KB	-rw-r--r--	2026-07-19 16:26
acl_security.pl	2.82 KB	-rwxr-xr-x	2026-07-19 16:26
backup.cgi	5.2 KB	-rwxr-xr-x	2026-07-19 16:28
backup_form.cgi	4.74 KB	-rwxr-xr-x	2026-07-19 16:28
config	501 B	-rw-r--r--	2026-07-19 16:26
config-AlmaLinux-7.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-Amazon-Linux-2-ALL	484 B	-rw-r--r--	2026-07-19 16:26
config-CentOS-Linux-7.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-CentOS-Stream-Linux-8.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-CloudLinux-8.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-Oracle-Linux-8.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-Redhat-Enterprise-Linux-7.0-ALL	484 B	-rw-r--r--	2026-07-19 16:26
config-Rocky-Linux-7.0-ALL	530 B	-rw-r--r--	2026-07-19 16:26
config-Scientific-Linux-7.0-ALL	484 B	-rw-r--r--	2026-07-19 16:26
config-cobalt-linux	435 B	-rw-r--r--	2026-07-19 16:26
config-coherent-linux	507 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux	416 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux-10.0-ALL	417 B	-rw-r--r--	2026-07-19 16:26
config-debian-linux-4.0-9.0	425 B	-rw-r--r--	2026-07-19 16:26
config-freebsd	588 B	-rw-r--r--	2026-07-19 16:26
config-freebsd-8-ALL	580 B	-rw-r--r--	2026-07-19 16:26
config-gentoo-linux	429 B	-rw-r--r--	2026-07-19 16:26
config-mandrake-linux	435 B	-rw-r--r--	2026-07-19 16:26
config-msc-linux	441 B	-rw-r--r--	2026-07-19 16:26
config-netbsd	454 B	-rw-r--r--	2026-07-19 16:26
config-openSUSE-Linux-15.0-ALL	453 B	-rw-r--r--	2026-07-19 16:26
config-pardus-linux	431 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux	444 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-10.0-23.0	772 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-24.0-ALL	500 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-7.0-7.2	493 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-7.3	507 B	-rw-r--r--	2026-07-19 16:26
config-redhat-linux-7.4-9.0	507 B	-rw-r--r--	2026-07-19 16:26
config-sol-linux	462 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux	448 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux-7.0	457 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux-7.1-9.0	459 B	-rw-r--r--	2026-07-19 16:26
config-suse-linux-9.1-ALL	459 B	-rw-r--r--	2026-07-19 16:26
config-syno-linux	454 B	-rw-r--r--	2026-07-19 16:26
config-trustix-linux	619 B	-rw-r--r--	2026-07-19 16:26
config-united-linux	459 B	-rw-r--r--	2026-07-19 16:26
config.info	518 B	-rw-r--r--	2026-07-19 16:26
config.info.ca	1.68 KB	-rw-r--r--	2026-07-19 16:26
config.info.de	391 B	-rw-r--r--	2026-07-19 16:26
config.info.es	559 B	-rw-r--r--	2026-07-19 16:26
config.info.ja	1.68 KB	-rw-r--r--	2026-07-19 16:26
config.info.nl	604 B	-rwxr-xr-x	2026-07-19 16:26
config.info.no	562 B	-rw-r--r--	2026-07-19 16:26
config.info.pl	521 B	-rw-r--r--	2026-07-19 16:26
config.info.ru	950 B	-rw-r--r--	2026-07-19 16:26
config.info.sv	459 B	-rw-r--r--	2026-07-19 16:26
config.info.zh	328 B	-rw-r--r--	2026-07-19 16:26
config.info.zh_TW	426 B	-rw-r--r--	2026-07-19 16:26
create_table.cgi	1.18 KB	-rwxr-xr-x	2026-07-19 16:28
csv.cgi	2 KB	-rwxr-xr-x	2026-07-19 16:28
csv_form.cgi	1.68 KB	-rwxr-xr-x	2026-07-19 16:28
defaultacl	99 B	-rw-r--r--	2026-07-19 16:26
defaultuconfig	53 B	-rw-r--r--	2026-07-19 16:26
delete_fields.cgi	629 B	-rwxr-xr-x	2026-07-19 16:28
download.cgi	1.07 KB	-rwxr-xr-x	2026-07-19 16:28
drop_table.cgi	1.1 KB	-rwxr-xr-x	2026-07-19 16:28
drop_tables.cgi	1.72 KB	-rwxr-xr-x	2026-07-19 16:28
edit_dbase.cgi	7.63 KB	-rwxr-xr-x	2026-07-19 16:28
edit_field.cgi	2.42 KB	-rwxr-xr-x	2026-07-19 16:28
edit_table.cgi	2.71 KB	-rwxr-xr-x	2026-07-19 16:28
exec.cgi	1.51 KB	-rwxr-xr-x	2026-07-19 16:28
exec_file.cgi	2.05 KB	-rwxr-xr-x	2026-07-19 16:28
exec_form.cgi	3.15 KB	-rwxr-xr-x	2026-07-19 16:28
index.cgi	3.06 KB	-rwxr-xr-x	2026-07-19 16:28
log_parser.pl	2.41 KB	-rwxr-xr-x	2026-07-19 16:26
login.cgi	454 B	-rwxr-xr-x	2026-07-19 16:28
module.info	212 B	-rw-r--r--	2026-07-19 16:26
module.info.ar	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ar.auto	246 B	-rw-r--r--	2026-07-19 16:26
module.info.bg	0 B	-rw-r--r--	2026-07-19 16:26
module.info.bg.auto	242 B	-rw-r--r--	2026-07-19 16:26
module.info.ca	33 B	-rw-r--r--	2026-07-19 16:26
module.info.ca.auto	162 B	-rw-r--r--	2026-07-19 16:26
module.info.cs	0 B	-rw-r--r--	2026-07-19 16:26
module.info.cs.auto	175 B	-rw-r--r--	2026-07-19 16:26
module.info.da	0 B	-rw-r--r--	2026-07-19 16:26
module.info.da.auto	177 B	-rw-r--r--	2026-07-19 16:26
module.info.de	131 B	-rw-r--r--	2026-07-19 16:26
module.info.el	0 B	-rw-r--r--	2026-07-19 16:26
module.info.el.auto	297 B	-rw-r--r--	2026-07-19 16:26
module.info.es	0 B	-rw-r--r--	2026-07-19 16:26
module.info.es.auto	192 B	-rw-r--r--	2026-07-19 16:26
module.info.eu	0 B	-rw-r--r--	2026-07-19 16:26
module.info.eu.auto	180 B	-rw-r--r--	2026-07-19 16:26
module.info.fa	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fa.auto	220 B	-rw-r--r--	2026-07-19 16:26
module.info.fi	0 B	-rw-r--r--	2026-07-19 16:26
module.info.fi.auto	199 B	-rw-r--r--	2026-07-19 16:26
module.info.fr	48 B	-rw-r--r--	2026-07-19 16:26
module.info.hr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.hr.auto	178 B	-rw-r--r--	2026-07-19 16:26
module.info.hu	41 B	-rw-r--r--	2026-07-19 16:26
module.info.hu.auto	168 B	-rw-r--r--	2026-07-19 16:26
module.info.it	0 B	-rw-r--r--	2026-07-19 16:26
module.info.it.auto	169 B	-rw-r--r--	2026-07-19 16:26
module.info.ja	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ja.auto	230 B	-rw-r--r--	2026-07-19 16:26
module.info.ko	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ko.auto	212 B	-rw-r--r--	2026-07-19 16:26
module.info.ms	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ms.auto	178 B	-rw-r--r--	2026-07-19 16:26
module.info.nl	35 B	-rw-r--r--	2026-07-19 16:26
module.info.no	28 B	-rw-r--r--	2026-07-19 16:26
module.info.no.auto	149 B	-rw-r--r--	2026-07-19 16:26
module.info.pl	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pl.auto	180 B	-rw-r--r--	2026-07-19 16:26
module.info.pt	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt.auto	186 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR	0 B	-rw-r--r--	2026-07-19 16:26
module.info.pt_BR.auto	195 B	-rw-r--r--	2026-07-19 16:26
module.info.ru	0 B	-rw-r--r--	2026-07-19 16:26
module.info.ru.auto	244 B	-rw-r--r--	2026-07-19 16:26
module.info.sk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sk.auto	171 B	-rw-r--r--	2026-07-19 16:26
module.info.sv	0 B	-rw-r--r--	2026-07-19 16:26
module.info.sv.auto	173 B	-rw-r--r--	2026-07-19 16:26
module.info.tr	0 B	-rw-r--r--	2026-07-19 16:26
module.info.tr.auto	190 B	-rw-r--r--	2026-07-19 16:26
module.info.uk	0 B	-rw-r--r--	2026-07-19 16:26
module.info.uk.auto	248 B	-rw-r--r--	2026-07-19 16:26
module.info.zh	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh.auto	155 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW	0 B	-rw-r--r--	2026-07-19 16:26
module.info.zh_TW.auto	164 B	-rw-r--r--	2026-07-19 16:26
postgresql-lib.pl	35.88 KB	-rwxr-xr-x	2026-07-19 16:26
restore.cgi	1.99 KB	-rwxr-xr-x	2026-07-19 16:28
restore_form.cgi	1.42 KB	-rwxr-xr-x	2026-07-19 16:28
save_field.cgi	1.05 KB	-rwxr-xr-x	2026-07-19 16:28
table_form.cgi	1.9 KB	-rwxr-xr-x	2026-07-19 16:28
uconfig.info	344 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.ca	124 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.de	401 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.nl	346 B	-rw-r--r--	2026-07-19 16:26
uconfig.info.no	357 B	-rw-r--r--	2026-07-19 16:26
useradmin_update.pl	2.1 KB	-rwxr-xr-x	2026-07-19 16:26
view-lib.pl	3.56 KB	-rwxr-xr-x	2026-07-19 16:26
view_table.cgi	15.16 KB	-rwxr-xr-x	2026-07-19 16:28

Rename

#!/usr/bin/perl
# backup.cgi
# Backup a database to a local file

require './postgresql-lib.pl' ;

&ReadParse ( ) ;

&error_setup ( $text{'backup_err'} ) ;

# Validate inputs
if ($in{'all'}) {
	@alldbs = &list_databases();
	@dbs = grep { &can_edit_db($_) } @alldbs;
	@alldbs == @dbs || &error($text{'dbase_ecannot'});
	}
else {
	&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
	}
$access{'backup'} || &error($text{'backup_ecannot'});
if (!$in{'save'} || $in{'sched'}) {
	if ($in{'all'}) {
		-d $in{'path'} || -d &date_subs($in{'path'}) || $in{'mkdir'} ||
			&error(&text('backup_pe4', $in{'path'})) ;
		}
	else {
		$in{'path'} =~ /^\/\S+$/ ||
		  $in{'path'} =~ /^[a-z]:[\\\/]/i ||
		    &error(&text('backup_pe3', $in{'path'})) ;
		}
	if (!$in{'all'} && !$in{'tables_def'}) {
		@tables = split(/\0/, $in{'tables'});
		@tables || &error($text{'backup_etables'});
		}
	}
$cron = !$module_info{'usermin'} &&
        !$access{'user'} && &foreign_installed("cron");
$cmode = 0;
if ($cron) {
	if ($access{'cmds'}) {
		$config{'backup_before_'.$in{'db'}} = $in{'before'};
		$config{'backup_after_'.$in{'db'}} = $in{'after'};
		if ($in{'all'}) {
			$config{'backup_cmode_'.$in{'db'}} = $in{'cmode'};
			$cmode = $in{'cmode'};
			}
		}

&foreign_require("cron", "cron-lib.pl");
	@jobs = &cron::list_cron_jobs();
	$cmd = $in{'all'} ? "$cron_cmd --all" : "$cron_cmd $in{'db'}";
	($job) = grep { $_->{'command'} eq $cmd } @jobs;
	$oldjob = $job;
	$job ||= { 'command' => $cmd,
		   'user' => 'root',
		   'active' => 1 };
	&cron::parse_times_input($job, \%in);
	}

if (!$in{'all'}) {
	# Make sure the database exists
	$db_find_f = 0 ;
	if ( $in{'db'} ) {
	    foreach ( &list_databases() ) {
		if ( $_ eq $in{'db'} ) { $db_find_f = 1 ; }
	    }
	}
	if ( $db_find_f == 0 ) { &error ( &text ( 'backup_edb' ) ) ; }
	}

# Save choices for next time the form is visited (and for the cron job)
if ($module_info{'usermin'}) {
	$userconfig{'backup_'.$in{'db'}} = $in{'path'};
	$userconfig{'backup_format_'.$in{'db'}} = $in{'format'};
	$userconfig{'backup_tables_'.$in{'db'}} = join(" ", @tables);
	if ($in{'save'}) {
		&save_user_module_config();
		}
	}
else {
	$config{'backup_'.$in{'db'}} = $in{'path'};
	$config{'backup_mkdir_'.$in{'db'}} = $in{'mkdir'};
	$config{'backup_format_'.$in{'db'}} = $in{'format'};
	$config{'backup_compress_'.$in{'db'}} = $in{'compress'};
	$config{'backup_tables_'.$in{'db'}} = join(" ", @tables);
	if ($in{'save'}) {
		&save_module_config();
		}
	}

$desc = "<tt>$in{'db'}</tt>";
&ui_print_header($desc, $text{'backup_title'}, "");
if (!$in{'save'}) {
	# Construct and run the backup command
	@dbs = $in{'all'} ? @alldbs : ( $in{'db'} );
	$suf = $in{'format'} eq "p" ? "sql" :
	 $in{'format'} eq "t" ? "tar" : "post";
	$suf .= ($in{'compress'} == 1 ? ".gz" :
		 $in{'compress'} == 2 ? ".bz2" : "");
 if ($cmode == 1) {
 # Run and check before-backup command (for all DBs)
 $bok = &execute_before(undef, STDOUT, 1, $in{'file'}, undef);
 if (!$bok) {
 print "$main::whatfailed : ",$text{'backup_ebefore'},"\n";
 goto donebackup;
 }
 }
	foreach $db (@dbs) {
		if (!&accepting_connections($db)) {
			print &text('backup_notaccept', "<tt>$db</tt>"),"\n";
			next;
			}
		if ($in{'all'}) {
			$dir = &date_subs($in{'path'});
			&make_backup_dir($dir) if ($in{'mkdir'});
			$path = $dir."/".$db.".".$suf;
			}
		else {
			$path = &date_subs($in{'path'});
			}
		if ($cron && $cmode == 0) {
			# Run and check before-backup command
			$bok = &execute_before($db, STDOUT, 1, $path, $in{'all'} ? undef : $db);
			if (!$bok) {
 print "$main::whatfailed : ",$text{'backup_ebefore'},"\n";
 next;
 }
			}
		$err = &backup_database($db, $path, $in{'format'}, \@tables,
					undef, $in{'compress'});
		if ($err) {
			print "$main::whatfailed : ",
			 &text('backup_ebackup',"<pre>$err</pre>"),"\n";
			}
		else {
			@st = stat($path);
			print &text('backup_done', "<tt>$db</tt>",
					 "<tt>$path</tt>", $st[7]),"\n";
			}
		&execute_after($db, STDOUT, 1, $path, $in{'all'} ? undef : $db)
			if ($cron && $cmode == 0);
		}
	&execute_after(undef, STDOUT, 1, $in{'file'}, undef) if ($cmode == 1);
	donebackup:
	}

if ($cron) {
	&lock_file($cron_cmd);
	&cron::create_wrapper($cron_cmd, $module_name, "backup.pl");
	&unlock_file($cron_cmd);

&lock_file(&cron::cron_file($job));
	if ($in{'sched'} && !$oldjob) {
		&cron::create_cron_job($job);
		$what = "backup_ccron";
		}
	elsif (!$in{'sched'} && $oldjob) {
		# Need to delete cron job
		&cron::delete_cron_job($job);
		$what = "backup_dcron";
		}
	elsif ($in{'sched'} && $oldjob) {
		# Need to update cron job
		&cron::change_cron_job($job);
		$what = "backup_ucron";
		}
	else {
		$what = "backup_ncron";
		}
	&unlock_file(&cron::cron_file($job));

# Tell the user what was done
	print $text{$what},"\n" if ($what);
	}

&webmin_log("backup", undef, $in{'all'} ? "" : $in{'db'}, \%in);
if ($in{'all'}) {
	&ui_print_footer("", $text{'index_return'});
	}
else {
	&ui_print_footer("edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
		&get_databases_return_link($in{'db'}), $text{'index_return'});
	}