forum.lissyara.su

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

#!/usr/bin/perl

use LWP;

# path to store updates
$PATH="/usr/local/www/data";
# way to wget
$WGET="/usr/local/bin/wget";
# username/password for updates registered users
#$LOGIN="EAV-04170633";
#$PASS="a4ju642rvv";

# URL for updates
$URL_UPD="http://nod3.petabyte.ru/";

$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/update.ver",$LOGIN,$PASS);
`/usr/local/bin/unrar e -y $PATH/update.ver $PATH 2> /dev/null`;
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 = ();

while (defined($line = <VER>) )
{
chomp $line;
($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");
}

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

system("$WGET -P $path --http-user=$login --http-password=$pass $url");

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

system("$WGET -P $path $url"); 

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

Use of uninitialized value in split at ./upd.pl line 116.
--2008-09-02 03:22:48--  http://update.eset.com//eset_updupdate.ver
Resolving update.eset.com... 90.183.101.14, 90.183.101.16, 90.183.101.10, ...
Connecting to update.eset.com|90.183.101.14|:80... connected.
HTTP request sent, awaiting response... 404 Not Found
2008-09-02 03:22:48 ERROR 404: Not Found.

Use of uninitialized value in split at ./upd.pl line 116.

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

-16:40:40--  http://update.eset.com/eset_updupdate.ver
           => `/var/db/eset_mirror/eset_updupdate.ver'
Resolving update.eset.com... 90.183.101.15, 90.183.101.16, 90.183.101.17, ...
Connecting to update.eset.com[90.183.101.15]:80... connected.
HTTP request sent, awaiting response... 404 Not Found
16:40:40 ERROR 404: Not Found.

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

Can't locate object method "decoded_content" via package "HTTP::Headers" at (eval 20) line 1.

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

games1# /usr/local/www/eset_www/update_eset.sh
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/eset/lib/keys.pm line 146.

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

Use of uninitialized value in concatenation (.) or string at /usr/local/etc/nod-upd/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/etc/nod-upd/lib/keys.pm line 146.
Use of uninitialized value in concatenation (.) or string at /usr/local/etc/nod-upd/lib/keys.pm line 146.