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

Use multiple Gearman servers

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-12-01 01:12:02 +01:00
commit 415b5c81fd
5 changed files with 20 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
process/exec/guantanamo.pl
View file

@ -196,4 +196,5 @@ sub process_master
log INFO, "Starting guantanamo.pl as master process";
Process::add_server("gearman:4730");
Process::register("guantanamo", \&process_master);

2
process/files/intradata_get.pl
View file

@ -150,7 +150,7 @@ sub grades_generate
log DEBUG, "Computed grades: ".$grading->compute($login);
open my $xmlgrade, ">", "$basedir/$year/$project_id/grades/$login.xml" or croak "grades/$login.xml";
open my $xmlgrade, ">", "$basedir/$year/$project_id/grades/$login.xml" or croak "grades/$login.xml: $!";
binmode $xmlgrade;
print $xmlgrade $grading->computeXML($login);
close $xmlgrade;

1
process/projects/gen_grading.pl
View file

@ -97,4 +97,5 @@ sub process
return $grade->toString;
}
Process::add_server("gearman:4730");
Process::register_no_parse("gen_grading", \&process);

1
process/projects/get_csv.pl
View file

@ -105,4 +105,5 @@ sub process
return $out;
}
Process::add_server("gearman:4730");
Process::register_no_parse("get_csv", \&process);