Enable setting desription for wildrepos
Allow users to set and display description (for gitweb) for their own wildcard repositories using ssh commands: setdesc <repo> getdesc <repo> Signed-off-by: Teemu Matilainen <teemu.matilainen@reaktor.fi>
This commit is contained in:
parent
00b793f5e6
commit
fa65d719a8
|
@ -180,6 +180,26 @@ sub get_set_perms
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
# ----------------------------------------------------------------------------
|
||||||
|
# getdesc and setdesc
|
||||||
|
# ----------------------------------------------------------------------------
|
||||||
|
|
||||||
|
sub get_set_desc
|
||||||
|
{
|
||||||
|
my($repo_base_abs, $repo, $verb, $user) = @_;
|
||||||
|
my ($creater, $dummy, $dummy2) = &repo_rights($repo_base_abs, $repo, "");
|
||||||
|
die "$repo doesnt exist or is not yours\n" unless $user eq $creater;
|
||||||
|
wrap_chdir("$repo_base_abs");
|
||||||
|
wrap_chdir("$repo.git");
|
||||||
|
if ($verb eq 'getdesc') {
|
||||||
|
system("cat", "description") if -f "description";
|
||||||
|
} else {
|
||||||
|
system("cat > description");
|
||||||
|
print "New description is:\n";
|
||||||
|
system("cat", "description");
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
# ----------------------------------------------------------------------------
|
# ----------------------------------------------------------------------------
|
||||||
# parse the compiled acl
|
# parse the compiled acl
|
||||||
# ----------------------------------------------------------------------------
|
# ----------------------------------------------------------------------------
|
||||||
|
|
|
@ -86,7 +86,7 @@ my $repo_base_abs = ( $REPO_BASE =~ m(^/) ? $REPO_BASE : "$ENV{HOME}/$REPO_BASE"
|
||||||
# get and set perms for actual repo created by wildcard-autoviv
|
# get and set perms for actual repo created by wildcard-autoviv
|
||||||
# ----------------------------------------------------------------------------
|
# ----------------------------------------------------------------------------
|
||||||
|
|
||||||
my $CUSTOM_COMMANDS=qr/^\s*(expand|getperms|setperms)\s/;
|
my $CUSTOM_COMMANDS=qr/^\s*(expand|(get|set)(perms|desc))\s/;
|
||||||
|
|
||||||
# note that all the subs called here chdir somewhere else and do not come
|
# note that all the subs called here chdir somewhere else and do not come
|
||||||
# back; they all blithely take advantage of the fact that processing custom
|
# back; they all blithely take advantage of the fact that processing custom
|
||||||
|
@ -98,6 +98,10 @@ if ($cmd =~ $CUSTOM_COMMANDS) {
|
||||||
# with an actual reponame, you can "getperms" or "setperms"
|
# with an actual reponame, you can "getperms" or "setperms"
|
||||||
get_set_perms($repo_base_abs, $repo, $verb, $user);
|
get_set_perms($repo_base_abs, $repo, $verb, $user);
|
||||||
}
|
}
|
||||||
|
elsif ($repo =~ $REPONAME_PATT and $verb =~ /(get|set)desc/) {
|
||||||
|
# with an actual reponame, you can "getdesc" or "setdesc"
|
||||||
|
get_set_desc($repo_base_abs, $repo, $verb, $user);
|
||||||
|
}
|
||||||
elsif ($verb eq 'expand') {
|
elsif ($verb eq 'expand') {
|
||||||
# with a wildcard, you can "expand" it to see what repos actually match
|
# with a wildcard, you can "expand" it to see what repos actually match
|
||||||
die "$repo has invalid characters" unless "x$repo" =~ $REPOPATT_PATT;
|
die "$repo has invalid characters" unless "x$repo" =~ $REPOPATT_PATT;
|
||||||
|
|
Loading…
Reference in a new issue