Gecko [ thearyasamaj.org ]

Name	Size	Permission
help	[ DIR ]	drwxr-xr-x
images	[ DIR ]	drwxr-xr-x
lang	[ DIR ]	drwxr-xr-x
ulang	[ DIR ]	drwxr-xr-x
CHANGELOG	1.42 KB	-rw-r--r--
backup_db.cgi	8.07 KB	-rwxr-xr-x
backup_form.cgi	6.78 KB	-rwxr-xr-x
config	516 B	-rw-r--r--
config-AlmaLinux-7.0-ALL	411 B	-rw-r--r--
config-Amazon-Linux-2-ALL	397 B	-rw-r--r--
config-CentOS-Linux-7.0-ALL	411 B	-rw-r--r--
config-CentOS-Stream-Linux-8.0...	411 B	-rw-r--r--
config-Oracle-Linux-8.0-ALL	411 B	-rw-r--r--
config-Redhat-Enterprise-Linux...	411 B	-rw-r--r--
config-Rocky-Linux-7.0-ALL	411 B	-rw-r--r--
config-Scientific-Linux-7.0-AL...	397 B	-rw-r--r--
config-Ubuntu-Linux-16.04-17.9...	447 B	-rw-r--r--
config-Ubuntu-Linux-18.04-ALL	414 B	-rw-r--r--
config-aix	473 B	-rw-r--r--
config-cobalt-linux	411 B	-rw-r--r--
config-coherent-linux	413 B	-rw-r--r--
config-debian-linux	410 B	-rw-r--r--
config-debian-linux-10.0-ALL	414 B	-rw-r--r--
config-debian-linux-2.2-9.0	430 B	-rw-r--r--
config-freebsd	473 B	-rw-r--r--
config-freebsd-8-ALL	510 B	-rw-r--r--
config-gentoo-linux	407 B	-rw-r--r--
config-mandrake-linux	393 B	-rw-r--r--
config-mandrake-linux-10.1-ALL	395 B	-rw-r--r--
config-msc-linux	415 B	-rw-r--r--
config-netbsd	425 B	-rw-r--r--
config-open-linux	411 B	-rw-r--r--
config-pardus-linux	340 B	-rw-r--r--
config-qnx	333 B	-rw-r--r--
config-redhat-linux	411 B	-rw-r--r--
config-redhat-linux-24.0	415 B	-rw-r--r--
config-redhat-linux-25.0-ALL	411 B	-rw-r--r--
config-redhat-linux-7.0-23.0	413 B	-rw-r--r--
config-slackware-linux-8.0-ALL	443 B	-rw-r--r--
config-sol-linux	449 B	-rw-r--r--
config-solaris-10	434 B	-rw-r--r--
config-solaris-11-ALL	484 B	-rw-r--r--
config-solaris-9	492 B	-rw-r--r--
config-suse-linux	403 B	-rw-r--r--
config-suse-linux-7.1-ALL	401 B	-rw-r--r--
config-syno-linux	522 B	-rwxr-xr-x
config-trustix-linux	401 B	-rw-r--r--
config-turbo-linux	411 B	-rw-r--r--
config-united-linux	401 B	-rw-r--r--
config.info	589 B	-rw-r--r--
config.info.ca	714 B	-rwxr-xr-x
config.info.nl	664 B	-rwxr-xr-x
config.info.no	635 B	-rw-r--r--
create_table.cgi	1.02 KB	-rwxr-xr-x
csv.cgi	2.26 KB	-rwxr-xr-x
csv_form.cgi	1.67 KB	-rwxr-xr-x
defaultuconfig	53 B	-rw-r--r--
delete_fields.cgi	665 B	-rwxr-xr-x
download.cgi	1.07 KB	-rwxr-xr-x
drop_table.cgi	1.27 KB	-rwxr-xr-x
drop_tables.cgi	1.75 KB	-rwxr-xr-x
edit_dbase.cgi	6.46 KB	-rwxr-xr-x
edit_field.cgi	4.99 KB	-rwxr-xr-x
edit_index.cgi	1.83 KB	-rwxr-xr-x
edit_table.cgi	2.85 KB	-rwxr-xr-x
edit_view.cgi	2.17 KB	-rwxr-xr-x
exec.cgi	1.53 KB	-rwxr-xr-x
exec_file.cgi	2.45 KB	-rwxr-xr-x
exec_form.cgi	3.63 KB	-rwxr-xr-x
import.cgi	1.99 KB	-rwxr-xr-x
index.cgi	2.85 KB	-rwxr-xr-x
login.cgi	514 B	-rwxr-xr-x
module.info	192 B	-rw-r--r--
module.info.af	0 B	-rw-r--r--
module.info.af.auto	155 B	-rw-r--r--
module.info.ar	0 B	-rw-r--r--
module.info.ar.auto	234 B	-rw-r--r--
module.info.be	0 B	-rw-r--r--
module.info.be.auto	228 B	-rw-r--r--
module.info.bg	0 B	-rw-r--r--
module.info.bg.auto	222 B	-rw-r--r--
module.info.ca	28 B	-rw-r--r--
module.info.ca.auto	147 B	-rw-r--r--
module.info.cs	24 B	-rw-r--r--
module.info.cs.auto	129 B	-rw-r--r--
module.info.da	0 B	-rw-r--r--
module.info.da.auto	157 B	-rw-r--r--
module.info.de	127 B	-rw-r--r--
module.info.el	0 B	-rw-r--r--
module.info.el.auto	277 B	-rw-r--r--
module.info.es	0 B	-rw-r--r--
module.info.es.auto	172 B	-rw-r--r--
module.info.eu	0 B	-rw-r--r--
module.info.eu.auto	160 B	-rw-r--r--
module.info.fa	0 B	-rw-r--r--
module.info.fa.auto	200 B	-rw-r--r--
module.info.fi	0 B	-rw-r--r--
module.info.fi.auto	170 B	-rw-r--r--
module.info.fr	43 B	-rw-r--r--
module.info.he	0 B	-rw-r--r--
module.info.he.auto	185 B	-rw-r--r--
module.info.hr	0 B	-rw-r--r--
module.info.hr.auto	158 B	-rw-r--r--
module.info.hu	35 B	-rw-r--r--
module.info.hu.auto	153 B	-rw-r--r--
module.info.it	0 B	-rw-r--r--
module.info.it.auto	149 B	-rw-r--r--
module.info.ja	0 B	-rw-r--r--
module.info.ja.auto	210 B	-rw-r--r--
module.info.ko	0 B	-rw-r--r--
module.info.ko.auto	192 B	-rw-r--r--
module.info.lt	0 B	-rw-r--r--
module.info.lt.auto	194 B	-rw-r--r--
module.info.lv	0 B	-rw-r--r--
module.info.lv.auto	166 B	-rw-r--r--
module.info.ms	0 B	-rw-r--r--
module.info.ms.auto	158 B	-rw-r--r--
module.info.mt	0 B	-rw-r--r--
module.info.mt.auto	170 B	-rw-r--r--
module.info.nl	30 B	-rw-r--r--
module.info.no	23 B	-rw-r--r--
module.info.no.auto	134 B	-rw-r--r--
module.info.pl	0 B	-rw-r--r--
module.info.pl.auto	160 B	-rw-r--r--
module.info.pt	0 B	-rw-r--r--
module.info.pt.auto	166 B	-rw-r--r--
module.info.pt_BR	0 B	-rw-r--r--
module.info.pt_BR.auto	175 B	-rw-r--r--
module.info.ro	0 B	-rw-r--r--
module.info.ro.auto	174 B	-rw-r--r--
module.info.ru	0 B	-rw-r--r--
module.info.ru.auto	224 B	-rw-r--r--
module.info.sk	0 B	-rw-r--r--
module.info.sk.auto	155 B	-rw-r--r--
module.info.sl	0 B	-rw-r--r--
module.info.sl.auto	153 B	-rw-r--r--
module.info.sv	0 B	-rw-r--r--
module.info.sv.auto	153 B	-rw-r--r--
module.info.th	0 B	-rw-r--r--
module.info.th.auto	294 B	-rw-r--r--
module.info.tr	0 B	-rw-r--r--
module.info.tr.auto	170 B	-rw-r--r--
module.info.uk	0 B	-rw-r--r--
module.info.uk.auto	228 B	-rw-r--r--
module.info.ur	0 B	-rw-r--r--
module.info.ur.auto	289 B	-rw-r--r--
module.info.vi	0 B	-rw-r--r--
module.info.vi.auto	197 B	-rw-r--r--
module.info.zh	0 B	-rw-r--r--
module.info.zh.auto	135 B	-rw-r--r--
module.info.zh_TW	0 B	-rw-r--r--
module.info.zh_TW.auto	144 B	-rw-r--r--
mysql-lib.pl	50.49 KB	-rwxr-xr-x
save_field.cgi	4.72 KB	-rwxr-xr-x
save_index.cgi	1.39 KB	-rwxr-xr-x
save_view.cgi	1.84 KB	-rwxr-xr-x
search_form.cgi	1.38 KB	-rwxr-xr-x
table_form.cgi	1.95 KB	-rwxr-xr-x
uconfig.info	373 B	-rw-r--r--
uconfig.info.ca	114 B	-rwxr-xr-x
uconfig.info.cs	432 B	-rw-r--r--
uconfig.info.de	432 B	-rw-r--r--
uconfig.info.nl	413 B	-rw-r--r--
uconfig.info.no	388 B	-rw-r--r--
view-lib.pl	3.56 KB	-rwxr-xr-x
view_table.cgi	15.06 KB	-rwxr-xr-x

Code Editor : backup_db.cgi

#!/usr/bin/perl
# backup_db.cgi
# Do the actual backup

require './mysql-lib.pl';
&ReadParse();
if ($in{'all'}) {
	@alldbs = grep { &supports_backup_db($_) } &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{'edonly'} && &error($text{'dbase_ecannot'});
$access{'buser'} || &error($text{'dbase_ecannot'});
&error_setup($text{'backup_err'});

# Cannot download all the DBs
if ($in{'dest'} == 1 && $in{'all'}) {
	&error($text{'backup_edownloadall'});
	}
if ($in{'dest'} == 1 && ($in{'sched'} || $in{'save'})) {
	&error($text{'backup_edownloadsave'});
	}

if (!$in{'save'} || $in{'sched'}) {
	if ($in{'all'}) {
		-d $in{'file'} || -d &date_subs($in{'file'}) || $in{'mkdir'} ||
			&error($text{'backup_efile2'});
		}
	else {
		$in{'dest'} || $in{'file'} =~ /^\/\S+$/ ||
			&error($text{'backup_efile'});
		}
	$in{'where_def'} || $in{'where'} || &error($text{'backup_ewhere'});
	$in{'charset_def'} || $in{'charset'} =~ /^\S+$/ ||
		&error($text{'backup_echarset'});
	$ccmd = $in{'compress'} == 1 ? "gzip" :
		$in{'compress'} == 2 ? "bzip2" : undef;
	!$ccmd || &has_command($ccmd) ||
		&error(&text('backup_eccmd', "<tt>$ccmd</tt>"));
	if (!$in{'dest'} && !&is_under_directory($access{'bpath'}, $in{'file'})) {
		&error($text{'backup_epath'}." ".
		 &text('backup_eunder', "<tt>$access{'bpath'}</tt>"));
		}
	if (!$in{'all'} && !$in{'tables_def'}) {
		@tables = split(/\0/, $in{'tables'});
		@tables || &error($text{'backup_etables'});
		}
	}
@compat = $in{'compatible_def'} ? ( ) : ( $in{'compatible'} );
push(@compat, split(/\0/, $in{'options'}));
$cron = !$module_info{'usermin'} && $access{'buser'} eq 'root' &&
	!$access{'user'} && &foreign_installed("cron");
$cmode = 0;
if ($cron) {
	$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'};
		}
	$config{'backup_email_'.$in{'db'}} = $in{'email'};
	$config{'backup_notify_'.$in{'db'}} = $in{'notify'};

&foreign_require("cron");
	@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);
	}

# Save choices for next time the form is visited (and for the cron job)
if ($module_info{'usermin'}) {
	if (!$in{'dest'}) {
		$userconfig{'backup_'.$in{'db'}} = $in{'file'};
		}
	$userconfig{'backup_where_'.$in{'db'}} =
		$in{'where_def'} ? undef : $in{'where'};
	$userconfig{'backup_charset_'.$in{'db'}} =
		$in{'charset_def'} ? undef : $in{'charset'};
	$userconfig{'backup_compatible_'.$in{'db'}} =
		$in{'compatible_def'} ? undef : $in{'compatible'};
	$userconfig{'backup_options_'.$in{'db'}} =
		join(" ", split(/\0/, $in{'options'}));
	$userconfig{'backup_compress_'.$in{'db'}} = $in{'compress'};
	$userconfig{'backup_drop_'.$in{'db'}} = $in{'drop'};
	$userconfig{'backup_single_'.$in{'db'}} = $in{'single'};
	$userconfig{'backup_quick_'.$in{'db'}} = $in{'quick'};
	$userconfig{'backup_parameters_'.$in{'db'}} = $in{'parameters'};
	$userconfig{'backup_tables_'.$in{'db'}} = join(" ", @tables);
	if ($in{'save'}) {
		&save_user_module_config();
		}
	}
else {
	if (!$in{'dest'}) {
		$config{'backup_'.$in{'db'}} = $in{'file'};
		$config{'backup_prefix_'.$in{'db'}} = $in{'prefix'};
		$in{'prefix'} =~ /\// && &error($text{'backup_eprefix'});
		}
	$config{'backup_mkdir_'.$in{'db'}} = $in{'mkdir'};
	$config{'backup_where_'.$in{'db'}} =
		$in{'where_def'} ? undef : $in{'where'};
	$config{'backup_charset_'.$in{'db'}} =
		$in{'charset_def'} ? undef : $in{'charset'};
	$config{'backup_compatible_'.$in{'db'}} =
		$in{'compatible_def'} ? undef : $in{'compatible'};
	$config{'backup_options_'.$in{'db'}} =
		join(" ", split(/\0/, $in{'options'}));
	$config{'backup_compress_'.$in{'db'}} = $in{'compress'};
	$config{'backup_drop_'.$in{'db'}} = $in{'drop'};
	$config{'backup_single_'.$in{'db'}} = $in{'single'};
	$config{'backup_quick_'.$in{'db'}} = $in{'quick'};
	$config{'backup_parameters_'.$in{'db'}} = $in{'parameters'};
	$config{'backup_tables_'.$in{'db'}} = join(" ", @tables);
	if ($in{'save'}) {
		&save_module_config();
		}
	}

if ($in{'dest'}) {
	my $mt;
	my $fn = "backup.sql";
	if ($in{'compress'} == 1) {
		$mt = "application/x-gzip";
		$fn .= ".gz";
		}
	elsif ($in{'compress'} == 2) {
		$mt = "application/x-bzip2";
		$fn .= ".bz2";
		}
	else {
		$mt = "text/plain";
		}
	print "Content-Type: $mt\n";
	print "Content-Disposition: Attachment; filename=\"$fn\"\n";
	print "\n";
	}
else {
	&ui_print_header(undef, $text{'backup_title'}, "");
	}

if (!$in{'save'}) {
	# Actually execute the backup now
	@dbs = $in{'all'} ? @alldbs : ( $in{'db'} );
	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) {
		my $deletefile = 0;
		if ($in{'all'}) {
			# File in a directory
			$dir = &date_subs($in{'file'});
			$prefix = &date_subs($in{'prefix'});
			&make_dir($dir, 0755) if ($in{'mkdir'});
			$file = $dir."/".$prefix.$db.".sql".
				($in{'compress'} == 1 ? ".gz" :
				 $in{'compress'} == 2 ? ".bz2" : "");
			$deletefile = 1;
			}
		elsif (!$in{'dest'}) {
			# Single file
			$file = &date_subs($in{'file'});
			$deletefile = 1;
			}
		else {
			# Temp file for download
			$file = &transname();
			if ($access{'buser'} && $access{'buser'} ne 'root') {
				# Need to pre-create file owned by user who
				# will be doing the writing
				&open_tempfile(FILE, ">$file", 0, 1);
				&close_tempfile(FILE);
				&set_ownership_permissions($access{'buser'},
					undef, undef, $file);
				}
			}
		if (-d $file) {
			print &text('backup_eisdir',
				 &html_escape($file)),"\n";
			next;
			}
		if ($cron && $cmode == 0) {
			# Run and check before-backup command (for one DB)
			$bok = &execute_before($db, STDOUT, 1, $file,
					 $in{'all'} ? undef : $db);
			if (!$bok) {
				print $text{'backup_ebefore'},"\n";
				next;
				}
			}
		&unlink_file($file) if ($deletefile);
		local $err = &backup_database($db, $file, $in{'compress'},
			$in{'drop'}, $in{'where_def'} ? undef : $in{'where'},
			$in{'charset_def'} ? undef : $in{'charset'},
			\@compat, \@tables, $access{'buser'}, $in{'single'},
			$in{'quick'}, undef, $in{'parameters'});
		if ($err) {
			print &text('backup_ebackup',
				"<pre>".&html_escape($err)."</pre>"),"\n";
			}
		elsif (!$in{'dest'}) {
			@st = stat($file);
			print &text('backup_done', "<tt>$db</tt>",
				 "<tt>$file</tt>", int($st[7])),"\n";
			}
		&execute_after($db, STDOUT, 1, $file, $in{'all'} ? undef : $db)
			if ($cron && $cmode == 0);

if ($in{'dest'}) {
			# Sent to browser
			open(OUT, "<$file");
			while(<OUT>) {
				print $_;
				}
			close(OUT);
			&unlink_file($file);
			}
		}
	&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 && !$in{'dest'});
	}

&webmin_log("backup", undef, $in{'all'} ? "" : $in{'db'}, \%in);

if (!$in{'dest'}) {
	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'});
		}
	}

${this.title}

Code Editor : backup_db.cgi