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) { |