loncom/cgi/userstatus.pl - diff

Return to userstatus.pl CVS log

Up to [LON-CAPA] / loncom / cgi

version 1.14, 2006/09/01 10:54:08	version 1.15, 2006/09/19 21:36:31
Line 32 use lib '/home/httpd/lib/perl/';	Line 32 use lib '/home/httpd/lib/perl/';
use LONCAPA::Configuration;	use LONCAPA::Configuration;
use LONCAPA;	use LONCAPA;
use HTTP::Headers;	use HTTP::Headers;
use IO::File;	use GDBM_File;


my %usercount;	my %usercount;
Line 98 sub main {	Line 98 sub main {
&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);	if (!tie(%userinfo,'GDBM_File',
while (my $line=<$fh>) {	$$perlvar{'lonIDsDir'}.'/'.$filename,
chomp($line);	&GDBM_READER(),0640)) {
my ($name,$value)=split(/\=/,$line);	next;
$name = &unescape($name);
$value = &unescape($value);
$userinfo{$name}=$value;
}	}
$fh->close();
if (!$justsummary) {	if (!$justsummary) {
$users{$userclass}{$filename} .=	$users{$userclass}{$filename} .=
'<font color="'.$color.'">'.	'<font color="'.$color.'">'.
Line 148 sub main {	Line 144 sub main {
"</font>";	"</font>";
}	}
}	}
	untie(%userinfo);
}	}
if (!$oneline && !$justsummary) {	if (!$oneline && !$justsummary) {
foreach my $class (@actl) {	foreach my $class (@actl) {