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;
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', "$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');
}
}