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

Change unlink to remove_tree in ordre to clean git_manage_ temporary directories

Browse source
This commit is contained in:
Mercier Pierre-Olivier 2013-11-04 02:23:47 +01:00
parent 9dbf492046
commit ed0edaf9f3
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
ACU/VCS/Git.pm
View file

@ -5,7 +5,7 @@ package Git;
use v5.10.1;
use strict;
use warnings;
use File::Path;
use File::Path qw(remove_tree);
use File::Temp;
use ACU::LDAP;
@ -31,7 +31,7 @@ sub init_conf(;$)
log INFO, "Cloning $git_user\@$git_server:$git_adminrepo to $gitolite_directory";
system ("git clone $git_user\@$git_server:$git_adminrepo $gitolite_directory");
qx(git clone $git_user\@$git_server:$git_adminrepo $gitolite_directory);
chdir($gitolite_directory);
@ -43,12 +43,12 @@ sub save_conf(;$)
chdir($gitolite_directory);
my $commit = shift;
system ("git commit -am '$commit'") if ($commit);
qx(git commit -am '$commit') if ($commit);
log INFO, "Saving repositories configuration";
system ("git push");
unlink ($gitolite_directory);
qx(git push);
remove_tree($gitolite_directory);
$gitolite_directory = undef;
}
@ -235,7 +235,7 @@ sub user_add
print $kf $key;
close $kf;
system("git add $gitolite_directory/keydir/$i/$login.pub");
qx(git add $gitolite_directory/keydir/$i/$login.pub);
$i += 1;
}
}