#! /usr/bin/perl

use 5.010;
use strict;
use warnings;
use Smart::Comments;
use Joker;

my %conf = do 'joker.conf';

my $joker = Joker->new(
    username => $conf{username},
    password => $conf{password},
);

my $x =  $joker->request('query-whois', domain => shift);
say $x->code, ':', $x->status;
if ($x->code == 0) {
    my %result = %{ $x->data };
    foreach (sort keys %result) {
	say "$_: $result{$_}";
    }
}

exit 0;

### $x

__END__

#say $joker->request('query-domain-list');
my @results = map { (split)[1] } grep { /^\d/ } split /\r?\n/,
  $joker->request('result-list', status => 'nack');

foreach (@results) {    ### deleting: [===|    ] [%]
    $joker->request('result-delete', 'svtrid' => $_);
}
