X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcall.pl;h=d45f756c597eaa74f61054a9e8cac5cd1423eea5;hb=08ef12723f860ed402ddb5f80ff163b1851e17ad;hp=4674b9180477c7c846d3be2e7405b6136ab8482c;hpb=38adb616f6c6e45b322c695684f7d2bddfd87644;p=spider.git

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 4674b918..d45f756c 100644
--- a/cmd/show/call.pl
+++ b/cmd/show/call.pl
@@ -8,6 +8,7 @@
 my ($self, $line) = @_;
 my @list = split /\s+/, $line;		      # generate a list of callsigns
 my $l;
+my $call = $self->call;
 my @out;
 
 return (1, "SHOW/CALL <callsign>, e.g. SH/CALL g1tlh") unless @list;
@@ -16,20 +17,20 @@ use Net::Telnet;
 
 my $t = new Net::Telnet;
 
-push @out, $self->msg('call1');
+push @out, $self->msg('call1', 'AA6HF');
 foreach $l (@list) {
 	$t->open(Host     =>  "jeifer.pineknot.com",
 			 Port     =>  1235,
 			 Timeout  =>  5);
 	if ($t) {
 		$t->print(uc $l);
-		Log('call', "show/call $l");
+		Log('call', "$call: show/call $l");
 		while (my $result = $t->getline) {
 			push @out,$result;
 		}
 		$t->close;
 	} else {
-		push @out, $self->msg('e18', 'PineKnot');
+		push @out, $self->msg('e18', 'AA6HF');
 	}
 }