Mainyk.lt.pl

#!/usr/bin/perl

# (c)left Algirdas @ perl.lt
# piss_off_Sphinx_at_mainyk.lt.pl v1.0 [2009.03.18]

use LWP::UserAgent;
use HTTP::Cookies;


$user = 'kyoshu';
$pass = 'letmeinplease';

$msg_to = 'Sphinx';
$msg_ti = 'Santechniku as dirbu Ukmergei';
$msg_bo = 'O TAI TIKRAI TIKRAI MAINAI TIK KLAIPEDOJE?';


$ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file => "cookies.txt",autosave => 1));

$res = $ua->request(HTTP::Request->new(GET => "http://www.mainyk.lt"));
if ($res->is_success) { print "mainyk.lt gyvas!\n"; }
else { die "mainyk.lt NEgyvas!\n"; }

$req = HTTP::Request->new(POST => 'http://www.mainyk.lt/');
$req->content_type('application/x-www-form-urlencoded');
$req->content('username='.$user.'&password='.$pass);
$res = $ua->request($req);
if ($res->is_success) { print "prijungem!..\n"; }
else { die "mainyk.lt NEgyvas!\n"; }

$res = $ua->request(HTTP::Request->new(GET => "http://www.mainyk.lt/?pageid=11"));
if ($res->is_success) { print "paspaudziam zinutes..\n"; }
else { die "mainyk.lt NEgyvas!\n"; }

$res = $ua->request(HTTP::Request->new(GET => "http://www.mainyk.lt/?pageid=11&id=&expage=&new=true"));
if ($res->is_success) { print "paspaudziam rasyti nauja zinute!\n"; }
else { die "mainyk.lt NEgyvas!\n"; }

$req = HTTP::Request->new(POST => 'http://www.mainyk.lt/?pageid=11&id=&expage=&new=true');
$req->content_type('application/x-www-form-urlencoded');
$req->content('to='.$msg_to.'&title='.$msg_ti.'&body='.$msg_bo);
$res = $ua->request($req);
if ($res->is_success) { print "piss off completed, have a nice day.\n"; }
else { die "mainyk.lt NEgyvas!\n"; }