#!c:/Perl/bin/perl
# (c) 2008, nizamov@inbox.ru

use strict;
use LWP;
use HTTP::Cookies;
use HTTP::Headers::Util qw(split_header_words);
use encoding "ru_RU.CP1251";

my $email = '';
my $pass = '';

my $ua = LWP::UserAgent->new;
my $cookie_jar = HTTP::Cookies->new;
$ua ->cookie_jar($cookie_jar); 
$ua->agent("Calendar/0.1 (Linux; U; Windows NT 5.1; ru) Import");
open (VKCALICS, ">>:utf8", "vk.events.ics");
print VKCALICS "BEGIN:VCALENDAR\nVERSION:2.0\nPRODID:-//Mozilla.org/NONSGML Mozilla Calendar V1.1//EN";
&set_cookies($email,$pass);
&calendar();
print VKCALICS "\nEND:VCALENDAR";
close (VKCALICS);


# --------------------------------------------------------------------
sub set_cookies
# авторизация
{
my $email = $_[0];
my $pass = $_[1];
my $url = "http://vkontakte.ru/login.php";
my $res = $ua->post(
$url,
['email' => $email,
'pass'  => $pass
]);
my $cookie = $res->header("Set-Cookie");
$cookie_jar->extract_cookies( $res );
}

# --------------------------------------------------------------------
sub calendar
# вывод страницы календарей за все месяцы
{
my $cookie=$_[0];
foreach my $month (1..12){
my $url = "http://vkontakte.ru/calendar_ajax.php?month=$month&year=2008";
my $req = new HTTP::Request(
'GET' => "$url",
new HTTP::Headers(
'Host' => 'vkontakte.ru',
'User-Agent' => 'Calendar/0.1 (Linux; U; Windows NT 5.1; ru) Gecko Mozilla',
'Accept' => 'text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5',
'Accept-Language' => 'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3',
'Accept-Encoding' => 'gzip,deflate',
'Accept-Charset' => 'windows-1251,utf-8;q=0.7,*;q=0.7',
'Keep-Alive' => '300',
'Connection' => 'keep-alive',
'Content-Type' => 'application/x-www-form-urlencoded; charset=windows-1251',
'Referer' => 'http://vkontakte.ru/events.php?act=calendar',
'Content-Length' => '0',
'Pragma' => 'no-cache',
'Cache-Control' => 'no-cache'
));
$cookie_jar->add_cookie_header($req);
my $res = $ua->request($req);
my $cont = HTTP::Message->new( $res->headers, $res->content );
if ($res->is_success) {
        my $cal_one = $cont->decoded_content( 'charset' => "none" );
        &parce_cal_all($cal_one,$month);
    }
    else {
        print STDERR $res->status_line, "\n";
    }
}
}

# --------------------------------------------------------------------
sub parce_cal_all
# парсим календарь
{
my $cal_one=$_[0];
my $month=$_[1];
printf VKCALICS "\nBEGIN:VEVENT\nSUMMARY:$5\nRRULE:FREQ=YEARLY;INTERVAL=1\nDTSTART;VALUE=DATE:2008%02d%02d\nDTEND;VALUE=DATE:2008%02d%02d\nCATEGORIES:Дни рождения\nURL:http://vkontakte.ru/$2\nDESCRIPTION:Дата Рождения: %02d.%02d.".(2008-$6)."\\nФото:\n $4\nEND:VEVENT"
, $month, $1, $month, ($1+1), $1, $month 
while $cal_one =~ /<div class='calPic' id='([^>]*?)pic0' ><a href='([^>]*?)'>([^>]*?)trailOn\('([^>]*?)','([^>]*?)\s+\((.*?)\)'/g;
}