version 1.76, 2007/06/22 00:20:27
|
version 1.79, 2009/02/11 15:24:28
|
Line 33 use strict;
|
Line 33 use strict;
|
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
use LONCAPA::Configuration; |
use LONCAPA::Configuration; |
use Apache::lonnet; |
use Apache::lonnet; |
|
use Apache::loncommon; |
|
|
use IO::File; |
use IO::File; |
use IO::Socket; |
use IO::Socket; |
Line 304 sub start_logging {
|
Line 305 sub start_logging {
|
<li><a href="#lonsql">lonsql</a></li> |
<li><a href="#lonsql">lonsql</a></li> |
<li><a href="#lond">lond</a></li> |
<li><a href="#lond">lond</a></li> |
<li><a href="#lonc">lonc</a></li> |
<li><a href="#lonc">lonc</a></li> |
<li><a href="#lonhttpd">lonhttpd</a></li> |
|
<li><a href="#lonnet">lonnet</a></li> |
<li><a href="#lonnet">lonnet</a></li> |
<li><a href="#connections">Connections</a></li> |
<li><a href="#connections">Connections</a></li> |
<li><a href="#delayed">Delayed Messages</a></li> |
<li><a href="#delayed">Delayed Messages</a></li> |
Line 588 sub log_simplestatus {
|
Line 588 sub log_simplestatus {
|
|
|
sub send_mail { |
sub send_mail { |
print "sending mail\n"; |
print "sending mail\n"; |
my $emailto="$perlvar{'lonAdmEMail'}"; |
my $defdom = $perlvar{'lonDefDomain'}; |
|
my $origmail = $perlvar{'lonAdmEMail'}; |
|
my $emailto = &Apache::loncommon::build_recipient_list(undef, |
|
'lonstatusmail',$defdom,$origmail); |
if ($totalcount>2500) { |
if ($totalcount>2500) { |
$emailto.=",$perlvar{'lonSysEMail'}"; |
$emailto.=",$perlvar{'lonSysEMail'}"; |
} |
} |
Line 696 sub main () {
|
Line 699 sub main () {
|
&checkon_daemon($fh,'lond',40000,'USR2'); |
&checkon_daemon($fh,'lond',40000,'USR2'); |
} |
} |
&checkon_daemon($fh,'lonc',40000,'USR1'); |
&checkon_daemon($fh,'lonc',40000,'USR1'); |
&checkon_daemon($fh,'lonhttpd',40000); |
|
&checkon_daemon($fh,'lonmaxima',40000); |
&checkon_daemon($fh,'lonmaxima',40000); |
} |
} |
if ($justreload) { |
if ($justreload) { |