version 1.20, 2010/03/23 12:01:49
|
version 1.23, 2021/03/07 02:34:25
|
Line 114 sub main {
|
Line 114 sub main {
|
Course => 'Course', |
Course => 'Course', |
Browser => 'Browser', |
Browser => 'Browser', |
OS => 'OS', |
OS => 'OS', |
|
Any => 'Any', |
Active => 'Active', |
Active => 'Active', |
'Moderately Active' => 'Moderately Active', |
'Moderately Active' => 'Moderately Active', |
Inactive => 'Inactive', |
Inactive => 'Inactive', |
Line 137 sub main {
|
Line 138 sub main {
|
foreach my $filename (@allfiles) { |
foreach my $filename (@allfiles) { |
if ($filename=~/^\./) { next; } |
if ($filename=~/^\./) { next; } |
if ($filename=~/^publicuser_/) { next; } |
if ($filename=~/^publicuser_/) { next; } |
|
if ($filename=~/^[a-f0-9]+_(linked|lti_\d+)\.id$/) { next; } |
my ($dev,$ino,$mode,$nlink, |
my ($dev,$ino,$mode,$nlink, |
$uid,$gid,$rdev,$size, |
$uid,$gid,$rdev,$size, |
$atime,$mtime,$ctime, |
$atime,$mtime,$ctime, |
Line 266 sub showact {
|
Line 268 sub showact {
|
print("<h3>$ltref->{$cat}</h3>\n"); |
print("<h3>$ltref->{$cat}</h3>\n"); |
|
|
print("<table border='1'><tr><th> </th><th>"); |
print("<table border='1'><tr><th> </th><th>"); |
print(join("</th><th>",('Any',@actl))); |
print(join("</th><th>",map {$ltref->{$_};} ('Any',@actl))); |
print("</th></tr>"); |
print("</th></tr>"); |
foreach my $type (sort(keys(%{$usercount{$cat}}))) { |
foreach my $type (sort(keys(%{$usercount{$cat}}))) { |
print("<tr><td>$type</td>"); |
print("<tr><td>$type</td>"); |