mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 07:47:10 +00:00
add set and unset/agwmonitoring
This commit is contained in:
parent
e9a4c82122
commit
f48da7dcd6
3
Changes
3
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=======================================================================
|
28Mar01=======================================================================
|
||||||
1. AGW engine stuff now accepts incoming calls and at least attempts to do
|
1. AGW engine stuff now accepts incoming calls and at least attempts to do
|
||||||
outgoing ones. YMMV.
|
outgoing ones. YMMV.
|
||||||
|
17
cmd/set/agwmonitor.pl
Normal file
17
cmd/set/agwmonitor.pl
Normal file
@ -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);
|
||||||
|
|
||||||
|
|
||||||
|
|
14
cmd/unset/agwmonitor.pl
Normal file
14
cmd/unset/agwmonitor.pl
Normal file
@ -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);
|
@ -37,6 +37,6 @@ $monitor = 0;
|
|||||||
$ypolltime = 10;
|
$ypolltime = 10;
|
||||||
|
|
||||||
# time between polls of Mheard
|
# time between polls of Mheard
|
||||||
$hpolltime = 120;
|
$hpolltime = 300;
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
@ -41,7 +41,7 @@ $rproc = undef;
|
|||||||
$noports = 0;
|
$noports = 0;
|
||||||
$lastytime = $lasthtime = time;
|
$lastytime = $lasthtime = time;
|
||||||
$ypolltime = 10 unless defined $ypolltime;
|
$ypolltime = 10 unless defined $ypolltime;
|
||||||
$hpolltime = 120 unless defined $hpolltime;
|
$hpolltime = 300 unless defined $hpolltime;
|
||||||
%circuit = ();
|
%circuit = ();
|
||||||
|
|
||||||
sub init
|
sub init
|
||||||
|
@ -148,6 +148,8 @@ package DXM;
|
|||||||
msgu => 'usage: msg <cmd> <msgno> data...',
|
msgu => 'usage: msg <cmd> <msgno> data...',
|
||||||
merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
|
merge1 => 'Merge request for $_[1] spots and $_[2] WWV sent to $_[0]',
|
||||||
moon => 'Location Rise Set Azim Elev RGain dB',
|
moon => 'Location Rise Set Azim Elev RGain dB',
|
||||||
|
mond => 'Monitoring Disabled',
|
||||||
|
mone => 'Monitoring Enabled',
|
||||||
namee1 => 'Please enter your name, set/name <your name>',
|
namee1 => 'Please enter your name, set/name <your name>',
|
||||||
namee2 => 'Can\'t find user $_[0]!',
|
namee2 => 'Can\'t find user $_[0]!',
|
||||||
name => 'Your name is now \"$_[0]\"',
|
name => 'Your name is now \"$_[0]\"',
|
||||||
|
Loading…
Reference in New Issue
Block a user