#! /usr/bin/perl
# nod32 update downloader
use strict;
use warnings;
use HTTP::Lite;
#Конфигурация
my %cfg =(
workdir => '/home/ilc/nod32', #Рабочая папка
nod3 => 'http://update.eset.com', #Сервер откуда качать
rsltdir => '/home/ilc/nod32/upd', #Папка где будет лежать база
lgnpass => 'http://hhuu.net/', #Сайт с пиратскими ключами
);
chdir($cfg{workdir}); #Переходим в рабочую директорию
`wget $cfg{nod3}/eset_upd/update.ver`; #Загружаем файл с информацией для обновления
`unrar -xf update.ver`; #разорхивируем его
open FF, 'update.ver'; #Открываем исходный файл
open RF, ">$cfg{rsltdir}/update.ver"; #Открываем файл который будут скачивать наши пользователи
my ($cursect, $file, %files);
while(
){ #Читаем исходный файл
$cursect=$1 if /\[(.*?)\]/; #Узнаём секцию которую будем читать
next if $cursect eq 'HOSTS'; #Если это HOSTS то пропускаем
print RF $_; #Записываем в файл для скачивания
chop;chop;
$file = $1 if /file=(.*?)$/; #Узнаём файл
$files{$file} = $1 if /size=(.*?)$/; #Получаем его размер
}
close FF; #Закрываем файлы
close RF;
`rm update.ver`; #Удаляем исходный файл
my @wgetlst; #Находим файлы которые нобходимо скачать
for(keys %files){
unless(-e "$cfg{rsltdir}$_" and -s "$cfg{rsltdir}$_" == $files{$_}){
push @wgetlst, "$_";
}
}
exit 0 unless $#wgetlst; #Если скачивать нечего выходим
#Получаем пиратские ключи
my $http = new HTTP::Lite;
$http->request($cfg{lgnpass}) or die "Unable to get document: $!";
my $str = $http->body();
my @keys;
#Выделяем их в пары логин пароль
while($str =~ /Username:(.*?)<.*?:(.*?)
var container = document.getElementById('nativeroll_video_cont');
if (container) {
var parent = container.parentElement;
if (parent) {
const wrapper = document.createElement('div');
wrapper.classList.add('js-teasers-wrapper');
parent.insertBefore(wrapper, container.nextSibling);
}
}
