From 2037cf531b9f8c0639ce472a6f3d5f4cbb6c92f4 Mon Sep 17 00:00:00 2001 From: Mercier Pierre-Olivier Date: Fri, 20 Sep 2013 17:58:38 +0200 Subject: [PATCH] Add some debug string --- process/files/intradata_get.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/process/files/intradata_get.pl b/process/files/intradata_get.pl index 603b9ee..8027d16 100644 --- a/process/files/intradata_get.pl +++ b/process/files/intradata_get.pl @@ -66,6 +66,8 @@ sub grades_new_bonus for my $kfile (keys %{ $args->{files} }) { + log DEBUG, "Reading file $kfile"; + my $kbonus = $kfile; $kbonus =~ s/[^a-zA-Z0-9_-]/_/g; @@ -87,6 +89,8 @@ sub grades_new_bonus my $tvalue = $2 // $value; my $trace; + log DEBUG, "Applying bonus for $login:$tvalue"; + if (-e "$basedir/$year/$project_id/traces/bonus/$login.xml") { open my $xml, "<", "$basedir/$year/$project_id/traces/bonus/$login.xml" or croak $!; binmode $xml; @@ -99,6 +103,8 @@ sub grades_new_bonus $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 $!; print $xml $trace->toString(); close $xml