From: minima <minima>
Date: Thu, 29 Mar 2001 10:43:41 +0000 (+0000)
Subject: add set and unset/agwmonitoring
X-Git-Tag: R_1_47~81
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f48da7dcd6d8305c018bebc6ffb5c11c3346aacf;p=spider.git

add set and unset/agwmonitoring
---

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]\"',