X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fregistered.pl;h=4876aea2a7d6f9740f413eda68422f7f389b0afe;hb=1a9286080b21d5b65f97cab08d8a493abafad8f1;hp=71ed0e38a4609c7b15cbd68827dd54a809b3e9de;hpb=36476fc1fa5aeefc5d34ff9e8bb9c08fafcfe589;p=spider.git diff --git a/cmd/show/registered.pl b/cmd/show/registered.pl index 71ed0e38..4876aea2 100644 --- a/cmd/show/registered.pl +++ b/cmd/show/registered.pl @@ -62,6 +62,7 @@ sub generate } my @l; + push @out, "Registration is " . ($main::reqreg ? "Required" : "NOT Required"); foreach my $call (@val) { if (@l >= 5) { push @out, sprintf "%-14s %-14s %-14s %-14s %-14s", @l;