/usr/share/doc/gitolite/examples/adc/setdesc is in gitolite 2.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 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");
|