--- a/joker2	Fri Aug 08 16:35:25 2014 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,24 +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},
-);
-
-#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' => $_);
-}