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
13 return (1, "SHOW/QRZ <callsign>, e.g. SH/QRZ g1tlh") unless @list;
17 my $t = new Net::Telnet;
19 push @out, $self->msg('call1', "QRZ.com");
21 $t->open(Host => "qrz.com",
25 $t->print("GET /database?callsign=$l HTTP/1.0\n\n");
26 Log('call', "show/qrz $l");
28 while (my $result = $t->getline) {
29 # print "$state: $result";
30 if ($state eq 'call' && $result =~ /$l/i) {
33 } elsif ($state eq 'getaddr' || $state eq 'inaddr') {
34 if ($result =~ /^\s+([\w\s.,;:-]+)(?:<br>)?$/) {
36 unless ($line =~ /^\s+$/) {
38 $state = 'inaddr' unless $state eq 'inaddr';
41 $state = 'runout' if $state eq 'inaddr';
47 push @out, $self->msg('e18', 'QRZ.com');