|
|
|
@ -17,33 +17,41 @@ use Fcntl ':mode';
@@ -17,33 +17,41 @@ use Fcntl ':mode';
|
|
|
|
|
binmode STDOUT, ':utf8'; |
|
|
|
|
|
|
|
|
|
my $cgi = new CGI; |
|
|
|
|
my $version = "267"; |
|
|
|
|
my $my_url = $cgi->url(); |
|
|
|
|
my $my_uri = $cgi->url(-absolute => 1); |
|
|
|
|
my $rss_link = ""; |
|
|
|
|
my $version = "267"; |
|
|
|
|
my $my_url = $cgi->url(); |
|
|
|
|
my $my_uri = $cgi->url(-absolute => 1); |
|
|
|
|
my $rss_link = ""; |
|
|
|
|
|
|
|
|
|
# location of the git-core binaries |
|
|
|
|
my $gitbin = "/usr/bin"; |
|
|
|
|
|
|
|
|
|
# absolute fs-path which will be prepended to the project path |
|
|
|
|
#my $projectroot = "/pub/scm"; |
|
|
|
|
my $projectroot = "/home/kay/public_html/pub/scm"; |
|
|
|
|
#my $projectroot = "/pub/scm"; |
|
|
|
|
my $projectroot = "/home/kay/public_html/pub/scm"; |
|
|
|
|
|
|
|
|
|
# location of the git-core binaries |
|
|
|
|
my $gitbin = "/usr/bin"; |
|
|
|
|
# version of the git-core binaries |
|
|
|
|
my $git_version = qx($gitbin/git --version); |
|
|
|
|
if ($git_version =~ m/git version (.*)$/) { |
|
|
|
|
$git_version = $1; |
|
|
|
|
} else { |
|
|
|
|
$git_version = "unknown"; |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# location for temporary files needed for diffs |
|
|
|
|
my $git_temp = "/tmp/gitweb"; |
|
|
|
|
my $git_temp = "/tmp/gitweb"; |
|
|
|
|
|
|
|
|
|
# target of the home link on top of all pages |
|
|
|
|
my $home_link = $my_uri; |
|
|
|
|
my $home_link = $my_uri; |
|
|
|
|
|
|
|
|
|
# html text to include at home page |
|
|
|
|
my $home_text = "indextext.html"; |
|
|
|
|
my $home_text = "indextext.html"; |
|
|
|
|
|
|
|
|
|
# URI of default stylesheet |
|
|
|
|
my $stylesheet = "gitweb.css"; |
|
|
|
|
my $stylesheet = "gitweb.css"; |
|
|
|
|
|
|
|
|
|
# source of projects list |
|
|
|
|
#my $projects_list = $projectroot; |
|
|
|
|
my $projects_list = "index/index.aux"; |
|
|
|
|
#my $projects_list = $projectroot; |
|
|
|
|
my $projects_list = "index/index.aux"; |
|
|
|
|
|
|
|
|
|
# default blob_plain mimetype and default charset for text/plain blob |
|
|
|
|
my $default_blob_plain_mimetype = 'text/plain'; |
|
|
|
@ -51,7 +59,7 @@ my $default_text_plain_charset = undef;
@@ -51,7 +59,7 @@ my $default_text_plain_charset = undef;
|
|
|
|
|
|
|
|
|
|
# file to use for guessing MIME types before trying /etc/mime.types |
|
|
|
|
# (relative to the current git repository) |
|
|
|
|
my $mimetypes_file = undef; |
|
|
|
|
my $mimetypes_file = undef; |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# input validation and dispatch |
|
|
|
@ -288,11 +296,12 @@ sub git_header_html {
@@ -288,11 +296,12 @@ sub git_header_html {
|
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> |
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US"> |
|
|
|
|
<!-- git web interface v$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke --> |
|
|
|
|
<!-- git core binaries version $git_version --> |
|
|
|
|
<head> |
|
|
|
|
<meta http-equiv="content-type" content="text/html; charset=utf-8"/> |
|
|
|
|
<meta name="robots" content="index, nofollow"/> |
|
|
|
|
<link rel="stylesheet" type="text/css" href="$stylesheet"/> |
|
|
|
|
<title>$title</title> |
|
|
|
|
<link rel="stylesheet" type="text/css" href="$stylesheet"/> |
|
|
|
|
$rss_link |
|
|
|
|
</head> |
|
|
|
|
<body> |
|
|
|
@ -349,7 +358,7 @@ sub git_footer_html {
@@ -349,7 +358,7 @@ sub git_footer_html {
|
|
|
|
|
|
|
|
|
|
sub die_error { |
|
|
|
|
my $status = shift || "403 Forbidden"; |
|
|
|
|
my $error = shift || "Malformed query, file missing or permission denied"; |
|
|
|
|
my $error = shift || "Malformed query, file missing or permission denied"; |
|
|
|
|
|
|
|
|
|
git_header_html($status); |
|
|
|
|
print "<div class=\"page_body\">\n" . |
|
|
|
@ -816,7 +825,7 @@ sub git_get_project_config {
@@ -816,7 +825,7 @@ sub git_get_project_config {
|
|
|
|
|
$key =~ s/^gitweb\.//; |
|
|
|
|
return if ($key =~ m/\W/); |
|
|
|
|
|
|
|
|
|
my $val = qx(git-repo-config --get gitweb.$key); |
|
|
|
|
my $val = qx($gitbin/git-repo-config --get gitweb.$key); |
|
|
|
|
return ($val); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
@ -1066,7 +1075,7 @@ sub git_summary {
@@ -1066,7 +1075,7 @@ sub git_summary {
|
|
|
|
|
"<td>"; |
|
|
|
|
if (length($co{'title_short'}) < length($co{'title'})) { |
|
|
|
|
print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list", -title => "$co{'title'}"}, |
|
|
|
|
"<b>" . esc_html($co{'title_short'}) . "$ref</b>"); |
|
|
|
|
"<b>" . esc_html($co{'title_short'}) . "$ref</b>"); |
|
|
|
|
} else { |
|
|
|
|
print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"}, |
|
|
|
|
"<b>" . esc_html($co{'title'}) . "$ref</b>"); |
|
|
|
@ -1124,7 +1133,7 @@ sub git_summary {
@@ -1124,7 +1133,7 @@ sub git_summary {
|
|
|
|
|
print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'}); |
|
|
|
|
if ($tag{'reftype'} eq "commit") { |
|
|
|
|
print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
|
|
|
|
" | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
|
|
|
|
" | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
|
|
|
|
} |
|
|
|
|
print "</td>\n" . |
|
|
|
|
"</tr>"; |
|
|
|
@ -1362,7 +1371,7 @@ sub git_tags {
@@ -1362,7 +1371,7 @@ sub git_tags {
|
|
|
|
|
print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'}); |
|
|
|
|
if ($tag{'reftype'} eq "commit") { |
|
|
|
|
print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
|
|
|
|
" | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
|
|
|
|
" | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
|
|
|
|
} |
|
|
|
|
print "</td>\n" . |
|
|
|
|
"</tr>"; |
|
|
|
@ -1942,7 +1951,7 @@ sub git_commit {
@@ -1942,7 +1951,7 @@ sub git_commit {
|
|
|
|
|
"</td>" . |
|
|
|
|
"</tr>\n"; |
|
|
|
|
} |
|
|
|
|
print "</table>". |
|
|
|
|
print "</table>". |
|
|
|
|
"</div>\n"; |
|
|
|
|
print "<div class=\"page_body\">\n"; |
|
|
|
|
my $comment = $co{'comment'}; |
|
|
|
|