Бэкап svn репозитория на Gmail

#!/usr/bin/perl -w
use strict;
use Archive::Tar;
use File::Find;
use MIME::Lite;
use Net::SMTP;

sub sendmail();

my $email = ‘my.email@gmail.com’;
my $message_from = ‘Backup Script ‘;
my $message_body = "Here’s the attachment file(s) you wanted";

my $smtp_server = ‘smtp.server.com’;
my @archive_list;
my $backup_source = ‘/home/user/bin/’;
my $backup_folder = ‘svn’;
my $tar_file = ‘/home/user/temp/gmailtar.tgz’;

chdir($backup_source) || die "cannot change directory ($!)";

find (sub { push @archive_list, $File::Find::name }, $backup_folder);

Archive::Tar->create_archive($tar_file, "9", @archive_list);

sendmail();

unlink ($tar_file);

sub sendmail() {
my $msg = MIME::Lite->new(To => $email,
Subject => "Backup email",
From => $message_from,
Type => "multipart/mixed" ) or die "Error creating multipart container: $!\n";

$msg->attach (
Type => ‘TEXT’,
Data => $message_body
) or die "Error adding the text message part: $!\n";
$msg->attach(Type => "application/gzip",
Path => $tar_file,
Filename => "backup.tgz");
$msg->send(‘smtp’, $smtp_server);
}