deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

added ADC overrides for setdesc and getdesc

Browse source 
John from kernel.org wanted this; for details see [1]

[1]: http://groups.google.com/group/gitolite/browse_thread/thread/daf92ef85d121234
This commit is contained in:
Sitaram Chamarty 2012-02-07 06:26:57 +05:30
parent 1363534d8d
commit 520eff6189
2 changed files with 48 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
contrib/adc/getdesc Normal file
View file

@ -0,0 +1,23 @@
#!/usr/bin/perl
use strict;
use warnings;
die "ENV GL_RC not set\n" unless $ENV{GL_RC};
die "ENV GL_BINDIR not set\n" unless $ENV{GL_BINDIR};
unshift @INC, $ENV{GL_BINDIR};
require gitolite or die "parse gitolite.pm failed\n";
gitolite->import;
my $repo = shift;
die "need a reponame\n" unless $repo;
my $ret = check_access($repo, 'refs/heads/master', '+', 1);
die "sorry you don't have rights to do this\n" if $ret =~ /DENIED/;
wrap_chdir($ENV{GL_REPO_BASE_ABS});
wrap_chdir("$repo.git");
print slurp("description") if -f "description";

25
contrib/adc/setdesc Normal file
View file

@ -0,0 +1,25 @@
#!/usr/bin/perl
use strict;
use warnings;
die "ENV GL_RC not set\n" unless $ENV{GL_RC};
die "ENV GL_BINDIR not set\n" unless $ENV{GL_BINDIR};
unshift @INC, $ENV{GL_BINDIR};
require gitolite or die "parse gitolite.pm failed\n";
gitolite->import;
my $repo = shift;
die "need a reponame\n" unless $repo;
my $ret = check_access($repo, 'refs/heads/master', '+', 1);
die "sorry you don't have rights to do this\n" if $ret =~ /DENIED/;
wrap_chdir($ENV{GL_REPO_BASE_ABS});
wrap_chdir("$repo.git");
wrap_print("description", <>);
print "New description is:\n";
print slurp("description");