1 #! /usr/bin/perl

     2 

     3 use 5.010;

     4 use strict;

     5 use warnings;

     6 use Smart::Comments;

     7 use Joker;

     8 

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

    10 

    11 my $joker = Joker->new(

    12     username => $conf{username},

    13     password => $conf{password},

    14 );

    15 

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

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

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

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

    20     foreach (sort keys %result) {

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

    22     }

    23 }

    24 

    25 exit 0;

    26 

    27 ### $x

    28 

    29 __END__

    30 

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

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

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

    34 

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

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

    37 }