equal
deleted
inserted
replaced
16 |
16 |
17 # dmapi_url => 'https://dmapi.ote.joker.com/request', |
17 # dmapi_url => 'https://dmapi.ote.joker.com/request', |
18 ); |
18 ); |
19 |
19 |
20 given (+shift) { |
20 given (+shift) { |
21 when ('request') { |
21 when ('register') { |
22 my $domain = +shift // die "$0: need domain\n"; |
22 my $domain = +shift // die "$0: need domain\n"; |
23 my $proc_id = $joker->do_request( |
23 my $proc_id = $joker->do_request( |
24 'domain-register', |
24 'domain-register', |
25 domain => $domain, |
25 domain => $domain, |
26 period => 12, |
26 period => 12, |
31 'tech-c' => 'CODE-1561', |
31 'tech-c' => 'CODE-1561', |
32 'ns-list' => 'pu.schlittermann.de:hh.schlittermann.de', |
32 'ns-list' => 'pu.schlittermann.de:hh.schlittermann.de', |
33 ); |
33 ); |
34 say "ID: $proc_id" |
34 say "ID: $proc_id" |
35 } |
35 } |
36 when ('result') { |
36 when ([qw(status result)]) { |
37 my $id = shift; |
37 my $id = shift; |
38 my %result = $joker->result_list; |
38 my %result = $joker->result_list; |
39 foreach ( |
39 foreach ( |
40 map { $result{$_} } |
40 map { $result{$_} } |
41 sort { $result{$a}{tstamp} <=> $result{$b}{tstamp} } |
41 sort { $result{$a}{tstamp} <=> $result{$b}{tstamp} } |
48 say "$_->{reqtype} $_->{tstamp} $_->{reqobject} $_->{status}"; |
48 say "$_->{reqtype} $_->{tstamp} $_->{reqobject} $_->{status}"; |
49 } |
49 } |
50 |
50 |
51 } |
51 } |
52 default { |
52 default { |
53 die "$0 [request domain|result [id]]\n" |
53 die "$0 [register domain|result [id]]\n" |
54 } |
54 } |
55 } |
55 } |
56 |
56 |