Вот точно рабочий скрипт. Который работает у меня уже три месяца. Для третьего нода
#!/usr/bin/perl
# path to store updates
$PATH="/usr/local/www/nod3";
# wget
$WGET="/usr/local/bin/wget";
# username/password for updates registered users
$LOGIN='';
$PASS='';
# URL for updates
$URL_UPD='http://u37.eset.com/';
$URL_UPD =~ s/\/$//;
$URL_UPD =~ m/(.*:\/\/)(.*?)(\/.*)/;
$site = "$1$2";
if ($site =~ m//) {
print "Enter correct URL\n";
return;
}
unlink("$PATH/update.ver","$PATH/update.tmp");
download($PATH,"$URL_UPD/eset_upd/update.ver",$LOGIN,$PASS);
system("/usr/local/bin/unrar e -y $PATH/update.ver $PATH");
rename("$PATH/update.ver","$PATH/update.tmp");
$ver = "$PATH/update.tmp";
$vers = "$PATH/update.ver";
open(VER, "< $ver") or die "Couldn't open $ver for reading: $!\n";
open(VERS, "> $vers") or die "Couldn't open $vers for writing: $!\n";
%files = ();
%urls = ();
$end = 0;
while (defined($line = <VER>) )
{
chomp $line;
if ($line =~ /COMPATLIST/) {
$end = 1;
}
if ($end == 0) {
($par,$val)=split /=/, $line;
$val = substr($val, 0, -1);
if ($par =~ /file/ ) {
$name = '/'.$val;
$name =~s/\/.*\///;
$furl="$URL_UPD$val";
$line="file=$name";
}
if ($par =~/size/ ) {
$size = $val;
$files{$name} = $size;
$urls{$name} = "$furl";
}
}
print VERS "$line\r\n";
}
print "\n";
close(VER);
close(VERS);
foreach $f (keys %files) {
if ((-s "$PATH/$f") != $files{$f}){
$size = (-s "$PATH/$f");
print "Not present --> $PATH/$f\t$f\t$files{$f} ---> $size\n";
unlink("$PATH/$f");
download($PATH,$urls{$f},$LOGIN,$PASS);
} else { #print " Present --> $PATH/$f\t$f\t$files{$f}\n";
}
}
chmod(0644,"$PATH/*");
sub download()
{
my ($path, $url, $login, $pass) = @_;
system("$WGET -P $path --http-user=$login --http-password=$pass $url");
}
Понятно, что логин пароль нужно указать свои
