cope with local users not being in the routing table (why!???)

diff --git a/cmd/show/configuration.pl b/cmd/show/configuration.pl
index bbfdd12c321788c1fee85f19a32caa4503f70ac1..a49ffeec990317d55cafc473b502627d150a785d 100644 (file)
--- a/cmd/show/configuration.pl
+++ b/cmd/show/configuration.pl
@@ -64,7 +64,11 @@ if ($list[0] && $list[0] =~ /^NOD/) {
                        }
                        my $uref = Route::User::get($call);
                        my $s = $call;
-                       $s = sprintf "(%s)", $s unless $uref->here;
+                       if ($uref) {
+                               $s = sprintf "(%s)", $call unless $uref->here;
+                       } else {
+                               $s = "$call?";
+                       }
                        push @l, $s;
                        $i++;
                }

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index 320e9b4be630cef81bf1a2c1769c6c41b3f1aa0e..46d641edf1430f81cd234284425fdf3a584f9f45 100644 (file)
--- a/cmd/show/users.pl
+++ b/cmd/show/users.pl
@@ -27,7 +27,11 @@ foreach $call (@val) {
        }
        my $uref = Route::User::get($call);
        my $s = $call;
-       $s = sprintf "(%s)", $s unless $uref->here;
+       if ($uref) {
+               $s = sprintf "(%s)", $call unless $uref->here;
+       } else {
+               $s = "$call?";
+       }
        push @l, $s;
        $i++;
 }