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

Remove full tag when requested

Browse Source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-15 12:42:05 +02:00
parent 13f85455f8
commit 85008adfdf
1 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
hooks/subjects.pl
View File

@ -122,6 +122,14 @@ sub tag_project
$year = LDAP::get_year;
}
# Determine full tag
my $long_tag;
if (!$_[3])
{
my $proj_id = $_[2] // "";
$long_tag = "project,$proj_id,$year";
}
if ($creation)
{
my $newref = $ARGV[2];
@ -189,21 +197,31 @@ sub tag_project
log DONE, "Projet créé/mis à jour avec succès.";
# Add full tag
if (!$_[3])
if ($long_tag)
{
my $proj_id = $_[2] // "";
my $year = $_[3] // LDAP::get_year();
my $tag = "project,$proj_id,$year";
qx(git tag -f $tag);
qx(git tag -f $long_tag);
if (! $?) {
log INFO, "Tag long créé : $tag.";
log INFO, "Tag long créé : $long_tag.";
}
}
}
else
{
# Is the long tag existing
qx(git tag | egrep "^$long_tag$");
if ($?) {
log ERROR, "Tag long correspondant introuvable : $long_tag.";
}
log USAGE, "Suppression du projet !";
if ($long_tag)
{
qx(git tag -d $long_tag);
if (! $?) {
log INFO, "Tag long supprimé : $long_tag.";
}
}
}
}