loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.78, 2009/02/11 15:19:57	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 $defdom = $perlvar->{'lonDefDomain'};	my $defdom = $perlvar{'lonDefDomain'};
my $origmail = $perlvar->{'lonAdmEMail'};	my $origmail = $perlvar{'lonAdmEMail'};
my $emailto = &Apache::loncommon::build_recipient_list(undef,	my $emailto = &Apache::loncommon::build_recipient_list(undef,
'lonstatusmail',$defdom,$origmail);	'lonstatusmail',$defdom,$origmail);
if ($totalcount>2500) {	if ($totalcount>2500) {