From: Dirk Koopman <djk@tobit.co.uk>
Date: Thu, 12 Sep 2013 12:40:58 +0000 (+0100)
Subject: Merge branch 'master' of /scm/spider
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=59a8866a3f16a11ae3d981a7d4f6d017d2e1ad07;hp=725d28d2ebfb1fd2ae83ba10d68c7337678a5c1b;p=spider.git

Merge branch 'master' of /scm/spider
---

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 <callsign>, 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);