diff -r 3319abec33a5 -r 845bf6de0c4c bin/joker-whois --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/bin/joker-whois Sun Dec 21 18:11:18 2014 +0100 @@ -0,0 +1,37 @@ +#! /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' => $_); +}