From: minima Date: Sat, 31 Mar 2001 08:23:23 +0000 (+0000) Subject: add agwrestart command X-Git-Tag: R_1_47~59 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b299fff024e01d8a5838ef2066288bee0d54bf1;p=spider.git add agwrestart command --- diff --git a/Changes b/Changes index 1e7423bc..662eb9c0 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +31Mar01======================================================================= +1. added agwrestart command 30Mar01======================================================================= 1. fix errors on accept in ExtMsg and in Msg 2. fix the non-blocking problems of connects (and other things in general). diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm index a94af02b..46d3f392 100644 --- a/perl/AGWMsg.pm +++ b/perl/AGWMsg.pm @@ -97,6 +97,11 @@ sub finish } } +sub active +{ + return $sock; +} + sub _sendf { my $sort = shift || confess "need a valid AGW command letter"; @@ -158,7 +163,7 @@ sub _send } } if (isdbg('raw')) { - dbgdump('raw', "send $bytes_written: ", $msg); + dbgdump('raw', "AGW send $bytes_written: ", $msg); } $offset += $bytes_written; $bytes_to_write -= $bytes_written; @@ -187,7 +192,7 @@ sub _rcv { # Complement to _send if ($bytes_read > 0) { $inmsg .= $msg; if (isdbg('raw')) { - dbgdump('raw', "read $bytes_read: ", $msg); + dbgdump('raw', "AGW read $bytes_read: ", $msg); } } } else { diff --git a/perl/Messages b/perl/Messages index 9e75609f..0a11c086 100644 --- a/perl/Messages +++ b/perl/Messages @@ -41,6 +41,7 @@ package DXM; db10 => '$_[0] records imported into $_[1]', db11 => 'Sending your request(s) to $_[0], please stand by...', dfreq1 => 'Invalid freq $_[0] need: eg 0/30000 or hf or hf/cw', + done => 'Done', dup => 'Sorry, this is a duplicate', dx1 => 'Frequency $_[0] not in band (see show/band); usage: DX [BY call] freq call comments', dx2 => 'Need a callsign; usage: DX [BY call] freq call comments', @@ -165,6 +166,7 @@ package DXM; nodexc => '$_[0] created as DXNET style Node', nodeu => '$_[0] set back as a User', nodee1 => 'You cannot use this command whilst your target ($_[0]) is on-line', + notdone => 'NOT Done', obscount => 'Ping obsolescence count on $_[0] set to $_[1]', ok => 'Operation successful', outconn => 'Outstanding connect to $_[0]',