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

Start submission hook

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-16 04:24:27 +02:00
parent fbef87cb09
commit 9210d07fda
3 changed files with 57 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ACU/API/Base.pm
View File

@ -40,6 +40,7 @@ sub parse($$)
my $sax_handler;
$sax_handler = ResultHandler->new($parsed) if ($mod eq "ResultHandler");
return XML::LibXML->load_xml(string => shift) if ($mod eq "ProjectHandler");
$sax_handler = ProjectMemberHandler->new($parsed) if ($mod eq "ProjectMemberHandler");
my $parser = XML::SAX::ParserFactory->parser( Handler => $sax_handler );

12
ACU/API/Projects.pm
View File

@ -35,11 +35,17 @@ sub get($;$)
my $project_name = shift;
my $year = shift;
my $res = API::Base::get('ProjectMemberHandler',
"projects/projects/get/$project_name.xml");
my $url;
if ($year) {
$url = "projects/projects/get/$project_name/$year.xml";
} else {
$url = "projects/projects/get/$project_name.xml";
}
my $res = API::Base::get('ProjectHandler', $url);
if ($res->{result} ne '0') {
croak "Erreur durant l'ajout : " . $res->{message};
croak "Erreur durant la récupération du projet : " . $res->{message};
}
return $res;

47
hooks/submissions.pl Normal file
View File

@ -0,0 +1,47 @@
#!/usr/bin/env perl
use strict;
use warnings;
use v5.10;
use Date::Manip;
use ACU::API::Projects;
use ACU::API::Submission;
use ACU::LDAP;
use ACU::Log;
$ACU::Log::log_file = "/var/log/hooks/" . basename($0) . ".log";
use ACU::Process;
# First, check if the repository is in the YYYY/ directory
exit 0 if ($ENV{GL_REPO} !~ /^2[0-9]{3}\/.+\/.+/);
my ($ref, $oldsha, $newsha) = @ARGV;
my $promo = $1 if ($ENV{'GL_REPO'} =~ m/([0-9]{4}).*/);
my $id_project = $1 if ($ENV{'GL_REPO'} =~ m/.*\/(.*)\//);
my $repo_login = $1 if ($ENV{'GL_REPO'} =~ m/.*\/.*\/(.*)/);
log WARN, "This is a project!";
if ($ref =~ m<^refs/tags/(.+)$>)
{
my $tag = $1;
log INFO, "Pushed tag for repository $ENV{GL_REPO}: $tag";
# Get project informations
my $project;
eval {
$project = API::Projects::get($id_project, $promo);
};
if ($@ or !$project) {
my $err = $@;
log TRACE, $err;
log ERROR, "Impossible d'envoyer de tags. Passer au laboratoire si le problème persiste.";
exit 1;
}
log TRACE, $project;
}
exit 1;
exit 0;