#!/usr/bin/perl -w

use strict;

use URI::URL;
use LWP::UserAgent;
use Carp;

my $username = 'test';
my $password = 'test';

foreach my $domain (@ARGV) {
    trans_dom( $domain );
}

sub trans_dom {
    my ($domain) = @_;

    print "Trying to submit request for $domain...\n";
    my $res = http_req(
	'https://www.reg.ru/api/regru',
	{
	    action => 'domain_get_info',
	    fail_if_no_money => 1,
	    username => $username,
	    password => $password,
	    domain_name => $domain,
	    period => 0,
	}
    );
    print "$res\n";
}


# Послать HTTP-запрос
sub http_req {
    my ($url, $params, $referer, $ua, $proxy) = @_;

    unless ($ua) {
	$ua = new LWP::UserAgent( parse_head => 0 );
	$ua->agent('Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4) Gecko/20030703');
    }
    $ua->proxy('http', $proxy) if $proxy;

    my $method = $params ? 'POST' : 'GET';
    my $req = new HTTP::Request $method, $url;
    $req->init_header('Referer' => $referer) if $referer;

    if (uc($method) eq 'POST') {
	my $curl = URI::URL->new();
	$curl->query_form( %$params );
	$req->content_type('application/x-www-form-urlencoded');
	$req->content( $curl->equery );
    }

    my $res = $ua->request($req);
    unless ($res->is_success) {
	die "Request failed: $url\n".$res->status_line."\n";
    }

    return $res->content;
}