version 1.17, 2005/09/19 20:30:37
|
version 1.18, 2005/09/20 16:50:40
|
Line 488 sub process_courselog {
|
Line 488 sub process_courselog {
|
foreach my $chunk (split(/\&\&\&/,$log)) { |
foreach my $chunk (split(/\&\&\&/,$log)) { |
my $warningflag = ''; |
my $warningflag = ''; |
my ($time,$res,$uname,$udom,$action,@values)= split(/:/,$chunk); |
my ($time,$res,$uname,$udom,$action,@values)= split(/:/,$chunk); |
|
# |
|
# Sometimes we get a file pasted into the activity.log from |
|
# an upload form. Here we try to detect it and avoid inserting |
|
# it into the database to avoid the quiet death of the database |
|
# connection |
|
my $i; |
|
for ($i=0;$i<$#values;$i++) { |
|
if ($values[$i] =~ /^HWVAL/) { |
|
$#values = $i; |
|
last; |
|
} |
|
} |
|
# |
if (! defined($res) || $res =~ /^\s*$/) { |
if (! defined($res) || $res =~ /^\s*$/) { |
$res = '/adm/roles'; |
$res = '/adm/roles'; |
$action = 'LOGIN'; |
$action = 'LOGIN'; |