Add CTY-3013 Prefixes

[spider.git] / perl / call.pl

diff --git a/perl/call.pl b/perl/call.pl
index 89cdb2f05c37d986c9689b46b364e0aca620c8c8..8c089e00d8881032f4d0f0bb23d0c11affda9499 100755 (executable)
--- a/perl/call.pl
+++ b/perl/call.pl
@@ -1,20 +1,37 @@
-#!/usr/bin/perl
 #
-# a little program to see if I can use ax25_call in a perl script
+# Query the PineKnot Database server for a callsign
 #
+# from an idea by Steve Franke K9AN and information from Angel EA7WA
+#
+#
+#
+my ($self, $line) = @_;
+my @list = split /\s+/, $line;               # generate a list of callsigns
+my $l;
+my $call = $self->call;
+my @out;
 
-use FileHandle;
-use IPC::Open2;
-
-$pid = Open2( \*IN, \*OUT, "ax25_call ether GB7DJK-1 G1TLH");
+return (1, "SHOW/CALL <callsign>, e.g. SH/CALL g1tlh") unless @list;
 
-IN->input_record_separator("\r");
-OUT->output_record_separator("\r");
-OUT->autoflush(1);
+use Net::Telnet;
 
-vec($rin, fileno(STDIN), 1) = 1;
-vec($rin, fileno(IN), 1) = 1;
+my $t = new Net::Telnet;
 
-while (($nfound = select($rout=$rin, undef, undef, 0.001)) >= 0) {
-  
+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 \U$l");
+               while (my $result = $t->getline) {
+                       push @out,$result;
+               }
+               $t->close;
+       } else {
+               push @out, $self->msg('e18', 'AA6HF');
+       }
 }
+
+return (1, @out);