From: 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 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 ', namee2 => 'Can\'t find user $_[0]!', name => 'Your name is now \"$_[0]\"',