# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1419181878 -3600
# Node ID 845bf6de0c4c7d086490e2e2677249aba6e625ba
# Parent  3319abec33a588ab96f6fddb9106504166027fb3
moved joker-whois to the bin dir

diff -r 3319abec33a5 -r 845bf6de0c4c Build.PL
--- a/Build.PL	Sun Dec 21 18:09:16 2014 +0100
+++ b/Build.PL	Sun Dec 21 18:11:18 2014 +0100
@@ -11,5 +11,6 @@
 	'Moose' => 0,
 	'MooseX::SemiAffordanceAccessor' => 0
     },
+    script_files => [glob('bin/*')],
 )->create_build_script;
 
diff -r 3319abec33a5 -r 845bf6de0c4c MANIFEST
--- a/MANIFEST	Sun Dec 21 18:09:16 2014 +0100
+++ b/MANIFEST	Sun Dec 21 18:11:18 2014 +0100
@@ -1,9 +1,8 @@
 .hgignore
+bin/joker-whois
 Build.PL
 doc/DMAPI-ext.txt
 joker
-joker-whois
-joker.conf
 joker.conf.example
 lib/Joker.pm
 lib/Joker/Result.pm
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' => $_);
+}
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' => $_);
-}