25 lines
588 B
Perl
25 lines
588 B
Perl
#!/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");
|