1 #! /usr/bin/perl

     2 

     3 use 5.010;

     4 use strict;

     5 use warnings;

     6 use Smart::Comments;

     7 

     8 use lib 'lib';

     9 use Joker;

    10 

    11 my %conf = do 'joker.conf';

    12 

    13 my $joker = Joker->new(

    14     username => $conf{username},

    15     password => $conf{password},

    16 );

    17 

    18 my $x =  $joker->request('query-whois', domain => shift);

    19 say $x->code, ':', $x->status;

    20 if ($x->code == 0) {

    21     my %result = %{ $x->data };

    22     foreach (sort keys %result) {

    23 	say "$_: $result{$_}";

    24     }

    25 }

    26 

    27 exit 0;

    28 

    29 ### $x

    30 

    31 __END__

    32 

    33 #say $joker->request('query-domain-list');

    34 my @results = map { (split)[1] } grep { /^\d/ } split /\r?\n/,

    35   $joker->request('result-list', status => 'nack');

    36 

    37 foreach (@results) {    ### deleting: [===|    ] [%]

    38     $joker->request('result-delete', 'svtrid' => $_);

    39 }