2 # Query the PineKnot Database server for a callsign
4 # from an idea by Steve Franke K9AN and information from Angel EA7WA
8 my ($self, $line) = @_;
9 my @list = split /\s+/, $line; # generate a list of callsigns
15 my $t = new Net::Telnet;
17 push @out, $self->msg('call1');
19 $t->open(Host => "jeifer.pineknot.com",
24 while (my $result = $t->getline) {
29 push @out, $self->msg('e18', 'PineKnot');