initial commit of file from CVS for smeserver-dar2 on Sat Sep 7 20:16:13 AEST 2024
This commit is contained in:
35
root/etc/e-smith/templates/etc/crontab/dar2-backup
Normal file
35
root/etc/e-smith/templates/etc/crontab/dar2-backup
Normal file
@@ -0,0 +1,35 @@
|
||||
{
|
||||
# --------------------------------------------------------------------
|
||||
# This script builds the /etc/crontab entries for each dar2 job
|
||||
#
|
||||
# Copyright (C) 2003-2006 Darrell May <dmay@myezserver.com>
|
||||
# --------------------------------------------------------------------
|
||||
|
||||
# Retrieve dar2 db entries
|
||||
my $db = esmith::ConfigDB->open_ro("dar2");
|
||||
|
||||
# create /etc/crontab line entry for each dar2 job
|
||||
my @dar2 = $db->get_all_by_prop(type => 'dar2');
|
||||
|
||||
$OUT .= "\n";
|
||||
$OUT .= "# dar2\n";
|
||||
|
||||
foreach my $dar2 (@dar2)
|
||||
{
|
||||
my $BackupJob = $dar2->key;
|
||||
my $rec = $db->get("$BackupJob");
|
||||
my $backupDay = $rec->prop("backupDay");
|
||||
my $backupTime = $rec->prop("backupTime");
|
||||
my ($backupHour, $backupMin) = split (":", $backupTime, -1);
|
||||
|
||||
# remove leading zeros from minutes
|
||||
$backupMin =~ s/00/0/;
|
||||
|
||||
if ("$backupDay" ne "manual")
|
||||
{
|
||||
$OUT .=
|
||||
"$backupMin $backupHour * * $backupDay root"
|
||||
. " /etc/e-smith/events/actions/dar2-backup $BackupJob\n";
|
||||
}
|
||||
}
|
||||
}
|
13
root/etc/e-smith/templates/etc/dar2/dar2-backup/00setup
Normal file
13
root/etc/e-smith/templates/etc/dar2/dar2-backup/00setup
Normal file
@@ -0,0 +1,13 @@
|
||||
{
|
||||
$Job = $ARGV [1];
|
||||
die "job name missing" unless defined ($Job);
|
||||
|
||||
use esmith::ConfigDB;
|
||||
$db = esmith::ConfigDB->open_ro("dar2") or die "Couldn't open dar2";
|
||||
|
||||
$rec = $db->get("$Job") or die "No backup job $Job in dar2";
|
||||
|
||||
%props = $rec->props;
|
||||
|
||||
$OUT = '';
|
||||
}
|
9
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Backup
Normal file
9
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Backup
Normal file
@@ -0,0 +1,9 @@
|
||||
{
|
||||
$Backup = $props{"Backup"} || "";
|
||||
@Backup = split(/,/, "$Backup");
|
||||
|
||||
foreach $Backup (@Backup)
|
||||
{
|
||||
$OUT .= "--go-into \"$Backup\"\n";
|
||||
}
|
||||
}
|
@@ -0,0 +1,35 @@
|
||||
{
|
||||
my $Compression = $props{"Compression"} || "0";
|
||||
|
||||
if ("$Compression" != '0')
|
||||
{
|
||||
$OUT .= "--bzip2=$Compression\n";
|
||||
$OUT .= <<EOF;
|
||||
--exclude-compression "*.asf"
|
||||
--exclude-compression "*.avi"
|
||||
--exclude-compression "*.bz2"
|
||||
--exclude-compression "*.bzip"
|
||||
--exclude-compression "*.bzip2"
|
||||
--exclude-compression "*.dar"
|
||||
--exclude-compression "*.divx"
|
||||
--exclude-compression "*.gif"
|
||||
--exclude-compression "*.gz"
|
||||
--exclude-compression "*.gzip"
|
||||
--exclude-compression "*.iso"
|
||||
--exclude-compression "*.jpeg"
|
||||
--exclude-compression "*.jpg"
|
||||
--exclude-compression "*.mp3"
|
||||
--exclude-compression "*.mpeg"
|
||||
--exclude-compression "*.mpg"
|
||||
--exclude-compression "*.png"
|
||||
--exclude-compression "*.ra"
|
||||
--exclude-compression "*.rar"
|
||||
--exclude-compression "*.rm"
|
||||
--exclude-compression "*.rpm"
|
||||
--exclude-compression "*.tgz"
|
||||
--exclude-compression "*.wma"
|
||||
--exclude-compression "*.wmv"
|
||||
--exclude-compression "*.zip"
|
||||
EOF
|
||||
}
|
||||
}
|
@@ -0,0 +1,4 @@
|
||||
--empty-dir
|
||||
--fs-root /
|
||||
--noconf
|
||||
--no-warn
|
@@ -0,0 +1,9 @@
|
||||
{
|
||||
$Exclude = $props{"Exclude"} || "";
|
||||
@Exclude = split(/,/, "$Exclude");
|
||||
|
||||
foreach $Exclude (@Exclude)
|
||||
{
|
||||
$OUT .= "--exclude \"$Exclude\"\n";
|
||||
}
|
||||
}
|
9
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Prune
Normal file
9
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Prune
Normal file
@@ -0,0 +1,9 @@
|
||||
{
|
||||
$Prune = $props{"Prune"} || "";
|
||||
@Prune = split(/,/, "$Prune");
|
||||
|
||||
foreach $Prune (@Prune)
|
||||
{
|
||||
$OUT .= "--prune \"$Prune\"\n";
|
||||
}
|
||||
}
|
5
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Slice
Normal file
5
root/etc/e-smith/templates/etc/dar2/dar2-backup/10Slice
Normal file
@@ -0,0 +1,5 @@
|
||||
{
|
||||
$Slice = $props{"Slice"} || "";
|
||||
|
||||
$OUT .= "--slice $Slice" . "M\n";
|
||||
}
|
@@ -0,0 +1,8 @@
|
||||
{
|
||||
$Verbose = $props{"Verbose"} || "";
|
||||
|
||||
if ("$Verbose" eq "on")
|
||||
{
|
||||
$OUT .= "--verbose\n";
|
||||
}
|
||||
}
|
15
root/etc/e-smith/templates/etc/dar2/dar2-restore/00setup
Normal file
15
root/etc/e-smith/templates/etc/dar2/dar2-restore/00setup
Normal file
@@ -0,0 +1,15 @@
|
||||
{
|
||||
$Job = $ARGV [1];
|
||||
die "job name missing" unless defined ($Job);
|
||||
|
||||
use esmith::ConfigDB;
|
||||
$db = esmith::ConfigDB->open_ro("dar2") or die "Couldn't open dar2";
|
||||
|
||||
$brec = $db->get("$Job") or die "No bakup job $Job in dar2";
|
||||
%bprops = $brec->props;
|
||||
|
||||
$rrec = $db->get("Restore.$Job") or die "No restore job $Job in dar2";
|
||||
%rprops = $rrec->props;
|
||||
|
||||
$OUT = '';
|
||||
}
|
@@ -0,0 +1,3 @@
|
||||
--noconf
|
||||
--no-warn
|
||||
--verbose
|
22
root/etc/e-smith/templates/etc/dar2/dar2-restore/10Restore
Normal file
22
root/etc/e-smith/templates/etc/dar2/dar2-restore/10Restore
Normal file
@@ -0,0 +1,22 @@
|
||||
{
|
||||
$Restore = $rprops{"Restore"} || "";
|
||||
@Restore = split(/,/, "$Restore");
|
||||
|
||||
$Backup = $bprops{"Backup"} || "";
|
||||
@Backup = split(/,/, "$Backup");
|
||||
|
||||
if ("$Restore" eq "*.*")
|
||||
{
|
||||
foreach $Backup (@Backup)
|
||||
{
|
||||
$OUT .= "--go-into \"$Backup\"\n";
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
foreach $Restore (@Restore)
|
||||
{
|
||||
$OUT .= "--go-into \"$Restore\"\n";
|
||||
}
|
||||
}
|
||||
}
|
@@ -0,0 +1,5 @@
|
||||
{
|
||||
$RestoreTo = $rprops{"RestoreTo"} || "error";
|
||||
|
||||
$OUT .= "--fs-root \"$RestoreTo\"\n";
|
||||
}
|
Reference in New Issue
Block a user