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

Skip defense traces

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-26 03:32:09 +02:00
commit 3ec51c56fc
1 changed files with 11 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

12
process/projects/gen_grading.pl
View file

@ -35,10 +35,13 @@ sub process
my $grade = Grading->new(); my $grade = Grading->new();
my @defenses;
# Create defenses groups # Create defenses groups
opendir(my $dh, "$basedir/$year/$project_id/defenses/") or croak "can't opendir $basedir/$year/$project_id/defenses/: $!"; opendir(my $dh, "$basedir/$year/$project_id/defenses/") or croak "can't opendir $basedir/$year/$project_id/defenses/: $!";
for my $sout (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/defenses/$_" } readdir($dh)) for my $sout (grep { ( ! /^\./ ) && -f "$basedir/$year/$project_id/defenses/$_" } readdir($dh))
{ {
push @defenses, $sout;
open my $xml, "<", "$basedir/$year/$project_id/defenses/$sout" or die $!; open my $xml, "<", "$basedir/$year/$project_id/defenses/$sout" or die $!;
binmode $xml; binmode $xml;
@ -47,7 +50,12 @@ sub process
my $defense = Defense->new($str); my $defense = Defense->new($str);
$grade->create_from_ids($sout, $defense->getIds()); my $ids = $defense->getIds();
$ids->{'def_end_$LOGIN'} = undef;
$ids->{'def_end_group'} = undef;
$grade->create_from_ids($sout, $ids);
} }
closedir $dh; closedir $dh;
@ -55,6 +63,8 @@ sub process
opendir($dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!"; opendir($dh, "$basedir/$year/$project_id/traces/") or croak "can't opendir $basedir/$year/$project_id/traces/: $!";
for my $dir (grep { ( ! /^\./ ) && -d "$basedir/$year/$project_id/traces/$_" } readdir($dh)) for my $dir (grep { ( ! /^\./ ) && -d "$basedir/$year/$project_id/traces/$_" } readdir($dh))
{ {
next if (! grep { $dir eq "defense_$_" } @defenses);
my $ids = {}; my $ids = {};
opendir(my $dhm, "$basedir/$year/$project_id/traces/$dir") or croak "can't opendir $basedir/$year/$project_id/traces/$dir: $!"; opendir(my $dhm, "$basedir/$year/$project_id/traces/$dir") or croak "can't opendir $basedir/$year/$project_id/traces/$dir: $!";