From 2afa578fe5c80c047c67427a3002eea0392727d0 Mon Sep 17 00:00:00 2001 From: Dirk Koopman Date: Wed, 11 Sep 2013 00:36:45 +0100 Subject: [PATCH] get 302 working in AsyncMsg, basic get/keps --- perl/Version.pm | 4 ++-- perl/call.pl | 37 ------------------------------------- 2 files changed, 2 insertions(+), 39 deletions(-) delete mode 100755 perl/call.pl diff --git a/perl/Version.pm b/perl/Version.pm index 5740ddeb..6efa7834 100644 --- a/perl/Version.pm +++ b/perl/Version.pm @@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion); $version = '1.55'; $subversion = '0'; -$build = '133'; -$gitversion = 'e941823'; +$build = '134'; +$gitversion = 'b099b4a'; 1; diff --git a/perl/call.pl b/perl/call.pl deleted file mode 100755 index 8c089e00..00000000 --- a/perl/call.pl +++ /dev/null @@ -1,37 +0,0 @@ -# -# 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; - -return (1, "SHOW/CALL , e.g. SH/CALL g1tlh") unless @list; - -use Net::Telnet; - -my $t = new Net::Telnet; - -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); -- 2.43.0