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

[Denis Nazarov <marsden@mail.ru>]

On Tuesday 09 June 2009 12:43:41 Vladimir V Kutyavin wrote:
> Евгений пишет:
> > Ну много не навертишь. Надо автоматизировать :)
>
> Предложили на 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&opt
>ion_id=%CC%EE%ED%EE%EF%EE%EB%E8%FF+%EF%F0%EE%E8%E7%E2%EE%E4%E8%F2%E5%EB%E
>5%E9+%E7%E0%EA%F0%FB%F2%EE%E3%EE+%CF%CE.&action=vote&poll_ident=5');
>
> }
>
Что-то у меня скрипт подвисает...