loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.10, 2004/01/14 01:42:09	version 1.11, 2004/09/22 15:00:04
Line 89 sub main {	Line 89 sub main {
my $sinceacc=$now-$atime;	my $sinceacc=$now-$atime;
unless ($oneline \|\| $justsummary) { print ("\n\n<hr />"); }	unless ($oneline \|\| $justsummary) { print ("\n\n<hr />"); }
my %userinfo;	my %userinfo;
my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename);	($userinfo{'user.name'},undef,$userinfo{'user.domain'})=
while (my $line=<$fh>) {	split('_',$filename);
chomp($line);
my ($name,$value)=split(/\=/,$line);
$userinfo{$name}=$value;
}
$fh->close();
my ($color,$userclass)=&analyze_time($since);	my ($color,$userclass)=&analyze_time($since);
&add_count('Overall','all',$userclass);	&add_count('Overall','all',$userclass);
&add_count('Domain',$userinfo{'user.domain'},$userclass);	&add_count('Domain',$userinfo{'user.domain'},$userclass);

unless ($oneline) {	unless ($oneline) {
	my $fh=IO::File->new($$perlvar{'lonIDsDir'}.'/'.$filename);
	while (my $line=<$fh>) {
	chomp($line);
	my ($name,$value)=split(/\=/,$line);
	$userinfo{$name}=$value;
	}
	$fh->close();
if (!$justsummary) {	if (!$justsummary) {
print '<font color="'.$color.'">';	print '<font color="'.$color.'">';
print '<h3>'.$userinfo{'environment.lastname'}.', '.	print '<h3>'.$userinfo{'environment.lastname'}.', '.