This adds a git:// link to the summary pages should a common
$gitlinkurl be defined (default is nothing defined, thus nothing
shown)
This does make the assumption that the git trees share a common
path, and nothing to date is known to actually make use of the link
Signed-off-by: John 'Warthog9' Hawley <warthog9@xxxxxxxxxxxxxx>
---
gitweb/gitweb.perl | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/gitweb/gitweb.perl b/gitweb/gitweb.perl
index d84f4c0..7ad096c 100755
--- a/gitweb/gitweb.perl
+++ b/gitweb/gitweb.perl
@@ -224,6 +224,10 @@ our %avatar_size = (
# This is here to allow for missmatch git & gitweb versions
our $missmatch_git = '';
+#This is here to deal with an extra link on the summary pages - if it's left blank
+# this link will not be shwon. If it's set, this will be prepended to the repo and used
+our $gitlinkurl = '';
+
# Used to set the maximum load that we will still respond to gitweb queries.
# if we exceed this than we do the processing to figure out if there's a mirror
# and redirect to it, or to just return 503 server busy
@@ -4454,6 +4458,10 @@ sub git_project_list_body {
$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")}, "log") . " | " .
$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")}, "tree") .
($pr->{'forks'} ? " | " . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
+ if( $gitlinkurl ne '' ){
+ print " | ". $cgi->a({-href => "git://$gitlinkurl/".esc_html($pr->{'path'})}, "git");
+ }
+ print "".
"</td>\n" .
"</tr>\n";
}