LJ Archive

Listing 5. Backup Perl Script

#!/usr/bin/perl
#Name of Manifest file
$MANIFEST="/home/easwaran/MANIFEST-SMB";
#name of tar file
$tarfile="/tmp/anchobackup.tar";
open(FILE, $MANIFEST) || die("Can't see $MANIFEST files");
while($line=<FILE>) {
    if( ($line !~ /^\#/) && ($line ne "\n")){
   chop($line);
   push(@array,$line);
    }
}
system ("smbclient \\\\\\\\ancho\\\\c-ancho ****** -TcI $tarfile //@array");
system ("gzip "f $tarfile");
LJ Archive