взято все с wiki.drweb.com
если скрипт запускаю в ручную то все хорошо работает. но когда крон запускает этот скрипт, то в последнем действии (там где распоковывает зипы) проходит сбой.
вот что в логе:
Код: Выделить всё
Can't exec "unzip": No such file or directory at /...[путь где лежит скрипт]
Код: Выделить всё
#!/usr/bin/perl -w
use Digest::MD5;
use LWP::UserAgent;
use Compress::Zlib;
use strict;
my $basedir = '/tmp/update/500'; # папка, откуда обновляются виндовые агенты
my $drwebkey = '/home/axel/drweb32-betatesting.key'; # путь к ключу drweb
my $tmpdir = '/tmp'; # директория для временных файлов
my $url = 'http://update.drweb.com/500/sspace/windows'; # одна из зон обновления Dr.Web
# get MD5 hash of key-file
open(FILE, $drwebkey) or die "Can't open '$drwebkey': $!";
binmode(FILE);
my $md5 = Digest::MD5->new->addfile(*FILE)->hexdigest;
# download drweb32.lst
download("$url/drweb32.lst",$basedir.'/drweb32.lst');
# parse drweb32.lst and download
open LST, '<'."$basedir/drweb32.lst" or die "can't open $basedir/drweb32.lst ($!)\n";
while (<LST>) {
s/\r?\n$//; # remove \r\n, \n
/^\[[\w ]+\]$/ and next;
/^[-]/ and next; #skip delete;
my ( $filename, undef,$crc) = /^[\+\=\@\!].*?([_a-zA-Z0-9\.\-]+)?[, \s](\|.+)?[, \t]+([a-fA-F\d]+)?[, \t]*(\d+\.\d+)?/o
or print STDERR "unknown line \"$_\" in lst\n";
if (checkcrc32("$basedir/$filename",$crc) eq 0){
print "download $url/$filename, $crc\n"; #what try to download
my $ret unless download("$url/$filename","$basedir/$filename",$crc);
}
else {
print "skip $url/$filename, $crc CRC match\n"
}
}
close LST;
# solve problem with 403 Access not allowed for *today.vdb
download("http://msk3.drweb.com/pub/drweb/bases/drwtoday.zip",$tmpdir.'/drwtoday.zip');
download("http://msk3.drweb.com/pub/drweb/bases/dwrtoday.zip",$tmpdir.'/dwrtoday.zip');
download("http://msk3.drweb.com/pub/drweb/bases/dwntoday.zip",$tmpdir.'/dwntoday.zip');
opendir (DIR, $tmpdir);
my @files=readdir (DIR);
closedir (DIR);
foreach my $file (@files){
if ($file =~ /zip/){
system ('unzip -o '.$tmpdir.'/'.$file.' -d '.$basedir);
}
}
sub checkcrc32 {
my ($file,$crc)=@_;
my $crcf=0;
open FHC, '<'.$file or return 0;
$crcf=crc32($_,$crcf) while <FHC>;
return 0 if hex($crc) != $crcf;
close FHC;
return 1;
}
sub download {
my ($url,$file,$crc)=@_;
my $ua = LWP::UserAgent->new;
$ua->agent("DrWebUpdate-5.00.3.03020 (windows: 5.00.2195)");
$ua->default_header('X-DrWeb-Validate' => $md5);
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);
if (! $res->is_success) {
print STDERR $res->status_line, " (file $url)\n";
return 0;
}
if ($crc and hex($crc) != crc32($res->content)) {
printf STDERR "file $url with frong crc: %X (expects $crc)\n",crc32($res->content);
return 0;
}
if ( ! open FH, '>'.$file) {
print STDERR "can't open $file ($!)\n";
return 0;
}
print FH $res->content;
close FH;
return 1;
}
