back port registration from mojo

[spider.git] / cmd / show / registered.pl

diff --git a/cmd/show/registered.pl b/cmd/show/registered.pl
index 929d014da692765bd5b4075a85029812afab03be..d375532462f5e2158fcf4c8c0082199c083581d8 100644 (file)
--- a/cmd/show/registered.pl
+++ b/cmd/show/registered.pl
@@ -36,13 +36,15 @@ unless (keys %call) {
 
 foreach $key (sort keys %call) {
        my $u = DXUser::get_current($key);
-       if ($u && $u->registered) {
-               push @val, $key;
+       if ($u && defined (my $r = $u->registered)) {
+               push @val, "${key}($r)";
                ++$count;
        }
+       
 }
 
 my @l;
+push @out, "Registration is " . ($main::reqreg ? "Required" :  "NOT Required");
 foreach my $call (@val) {
        if (@l >= 5) {
                push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;