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 #say $joker->request('query-domain-list');

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

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

    21 

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

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

    24 }