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
# Execute a backup on schedule

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
our (%text, %config, $no_acl_check, %gconfig);
$no_acl_check++;
require './backup-config-lib.pl';
&foreign_require("mailboxes", "mailboxes-lib.pl");

# Get the backup
my $backup = &get_backup($ARGV[0]);
$backup || die "Failed to find backup $ARGV[0]";

# Run the pre-backup command, if any
my $err;
my $premsg = "";
if ($backup->{'pre'} =~ /\S/) {
	my $preout = &backquote_command("($backup->{'pre'}) 2>&1 </dev/null");
	$premsg = &text('email_pre', $backup->{'pre'})."\n".
		  $preout."\n";
	if ($?) {
		$err = $text{'email_prefailed'};
		}
	}

# Do it
my @mods = split(/\s+/, $backup->{'mods'});
my $size;
if (!$err) {
	$err = &execute_backup(\@mods, $backup->{'dest'}, \$size, undef,
			       $backup->{'configfile'}, $backup->{'nofiles'},
			       [ split(/\t+/, $backup->{'others'}) ]);
	}

# Run the post-backup command, if any
my $postmsg = "";
if (!$err && $backup->{'post'} =~ /\S/) {
	my $postout = &backquote_command("($backup->{'post'}) 2>&1 </dev/null");
	$postmsg = "\n".
		  &text('email_post', $backup->{'post'})."\n".
		  $postout."\n";
	}

# Send off the results
if (($err || $backup->{'emode'} == 0) && $backup->{'email'}) {
	my $mlist;
	foreach my $m (@mods) {
		my %minfo = &get_module_info($m);
		$mlist .= "    $minfo{'desc'}\n";
		}
	my $host = &get_system_hostname();
	my $nice = &nice_dest($backup->{'dest'}, 1);
	$nice =~ s/<[^>]+>//g;
	my $msg;
	my $subject;
	if ($err) {
		$err =~ s/<[^>]+>//g;
		$msg = $premsg.
		       $text{'email_mods'}."\n".
		       $mlist.
		       "\n".
		       &text('email_failed', $nice)."\n\n".
		       "    $err\n";
		$subject = &text('email_sfailed', $host);
		}
	else {
		$msg = $premsg.
		       $text{'email_mods'}."\n".
		       $mlist.
		       "\n".
		       &text('email_ok', $nice)."\n".
		       &text('email_final', &nice_size($size))."\n".
		       $postmsg;
		$subject = &text('email_sok', $host);
		}
	&mailboxes::send_text_mail(
		$config{'from_addr'} || &mailboxes::get_from_address(),
		$backup->{'email'} eq '*' ? $gconfig{'webmin_email_to'}
					  : $backup->{'email'},
		undef, $subject, $msg);
	}