loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.77, 2008/11/04 21:06:21	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 587 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'}";
}	}