forum.lissyara.su

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

#!/usr/bin/perl

# path to store updates
$WGET="/usr/local/bin/wget"; # Путь к программе wget

open (VER, './nod32key') or die ("Где файл с ключами?\n");
while (defined($line = <VER>))
{
chomp $line;
($par,$val)=split /:/, $line;

$val = substr($val, 1, length($val));

if ($par =~ /UserName/ )
{
  $name = $val;
}

if ($par =~/PassWord/ )
{
  $files{$name} = $val;
}

}
print "\n";
close(VER);

$dlfile = 'http://u22.eset.com/download/engine/engine2.nup';
$PATH = '/tmp/';
$myfile = $PATH . 'engine2.nup';

open(VER, '> ./nod32valid') or die ("Некуда писать ключи!\n");
foreach $f (keys %files) {
  unlink("$myfile");
  download($PATH,$dlfile,$f,$files{$f});
  if ((-s "$myfile") != 0){
    print VER "$f\t$files{$f}\n";
  }
}
close(VER);
print "\n\n\n";
system('cat ./nod32valid');

sub download()
{
  my ($path, $url, $login, $pass) = @_;
  system("$WGET -P $path --http-user=$login --http-password=$pass $url");
}

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

[f0s@mail] /root/bin/> ./nod32.sh
expr: syntax error
[: -le: unexpected operator
sed: 1: ",12!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",25!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",25!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",48!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
Files not changed
expr: syntax error
[: -le: unexpected operator
sed: 1: ",71!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",86!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",129!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
expr: syntax error
[: -le: unexpected operator
sed: 1: ",200!d": invalid command code ,
[: !=: argument expected
[: !=: argument expected
[: !=: argument expected
[: !=: argument expected
Files not changed

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

#!/bin/sh

DMASTER="/usr/local/bin/wget"
DMLOG="updatever.log"
TMPFILE="filelist.upd"
#Фраза по которой определяем что файл не изменен
PHRASE="Файл на сервере не новее локального файла"
BASEDIR_V3="/usr/local/www/***/***/mudomain.ru/nodbase/v3/"
HOSTUP_V3="http://nod32.i-files.org/v3/"

#$1 - BASEDIR
#$2 - HOSTUP
dUpdateVer(){
    cd $1
    $DMASTER -nd -m -o $DMLOG ${2}update.ver
    if [ -z `fgrep "$PHRASE" $DMLOG | sed -n '$='` ]; then
        dUpdateFl $2
    else
        echo "Обновления отсутствуют"
    fi
}

dUpdateFl(){
    fgrep "file=" update.ver | sed -e 's/file=//' > $TMPFILE
    $DMASTER -np -N -nH -B $1 -i $TMPFILE
    rm $TMPFILE
}

dUpdateVer $BASEDIR_V3 $HOSTUP_V3

exit 0

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

#!/usr/bin/perl

use LWP;

# path to store updates
$PATH="/home/www/mail.kk.com/nod";
$WGET="/usr/local/bin/wget"; # Путь к программе wget
# username/password for updates registered users
$LOGIN='AV-6327330';
$PASS='yt8jc2gyb9';
# URL for updates
$URL_UPD="http://u21.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/nod_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");
}

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

www# /usr/local/etc/rc.d/nod32.sh
--2008-04-08 15:12:01--  http://u21.eset.com/nod_upd/update.ver
Resolving u21.eset.com... 89.202.157.131
Connecting to u21.eset.com|89.202.157.131|:80... connected.
HTTP request sent, awaiting response... 200 OK
Length: 4009 (3.9K) [application/octet-stream]
Saving to: `/var/www/webserver/admins/nod/update.ver'

100%[====================================================================================================================>] 4,009       --.-K/s   in 0.06s

2008-04-08 15:12:07 (71.0 KB/s) - `/var/www/webserver/admins/nod/update.ver' saved [4009/4009]

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

www# ls -l /var/www/webserver/admins/nod/
total 8
-rw-r--r--  1 root  wheel  4009 Apr  8 10:52 update.tmp
-rw-r--r--  1 root  wheel  4029 Apr  8 15:12 update.ver

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

cd $1

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

# path to store updates
$PATH="/home/www/mail.kk.com/nod";

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

cd $1