hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

added a not found message to sh/qrz

Browse Source 
added some extra Net::Telnet options to client.pl
This commit is contained in:
minima 2001-02-25 17:36:52 +00:00
parent 7404ef390b
commit dc016a0633
4 changed files with 25 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cmd/show/qrz.pl
View File

@ -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');
}

1
perl/DXChannel.pm
View File

@ -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

7
perl/client.pl
View File

@ -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') {

30
perl/cluster.pl
View File

@ -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++ };
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....
$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"); };
# 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"); };
}
}
}