added echo cancelling

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

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 92a99234c2819f227f5cfc4a7ad5ddd84fe3d9e6..4674b9180477c7c846d3be2e7405b6136ab8482c 100644 (file)
--- 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;
                }