loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.133, 2024/07/28 23:49:32	version 1.134, 2024/10/24 19:48:51
Line 309 sub log_machine_info {	Line 309 sub log_machine_info {

sub start_logging {	sub start_logging {
my $fh=IO::File->new(">$statusdir/newstatus.html");	my $fh=IO::File->new(">$statusdir/newstatus.html");
my %simplestatus=();	%simplestatus=();
my $now=time;	my $now=time;
my $date=localtime($now);	my $date=localtime($now);

Line 998 sub log_simplestatus {	Line 998 sub log_simplestatus {
rename("$statusdir/newstatus.html","$statusdir/index.html");	rename("$statusdir/newstatus.html","$statusdir/index.html");

my $sfh=IO::File->new(">$statusdir/loncron_simple.txt");	my $sfh=IO::File->new(">$statusdir/loncron_simple.txt");
foreach (keys %simplestatus) {	if (defined($sfh)) {
print $sfh $_.'='.$simplestatus{$_}.'&';	foreach my $key (keys(%simplestatus)) {
	print $sfh $key.'='.$simplestatus{$key}.'&';
	}
	print $sfh "\n";
	$sfh->close();
}	}
print $sfh "\n";
$sfh->close();
}	}

sub write_loncaparevs {	sub write_loncaparevs {