# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1407490004 -7200
# Node ID d582082e167d8d909fc7cac3795afb0d50902aa1
# Parent  9ffd8fa8234534c6998a760f88639f14fcd357b2
domain name (.de) kann auf der Kommandozeile eingegeben werden

diff -r 9ffd8fa82345 -r d582082e167d joker
--- a/joker	Fri Aug 08 11:11:02 2014 +0200
+++ b/joker	Fri Aug 08 11:26:44 2014 +0200
@@ -18,7 +18,7 @@
 );
 
 given (+shift) {
-    when ('request') {
+    when ('register') {
         my $domain = +shift // die "$0: need domain\n";
         my $proc_id = $joker->do_request(
             'domain-register',
@@ -33,7 +33,7 @@
         );
         say "ID: $proc_id"
     }
-    when ('result') {
+    when ([qw(status result)]) {
         my $id     = shift;
         my %result = $joker->result_list;
         foreach (
@@ -50,7 +50,7 @@
 
     }
     default {
-        die "$0 [request domain|result [id]]\n"
+        die "$0 [register domain|result [id]]\n"
     }
 }