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	1.59 KB	-rw-r--r--	2026-07-17 21:17
backup-config-lib.pl	19.74 KB	-rwxr-xr-x	2026-07-17 21:17
backup.cgi	1.88 KB	-rwxr-xr-x	2026-07-17 21:22
backup.pl	2.16 KB	-rwxr-xr-x	2026-07-17 21:22
cgi_args.pl	284 B	-rwxr-xr-x	2026-07-17 21:17
config	34 B	-rw-r--r--	2026-07-17 21:17
config-syno-linux	111 B	-rw-r--r--	2026-07-17 21:17
config.info	231 B	-rw-r--r--	2026-07-17 21:17
config.info.ar	334 B	-rw-r--r--	2026-07-17 21:17
config.info.ca	264 B	-rw-r--r--	2026-07-17 21:17
config.info.cs	145 B	-rw-r--r--	2026-07-17 21:17
config.info.de	212 B	-rw-r--r--	2026-07-17 21:17
config.info.es	183 B	-rw-r--r--	2026-07-17 21:17
config.info.fr	179 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	174 B	-rw-r--r--	2026-07-17 21:17
config.info.it	196 B	-rw-r--r--	2026-07-17 21:17
config.info.ja	189 B	-rw-r--r--	2026-07-17 21:17
config.info.ko	172 B	-rw-r--r--	2026-07-17 21:17
config.info.ms	236 B	-rw-r--r--	2026-07-17 21:17
config.info.nl	239 B	-rw-r--r--	2026-07-17 21:17
config.info.no	256 B	-rw-r--r--	2026-07-17 21:17
config.info.pl	260 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	300 B	-rw-r--r--	2026-07-17 21:17
config.info.sk	147 B	-rw-r--r--	2026-07-17 21:17
config.info.sv	0 B	-rw-r--r--	2026-07-17 21:17
config.info.tr	182 B	-rw-r--r--	2026-07-17 21:17
edit.cgi	2.93 KB	-rwxr-xr-x	2026-07-17 21:22
index.cgi	3.52 KB	-rwxr-xr-x	2026-07-17 21:22
log_parser.pl	730 B	-rwxr-xr-x	2026-07-17 21:17
module.info	210 B	-rw-r--r--	2026-07-17 21:17
module.info.ar	224 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	303 B	-rw-r--r--	2026-07-17 21:17
module.info.ca	194 B	-rw-r--r--	2026-07-17 21:17
module.info.cs	42 B	-rw-r--r--	2026-07-17 21:17
module.info.cs.auto	131 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	180 B	-rw-r--r--	2026-07-17 21:17
module.info.de	125 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	368 B	-rw-r--r--	2026-07-17 21:17
module.info.es	48 B	-rw-r--r--	2026-07-17 21:17
module.info.es.auto	145 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	176 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	272 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	168 B	-rw-r--r--	2026-07-17 21:17
module.info.fr	50 B	-rw-r--r--	2026-07-17 21:17
module.info.fr.auto	146 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	180 B	-rw-r--r--	2026-07-17 21:17
module.info.hu	32 B	-rw-r--r--	2026-07-17 21:17
module.info.hu.auto	152 B	-rw-r--r--	2026-07-17 21:17
module.info.it	42 B	-rw-r--r--	2026-07-17 21:17
module.info.it.auto	117 B	-rw-r--r--	2026-07-17 21:17
module.info.ja	48 B	-rw-r--r--	2026-07-17 21:17
module.info.ja.auto	172 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	124 B	-rw-r--r--	2026-07-17 21:17
module.info.ms	158 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	131 B	-rw-r--r--	2026-07-17 21:17
module.info.no	38 B	-rw-r--r--	2026-07-17 21:17
module.info.no.auto	135 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	181 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	170 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	176 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	96 B	-rw-r--r--	2026-07-17 21:17
module.info.ru.auto	244 B	-rw-r--r--	2026-07-17 21:17
module.info.sk	42 B	-rw-r--r--	2026-07-17 21:17
module.info.sk.auto	133 B	-rw-r--r--	2026-07-17 21:17
module.info.sv	38 B	-rw-r--r--	2026-07-17 21:17
module.info.sv.auto	140 B	-rw-r--r--	2026-07-17 21:17
module.info.tr	45 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	302 B	-rw-r--r--	2026-07-17 21:17
module.info.zh	99 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	124 B	-rw-r--r--	2026-07-17 21:17
restore.cgi	1.55 KB	-rwxr-xr-x	2026-07-17 21:22
save.cgi	3.4 KB	-rwxr-xr-x	2026-07-17 21:22
uninstall.pl	321 B	-rwxr-xr-x	2026-07-17 21:17

Rename

#!/usr/bin/perl
# Show all scheduled backups, and a form for doing an immediate one

use strict;
use warnings;
use POSIX qw(strftime);
no warnings 'redefine';
no warnings 'uninitialized';
require './backup-config-lib.pl';
our (%text, %in, %config);
&ReadParse();

&ui_print_header(undef, $text{'index_title'}, "", undef, 1, 1);
my @mods = &list_backup_modules();
if (!@mods) {
	&ui_print_endpage($text{'index_emods'});
	}
my %mods = map { $_->{'dir'}, $_ } @mods;

# Show tabs
my @tabs = ( [ "backup", $text{'index_tabbackup'}, "index.cgi?mode=backup" ],
	     [ "sched", $text{'index_tabsched'}, "index.cgi?mode=sched" ],
	     [ "restore", $text{'index_tabrestore'}, "index.cgi?mode=restore" ],
	   );
print &ui_tabs_start(\@tabs, "tab", $in{'mode'} || "backup", 1);

print &ui_tabs_start_tab("tab", "sched");
my @backups = &list_backups();
my $using_strftime = 0;
if (@backups) {
	# Show all scheduled backups
	print &ui_link("edit.cgi?new=1", $text{'index_add'});
	print "<br>\n";
	print &ui_columns_start([ $text{'index_dest'},
			    	  $text{'index_mods'},
			    	  $text{'index_sched'} ], 100);
	foreach my $b (@backups) {
		my @m = map { $mods{$_}->{'desc'} }
			    split(/\s+/, $b->{'mods'});
		print &ui_columns_row(
			[ &ui_link("edit.cgi?id=".$b->{'id'},
			  &nice_dest($b->{'dest'}) ),
			  @m > 5 ? &text('index_count', scalar(@m))
				 : join(", ", @m),
			  $b->{'sched'} ? &text('index_when',
				&cron::when_text($b)) : $text{'no'} ]);
		$using_strftime++ if ($b->{'dest'} =~ /%/);
		}
	print &ui_columns_end();
	}
else {
	print "<strong>$text{'index_none'}</strong><br>\n";
	}
print &ui_link("edit.cgi?new=1", $text{'index_add'});
print "\n";
if ($using_strftime && !$config{'date_subs'}) {
	print &ui_alert_box($text{'index_nostrftime'}, 'warn'),"\n";
	}
print &ui_tabs_end_tab();

# Show immediate form
print &ui_tabs_start_tab("tab", "backup");
my $hostname = &get_system_hostname() || "localhost";
$hostname =~ s/\./-/g;
my $filename = $hostname."+configuration_backup-webmin-".
	       strftime("%Y-%m-%d-%H-%M", localtime);
print &ui_form_start("backup.cgi/$filename.tar.gz", "post");
print &ui_table_start($text{'index_header'}, undef, 2);

my @dmods = split(/\s+/, $config{'mods'} || "");
print &ui_table_row($text{'edit_mods'},
		    &ui_select("mods", \@dmods,
		       [ map { [ $_->{'dir'}, $_->{'desc'} ] } @mods ],
		       10, 1));

print &ui_table_row($text{'edit_dest'},
		    &show_backup_destination("dest", $config{'dest'}, 2));

print &ui_table_row($text{'edit_what'},
		    &show_backup_what("what", $config{'configfile'},
					      $config{'nofiles'}));

print &ui_table_end();
print &ui_form_end([ [ 'backup', $text{'index_now'} ] ]);

print &ui_tabs_end_tab();

# Show restore form
print &ui_tabs_start_tab("tab", "restore");
print &ui_form_start("restore.cgi", "form-data");
print &ui_table_start($text{'index_header2'}, undef, 2);

print &ui_table_row($text{'edit_mods2'},
		    &ui_select("mods",
		       [ map { $_->{'dir'} } @mods ],
		       [ map { [ $_->{'dir'}, $_->{'desc'} ] } @mods ],
		       5, 1));

print &ui_table_row($text{'edit_other2'},
		    &ui_textarea("others", undef, 3, 50));

print &ui_table_row($text{'edit_dest2'},
		    &show_backup_destination("src", $config{'dest'}, 1));

print &ui_table_row($text{'index_apply'},
		    &ui_yesno_radio("apply", $config{'apply'} ? 1 : 0));

print &ui_table_row($text{'index_test'},
		    &ui_yesno_radio("test", 0));

print &ui_table_end();
print &ui_form_end([ [ 'restore', $text{'index_now2'} ] ]);

print &ui_tabs_end_tab();
print &ui_tabs_end(1);

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