X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fregistered.pl;h=d375532462f5e2158fcf4c8c0082199c083581d8;hb=ec2bc54f842a3b684ce9375511f4ab2098717fe1;hp=929d014da692765bd5b4075a85029812afab03be;hpb=23b5ee57c8db6a3269d41bf11f2264c074780b88;p=spider.git

diff --git a/cmd/show/registered.pl b/cmd/show/registered.pl
index 929d014d..d3755324 100644
--- 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;