X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcall.pl;h=4674b9180477c7c846d3be2e7405b6136ab8482c;hb=c20a2c1e01d707d6c3fa25067df93d491aba8fff;hp=92a99234c2819f227f5cfc4a7ad5ddd84fe3d9e6;hpb=55056d76ffafa69782a23bf830a0dc9e8c161838;p=spider.git

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 92a99234..4674b918 100644
--- a/cmd/show/call.pl
+++ b/cmd/show/call.pl
@@ -10,6 +10,8 @@ my @list = split /\s+/, $line;		      # generate a list of callsigns
 my $l;
 my @out;
 
+return (1, "SHOW/CALL <callsign>, e.g. SH/CALL g1tlh") unless @list;
+
 use Net::Telnet;
 
 my $t = new Net::Telnet;
@@ -21,6 +23,7 @@ foreach $l (@list) {
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print(uc $l);
+		Log('call', "show/call $l");
 		while (my $result = $t->getline) {
 			push @out,$result;
 		}