From 918827ec5a9023edeb2ce0140692566591af0af8 Mon Sep 17 00:00:00 2001 From: djk Date: Sat, 21 Aug 1999 10:19:57 +0000 Subject: [PATCH] *** empty log message *** --- cmd/Commands_en.hlp | 3 ++- filter/spots/GB7DJK.pl.issue | 3 ++- perl/client.pl | 9 +++++---- 3 files changed, 9 insertions(+), 6 deletions(-) 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 - - days days ago info - any spots containing in the info or remarks -spotter - any spots spotted by +by - any spots spotted by (spotter 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') -- 2.43.0