[sisyphus] [OT] МинКомСвязи ведёт опрос о СПО

[Vladimir V Kutyavin]

Евгений пишет:
> Ну много не навертишь. Надо автоматизировать :)
Предложили на l.o.r.:

#!/usr/bin/perl -w

use HTTP::Request::Common;
use LWP::UserAgent;

$ua = LWP::UserAgent->new;
$url = "http://minsvyaz.ru/.cmsc/module.php/index.php";

for($i=0;$i<1000;$i++) {

$response = $ua->request(POST $url,
                        Content_Type => 'application/x-www-form-urlencoded',
                        Content => 'mod_require=poll%2Findex.php&mod_location=client&mod_goto=index.php&option_id=%CC%EE%ED%EE%EF%EE%EB%E8%FF+%EF%F0%EE%E8%E7%E2%EE%E4%E8%F2%E5%EB%E5%E9+%E7%E0%EA%F0%FB%F2%EE%E3%EE+%CF%CE.&action=vote&poll_ident=5');

}