mirror of
git://scm.dxcluster.org/scm/spider
synced 2024-09-21 15:57:12 +00:00
18 lines
233 B
Perl
18 lines
233 B
Perl
#
|
|
# 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);
|
|
|
|
|
|
|