Бекап доменов...

[flames]

сделал простенький перл скрипт для бекапа сервера (не для отдельных доменов) может кому надо

backup.pl

PHP Code:

#!/usr/bin/perl
#sysbkup.pl
#Change These paths to fix your needs.
my $path="/backup/";
my $filename="backup";
my $exclude="/backup/exclude";
my $include="/backup/include";
my $remoteserver="myhost.tld";
#my $remoteserver="user:password@myhost.tld";
my $remotepath="/backup/include";
my $tar=".tar";
my $gz=".gz";

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=localtime();
$year=$year+1900;
$mon=$mon+1;
if(length($mday) == 1) { $mday="0$mday"; }
if(length($mon) == 1) { $mon="0$mon"; }
my $date="-".$year."-".$mon."-".$mday;

$filename=$filename.$date.$tar.$gz;
$destination=$path.$filename;
$remotedestination=$remotepath.$filename;

system ("tar -Pzcvf $destination -X $exclude -T $include");
system ("scp $destination $remoteserver:$remotedestination"); 


exclude.txt

PHP Code:

/backup
/boot
/dev
/lib
/lib64
/lost+found
/media
/mnt
/proc
/sys
/tmp
/var/tmp 


include.txt

PHP Code:

/ 


таргнуципки перекидываeт на другой сервер по сцп.
это для дебиана, под другие в инклуде и ексклуде подправьте пути.