*** empty log message ***

diff --git a/cmd/Commands_en.hlp b/cmd/Commands_en.hlp
index 4342f5f2a10269dd58e998673e96aefa0c20a2e0..498f3ad26e5073e1cd10c9d04a90d156d24287de 100644 (file)
--- 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
    
    
 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.
 
 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 184e53559e34e2246506832fe4045a982dce3789..7e942af777f5026dcc6843c7018a932b09032b8b 100644 (file)
--- a/filter/spots/GB7DJK.pl.issue
+++ b/filter/spots/GB7DJK.pl.issue
@@ -27,5 +27,6 @@
 # hop count
 
 $in = [
 # 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 2e6a4f1727452652d1b32f3ccf7353e2016cedd9..376587645c8599abb15b2bb43ac82238afad2722 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -41,10 +41,10 @@ BEGIN {
 use Msg;
 use DXVars;
 use DXDebug;
 use Msg;
 use DXVars;
 use DXDebug;

+use Net::Telnet qw(TELOPT_ECHO);

 use IO::File;
 use IO::Socket;
 use IPC::Open2;
 use IO::File;
 use IO::Socket;
 use IPC::Open2;

-use Net::Telnet qw(TELOPT_ECHO);

 use Carp qw{cluck};
 
 # cease communications
 use Carp qw{cluck};
 
 # cease communications


@@ -209,12 +209,13 @@ sub doconnect
                $port = 23 if !$port;
                
 #              if ($port == 23) {
                $port = 23 if !$port;
                
 #              if ($port == 23) {

+

                        $sock = new Net::Telnet (Timeout => $timeout, Port => $port);
                        $sock->option_callback(\&optioncb);
                        $sock->output_record_separator('');
                        $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')
                        $sock->open($host) or die "Can't connect to $host port $port $!";
 #              } else {
 #                      $sock = IO::Socket::INET->new(PeerAddr => "$host:$port", Proto => 'tcp')