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

Use FQDN instead of relative domain in sync_ssh_keys

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-09-16 18:56:48 +02:00
commit 4649360306
2 changed files with 15 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
hooks/submissions.pl
View file

@ -24,8 +24,11 @@ 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"; log DEBUG, "Pushed tag for repository $ENV{GL_REPO}: $tag with IP $ENV{'SSH_CLIENT'}";
# Get project informations # Get project informations
my $project; my $project;
@ -95,3 +98,13 @@ if ($ref =~ m<^refs/tags/(.+)$>)
} }
exit 0; exit 0;
sub ip2long
{
return unpack("l*", pack("l*", unpack("N*", inet_aton(shift))));
}
sub long2ip
{
return inet_ntoa(pack("N*", shift));
}

2
process/ldap/sync_ssh_keys.pl
View file

@ -109,7 +109,7 @@ if ($0 =~ /^(?:.*\/)?sync_ssh_keys_(?:([a-zA-Z0-9]+)_)?([a-zA-Z0-9]+).pl$/) {
if ($service eq "git") if ($service eq "git")
{ {
$Git::git_server = $2; $Git::git_server = $2.".acu.epita.fr";
log INFO, "Start by syncing all users key..."; log INFO, "Start by syncing all users key...";