#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Cookies;
use threads;
use threads::shared;

###CONFIG###
$login = 'Alexers';
$pass = '399152';
$text = 'Gaus'; #Текст мессаги
$from = '1'; #Диапазон страниц для спамма: от
$to = '1'; #Диапазон страниц для спамма: до
$threads = 2;
###CONFIG###

for(0..$threads) {$trl[$_] = threads->create(&spam, $_);}
for(@trl) { $_->join; }

my $ua=LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new);

my $url2login='http://rutube.ru/login.html';
my $response=$ua->post($url2login,
[ "rm" => "ajax_login",
"nick" => "$login",
"pass" => "$pass",
"openid" => "",
])->as_string;

sub spam{

for($i=$from;$i<$to;$i++){
my $data = $ua->get('http://rutube.ru/tracks/index.html?p=$i')->as_string;
while($data =~/tracks/(d*).html/msgi) {

$response=$ua->post("http://rutube.ru/tracks/comments.html",
[ "post_id" => "$1",
"parent_id" => "0",
"rm" => "add_ajax",
"text" => "$text",
"page" => "0",
"type" => "track",
])->as_string;
}
}
}