From f48da7dcd6d8305c018bebc6ffb5c11c3346aacf Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Thu, 29 Mar 2001 10:43:41 +0000
Subject: [PATCH] add set and unset/agwmonitoring

---
 Changes                 |  3 +++
 cmd/set/agwmonitor.pl   | 17 +++++++++++++++++
 cmd/unset/agwmonitor.pl | 14 ++++++++++++++
 perl/AGWConnect.pm      |  2 +-
 perl/AGWMsg.pm          |  2 +-
 perl/Messages           |  2 ++
 6 files changed, 38 insertions(+), 2 deletions(-)
 create mode 100644 cmd/set/agwmonitor.pl
 create mode 100644 cmd/unset/agwmonitor.pl

diff --git a/Changes b/Changes
index 32d864c1..a9179966 100644
--- a/Changes
+++ b/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.
diff --git a/cmd/set/agwmonitor.pl b/cmd/set/agwmonitor.pl
new file mode 100644
index 00000000..6de81998
--- /dev/null
+++ b/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);
+
+
+
diff --git a/cmd/unset/agwmonitor.pl b/cmd/unset/agwmonitor.pl
new file mode 100644
index 00000000..c9bfb6e8
--- /dev/null
+++ b/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);
diff --git a/perl/AGWConnect.pm b/perl/AGWConnect.pm
index f9fc2761..88f6c5e1 100644
--- a/perl/AGWConnect.pm
+++ b/perl/AGWConnect.pm
@@ -37,6 +37,6 @@ $monitor = 0;
 $ypolltime = 10;
 
 # time between polls of Mheard
-$hpolltime = 120;
+$hpolltime = 300;
  
 1;
diff --git a/perl/AGWMsg.pm b/perl/AGWMsg.pm
index 9a39874c..854050ae 100644
--- a/perl/AGWMsg.pm
+++ b/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
diff --git a/perl/Messages b/perl/Messages
index 8bc98cc1..f863a139 100644
--- a/perl/Messages
+++ b/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]\"',
-- 
2.34.1