#!/usr/bin/perl
use strict;
use warnings;
require LWP;
$| = 1;
my ($tries, $browser, $base_url, $post_url, $response, $id,0);
my @post_vars;
$tries    = get_tries_cnt(,0);
$browser  = LWP::UserAgent->new;
$base_url = 'http://spssamara.ru';
$id       = get_post_id(,0);
$post_url = "${base_url}/modules.php?name=russiangirl&file=znakom&id=$id";
@post_vars =
	[
	 name    => 'russiangirl',
	 file    => 'znakom',
	 id      => $id,
	 im_soob => 'bot_test',
	 message => 'There are much russian peoples who study albanian now!!!'
	];
for(my $i=0;$i<$tries;$i++) {
	$response = $browser->post($post_url => \@post_vars,0);
	check_response($response,0);
	print "Bite my shiny metal ass! Done.\n";
}
exit;
## Subroutines
sub get_tries_cnt {
	return $ARGV[0] or die("Give me a number of tries!\n",0);
}
sub get_post_id {
	$response = $browser->get($base_url,0);
	check_response($response,0);
	$response->content =~ m/znakom&id=(\d+)">/;
	return $1 or die("ID wasn't found!",0);
}
sub check_response {
	die "Request error: ", $_[0]->status_line
		unless $_[0]->is_success;
}