From: djk <djk>
Date: Sat, 21 Aug 1999 10:19:57 +0000 (+0000)
Subject: *** empty log message ***
X-Git-Tag: R_1_31~4
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=918827ec5a9023edeb2ce0140692566591af0af8;p=spider.git

*** empty log message ***
---

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 4342f5f2..498f3ad2 100644
--- a/cmd/Commands_en.hlp
+++ b/cmd/Commands_en.hlp
@@ -378,7 +378,8 @@ day <from>-<to> - <from> days <to> days ago
    
 info <text>     - any spots containing <text> in the info or remarks
    
-spotter <call>  - any spots spotted by <call>
+by <call>       - any spots spotted by <call> (spotter <call> is the 
+                  same).
 
 qsl             - this automatically looks for any qsl info on the call
                   held in the spot database.
diff --git a/filter/spots/GB7DJK.pl.issue b/filter/spots/GB7DJK.pl.issue
index 184e5355..7e942af7 100644
--- a/filter/spots/GB7DJK.pl.issue
+++ b/filter/spots/GB7DJK.pl.issue
@@ -27,5 +27,6 @@
 # hop count
 
 $in = [
-	[ 1, 0, 'd', 0, 4 ]
+        [ 0, 12, 'a', '^IK5PWJ', 0 ] ,
+	[ 1, 0, 'd', 0, 3 ]
 ];
diff --git a/perl/client.pl b/perl/client.pl
index 2e6a4f17..37658764 100755
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -41,10 +41,10 @@ BEGIN {
 use Msg;
 use DXVars;
 use DXDebug;
+use Net::Telnet qw(TELOPT_ECHO);
 use IO::File;
 use IO::Socket;
 use IPC::Open2;
-use Net::Telnet qw(TELOPT_ECHO);
 use Carp qw{cluck};
 
 # cease communications
@@ -209,12 +209,13 @@ sub doconnect
 		$port = 23 if !$port;
 		
 #		if ($port == 23) {
+
 			$sock = new Net::Telnet (Timeout => $timeout, Port => $port);
 			$sock->option_callback(\&optioncb);
 			$sock->output_record_separator('');
-			$sock->option_log('option_log');
-			$sock->dump_log('dump');
-			$sock->option_accept(Wont => TELOPT_ECHO);
+#			$sock->option_log('option_log');
+#			$sock->dump_log('dump');
+			$sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO);
 			$sock->open($host) or die "Can't connect to $host port $port $!";
 #		} else {
 #			$sock = IO::Socket::INET->new(PeerAddr => "$host:$port", Proto => 'tcp')