#!/etc/perl
use MIME::Lite;
my $partnum;
my $dir;
my $msg;
my $allfilez;
my $all;
my $i;
my $date = localtime();
$dir = "@ARGV[0]";
$email = "@ARGV[1]";
$sitez = "@ARGV[2]";
$sendmail = "@ARGV[3]";
$all = '0';
$i = '0';
opendir(DIR, "$dir"); # открыть каталог
@files = readdir(DIR); # массив файлов
closedir(DIR); # закрыть каталог
foreach (@files) {
next if /^\.\.?$/;
$allfilez .= "$_\n";
$all++;
}
opendir(DIR, "$dir"); # открыть каталог
@files = readdir(DIR); # массив файлов
closedir(DIR); # закрыть каталог
foreach (@files) {
next if /^\.\.?$/;
$filez = $_;
$i++;
print("Filename($i): $filez\n") unless -d; # выводит список файлов
$msg = MIME::Lite->new( From => "$email",
To => "$sendmail",
Subject => "$sitez $filez ($i - $all) $date.",
Type => 'multipart/mixed' );
$msg->attach( Type => 'text/plain; charset=windows-1251',
Data => "backup $sitez $date .\n\nFile name - $filez\n\n\nAll files ($i - $all)\n\n." );
$msg->attach( Type => 'application/x-zip-compressed',
Path => "$dir/$filez",
Filename => "$filez",
Disposition => 'attachment' );
print("Send file: $filez\n");
$msg->send() or die ("Error: $!\n");
}