version 1.1, 2013/02/02 00:22:39
|
version 1.2, 2013/02/14 14:18:27
|
Line 61 use LONCAPA::Configuration;
|
Line 61 use LONCAPA::Configuration;
|
use LONCAPA::Checksumming; |
use LONCAPA::Checksumming; |
use Apache::loncommon(); |
use Apache::loncommon(); |
|
|
my $tmpfile = '/tmp/checkLONCAPA.'.$$; |
|
my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf'); |
my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf'); |
|
|
my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail, |
my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail, |
Line 164 if ($loncaparev =~ /CVS_HEAD/) {
|
Line 163 if ($loncaparev =~ /CVS_HEAD/) {
|
$production.'-'.$proddate, |
$production.'-'.$proddate, |
"\n http://install.loncapa.org/\n"); |
"\n http://install.loncapa.org/\n"); |
} |
} |
if (open(my $tmpfh,">$tmpfile")) { |
} |
print $tmpfh |
|
|
if ($docroot ne '') { |
|
if (open(my $fh,">$docroot/lon-status/checkLCupdates.txt")) { |
|
print $fh |
&Apache::lonlocal::mt('Update check result -- [_1]', |
&Apache::lonlocal::mt('Update check result -- [_1]', |
&Apache::lonlocal::locallocaltime(time)). |
&Apache::lonlocal::locallocaltime(time)). |
"\n\n". |
"\n\n". |
$message; |
$message; |
close($tmpfh); |
close($fh); |
} |
|
} |
|
|
|
if ($docroot ne '') { |
|
system("cat $tmpfile > $docroot/lon-status/checkLCupdates.txt"); |
|
if ($< == 0) { |
|
system("chown www:www $docroot/lon-status/checkLCupdates.txt"); |
system("chown www:www $docroot/lon-status/checkLCupdates.txt"); |
} |
chmod(0600,"$docroot/lon-status/checkLCupdates.txt"); |
chmod(0600,"$docroot/lon-status/checkLCupdates.txt"); |
|
} |
|
|
|
# Determine who receives the e-mail |
if ($send) { |
my $emailto = |
# Determine who receives the e-mail |
&Apache::loncommon::build_recipient_list(undef,'updatesmail', |
my $emailto = |
$defdom,$origmail); |
&Apache::loncommon::build_recipient_list(undef,'updatesmail', |
if ($emailto) { |
$defdom,$origmail); |
if ($send) { |
if ($emailto) { |
my $subj = "LON-CAPA module check -- $lonhost"; |
my $subj = "LON-CAPA module check -- $lonhost"; |
system(qq{mail -s '$subj' "$emailto" < $tmpfile}); |
if (-e "$docroot/lon-status/checkLCupdates.txt") { |
|
system(qq{mail -s '$subj' "$emailto" < $docroot/lon-status/checkLCupdates.txt}); |
|
} |
|
} |
|
} |
} |
} |
} |
} |
|
|