epita-std/ACU
Archived
1
0
Fork 0
Code Releases Activity

Add some debug string

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-20 17:58:38 +02:00
parent de06d5fd0d
commit 2037cf531b
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
process/files/intradata_get.pl
View file

@ -66,6 +66,8 @@ sub grades_new_bonus
for my $kfile (keys %{ $args->{files} }) for my $kfile (keys %{ $args->{files} })
{ {
log DEBUG, "Reading file $kfile";
my $kbonus = $kfile; my $kbonus = $kfile;
$kbonus =~ s/[^a-zA-Z0-9_-]/_/g; $kbonus =~ s/[^a-zA-Z0-9_-]/_/g;
@ -87,6 +89,8 @@ sub grades_new_bonus
my $tvalue = $2 // $value; my $tvalue = $2 // $value;
my $trace; my $trace;
log DEBUG, "Applying bonus for $login:$tvalue";
if (-e "$basedir/$year/$project_id/traces/bonus/$login.xml") { if (-e "$basedir/$year/$project_id/traces/bonus/$login.xml") {
open my $xml, "<", "$basedir/$year/$project_id/traces/bonus/$login.xml" or croak $!; open my $xml, "<", "$basedir/$year/$project_id/traces/bonus/$login.xml" or croak $!;
binmode $xml; binmode $xml;
@ -99,6 +103,8 @@ sub grades_new_bonus
$trace->addId($kbonus, $tvalue); $trace->addId($kbonus, $tvalue);
log DEBUG, "Updating $basedir/$year/$project_id/traces/bonus/$login.xml";
open my $xml, ">", "$basedir/$year/$project_id/traces/bonus/$login.xml" or croak $!; open my $xml, ">", "$basedir/$year/$project_id/traces/bonus/$login.xml" or croak $!;
print $xml $trace->toString(); print $xml $trace->toString();
close $xml close $xml