Проба пера: статья о создании зеркала для NOD32

[RAGNAR]

тут в соседней ветки вычитал что нод сменил папки обновлений. эт о чем небудь говорит?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[PathFounder]

разобрался - почему-то сама прога антивируса стала игнорировать настройки апача и искать папку v3-rel-sta в корне www
перекинул руками и антивирус обновился

[RAGNAR]

в студию решение. пожалуйста. что и на что поменял и где

[PathFounder]

запусти tail -F /var/loag/apahe22/yourdoman-error.log
потом попробуй обновиться - и посмотри куда ломанётся антивирь за обновами...
ну а потом в скрипте меняешь PATH наа тотт путь куда ломится антивирь

[RAGNAR]

чето не понел

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

$PATH = "/usr/local/www/apache22/data/nod_update";  если сюда дописать v3-rel-sta  то ошибка
$TMP = "$PATH/tmp";
$KEY_DIR = "/usr/local/etc/nodnew/";

[RAGNAR]

все решение проблемы.

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

$PATH = "/usr/local/www/apache22/data/nod_update"; а здесь естесно меняем на v3-rel-sta
$TMP = "$PATH/tmp";   тут убираем tmp  так как по новой теме он лежит в новом каталоге а не в отдельном

[PathFounder]

что-то я вооще запутался - как-то обновился - теперь снова начал искать файл update.ver в корне

[RAGNAR]

я к тому выше еще правил vhost.conf

так было
Alias /download/ "/usr/local/www/apache22/data/nod_update/"

так сделал омиться туда то v3-rel-sta

Alias /v3-rel-sta/ "/usr/local/www/apache22/data/nod_update/v3-rel-sta/"

[PathFounder]

вроде заработало.... только я ещё в самом скрипте кое-что подправил... добавил
после:
unlink("$TMP/$NUPD.ver","$PATH/$NUPD/update.ver");
download($PATH,"$URL_UPD/$NUPD/update.ver","/$NUPD/update.ver",$LOGIN,$PASS);
system("/usr/local/bin/7z e -y $PATH/$NUPD/update.ver -o$TMP");
rename("$TMP/update.ver","$TMP/$NUPD.ver");
добавил
use File::Copy;
copy("$TMP/$NUPD.ver","$PATH/v3-rel-sta/update.ver");

[server801]

У всех обновляются заркала ? У меня что то версия стоит 7718 , а уже на офф 7729

[server801]

Пути поменялись )))

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

/usr/local/www/nod/v3-rel-sta/mod_005_cleaner/em005_32_n4.nup

[PathFounder]

У всех обновляются заркала ? У меня что то версия стоит 7718 , а уже на офф 7729

у меня норамльно 7729

[server801]

скрипт какой у вас ?

[PathFounder]

скрипт какой у вас ?

http://www.lissyara.su/articles/freebsd ... 2_mirror2/
с маленькими доработками

[kazan]

Добавил в httpd-vhost.conf
Alias /v3-rel-sta "/usr/local/www/nod/v3-rel-sta/"
И все заработало!!!
Всем спасибо!!!

[RAGNAR]

ну ты брат гений это было выше написано на этой странице

[kazan]

вроде заработало.... только я ещё в самом скрипте кое-что подправил... добавил
после:
unlink("$TMP/$NUPD.ver","$PATH/$NUPD/update.ver");
download($PATH,"$URL_UPD/$NUPD/update.ver","/$NUPD/update.ver",$LOGIN,$PASS);
system("/usr/local/bin/7z e -y $PATH/$NUPD/update.ver -o$TMP");
rename("$TMP/update.ver","$TMP/$NUPD.ver");
добавил
use File::Copy;
copy("$TMP/$NUPD.ver","$PATH/v3-rel-sta/update.ver");

Я утвердительно сказал, чтоб сомнения откинуть

[anti-stels]

выложите пожалуйста последнюю рабочую версию скрипта.

[PathFounder]

выложите пожалуйста последнюю рабочую версию скрипта.

прямо над твоим постом то что надо добавить (изменить)

[anti-stels]

прямо над твоим постом то что надо добавить (изменить)

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

Couldn't open /srv/www/nod32/public_html/eset_upd.ver for reading: Нет такого файла или каталога

[PathFounder]

прямо над твоим постом то что надо добавить (изменить)

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

Couldn't open /srv/www/nod32/public_html/eset_upd.ver for reading: Нет такого файла или каталога

ну надо малость моск задействовать только копи-пастом врядли всё сходу заработает

[anti-stels]

мозг это хорошо. Можете выложить рабочий вариант скрипта?

[PathFounder]

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

!/usr/bin/perl

use FindBin;
use lib $FindBin::Bin;
use keys;

$PATH = "/usr/local/www/nod";
$TMP = "$PATH";
$KEY_DIR = "/usr/local/etc/nod";

keys::start();
open(AUTHFILE, "$KEY_DIR/nod32.key");
print "!!! New Key !!!";
$LOGIN = <AUTHFILE>;
$LOGIN =~ s/username=//;
chomp $LOGIN;
print "username: $LOGIN";
$PASS = <AUTHFILE>;
$PASS =~ s/password=//;
chomp $PASS;
print "password: $PASS";




%servers = (
   'http://um12.eset.com',
   'http://update.eset.com'
);


%versions = ("eset_upd");

foreach $URL_UPD (%servers)
{

  if($URL_UPD)
   {
      foreach $NUPD (%versions)
      {
         if($NUPD)
         {
            print "Using $URL_UPD/$NUPD...\n";

            unlink("$TMP/$NUPD.ver","$PATH/$NUPD/update.ver");
            download($PATH,"$URL_UPD/$NUPD/update.ver","/$NUPD/update.ver",$LOGIN,$PASS);
            system("/usr/local/bin/7z e -y $PATH/$NUPD/update.ver -o$TMP");
            rename("$TMP/update.ver","$TMP/$NUPD.ver");
            use File::Copy;
            copy("$TMP/$NUPD.ver","$PATH/v3-rel-sta/update.ver");

            $ver = "$TMP/$NUPD.ver";

            open(VER, "< $ver") or die "Couldn't open $ver for reading: $!\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;
                     $furl = "$URL_UPD$val";
                     $line = "file=$name";
                  }

                  if ($par =~/size/ )
                  {
                     $size = $val;
                     $files{$name} = $size;
                     $urls{$name} = "$furl";
                  }
               }
            }
            print "\n";

            close(VER);

            foreach $f (keys %files)
            {
               if ((-s "$PATH$f") != $files{$f})
               {
                  $size = (-s "$PATH$f");
                  print "$URL_UPD/$NUPD Not present --> $PATH$f\t$f\t$files{$f} ---> $size\n";
                  unlink("$PATH$f");
                  download($PATH,$urls{$f},$f,$LOGIN,$PASS);
               }
               else
               {
                  print "$URL_UPD/$NUPD Present --> $PATH$f\t$f\t$files{$f}\n";
               }
            }

            chmod(0644,"$PATH/*");

            sub download()
            {
               my ($path, $url, $f, $LOGIN, $PASS) = @_;
               $dir = $f;
               $dir =~s/^(.*)\/(.*)$/$1/;

               system("mkdir -p $path$dir");
                if (mylang($f) != 1){
                 system("/usr/local/bin/wget -P $path$dir --proxy-user=user --http-user=$LOGIN --http-password=$PASS $url");
                                    }

            }
         }
      }
   }
}
print "Script NSDN + Andy2k and Tray.irk\n";
print "ICQ: 5861008\n";
print "email: tray.irk@gmail.com\n";

close(AUTHFILE);

[/quote]

[server801]

И что , обновляется с вашего сервера сейчас нормально?

[Le1!cK]

А как можно сделать, что бы обновление происходило без использования логина и пароля?