Автоматическое архивирование и удаление файлов backup

#!/bin/sh
BACKUP_HOST=127.0.0.1
BACKUP_USER=admin
BACKUP_DIR=/usr/local/sbin/backup/config
#SPOOL_DIR=/usr/local/sbin/backup/config
PATH=/bin:/usr/bin:/usr/sfw/bin:/usr/local/sbin/backup; export PATH
#umask 026
DAY=`date '+%d'`
#if [ ! -d $BACKUP_USER ]; then
#    echo "Cannot find spool directory $BACKUP_USER."
#    exit 0
#fi
#cd $SPOOL_DIR
#
# Backup configs from network devices
#
network_mks.sh
network_msk.sh
exit 0

find $path -type f -ctime +7 -delete

#!/usr/bin/perl
use POSIX ();
use Switch;
use Digest::MD5::File qw( file_md5_hex );
use File::Copy;
#$date = POSIX::strftime('%a', localtime);
$backupfolder = "/home/user/backup/";
$pathfolder = "/home/user/test/*";
$incrfilemonday = ("$backupfolder". ""  ."$date");
$filebackup = ("$backupfolder". "" ."$date". "" .".tar");
$newfolder = "/home/user/";
$filebackupnew = ("$newfolder". "" ."$date". "" .".tar");
if ($date && "Monday")
{
backmonday ();
}
else
{
    if ($date && "Tuesday")
    {
    backinc (Monday);
    }
   if ($date && "Wednesday")
    {
    backinc (Tuesday);
    }
   if ($date && "Thursday")
   {
   backinc (Wednesday);
   }
    if ($date && "Friday")
    {
    backinc (Thursday);
    }
    if ($date && "Saturday")
    {backinc (Friday);
    }
    if ($date && "Sunday")
    {
    backinc (Saturday);
    }
}
sub backinccc
{
my ($day) = @_;
if(-e $incrfilemonday)
{
unlink $incrfilemonday;
}
copy("$backupfolder". ""  ."$day", "$backupfolder". "" ."$date");
$pathinc = "$backupfolder". "" ."$date";
system (`/bin/tar --create --ignore-failed-read --one-file-system --preserve-permissions --recursion --sparse --gzip --file=$filebackup --listed-incremental=$pathinc $pathfolder`);
mdtest ($filebackup);
}
sub backmonday
{
if(-e $incrfilemonday)
{
unlink $incrfilemonday;
}
if(-e $filebackup)
{
unlink $filebackup;
}
system (`/bin/tar --create --ignore-failed-read --one-file-system --preserve-permissions --recursion --sparse --gzip --file=$filebackup --listed-incremental=$incrfilemonday $pathfolder`);
mdtest ($filebackup);
}
sub mdtest
{
my ($file) = @_;
copy($file, $filebackupnew) or die mdtest ();
$mdnew = file_md5_hex($filebackupnew);
$mdold = file_md5_hex($file);
if ($mdnew == $mdold)
{}
else
        {
        unlink $filebackupnew;
    copy($file, $filebackupnew) or die mdtest ();
        }
}

  GNU nano 2.3.1                                      Файл: /Serv/backup-sys                                                                                 
#! /bin/sh
#Config section
log="/var/log/backup-sys.log" #логирование процесса
tmp=/Store/BACKUP/SYSbackup/`date +%m-%d-%y`-$RANDOM/ 
list="/Serv/.system-file.list" #список файлов для копирования
#
echo "Sys backup started at `date +%D` -- `date +%T`: " >>$log
mkdir $tmp
echo -n"  `date +%T`: Copying files to $tmp..." >>$log
while read LINE; do #построчное чтение списка
rsync -qvaRpogt $LINE $tmp 2>>$log #копирование элементов списка во временную папку
done < $list
echo "  `date +%T`: Done." >>$log
cd $tmp
PWD=`pwd`
Zname=`basename $PWD`
cd ..
echo "  `date +%T`: Compressing $Zname..." >>$log
zip -vr9 $Zname.zip $tmp #архивирование файлов. в оригинале архив запаролен и заливается на удаленный фтп, поэтому zip
echo "  `date +%T`: Done.">>$log
rm -rf $tmp 2>> $log
echo "Sysyem backup ended at `date +%D` -- `date +%T`: ">>$log

#!/bin/sh
BACKUP_DIR=/home/ftp/config/test
PATH=/bin:/usr/bin:/usr/sfw/bin; export PATH
#umask 26
DAY=`date '+%d'`
MONTH=`date '+%m'`
#if [ ! -d $BACKUP_DIR ]; then
#    echo "Cannot find spool directory $BACKUP_DIR."
#    exit 0
#fi
#cd $BACKUP_DIR
find $BACKUP_DIR/$DAY.$MONTH -type f -mtime +1 -exec rm {} \;
exit 0

#!/usr/bin/perl
use POSIX ();
use Switch;
use Digest::MD5::File qw( file_md5_hex );
use File::Copy;
#$date = POSIX::strftime('%a', localtime); #узнаём день недели
$backupfolder = "/home/user/backup/"; #папка куда ложить бекапы
$pathfolder = "/home/user/test/*"; #что архивируем
$incrfilemonday = ("$backupfolder". ""  ."$date"); # тут путь и название инкрементального архива
$filebackup = ("$backupfolder". "" ."$date". "" .".tar"); #полный бекап по понедельникам
$newfolder = "/home/user/";
$filebackupnew = ("$newfolder". "" ."$date". "" .".tar"); #переменная куда копируем полный бекап
#Проверяем день недели
if ($date && "Mon")
{
backmonday ();
}
else
{
    if ($date && "Tue")
    {
    backinc (Mon);
    }
   if ($date && "Wed")
    {
    backinc (Tue);
    }
   if ($date && "Thu")
   {
   backinc (Wed);
   }
    if ($date && "Fri")
    {
    backinc (Thu);
    }
    if ($date && "Sat")
    {backinc (Fri);
    }
    if ($date && "Sun")
    {
    backinc (Sat);
    }
}
#Функия создания инкрементального архива
sub backinccc
{
my ($day) = @_;
if(-e $incrfilemonday) #если есть инкрементальный архив тогда
{
unlink $incrfilemonday; # удаляем его
}
copy("$backupfolder". ""  ."$day", "$backupfolder". "" ."$date"); #копируем список файлов для для дальнейшего создания инкременльного архива
$pathinc = "$backupfolder". "" ."$date"; #путь до файла 
system (`/bin/tar --create --ignore-failed-read --one-file-system --preserve-permissions --recursion --sparse --gzip --file=$filebackup --listed-incremental=$pathinc $pathfolder`); #архивируем tar
mdtest ($filebackup); #отправляем на проверку md5 и копирование в католог в сети (например)
}
#Функия создания полного архива по понедельникам
sub backmonday
{
if(-e $incrfilemonday)
{
unlink $incrfilemonday;
}
if(-e $filebackup)
{
unlink $filebackup;
}
system (`/bin/tar --create --ignore-failed-read --one-file-system --preserve-permissions --recursion --sparse --gzip --file=$filebackup --listed-incremental=$incrfilemonday $pathfolder`);
mdtest ($filebackup); #отправляем на проверку Яmd5
}
#Фунция проверки md5
sub mdtest
{
my ($file) = @_;
copy($file, $filebackupnew) or die mdtest (); #копируем например на сетевой диск
$mdnew = file_md5_hex($filebackupnew); #получаем значения md5 архива в сети
$mdold = file_md5_hex($file); #получаем значения md5 локального архива
if ($mdnew == $mdold) # если значение md5 совпадают тогда всё ок иначе начинаем по новому
{}
else
        {
    unlink $filebackupnew;
    copy($file, $filebackupnew) or die mdtest ();
        }
}

#!/bin/sh
#network 
BACKUP_DIR=/home/ftp/config/test/
PATH=/bin:/usr/bin:/usr/local/bin; export PATH
MKS_IP_OBJECTS="`cat /backup/dev_list_ip`"
umask 026
DAY=`date '+%d'`
MONTH=`date '+%m'`
mkdir /home/ftp/config/test/$DAY.$MONTH
chmod 666 /home/ftp/config/test/$DAY.$MONTH
if [ ! -d $BACKUP_DIR ]; then
    echo "Cannot find spool directory $BACKUP_DIR."
    exit 0
fi
cd $BACKUP_DIR
for OBJECT_IP in $MKS_IP_OBJECTS; do
    (
     FILE1=$BACKUP_DIR/$DAY.$MONTH/$OBJECT_IP.cfg
        /backup/get_ip_cfg.tcl $OBJECT_IP | grep -v "show running-config" | grep -v " $>" > $FILE1 && \
        chmod 666 $BACKUP_DIR/$DAY.$MONTH/$OBJECT_IP.cfg
        ) &
done
exit 0