add backup manager from Jens-Christoph Brendel
Signed-off-by: Nico Schottelius <nico@ikn.schottelius.org>
This commit is contained in:
Nico Schottelius
parent
6595fe7b97
commit
f4f9564bde
3 changed files with 267 additions and 0 deletions
22
contrib/jbrendel-autobackup/backup.sh
Normal file
22
contrib/jbrendel-autobackup/backup.sh
Normal file
|
|
@ -0,0 +1,22 @@
|
|||
#!/bin/bash
|
||||
|
||||
function mkbackup {
|
||||
find /etc/ccollect/logwrapper/destination -type f -atime +2 -exec sudo rm {} \;
|
||||
/home/jcb/bm.pl &
|
||||
}
|
||||
|
||||
mkdir -p /media/backupdisk
|
||||
grep backupdisk /etc/mtab &> /dev/null
|
||||
|
||||
if [ $? == 0 ]
|
||||
then
|
||||
mkbackup
|
||||
else
|
||||
mount /media/backupdisk
|
||||
if [ $? == 0 ]
|
||||
then
|
||||
mkbackup
|
||||
else
|
||||
echo "Error mounting backup disk"
|
||||
fi
|
||||
fi
|
||||
242
contrib/jbrendel-autobackup/bm.pl
Normal file
242
contrib/jbrendel-autobackup/bm.pl
Normal file
|
|
@ -0,0 +1,242 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
###############################
|
||||
#
|
||||
# Jens-Christoph Brendel, 2009
|
||||
# licensed under GPL3 NO WARRANTY
|
||||
#
|
||||
###############################
|
||||
|
||||
use Date::Calc qw(:all);
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
#
|
||||
#!!!!!!!!!!!!!!!!! you need to customize these settings !!!!!!!!!!!!!!!!!!!!
|
||||
#
|
||||
my $backupdir = "/media/backupdisk";
|
||||
my $logwrapper = "/home/jcb/ccollect/tools/ccollect_logwrapper.sh";
|
||||
|
||||
#!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
|
||||
# +------------------------------------------------------------------------+
|
||||
# | |
|
||||
# | V A R I A B L E S |
|
||||
# | |
|
||||
# +------------------------------------------------------------------------+
|
||||
#
|
||||
|
||||
# get the current date
|
||||
#
|
||||
my ($sek, $min, $hour, $day, $month, $year) = localtime();
|
||||
|
||||
my $curr_year = $year + 1900;
|
||||
my $curr_month = $month +1;
|
||||
my ($curr_week,$cur_year) = Week_of_Year($curr_year,$curr_month,$day);
|
||||
|
||||
# initialize some variables
|
||||
#
|
||||
my %most_recent_daily = (
|
||||
'age' => 9999,
|
||||
'file' => ''
|
||||
);
|
||||
|
||||
my %most_recent_weekly = (
|
||||
'age' => 9999,
|
||||
'file' => ''
|
||||
);
|
||||
|
||||
my %most_recent_monthly = (
|
||||
'age' => 9999,
|
||||
'file' => ''
|
||||
);
|
||||
|
||||
# prepare the output formatting
|
||||
#
|
||||
#---------------------------------------------------------------------------
|
||||
my ($msg1, $msg2, $msg3, $msg4);
|
||||
|
||||
format =
|
||||
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
||||
$msg1
|
||||
@<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<<<<<<
|
||||
$msg2, $msg3
|
||||
|
||||
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||
$msg4
|
||||
.
|
||||
|
||||
my @months = (' ','January', 'February', 'March', 'April',
|
||||
'May', 'June', 'July', 'August',
|
||||
'September', 'October', 'November',
|
||||
'December');
|
||||
|
||||
# +------------------------------------------------------------------------+
|
||||
# | |
|
||||
# | P r o c e d u r e s |
|
||||
# | |
|
||||
# +------------------------------------------------------------------------+
|
||||
#
|
||||
|
||||
# PURPOSE: extract the date from the file name
|
||||
# PARAMETER VALUE: file name
|
||||
# RETURN VALUE: pointer of a hash containing year, month, day
|
||||
#
|
||||
sub decodeDate {
|
||||
my $file = shift;
|
||||
$file =~ /^(daily|weekly|monthly)\.(\d+)-.*/;
|
||||
my %date = (
|
||||
'y' => substr($2,0,4),
|
||||
'm' => substr($2,4,2),
|
||||
'd' => substr($2,6,2)
|
||||
);
|
||||
return \%date;
|
||||
}
|
||||
|
||||
# PURPOSE: calculate the file age in days
|
||||
# PARAMETER VALUE: name of a ccollect backup file
|
||||
# RETURN VALUE: age in days
|
||||
#
|
||||
sub AgeInDays {
|
||||
my $file = shift;
|
||||
my $date=decodeDate($file);
|
||||
my $ageindays = Delta_Days($$date{'y'}, $$date{'m'}, $$date{'d'}, $curr_year, $curr_month, $day);
|
||||
return $ageindays;
|
||||
}
|
||||
|
||||
# PURPOSE: calculate the file age in number of weeks
|
||||
# PARAMETER VALUE: name of a ccollect backup file
|
||||
# RETURN VALUE: age in weeks
|
||||
#
|
||||
sub AgeInWeeks {
|
||||
my($y,$m,$d);
|
||||
|
||||
my $file = shift;
|
||||
my $date = decodeDate($file);
|
||||
my ($weeknr,$yr) = Week_of_Year($$date{'y'}, $$date{'m'}, $$date{'d'});
|
||||
my $ageinweeks = $curr_week - $weeknr;
|
||||
return $ageinweeks;
|
||||
}
|
||||
|
||||
# PURPOSE: calculate the file age in number of months
|
||||
# PARAMETER VALUE: name of a ccollect backup file
|
||||
# RETURN VALUE: age in months
|
||||
#
|
||||
sub AgeInMonths {
|
||||
my $ageinmonths;
|
||||
my $ageinmonths;
|
||||
my $file = shift;
|
||||
my $date = decodeDate($file);
|
||||
if ($curr_year == $$date{'y'}) {
|
||||
$ageinmonths = $curr_month - $$date{'m'};
|
||||
} else {
|
||||
$ageinmonths = $curr_month + (12-$$date{'m'}) + ($curr_year-$$date{'y'}-1)*12;
|
||||
}
|
||||
return $ageinmonths;
|
||||
}
|
||||
|
||||
# +------------------------------------------------------------------------+
|
||||
# | |
|
||||
# | M A I N |
|
||||
# | |
|
||||
# +------------------------------------------------------------------------+
|
||||
#
|
||||
|
||||
#
|
||||
# find the most recent daily, weekly and monthly backup file
|
||||
#
|
||||
|
||||
opendir(DIRH, $backupdir) or die "Can't open $backupdir \n";
|
||||
|
||||
my @files = readdir(DIRH);
|
||||
|
||||
die "Zielverzeichnis leer \n" if ( $#files <= 1 );
|
||||
|
||||
foreach my $file (@files) {
|
||||
|
||||
next if $file eq "." or $file eq "..";
|
||||
|
||||
SWITCH: {
|
||||
if ($file =~ /^daily/) {
|
||||
my $curr_age=AgeInDays($file);
|
||||
if ($curr_age<$most_recent_daily{'age'}) {
|
||||
$most_recent_daily{'age'} =$curr_age;
|
||||
$most_recent_daily{'file'}= $file;
|
||||
}
|
||||
last SWITCH;
|
||||
}
|
||||
|
||||
if ($file =~ /^weekly/) {
|
||||
my $curr_week_age = AgeInWeeks($file);
|
||||
if ($curr_week_age<$most_recent_weekly{'age'}) {
|
||||
$most_recent_weekly{'age'} =$curr_week_age;
|
||||
$most_recent_weekly{'file'}=$file;
|
||||
}
|
||||
last SWITCH;
|
||||
}
|
||||
|
||||
if ($file =~ /^monthly/) {
|
||||
my $curr_month_age=AgeInMonths($file);
|
||||
if ($curr_month_age < $most_recent_monthly{'age'}) {
|
||||
$most_recent_monthly{'age'} =$curr_month_age;
|
||||
$most_recent_monthly{'file'}=$file;
|
||||
}
|
||||
last SWITCH;
|
||||
}
|
||||
print "\n\n unknown file $file \n\n";
|
||||
}
|
||||
}
|
||||
|
||||
printf("\nBackup Manager started: %02u.%02u. %u, week %02u\n\n", $day, $curr_month, $curr_year, $curr_week);
|
||||
|
||||
#
|
||||
# compare the most recent daily, weekly and monthly backup file
|
||||
# and decide if it's necessary to start a new backup process in
|
||||
# each category
|
||||
#
|
||||
|
||||
if ($most_recent_monthly{'age'} == 0) {
|
||||
$msg1="The most recent monthly backup";
|
||||
$msg2="$most_recent_monthly{'file'} from $months[$curr_month - $most_recent_monthly{'age'}]";
|
||||
$msg3="is still valid.";
|
||||
$msg4="";
|
||||
write;
|
||||
} else {
|
||||
$msg1="The most recent monthly backup";
|
||||
$msg2="$most_recent_monthly{'file'} from $months[$curr_month - $most_recent_monthly{'age'}]";
|
||||
$msg3="is out-dated.";
|
||||
$msg4="Starting new monthly backup.";
|
||||
write;
|
||||
exec "sudo $logwrapper monthly FULL";
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($most_recent_weekly{'age'} == 0) {
|
||||
$msg1="The most recent weekly backup";
|
||||
$msg2="$most_recent_weekly{'file'} from week nr: $curr_week-$most_recent_weekly{'age'}";
|
||||
$msg3="is still valid.";
|
||||
$msg4="";
|
||||
write;
|
||||
} else {
|
||||
$msg1="The most recent weekly backup";
|
||||
$msg2="$most_recent_weekly{'file'} from week nr: $curr_week-$most_recent_weekly{'age'}";
|
||||
$msg3="is out-dated.";
|
||||
$msg4="Starting new weekly backup.";
|
||||
write;
|
||||
exec "sudo $logwrapper weekly FULL";
|
||||
exit;
|
||||
}
|
||||
|
||||
if ($most_recent_daily{'age'} == 0 ) {
|
||||
$msg1=" The most recent daily backup";
|
||||
$msg2="$most_recent_daily{'file'}";
|
||||
$msg3="is still valid.";
|
||||
$msg4="";
|
||||
write;
|
||||
} else {
|
||||
$msg1="The most recent daily backup";
|
||||
$msg2="$most_recent_daily{'file'}";
|
||||
$msg3="is out-dated.";
|
||||
$msg4="Starting new daily backup.";
|
||||
write;
|
||||
exec "sudo $logwrapper daily FULL";
|
||||
3
contrib/jbrendel-autobackup/correction_1
Normal file
3
contrib/jbrendel-autobackup/correction_1
Normal file
|
|
@ -0,0 +1,3 @@
|
|||
- Zeile 126/127 (my $ageinmonths;) ist doppelt, einmal streichen.
|
||||
- in die allerletzte Zeile gehört eine schließende geschweifte Klammer
|
||||
"}", die irgendwo verlorengegangen ist.
|
||||
Loading…
Reference in a new issue