Comments 8
if (open(FP, '<путь к фалу>request.txt.sig'))
{$key2=1;}
Можно заменить например на
$key2 = 1 if -e "/path/to/file/request.txt.sig";
Ну и FP вы не закрываете, ну и вообще стиль написанного на перляке отвратен.
Насчет ошибки, это да, я действительно не заметил, спасибо что нашли. Насчет всего остального, я знаю что код довольно топорный и решение далеко не самое удачное, но тут решение под стать задаче. Цель не написать хороший качественный код, а сделать что-то вроде оберега от злых духов. Я это делал все на скорую руку из чужих скриптов, это было мое первое знакомство с Perl. Если есть желание сделать все красиво, перенести на Linux-сервер, пожалуйста, нет предела совершенству. Я написал грубое решение, что и не скрывал, но он во всяком случае позволит вам на год забыть о скачивании списков (до истечения срока действия электронной подписи). Развертывается примерно за час, дешево и сердито.
Windows, Perl, Планировщик заданий — конечно очень спорный набор инструментов.
Секретное продолжение
Далее необходимо все адреса из скачанного списка добавить в файл hosts, а IP-адресом назначить — адрес тайного прокси-сервера.
Pecunia non olet, да?
Подписывать каждый раз не нужно. Достаточно подписать файл запроса один раз, и он будет действовать, пока действительна подпись. Дата/время в нём сервером не проверяется.
Sign up to leave a comment.
Автоматическое скачивание списка запрещенных сайтов с сервиса «Роскомнадзор»