add set and unset/agwmonitoring

diff --git a/Changes b/Changes
index 32d864c187c60f5ac91d498324505200c0dc3f40..a91799668237482f526464e1e622fa761b4b17f9 100644 (file)
--- 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 (file)
index 0000000..6de8199
--- /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 (file)
index 0000000..c9bfb6e
--- /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 f9fc2761aceaafbbfdfaf6252b83d941ea435c04..88f6c5e1682141a23c79161939912a1ac7520da6 100644 (file)
--- 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 9a39874cc7d4c6030547b35134861f3dc20623e6..854050ae7761ed534784b9882c81bc82d3bec28a 100644 (file)
--- 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 8bc98cc18d26fca886be792c25173180142c42b2..f863a139f5dc80304445d32d9ed02dc2005af2fc 100644 (file)
--- 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]\"',