From: minima <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.org/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]',