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

Fix tag submission

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-18 05:03:38 +02:00
parent 03470f00be
commit 8e4aab3940
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
hooks/submissions.pl
View file

@ -24,12 +24,12 @@ my $repo_login = $1 if ($ENV{'GL_REPO'} =~ m/.*\/.*\/(.*)/);
if ($ref =~ m<^refs/tags/(.+)$>) if ($ref =~ m<^refs/tags/(.+)$>)
{ {
my $ip = $1 if ($ENV{'SSH_CLIENT'} =~ m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}).*/);
say "[ACU] Your IP is: $ENV{'SSH_CLIENT'}.";
my $tag = $1; my $tag = $1;
log DEBUG, "Pushed tag for repository $ENV{GL_REPO}: $tag with IP $ENV{'SSH_CLIENT'}"; log DEBUG, "Pushed tag for repository $ENV{GL_REPO}: $tag with IP $ENV{'SSH_CLIENT'}";
my $ip = $1 if ($ENV{'SSH_CLIENT'} =~ m/([0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}).*/);
say "[ACU] Your IP is: $ENV{'SSH_CLIENT'}.";
# Get project informations # Get project informations
my $project; my $project;
eval { eval {