Tekst źródłowy strony Prosty backup plików i folderów na e-mail w PERL-u

Skrypt pakujący wskazany folder wraz ze wszystkimi podfolderami do archiwum zip a następnie wysyłający całość na e-mail.

Plik zapisać jako backup.pl

<source lang="perl">


#data
use DateTime;
my $aktualna_data = DateTime->now();
#data

##archiwum
$temp="/tmp/temp.zip";
$zbackupuj="/home/xxx/moje_wazne_dane/";

#sprzątam
unlink( "$temp" );
#sprzatam

   # Create a Zip file
   use Archive::Zip qw( :ERROR_CODES :CONSTANTS );
   my $zip = Archive::Zip->new();
	$zip->addTree(  $zbackupuj );	
   
   
   # Save the Zip file
   unless ( $zip->writeToFileNamed($temp) == AZ_OK ) {
       die 'write error';
   }
   

##archiwum
use MIME::Lite;

my $msg = MIME::Lite->new(
    From    => 'admin@xxxx.example.com',
    To      => 'admin@xxxx.example.com',
    Subject => "backup... $aktualna_data",
    Type    => 'multipart/mixed',
);

$msg->attach(
    Type     => 'TEXT',
    Data     => "backup... $aktualna_data",
);

$msg->attach(
    Type     => 'application/zip',
    Path     => $temp,
    Filename => 'backup.zip',
);

$msg->send;
</pre>

Obsługa

<pre>
perl backup.pl
</pre>


[[Category:Ubuntu]]