add agwrestart command

diff --git a/Changes b/Changes
index 1e7423bcc920b9e0240316af0837648328bb9caa..662eb9c06c49d7dba8b123a0b9c4b50a02b86348 100644 (file)
--- 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 a94af02b1c22bf9564b71d6d30884defd2c030ca..46d3f39206491d8607f402aee1d8a7eced5c91a4 100644 (file)
--- 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 9e75609f3559a120fb4f0cdd1155a86076df14ba..0a11c0863ddb931c5ab6f758ad3d893a8b38ea2d 100644 (file)
--- 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]',