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

Last moulette_get

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-10-30 14:45:21 +01:00
commit 784c7cfb55
2 changed files with 73 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

26
process/files/intradata_get.pl
View file

@ -42,7 +42,7 @@ sub create_tree($$)
croak "No directory for year $year. Ask a root to create it." if (! -d "$basedir/$year/");
if (! -e "$basedir/$year/$project_id/") {
mkdir "$basedir/$year/$project_id/";
mkdir "$basedir/$year/$project_id/" or croak $!;
}
}
@ -57,7 +57,7 @@ sub grades_generate
croak "No project_id given." if (! $project_id);
if (! -e "$basedir/$year/$project_id/grades/") {
mkdir "$basedir/$year/$project_id/grades/";
mkdir "$basedir/$year/$project_id/grades/" or croak $!;
}
log DEBUG, "Generate list of students";
@ -149,10 +149,10 @@ sub grades_new_bonus
croak "No project_id given" if (! $project_id);
if (! -e "$basedir/$year/$project_id/traces/") {
mkdir "$basedir/$year/$project_id/traces/";
mkdir "$basedir/$year/$project_id/traces/" or croak $!;
}
if (! -e "$basedir/$year/$project_id/traces/bonus/") {
mkdir "$basedir/$year/$project_id/traces/bonus/";
mkdir "$basedir/$year/$project_id/traces/bonus/" or croak $!;
}
for my $kfile (keys %{ $args->{files} })
@ -251,19 +251,19 @@ sub update_defense
log INFO, "Update $year/$project_id/defenses/$defense_id.xml";
if (! -e "$basedir/$year/$project_id/defenses/") {
mkdir "$basedir/$year/$project_id/defenses/";
mkdir "$basedir/$year/$project_id/defenses/" or croak $!;
}
if (! -e "$basedir/$year/$project_id/traces/") {
mkdir "$basedir/$year/$project_id/traces/";
mkdir "$basedir/$year/$project_id/traces/" or croak $!;
}
if (! -e "$basedir/$year/$project_id/traces/defense_$defense_id/") {
mkdir "$basedir/$year/$project_id/traces/defense_$defense_id/";
mkdir "$basedir/$year/$project_id/traces/defense_$defense_id/" or croak $!;
my ($login, $pass, $uid, $gid) = getpwnam("www-data");
chown $uid, $gid, "$basedir/$year/$project_id/traces/defense_$defense_id/";
chmod 0775, "$basedir/$year/$project_id/traces/defense_$defense_id/";
chown $uid, $gid, "$basedir/$year/$project_id/traces/defense_$defense_id/" or croak $!;
chmod 0775, "$basedir/$year/$project_id/traces/defense_$defense_id/" or croak $!;
}
open my $out, ">", "$basedir/$year/$project_id/defenses/$defense_id.xml";
open my $out, ">", "$basedir/$year/$project_id/defenses/$defense_id.xml" or croak $!;
print $out $defense;
close $out;
@ -322,11 +322,11 @@ sub update_trace
log INFO, "Update $year/$project_id/traces/$rendu_id/$login.xml";
if (! -e "$basedir/$year/$project_id/traces/") {
mkdir "$basedir/$year/$project_id/traces/";
mkdir "$basedir/$year/$project_id/traces/" or croak $!;
}
if (! -e "$basedir/$year/$project_id/traces/$rendu_id/") {
mkdir "$basedir/$year/$project_id/traces/$rendu_id/";
chmod 0755, "$basedir/$year/$project_id/traces/$rendu_id/";
mkdir "$basedir/$year/$project_id/traces/$rendu_id/" or croak $!;
chmod 0755, "$basedir/$year/$project_id/traces/$rendu_id/" or croak $!;
}
open my $out, ">", "$basedir/$year/$project_id/traces/$rendu_id/$login.xml" or croak("Unable to write to $rendu_id/$login.xml");