forum.lissyara.su

Код: Выделить всё

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;
}

Код: Выделить всё

PATH=/usr/local/bin:/usr/local/sbin:/usr/bin:/usr/sbin:/etc:/bin:/sbin