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

Activate mail_error on grading script

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-14 15:26:17 +01:00
parent 95c6d77613
commit e11d9082da
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
process/projects/gen_grading.pl
View File

@ -7,8 +7,6 @@ use Carp;
use Pod::Usage; use Pod::Usage;
use Text::ParseWords; use Text::ParseWords;
use lib "../../";
use ACU::Defense; use ACU::Defense;
use ACU::Grading; use ACU::Grading;
use ACU::Log; use ACU::Log;
@ -16,6 +14,8 @@ use ACU::LDAP;
use ACU::Process; use ACU::Process;
use ACU::Trace; use ACU::Trace;
$ACU::Log::mail_error = 1;
our $basedir = "/intradata"; our $basedir = "/intradata";
sub process sub process

8
process/projects/get_csv.pl
View File

@ -12,6 +12,8 @@ use ACU::Log;
use ACU::LDAP; use ACU::LDAP;
use ACU::Process; use ACU::Process;
$ACU::Log::mail_error = 1;
our $basedir = "/intradata"; our $basedir = "/intradata";
sub process sub process
@ -23,11 +25,7 @@ sub process
my $year = shift @args // LDAP::get_year; my $year = shift @args // LDAP::get_year;
# Project existing? # Project existing?
if (! -d "$basedir/$year/$project_id") croak "Unable to find $project_id in $year" if (! -d "$basedir/$year/$project_id");
{
log ERROR, "Unable to find $project_id in $year";
return "Unable to find $project_id in $year\n";
}
my %grades; my %grades;
my @headers; my @headers;