added a not found message to sh/qrz

added some extra Net::Telnet options to client.pl

diff --git a/cmd/show/qrz.pl b/cmd/show/qrz.pl
index 9dd99818d4d4bc231b7caf62c5559911e0df832b..4b05c7e0a5020b6d69369d084868dd5bc9969567 100644 (file)
--- a/cmd/show/qrz.pl
+++ b/cmd/show/qrz.pl
@@ -39,6 +39,7 @@ foreach $l (@list) {
                        }
                }
                $t->close;
+               push @out, $self->msg('e3', 'qrz.com', $call) unless @out;
        } else {
                push @out, $self->msg('e18', 'QRZ.com');
        }

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 6b0bb554abebcbf877ad51558df696c4cd3e8f0b..779139fc3a5c5b20b8869103e0271d2c82f18b18 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -89,6 +89,7 @@ use vars qw(%channels %valid);
                  logininfo => '9,Login info req,yesno',
                  talklist => '0,Talk List,parray',
                  cluster => '5,Cluster data',
+                 isbasic => '9,Internal Connection', 
                 );
 
 # object destruction

diff --git a/perl/client.pl b/perl/client.pl
index f153b589cb455b7eaf3348088697c13daa6f8977..ddf3fd3ba6adba52f6ed6f19ccab464d613dbd05 100755 (executable)
--- a/perl/client.pl
+++ b/perl/client.pl
@@ -94,6 +94,7 @@ sub setmode
                $out_lineend = "\r\n";
        }
        $/ = $mynl;
+       $out_lineend = $mynl;
 }
 
 # handle incoming messages
@@ -235,6 +236,12 @@ sub doconnect
                $sock->output_record_separator('');
                $sock->option_accept(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO);
                $sock->open($host) or die "Can't connect to $host port $port $!";
+               if ($port == 23) {
+                       $sock->telnetmode(1);
+                       $sock->option_send(Dont => TELOPT_ECHO, Wont => TELOPT_ECHO) if $port == 23;
+               } else {
+                       $sock->telnetmode(0);
+               }
                $sock->binmode(0);
                $mode = 3;
        } elsif ($sort eq 'ax25' || $sort eq 'prog') {

diff --git a/perl/cluster.pl b/perl/cluster.pl
index e66d45aaba898726c3dbdb788a2a305b2cf67384..995500ca934239b4ca18ec6ba580d9ef96f8e3c8 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -338,21 +338,23 @@ Msg->new_server("$clusteraddr", $clusterport, \&login);
 dbg('err', "load badwords: " . (BadWords::load or "Ok"));
 
 # prime some signals
-$SIG{INT} = \&cease;
-$SIG{TERM} = \&cease;
-$SIG{HUP} = 'IGNORE';
-$SIG{CHLD} = sub { $zombies++ };
-
-$SIG{PIPE} = sub {     dbg('err', "Broken PIPE signal received"); };
-$SIG{IO} = sub {       dbg('err', "SIGIO received"); };
-$SIG{WINCH} = $SIG{STOP} = $SIG{CONT} = 'IGNORE';
-$SIG{KILL} = 'DEFAULT';     # as if it matters....
-
-# catch the rest with a hopeful message
-for (keys %SIG) {
-       if (!$SIG{$_}) {
-#              dbg('chan', "Catching SIG $_");
-               $SIG{$_} = sub { my $sig = shift;       DXDebug::confess("Caught signal $sig");  }; 
+unless ($^O =~ /^MS/) {
+       $SIG{INT} = \&cease;
+       $SIG{TERM} = \&cease;
+       $SIG{HUP} = 'IGNORE';
+       $SIG{CHLD} = sub { $zombies++ };
+       
+       $SIG{PIPE} = sub {      dbg('err', "Broken PIPE signal received"); };
+       $SIG{IO} = sub {        dbg('err', "SIGIO received"); };
+       $SIG{WINCH} = $SIG{STOP} = $SIG{CONT} = 'IGNORE';
+       $SIG{KILL} = 'DEFAULT';     # as if it matters....
+
+       # catch the rest with a hopeful message
+       for (keys %SIG) {
+               if (!$SIG{$_}) {
+                       #               dbg('chan', "Catching SIG $_");
+                       $SIG{$_} = sub { my $sig = shift;       DXDebug::confess("Caught signal $sig");  }; 
+               }
        }
 }