add set and unset/agwmonitoring

Changes

@@ -1,3 +1,6 @@
+29Mar01=======================================================================
+1. add better tracking of AGW circuits (possibly)
+2. add set and unset/agwmonitor (ing) [for all the notice it seems to take]
 28Mar01=======================================================================
 1. AGW engine stuff now accepts incoming calls and at least attempts to do
 outgoing ones. YMMV.

cmd/set/agwmonitor.pl

@@ -0,0 +1,17 @@
+#
+# set AGW engine monitoring
+#
+# $Id$
+#
+
+my $self = shift;
+return (1, $self->msg('e5')) if $self->priv < 9;
+if ($AGWMsg::monitor == 0) {
+	AGWMsg::_sendf('m');
+	$AGWMsg::monitor = 1;
+	return (1, $self->msg('mone'));
+}
+return (1);
+
+
+

cmd/unset/agwmonitor.pl

@@ -0,0 +1,14 @@
+#
+# unset AGW engine monitoring
+#
+# $Id$
+#
+
+my $self = shift;
+return (1, $self->msg('e5')) if $self->priv < 9;
+if ($AGWMsg::monitor == 1) {
+	AGWMsg::_sendf('m');
+	$AGWMsg::monitor = 0;
+	return (1, $self->msg('mond'));
+}
+return (1);

perl/AGWConnect.pm

@@ -37,6 +37,6 @@ $monitor = 0;
 $ypolltime = 10;
 
 # time between polls of Mheard
-$hpolltime = 120;
+$hpolltime = 300;
  
 1;

perl/AGWMsg.pm

@@ -41,7 +41,7 @@ $rproc = undef;
 $noports = 0;
 $lastytime = $lasthtime = time;
 $ypolltime = 10 unless defined $ypolltime;
-$hpolltime = 120 unless defined $hpolltime;
+$hpolltime = 300 unless defined $hpolltime;
 %circuit = ();
 
 sub init

perl/Messages

@@ -148,6 +148,8 @@ package DXM;
 				msgu => 'usage: msg <cmd> <msgno> data...',
 				merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
 				moon => 'Location                              Rise   Set      Azim   Elev RGain dB',
+				mond => 'Monitoring Disabled',
+				mone => 'Monitoring Enabled',
 				namee1 => 'Please enter your name, set/name <your name>',
 				namee2 => 'Can\'t find user $_[0]!',
 				name => 'Your name is now \"$_[0]\"',