--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgignore Fri Aug 08 11:51:32 2014 +0200
@@ -0,0 +1,2 @@
+syntax:glob
+joker.conf
--- a/joker Fri Aug 08 11:26:44 2014 +0200
+++ b/joker Fri Aug 08 11:51:32 2014 +0200
@@ -5,9 +5,10 @@
use warnings;
use if $ENV{DEBUG} => 'Smart::Comments';
use Data::Dumper;
+use Pod::Usage;
use WWW::Domain::Registry::Joker;
-my %conf = do 'credentials.conf';
+my %conf = do 'joker.conf';
my $joker = WWW::Domain::Registry::Joker->new(
username => $conf{username},
@@ -19,7 +20,7 @@
given (+shift) {
when ('register') {
- my $domain = +shift // die "$0: need domain\n";
+ my $domain = +shift // pod2usage;
my $proc_id = $joker->do_request(
'domain-register',
domain => $domain,
@@ -34,23 +35,40 @@
say "ID: $proc_id"
}
when ([qw(status result)]) {
- my $id = shift;
+ my $id = shift // '';
my %result = $joker->result_list;
- foreach (
- map { $result{$_} }
- sort { $result{$a}{tstamp} <=> $result{$b}{tstamp} }
- grep { defined $id ? ($id == $_) : 1 } keys %result
- )
+ foreach (grep {
+ $id =~ /^\d+$/ ? $_->{procid} == $id : $_->{reqobject} =~ $id
+ } sort { $a->{tstamp} <=> $b->{tstamp} } values %result)
{
$_->{tstamp} =~ s/(?<y>\d{4})(?<m>\d\d)(?<d>\d\d)
(?<H>\d\d)(?<M>\d\d)(?<S>\d\d)\..*
/$+{y}-$+{m}-$+{d} $+{H}:$+{M}:$+{S}/x;
- say "$_->{reqtype} $_->{tstamp} $_->{reqobject} $_->{status}";
+ say "$_->{procid} $_->{tstamp} $_->{reqtype} $_->{reqobject} $_->{status}";
}
}
default {
- die "$0 [register domain|result [id]]\n"
+ pod2usage;
}
}
+__END__
+
+=head1 NAME
+
+ joker - register a domain
+
+=head1 SYNOPSIS
+
+ joker register <domain>
+ joker status [<id>|<pattern>]
+
+=head1 DESCRIPTION
+
+This tool registers a domain at joker.
+
+
+=cut
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/joker.conf.example Fri Aug 08 11:51:32 2014 +0200
@@ -0,0 +1,6 @@
+#! perl
+(
+ # the joker account credentials
+ username => '…',
+ password => '…',
+);