diff -r 3319abec33a5 -r 845bf6de0c4c joker-whois
--- a/joker-whois	Sun Dec 21 18:09:16 2014 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,39 +0,0 @@
-#! /usr/bin/perl
-
-use 5.010;
-use strict;
-use warnings;
-use Smart::Comments;
-
-use lib 'lib';
-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' => $_);
-}