added sh/qrz

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

diff --git a/cmd/show/call.pl b/cmd/show/call.pl
index 4674b9180477c7c846d3be2e7405b6136ab8482c..28c409f06273d8a6c53418e386bfe38771f4f523 100644 (file)
--- a/cmd/show/call.pl
+++ b/cmd/show/call.pl
@@ -16,7 +16,7 @@ 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,
@@ -29,7 +29,7 @@ foreach $l (@list) {
                }
                $t->close;
        } else {
-               push @out, $self->msg('e18', 'PineKnot');
+               push @out, $self->msg('e18', 'AA6HF');
        }
 }