blob: 91c075df3a6b7cf02c6c54369c9fb706f28a7a77 [file] [log] [blame]
Kay Sievers161332a2005-08-07 19:49:46 +02001#!/usr/bin/perl
2
Kay Sieversc994d622005-08-07 20:27:18 +02003# gitweb - simple web interface to track changes in git repositories
Kay Sievers22fafb92005-08-07 19:56:59 +02004#
Kay Sievers00cd0792006-05-22 14:30:47 +02005# (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
6# (C) 2005, Christian Gierke
Kay Sievers823d5dc2005-08-07 19:57:58 +02007#
Kay Sieversd8f1c5c2005-10-04 01:12:47 +02008# This program is licensed under the GPLv2
Kay Sievers161332a2005-08-07 19:49:46 +02009
10use strict;
11use warnings;
Kay Sievers19806692005-08-07 20:26:27 +020012use CGI qw(:standard :escapeHTML -nosticky);
Kay Sievers7403d502005-08-07 20:23:49 +020013use CGI::Util qw(unescape);
Kay Sievers161332a2005-08-07 19:49:46 +020014use CGI::Carp qw(fatalsToBrowser);
Kay Sievers40c13812005-11-19 17:41:29 +010015use Encode;
Kay Sieversb87d78d2005-08-07 20:21:04 +020016use Fcntl ':mode';
Kay Sievers10bb9032005-11-23 04:26:40 +010017binmode STDOUT, ':utf8';
Kay Sievers161332a2005-08-07 19:49:46 +020018
Kay Sievers3e029292005-08-07 20:05:15 +020019my $cgi = new CGI;
Kay Sievers1130ef32006-05-30 14:41:04 +020020my $version = "267";
Kay Sievers3e029292005-08-07 20:05:15 +020021my $my_url = $cgi->url();
22my $my_uri = $cgi->url(-absolute => 1);
Kay Sievers40c13812005-11-19 17:41:29 +010023my $rss_link = "";
Kay Sievers44ad2972005-08-07 19:59:24 +020024
Kay Sieversb87d78d2005-08-07 20:21:04 +020025# absolute fs-path which will be prepended to the project path
Kay Sieversa48e11c2005-08-31 03:25:29 +020026#my $projectroot = "/pub/scm";
Kay Sievers40c13812005-11-19 17:41:29 +010027my $projectroot = "/home/kay/public_html/pub/scm";
Kay Sieversb87d78d2005-08-07 20:21:04 +020028
29# location of the git-core binaries
30my $gitbin = "/usr/bin";
31
32# location for temporary files needed for diffs
Kay Sievers19806692005-08-07 20:26:27 +020033my $git_temp = "/tmp/gitweb";
Kay Sieversb87d78d2005-08-07 20:21:04 +020034
35# target of the home link on top of all pages
Kay Sieversede5e102005-08-07 20:23:12 +020036my $home_link = $my_uri;
Kay Sieversb87d78d2005-08-07 20:21:04 +020037
Kay Sievers8ab1da22005-08-07 20:22:53 +020038# html text to include at home page
39my $home_text = "indextext.html";
40
Kay Sievers09bd7892005-08-07 20:21:23 +020041# source of projects list
Kay Sievers40c13812005-11-19 17:41:29 +010042#my $projects_list = $projectroot;
43my $projects_list = "index/index.aux";
Kay Sieversb87d78d2005-08-07 20:21:04 +020044
Kay Sievers09bd7892005-08-07 20:21:23 +020045# input validation and dispatch
46my $action = $cgi->param('a');
47if (defined $action) {
Kay Sieversc91da262005-09-03 14:50:33 +020048 if ($action =~ m/[^0-9a-zA-Z\.\-_]/) {
Kay Sievers09bd7892005-08-07 20:21:23 +020049 undef $action;
50 die_error(undef, "Invalid action parameter.");
Kay Sieversb87d78d2005-08-07 20:21:04 +020051 }
Kay Sievers09bd7892005-08-07 20:21:23 +020052 if ($action eq "git-logo.png") {
53 git_logo();
54 exit;
Kay Sieversc994d622005-08-07 20:27:18 +020055 } elsif ($action eq "opml") {
56 git_opml();
57 exit;
Kay Sievers09bd7892005-08-07 20:21:23 +020058 }
Kay Sieversb87d78d2005-08-07 20:21:04 +020059}
60
Kay Sieversf7ab6602005-08-10 03:53:09 +020061my $order = $cgi->param('o');
62if (defined $order) {
Kay Sieversc91da262005-09-03 14:50:33 +020063 if ($order =~ m/[^0-9a-zA-Z_]/) {
Kay Sieversf7ab6602005-08-10 03:53:09 +020064 undef $order;
65 die_error(undef, "Invalid order parameter.");
66 }
67}
68
Kay Sievers022be3d2005-08-07 20:06:09 +020069my $project = $cgi->param('p');
Kay Sieversb87d78d2005-08-07 20:21:04 +020070if (defined $project) {
Kay Sieversc91da262005-09-03 14:50:33 +020071 $project = validate_input($project);
72 if (!defined($project)) {
73 die_error(undef, "Invalid project parameter.");
Kay Sievers9cd3d982005-08-07 20:17:42 +020074 }
75 if (!(-d "$projectroot/$project")) {
Kay Sieversb87d78d2005-08-07 20:21:04 +020076 undef $project;
Kay Sievers09bd7892005-08-07 20:21:23 +020077 die_error(undef, "No such directory.");
Kay Sieversb87d78d2005-08-07 20:21:04 +020078 }
79 if (!(-e "$projectroot/$project/HEAD")) {
80 undef $project;
Kay Sievers09bd7892005-08-07 20:21:23 +020081 die_error(undef, "No such project.");
Kay Sievers9cd3d982005-08-07 20:17:42 +020082 }
Kay Sievers232ff552005-11-24 16:56:55 +010083 $rss_link = "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" .
84 "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>";
Kay Sievers4fac5292005-08-07 20:27:38 +020085 $ENV{'GIT_DIR'} = "$projectroot/$project";
Kay Sievers09bd7892005-08-07 20:21:23 +020086} else {
Kay Sieversede5e102005-08-07 20:23:12 +020087 git_project_list();
Kay Sievers09bd7892005-08-07 20:21:23 +020088 exit;
Kay Sievers2ad93312005-08-07 20:14:48 +020089}
Kay Sievers6191f8e2005-08-07 20:19:56 +020090
91my $file_name = $cgi->param('f');
Kay Sieversb87d78d2005-08-07 20:21:04 +020092if (defined $file_name) {
Kay Sieversc91da262005-09-03 14:50:33 +020093 $file_name = validate_input($file_name);
94 if (!defined($file_name)) {
95 die_error(undef, "Invalid file parameter.");
Kay Sieversb87d78d2005-08-07 20:21:04 +020096 }
Kay Sieversd51e9022005-08-07 20:16:07 +020097}
Kay Sievers6191f8e2005-08-07 20:19:56 +020098
Kay Sievers6191f8e2005-08-07 20:19:56 +020099my $hash = $cgi->param('h');
Kay Sievers4fac5292005-08-07 20:27:38 +0200100if (defined $hash) {
Kay Sieversc91da262005-09-03 14:50:33 +0200101 $hash = validate_input($hash);
102 if (!defined($hash)) {
103 die_error(undef, "Invalid hash parameter.");
Kay Sievers4fac5292005-08-07 20:27:38 +0200104 }
Kay Sieversa59d4af2005-08-07 20:15:44 +0200105}
Kay Sievers6191f8e2005-08-07 20:19:56 +0200106
107my $hash_parent = $cgi->param('hp');
Kay Sieversc91da262005-09-03 14:50:33 +0200108if (defined $hash_parent) {
109 $hash_parent = validate_input($hash_parent);
110 if (!defined($hash_parent)) {
111 die_error(undef, "Invalid hash parent parameter.");
112 }
Kay Sievers09bd7892005-08-07 20:21:23 +0200113}
114
115my $hash_base = $cgi->param('hb');
Kay Sieversc91da262005-09-03 14:50:33 +0200116if (defined $hash_base) {
117 $hash_base = validate_input($hash_base);
118 if (!defined($hash_base)) {
119 die_error(undef, "Invalid hash base parameter.");
120 }
Kay Sieversa59d4af2005-08-07 20:15:44 +0200121}
Kay Sievers6191f8e2005-08-07 20:19:56 +0200122
Kay Sieversea4a6df2005-08-07 20:26:49 +0200123my $page = $cgi->param('pg');
124if (defined $page) {
Kay Sieversc91da262005-09-03 14:50:33 +0200125 if ($page =~ m/[^0-9]$/) {
Kay Sieversea4a6df2005-08-07 20:26:49 +0200126 undef $page;
127 die_error(undef, "Invalid page parameter.");
Kay Sieversb87d78d2005-08-07 20:21:04 +0200128 }
Kay Sieversa59d4af2005-08-07 20:15:44 +0200129}
Kay Sievers823d5dc2005-08-07 19:57:58 +0200130
Kay Sievers19806692005-08-07 20:26:27 +0200131my $searchtext = $cgi->param('s');
132if (defined $searchtext) {
133 if ($searchtext =~ m/[^a-zA-Z0-9_\.\/\-\+\:\@ ]/) {
134 undef $searchtext;
135 die_error(undef, "Invalid search parameter.");
136 }
137 $searchtext = quotemeta $searchtext;
138}
139
Kay Sieversc91da262005-09-03 14:50:33 +0200140sub validate_input {
141 my $input = shift;
142
143 if ($input =~ m/^[0-9a-fA-F]{40}$/) {
144 return $input;
145 }
146 if ($input =~ m/(^|\/)(|\.|\.\.)($|\/)/) {
147 return undef;
148 }
Kay Sieversf5ac8352005-11-24 19:43:53 +0100149 if ($input =~ m/[^a-zA-Z0-9_\x80-\xff\ \t\.\/\-\+\#\~\%]/) {
Kay Sieversc91da262005-09-03 14:50:33 +0200150 return undef;
151 }
152 return $input;
153}
154
Kay Sievers4fac5292005-08-07 20:27:38 +0200155if (!defined $action || $action eq "summary") {
Kay Sieversede5e102005-08-07 20:23:12 +0200156 git_summary();
157 exit;
Kay Sieversd8f1c5c2005-10-04 01:12:47 +0200158} elsif ($action eq "heads") {
159 git_heads();
Kay Sievers0db37972005-08-07 20:24:35 +0200160 exit;
Kay Sieversede5e102005-08-07 20:23:12 +0200161} elsif ($action eq "tags") {
162 git_tags();
163 exit;
164} elsif ($action eq "blob") {
Kay Sievers09bd7892005-08-07 20:21:23 +0200165 git_blob();
166 exit;
Kay Sievers19806692005-08-07 20:26:27 +0200167} elsif ($action eq "blob_plain") {
168 git_blob_plain();
169 exit;
Kay Sievers09bd7892005-08-07 20:21:23 +0200170} elsif ($action eq "tree") {
171 git_tree();
172 exit;
173} elsif ($action eq "rss") {
174 git_rss();
175 exit;
176} elsif ($action eq "commit") {
177 git_commit();
178 exit;
179} elsif ($action eq "log") {
180 git_log();
181 exit;
182} elsif ($action eq "blobdiff") {
183 git_blobdiff();
184 exit;
Kay Sievers19806692005-08-07 20:26:27 +0200185} elsif ($action eq "blobdiff_plain") {
186 git_blobdiff_plain();
187 exit;
Kay Sievers09bd7892005-08-07 20:21:23 +0200188} elsif ($action eq "commitdiff") {
189 git_commitdiff();
190 exit;
Kay Sievers19806692005-08-07 20:26:27 +0200191} elsif ($action eq "commitdiff_plain") {
192 git_commitdiff_plain();
193 exit;
Kay Sievers09bd7892005-08-07 20:21:23 +0200194} elsif ($action eq "history") {
195 git_history();
196 exit;
Kay Sievers19806692005-08-07 20:26:27 +0200197} elsif ($action eq "search") {
198 git_search();
199 exit;
200} elsif ($action eq "shortlog") {
201 git_shortlog();
202 exit;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200203} elsif ($action eq "tag") {
204 git_tag();
205 exit;
Florian Forstere34ef622006-06-11 17:45:19 +0200206} elsif ($action eq "blame") {
207 git_blame();
208 exit;
Kay Sievers09bd7892005-08-07 20:21:23 +0200209} else {
210 undef $action;
211 die_error(undef, "Unknown action.");
212 exit;
213}
214
Kay Sievers232ff552005-11-24 16:56:55 +0100215# quote unsafe chars, but keep the slash, even when it's not
216# correct, but quoted slashes look too horrible in bookmarks
217sub esc_param {
Kay Sievers353347b2005-11-14 05:47:18 +0100218 my $str = shift;
Kay Sievers232ff552005-11-24 16:56:55 +0100219 $str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&=])/sprintf("%%%02X", ord($1))/eg;
Kay Sievers18216712005-11-14 06:10:07 +0100220 $str =~ s/\+/%2B/g;
Kay Sieversa9e60b72005-11-14 15:15:12 +0100221 $str =~ s/ /\+/g;
Kay Sievers353347b2005-11-14 05:47:18 +0100222 return $str;
223}
224
Kay Sievers232ff552005-11-24 16:56:55 +0100225# replace invalid utf8 character with SUBSTITUTION sequence
Kay Sievers40c13812005-11-19 17:41:29 +0100226sub esc_html {
227 my $str = shift;
Kay Sievers40c13812005-11-19 17:41:29 +0100228 $str = decode("utf8", $str, Encode::FB_DEFAULT);
Kay Sievers10bb9032005-11-23 04:26:40 +0100229 $str = escapeHTML($str);
Kay Sievers40c13812005-11-19 17:41:29 +0100230 return $str;
231}
232
Kay Sievers232ff552005-11-24 16:56:55 +0100233# git may return quoted and escaped filenames
234sub unquote {
235 my $str = shift;
236 if ($str =~ m/^"(.*)"$/) {
237 $str = $1;
238 $str =~ s/\\([0-7]{1,3})/chr(oct($1))/eg;
239 }
240 return $str;
241}
242
Kay Sievers12a88f22005-08-07 20:02:47 +0200243sub git_header_html {
Kay Sieversa59d4af2005-08-07 20:15:44 +0200244 my $status = shift || "200 OK";
Kay Sievers11044292005-10-19 03:18:45 +0200245 my $expires = shift;
Kay Sieversa59d4af2005-08-07 20:15:44 +0200246
Kay Sieversb87d78d2005-08-07 20:21:04 +0200247 my $title = "git";
248 if (defined $project) {
249 $title .= " - $project";
250 if (defined $action) {
251 $title .= "/$action";
252 }
253 }
Kay Sievers11044292005-10-19 03:18:45 +0200254 print $cgi->header(-type=>'text/html', -charset => 'utf-8', -status=> $status, -expires => $expires);
Kay Sieversa59d4af2005-08-07 20:15:44 +0200255 print <<EOF;
Kay Sievers6191f8e2005-08-07 20:19:56 +0200256<?xml version="1.0" encoding="utf-8"?>
Kay Sievers161332a2005-08-07 19:49:46 +0200257<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
Kay Sievers034df392005-08-07 20:20:07 +0200258<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US">
Kay Sievers00cd0792006-05-22 14:30:47 +0200259<!-- git web interface v$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->
Kay Sievers161332a2005-08-07 19:49:46 +0200260<head>
Kay Sieversc994d622005-08-07 20:27:18 +0200261<meta http-equiv="content-type" content="text/html; charset=utf-8"/>
262<meta name="robots" content="index, nofollow"/>
Kay Sieversb87d78d2005-08-07 20:21:04 +0200263<title>$title</title>
Kay Sievers6191f8e2005-08-07 20:19:56 +0200264$rss_link
265<style type="text/css">
Kay Sievers8240acc2005-12-19 04:09:02 +0100266body {
267 font-family: sans-serif; font-size: 12px; border:solid #d9d8d1; border-width:1px;
268 margin:10px; background-color:#ffffff; color:#000000;
269}
Kay Sievers6191f8e2005-08-07 20:19:56 +0200270a { color:#0000cc; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200271a:hover, a:visited, a:active { color:#880000; }
272div.page_header { height:25px; padding:8px; font-size:18px; font-weight:bold; background-color:#d9d8d1; }
Kay Sieversd8d17b52005-08-12 21:43:32 +0200273div.page_header a:visited, a.header { color:#0000cc; }
Kay Sievers6191f8e2005-08-07 20:19:56 +0200274div.page_header a:hover { color:#880000; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200275div.page_nav { padding:8px; }
Kay Sievers6191f8e2005-08-07 20:19:56 +0200276div.page_nav a:visited { color:#0000cc; }
Kay Sievers19806692005-08-07 20:26:27 +0200277div.page_path { padding:8px; border:solid #d9d8d1; border-width:0px 0px 1px}
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200278div.page_footer { height:17px; padding:4px 8px; background-color: #d9d8d1; }
Kay Sievers6191f8e2005-08-07 20:19:56 +0200279div.page_footer_text { float:left; color:#555555; font-style:italic; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200280div.page_body { padding:8px; }
Kay Sievers6191f8e2005-08-07 20:19:56 +0200281div.title, a.title {
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200282 display:block; padding:6px 8px;
Kay Sievers6191f8e2005-08-07 20:19:56 +0200283 font-weight:bold; background-color:#edece6; text-decoration:none; color:#000000;
284}
285a.title:hover { background-color: #d9d8d1; }
Kay Sieversbddec012005-08-07 20:25:42 +0200286div.title_text { padding:6px 0px; border: solid #d9d8d1; border-width:0px 0px 1px; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200287div.log_body { padding:8px 8px 8px 150px; }
Kay Sievers440c6002005-08-07 20:24:01 +0200288span.age { position:relative; float:left; width:142px; font-style:italic; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200289div.log_link {
Kay Sieversbddec012005-08-07 20:25:42 +0200290 padding:0px 8px;
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200291 font-size:10px; font-family:sans-serif; font-style:normal;
Kay Sieversbddec012005-08-07 20:25:42 +0200292 position:relative; float:left; width:136px;
Kay Sievers6191f8e2005-08-07 20:19:56 +0200293}
Kay Sieversbddec012005-08-07 20:25:42 +0200294div.list_head { padding:6px 8px 4px; border:solid #d9d8d1; border-width:1px 0px 0px; font-style:italic; }
Kay Sievers10dba282005-08-07 20:25:27 +0200295a.list { text-decoration:none; color:#000000; }
Kay Sieversc994d622005-08-07 20:27:18 +0200296a.list:hover { text-decoration:underline; color:#880000; }
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200297a.text { text-decoration:none; color:#0000cc; }
298a.text:visited { text-decoration:none; color:#880000; }
299a.text:hover { text-decoration:underline; color:#880000; }
Kay Sieversbddec012005-08-07 20:25:42 +0200300table { padding:8px 4px; }
301th { padding:2px 5px; font-size:12px; text-align:left; }
Kay Sieversc994d622005-08-07 20:27:18 +0200302tr.light:hover { background-color:#edece6; }
303tr.dark { background-color:#f6f6f0; }
304tr.dark:hover { background-color:#edece6; }
Kay Sievers19806692005-08-07 20:26:27 +0200305td { padding:2px 5px; font-size:12px; vertical-align:top; }
Kay Sieversbddec012005-08-07 20:25:42 +0200306td.link { padding:2px 5px; font-family:sans-serif; font-size:10px; }
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200307div.pre { font-family:monospace; font-size:12px; white-space:pre; }
308div.diff_info { font-family:monospace; color:#000099; background-color:#edece6; font-style:italic; }
Kay Sievers8ab1da22005-08-07 20:22:53 +0200309div.index_include { border:solid #d9d8d1; border-width:0px 0px 1px; padding:12px 8px; }
Kay Sieversc994d622005-08-07 20:27:18 +0200310div.search { margin:4px 8px; position:absolute; top:56px; right:12px }
Kay Sievers71be1e72005-08-07 20:27:27 +0200311a.linenr { color:#999999; text-decoration:none }
Kay Sieversc994d622005-08-07 20:27:18 +0200312a.rss_logo {
313 float:right; padding:3px 0px; width:35px; line-height:10px;
Kay Sievers09bd7892005-08-07 20:21:23 +0200314 border:1px solid; border-color:#fcc7a5 #7d3302 #3e1a01 #ff954e;
Kay Sievers6191f8e2005-08-07 20:19:56 +0200315 color:#ffffff; background-color:#ff6600;
Kay Sievers09bd7892005-08-07 20:21:23 +0200316 font-weight:bold; font-family:sans-serif; font-size:10px;
317 text-align:center; text-decoration:none;
Kay Sievers6191f8e2005-08-07 20:19:56 +0200318}
Kay Sievers27359832005-08-07 20:20:20 +0200319a.rss_logo:hover { background-color:#ee5500; }
Kay Sievers6a928412005-12-07 09:44:06 +0100320span.tag {
Kay Sievers4df11912005-12-07 10:51:42 +0100321 padding:0px 4px; font-size:10px; font-weight:normal;
Kay Sievers6a928412005-12-07 09:44:06 +0100322 background-color:#ffffaa; border:1px solid; border-color:#ffffcc #ffee00 #ffee00 #ffffcc;
323}
Kay Sievers6191f8e2005-08-07 20:19:56 +0200324</style>
Kay Sievers161332a2005-08-07 19:49:46 +0200325</head>
326<body>
327EOF
Kay Sieversff7669a2005-08-07 20:13:02 +0200328 print "<div class=\"page_header\">\n" .
Kay Sieversc994d622005-08-07 20:27:18 +0200329 "<a href=\"http://www.kernel.org/pub/software/scm/git/docs/\" title=\"git documentation\">" .
Kay Sievers232ff552005-11-24 16:56:55 +0100330 "<img src=\"$my_uri?" . esc_param("a=git-logo.png") . "\" width=\"72\" height=\"27\" alt=\"git\" style=\"float:right; border-width:0px;\"/>" .
Kay Sievers19806692005-08-07 20:26:27 +0200331 "</a>\n";
Kay Sievers232ff552005-11-24 16:56:55 +0100332 print $cgi->a({-href => esc_param($home_link)}, "projects") . " / ";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200333 if (defined $project) {
Kay Sievers232ff552005-11-24 16:56:55 +0100334 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, esc_html($project));
Kay Sieversb87d78d2005-08-07 20:21:04 +0200335 if (defined $action) {
336 print " / $action";
337 }
Kay Sievers19806692005-08-07 20:26:27 +0200338 print "\n";
339 if (!defined $searchtext) {
340 $searchtext = "";
341 }
Kay Sieversc39e47d2005-09-17 03:00:21 +0200342 my $search_hash;
343 if (defined $hash) {
344 $search_hash = $hash;
345 } else {
346 $search_hash = "HEAD";
347 }
Kay Sievers19806692005-08-07 20:26:27 +0200348 $cgi->param("a", "search");
Kay Sieversc39e47d2005-09-17 03:00:21 +0200349 $cgi->param("h", $search_hash);
Kay Sievers353347b2005-11-14 05:47:18 +0100350 print $cgi->startform(-method => "get", -action => $my_uri) .
Kay Sieversc994d622005-08-07 20:27:18 +0200351 "<div class=\"search\">\n" .
352 $cgi->hidden(-name => "p") . "\n" .
353 $cgi->hidden(-name => "a") . "\n" .
Kay Sieversc39e47d2005-09-17 03:00:21 +0200354 $cgi->hidden(-name => "h") . "\n" .
Kay Sieversc994d622005-08-07 20:27:18 +0200355 $cgi->textfield(-name => "s", -value => $searchtext) . "\n" .
356 "</div>" .
357 $cgi->end_form() . "\n";
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200358 }
359 print "</div>\n";
Kay Sievers161332a2005-08-07 19:49:46 +0200360}
361
Kay Sievers12a88f22005-08-07 20:02:47 +0200362sub git_footer_html {
Kay Sievers6191f8e2005-08-07 20:19:56 +0200363 print "<div class=\"page_footer\">\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200364 if (defined $project) {
Kay Sievers09bd7892005-08-07 20:21:23 +0200365 my $descr = git_read_description($project);
Kay Sieversb87d78d2005-08-07 20:21:04 +0200366 if (defined $descr) {
Kay Sievers40c13812005-11-19 17:41:29 +0100367 print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n";
Kay Sievers6191f8e2005-08-07 20:19:56 +0200368 }
Kay Sievers232ff552005-11-24 16:56:55 +0100369 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=rss"), -class => "rss_logo"}, "RSS") . "\n";
Kay Sieversc994d622005-08-07 20:27:18 +0200370 } else {
Kay Sievers232ff552005-11-24 16:56:55 +0100371 print $cgi->a({-href => "$my_uri?" . esc_param("a=opml"), -class => "rss_logo"}, "OPML") . "\n";
Kay Sieversff7669a2005-08-07 20:13:02 +0200372 }
Kay Sievers6191f8e2005-08-07 20:19:56 +0200373 print "</div>\n" .
374 "</body>\n" .
Kay Sievers9cd3d982005-08-07 20:17:42 +0200375 "</html>";
Kay Sievers161332a2005-08-07 19:49:46 +0200376}
377
Kay Sievers061cc7c2005-08-07 20:15:57 +0200378sub die_error {
379 my $status = shift || "403 Forbidden";
Kay Sieversa59d4af2005-08-07 20:15:44 +0200380 my $error = shift || "Malformed query, file missing or permission denied";
Kay Sievers664f4cc2005-08-07 20:17:19 +0200381
Kay Sieversa59d4af2005-08-07 20:15:44 +0200382 git_header_html($status);
383 print "<div class=\"page_body\">\n" .
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200384 "<br/><br/>\n" .
385 "$status - $error\n" .
386 "<br/>\n" .
387 "</div>\n";
Kay Sieversa59d4af2005-08-07 20:15:44 +0200388 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +0200389 exit;
Kay Sieversa59d4af2005-08-07 20:15:44 +0200390}
391
Kay Sievers42f7eb92005-08-07 20:21:46 +0200392sub git_get_type {
393 my $hash = shift;
394
Kay Sievers19806692005-08-07 20:26:27 +0200395 open my $fd, "-|", "$gitbin/git-cat-file -t $hash" or return;
Kay Sievers42f7eb92005-08-07 20:21:46 +0200396 my $type = <$fd>;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200397 close $fd or return;
Kay Sievers42f7eb92005-08-07 20:21:46 +0200398 chomp $type;
399 return $type;
400}
401
Junio C Hamanodf2c37a2006-01-09 13:13:39 +0100402sub git_read_head {
403 my $project = shift;
404 my $oENV = $ENV{'GIT_DIR'};
405 my $retval = undef;
406 $ENV{'GIT_DIR'} = "$projectroot/$project";
407 if (open my $fd, "-|", "$gitbin/git-rev-parse", "--verify", "HEAD") {
408 my $head = <$fd>;
409 close $fd;
Kay Sievers2c5c0082006-01-17 03:50:20 +0100410 if (defined $head && $head =~ /^([0-9a-fA-F]{40})$/) {
411 $retval = $1;
Junio C Hamanodf2c37a2006-01-09 13:13:39 +0100412 }
413 }
Kay Sievers2c5c0082006-01-17 03:50:20 +0100414 if (defined $oENV) {
415 $ENV{'GIT_DIR'} = $oENV;
416 }
Junio C Hamanodf2c37a2006-01-09 13:13:39 +0100417 return $retval;
418}
419
Kay Sieversede5e102005-08-07 20:23:12 +0200420sub git_read_hash {
Kay Sievers54b0a432005-08-07 20:08:03 +0200421 my $path = shift;
Kay Sievers09bd7892005-08-07 20:21:23 +0200422
Kay Sievers19806692005-08-07 20:26:27 +0200423 open my $fd, "$projectroot/$path" or return undef;
Kay Sievers12a88f22005-08-07 20:02:47 +0200424 my $head = <$fd>;
425 close $fd;
426 chomp $head;
Kay Sieversb87d78d2005-08-07 20:21:04 +0200427 if ($head =~ m/^[0-9a-fA-F]{40}$/) {
428 return $head;
Kay Sieversb87d78d2005-08-07 20:21:04 +0200429 }
430}
431
Kay Sievers09bd7892005-08-07 20:21:23 +0200432sub git_read_description {
Kay Sieversb87d78d2005-08-07 20:21:04 +0200433 my $path = shift;
Kay Sievers09bd7892005-08-07 20:21:23 +0200434
Kay Sievers19806692005-08-07 20:26:27 +0200435 open my $fd, "$projectroot/$path/description" or return undef;
Kay Sieversb87d78d2005-08-07 20:21:04 +0200436 my $descr = <$fd>;
437 close $fd;
438 chomp $descr;
439 return $descr;
Kay Sievers12a88f22005-08-07 20:02:47 +0200440}
441
Kay Sieversede5e102005-08-07 20:23:12 +0200442sub git_read_tag {
443 my $tag_id = shift;
444 my %tag;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200445 my @comment;
Kay Sieversede5e102005-08-07 20:23:12 +0200446
Kay Sievers19806692005-08-07 20:26:27 +0200447 open my $fd, "-|", "$gitbin/git-cat-file tag $tag_id" or return;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200448 $tag{'id'} = $tag_id;
Kay Sieversede5e102005-08-07 20:23:12 +0200449 while (my $line = <$fd>) {
450 chomp $line;
451 if ($line =~ m/^object ([0-9a-fA-F]{40})$/) {
452 $tag{'object'} = $1;
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200453 } elsif ($line =~ m/^type (.+)$/) {
Kay Sieversede5e102005-08-07 20:23:12 +0200454 $tag{'type'} = $1;
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200455 } elsif ($line =~ m/^tag (.+)$/) {
Kay Sieversede5e102005-08-07 20:23:12 +0200456 $tag{'name'} = $1;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200457 } elsif ($line =~ m/^tagger (.*) ([0-9]+) (.*)$/) {
458 $tag{'author'} = $1;
459 $tag{'epoch'} = $2;
460 $tag{'tz'} = $3;
461 } elsif ($line =~ m/--BEGIN/) {
462 push @comment, $line;
463 last;
464 } elsif ($line eq "") {
465 last;
Kay Sieversede5e102005-08-07 20:23:12 +0200466 }
467 }
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200468 push @comment, <$fd>;
469 $tag{'comment'} = \@comment;
Kay Sievers19806692005-08-07 20:26:27 +0200470 close $fd or return;
Kay Sieversede5e102005-08-07 20:23:12 +0200471 if (!defined $tag{'name'}) {
472 return
473 };
474 return %tag
475}
476
Kay Sieversd263a6b2005-08-07 20:29:03 +0200477sub age_string {
478 my $age = shift;
479 my $age_str;
480
481 if ($age > 60*60*24*365*2) {
482 $age_str = (int $age/60/60/24/365);
483 $age_str .= " years ago";
484 } elsif ($age > 60*60*24*(365/12)*2) {
485 $age_str = int $age/60/60/24/(365/12);
486 $age_str .= " months ago";
487 } elsif ($age > 60*60*24*7*2) {
488 $age_str = int $age/60/60/24/7;
489 $age_str .= " weeks ago";
490 } elsif ($age > 60*60*24*2) {
491 $age_str = int $age/60/60/24;
492 $age_str .= " days ago";
493 } elsif ($age > 60*60*2) {
494 $age_str = int $age/60/60;
495 $age_str .= " hours ago";
496 } elsif ($age > 60*2) {
497 $age_str = int $age/60;
498 $age_str .= " min ago";
499 } elsif ($age > 2) {
500 $age_str = int $age;
501 $age_str .= " sec ago";
502 } else {
503 $age_str .= " right now";
504 }
505 return $age_str;
506}
507
Kay Sievers09bd7892005-08-07 20:21:23 +0200508sub git_read_commit {
Kay Sievers19806692005-08-07 20:26:27 +0200509 my $commit_id = shift;
510 my $commit_text = shift;
511
512 my @commit_lines;
Kay Sievers703ac712005-08-07 20:03:14 +0200513 my %co;
Kay Sievers703ac712005-08-07 20:03:14 +0200514
Kay Sievers19806692005-08-07 20:26:27 +0200515 if (defined $commit_text) {
516 @commit_lines = @$commit_text;
517 } else {
Kay Sievers25f422f2005-09-13 02:21:59 +0200518 $/ = "\0";
519 open my $fd, "-|", "$gitbin/git-rev-list --header --parents --max-count=1 $commit_id" or return;
520 @commit_lines = split '\n', <$fd>;
Kay Sievers19806692005-08-07 20:26:27 +0200521 close $fd or return;
Kay Sievers25f422f2005-09-13 02:21:59 +0200522 $/ = "\n";
523 pop @commit_lines;
Kay Sievers19806692005-08-07 20:26:27 +0200524 }
Kay Sievers25f422f2005-09-13 02:21:59 +0200525 my $header = shift @commit_lines;
526 if (!($header =~ m/^[0-9a-fA-F]{40}/)) {
527 return;
528 }
529 ($co{'id'}, my @parents) = split ' ', $header;
530 $co{'parents'} = \@parents;
531 $co{'parent'} = $parents[0];
Kay Sievers19806692005-08-07 20:26:27 +0200532 while (my $line = shift @commit_lines) {
Kay Sieversb87d78d2005-08-07 20:21:04 +0200533 last if $line eq "\n";
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200534 if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) {
Kay Sievers703ac712005-08-07 20:03:14 +0200535 $co{'tree'} = $1;
Kay Sievers022be3d2005-08-07 20:06:09 +0200536 } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) {
Kay Sievers3f714532005-08-07 20:03:52 +0200537 $co{'author'} = $1;
Kay Sievers185f09e2005-08-07 20:13:11 +0200538 $co{'author_epoch'} = $2;
539 $co{'author_tz'} = $3;
Kay Sievers2bf7a522005-08-07 20:26:03 +0200540 if ($co{'author'} =~ m/^([^<]+) </) {
541 $co{'author_name'} = $1;
542 } else {
543 $co{'author_name'} = $co{'author'};
544 }
Kay Sievers86eed322005-08-07 20:08:29 +0200545 } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) {
546 $co{'committer'} = $1;
Kay Sievers185f09e2005-08-07 20:13:11 +0200547 $co{'committer_epoch'} = $2;
548 $co{'committer_tz'} = $3;
Kay Sievers991910a2005-08-07 20:09:33 +0200549 $co{'committer_name'} = $co{'committer'};
550 $co{'committer_name'} =~ s/ <.*//;
Kay Sievers703ac712005-08-07 20:03:14 +0200551 }
552 }
Kay Sieversede5e102005-08-07 20:23:12 +0200553 if (!defined $co{'tree'}) {
Kay Sievers25f422f2005-09-13 02:21:59 +0200554 return;
Kay Sieversede5e102005-08-07 20:23:12 +0200555 };
Kay Sievers25f422f2005-09-13 02:21:59 +0200556
Kay Sievers19806692005-08-07 20:26:27 +0200557 foreach my $title (@commit_lines) {
Kay Sieversc2488d02005-12-07 16:32:51 +0100558 $title =~ s/^ //;
Kay Sievers19806692005-08-07 20:26:27 +0200559 if ($title ne "") {
Kay Sievers48c771f2005-08-31 03:54:45 +0200560 $co{'title'} = chop_str($title, 80, 5);
Kay Sievers19806692005-08-07 20:26:27 +0200561 # remove leading stuff of merges to make the interesting part visible
562 if (length($title) > 50) {
563 $title =~ s/^Automatic //;
564 $title =~ s/^merge (of|with) /Merge ... /i;
565 if (length($title) > 50) {
566 $title =~ s/(http|rsync):\/\///;
567 }
568 if (length($title) > 50) {
569 $title =~ s/(master|www|rsync)\.//;
570 }
571 if (length($title) > 50) {
572 $title =~ s/kernel.org:?//;
573 }
574 if (length($title) > 50) {
575 $title =~ s/\/pub\/scm//;
576 }
577 }
Kay Sievers48c771f2005-08-31 03:54:45 +0200578 $co{'title_short'} = chop_str($title, 50, 5);
Kay Sievers19806692005-08-07 20:26:27 +0200579 last;
580 }
581 }
Kay Sievers25f422f2005-09-13 02:21:59 +0200582 # remove added spaces
583 foreach my $line (@commit_lines) {
584 $line =~ s/^ //;
585 }
586 $co{'comment'} = \@commit_lines;
Kay Sievers2ae100d2005-08-07 20:17:00 +0200587
588 my $age = time - $co{'committer_epoch'};
589 $co{'age'} = $age;
Kay Sieversd263a6b2005-08-07 20:29:03 +0200590 $co{'age_string'} = age_string($age);
Kay Sievers71be1e72005-08-07 20:27:27 +0200591 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'});
592 if ($age > 60*60*24*7*2) {
Kay Sievers1b1cd422005-08-07 20:28:01 +0200593 $co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
Kay Sievers71be1e72005-08-07 20:27:27 +0200594 $co{'age_string_age'} = $co{'age_string'};
595 } else {
596 $co{'age_string_date'} = $co{'age_string'};
Kay Sievers1b1cd422005-08-07 20:28:01 +0200597 $co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
Kay Sievers71be1e72005-08-07 20:27:27 +0200598 }
Kay Sievers703ac712005-08-07 20:03:14 +0200599 return %co;
600}
601
Kay Sievers19806692005-08-07 20:26:27 +0200602sub git_diff_print {
Kay Sievers8ed23e12005-08-07 20:05:44 +0200603 my $from = shift;
Kay Sievers27359832005-08-07 20:20:20 +0200604 my $from_name = shift;
Kay Sievers8ed23e12005-08-07 20:05:44 +0200605 my $to = shift;
Kay Sievers27359832005-08-07 20:20:20 +0200606 my $to_name = shift;
Kay Sievers19806692005-08-07 20:26:27 +0200607 my $format = shift || "html";
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200608
Kay Sievers8ed23e12005-08-07 20:05:44 +0200609 my $from_tmp = "/dev/null";
610 my $to_tmp = "/dev/null";
Kay Sievers8ed23e12005-08-07 20:05:44 +0200611 my $pid = $$;
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200612
Kay Sieversff7669a2005-08-07 20:13:02 +0200613 # create tmp from-file
Kay Sieversb87d78d2005-08-07 20:21:04 +0200614 if (defined $from) {
Kay Sievers19806692005-08-07 20:26:27 +0200615 $from_tmp = "$git_temp/gitweb_" . $$ . "_from";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200616 open my $fd2, "> $from_tmp";
Kay Sievers034df392005-08-07 20:20:07 +0200617 open my $fd, "-|", "$gitbin/git-cat-file blob $from";
Kay Sievers8ed23e12005-08-07 20:05:44 +0200618 my @file = <$fd>;
619 print $fd2 @file;
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200620 close $fd2;
621 close $fd;
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200622 }
623
Kay Sieversb531daf2005-08-07 19:55:05 +0200624 # create tmp to-file
Kay Sieversb87d78d2005-08-07 20:21:04 +0200625 if (defined $to) {
Kay Sievers19806692005-08-07 20:26:27 +0200626 $to_tmp = "$git_temp/gitweb_" . $$ . "_to";
Kay Sievers8ed23e12005-08-07 20:05:44 +0200627 open my $fd2, "> $to_tmp";
Kay Sievers034df392005-08-07 20:20:07 +0200628 open my $fd, "-|", "$gitbin/git-cat-file blob $to";
Kay Sievers8ed23e12005-08-07 20:05:44 +0200629 my @file = <$fd>;
630 print $fd2 @file;
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200631 close $fd2;
632 close $fd;
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200633 }
634
Kay Sievers18216712005-11-14 06:10:07 +0100635 open my $fd, "-|", "/usr/bin/diff -u -p -L \'$from_name\' -L \'$to_name\' $from_tmp $to_tmp";
Kay Sievers19806692005-08-07 20:26:27 +0200636 if ($format eq "plain") {
637 undef $/;
638 print <$fd>;
639 $/ = "\n";
640 } else {
641 while (my $line = <$fd>) {
642 chomp($line);
643 my $char = substr($line, 0, 1);
644 my $color = "";
645 if ($char eq '+') {
646 $color = " style=\"color:#008800;\"";
647 } elsif ($char eq "-") {
648 $color = " style=\"color:#cc0000;\"";
649 } elsif ($char eq "@") {
650 $color = " style=\"color:#990099;\"";
651 } elsif ($char eq "\\") {
652 # skip errors
653 next;
654 }
655 while ((my $pos = index($line, "\t")) != -1) {
656 if (my $count = (8 - (($pos-1) % 8))) {
657 my $spaces = ' ' x $count;
658 $line =~ s/\t/$spaces/;
659 }
660 }
Kay Sievers40c13812005-11-19 17:41:29 +0100661 print "<div class=\"pre\"$color>" . esc_html($line) . "</div>\n";
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200662 }
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200663 }
664 close $fd;
Kay Sievers8ed23e12005-08-07 20:05:44 +0200665
Kay Sieversb87d78d2005-08-07 20:21:04 +0200666 if (defined $from) {
Kay Sievers27359832005-08-07 20:20:20 +0200667 unlink($from_tmp);
Kay Sievers8ed23e12005-08-07 20:05:44 +0200668 }
Kay Sieversb87d78d2005-08-07 20:21:04 +0200669 if (defined $to) {
Kay Sievers27359832005-08-07 20:20:20 +0200670 unlink($to_tmp);
Kay Sievers8ed23e12005-08-07 20:05:44 +0200671 }
Kay Sievers4c02e3c2005-08-07 19:52:52 +0200672}
673
Kay Sieversd767d592005-08-07 20:05:55 +0200674sub mode_str {
Kay Sievers27359832005-08-07 20:20:20 +0200675 my $mode = oct shift;
676
Kay Sieversb87d78d2005-08-07 20:21:04 +0200677 if (S_ISDIR($mode & S_IFMT)) {
678 return 'drwxr-xr-x';
679 } elsif (S_ISLNK($mode)) {
680 return 'lrwxrwxrwx';
681 } elsif (S_ISREG($mode)) {
Kay Sievers991910a2005-08-07 20:09:33 +0200682 # git cares only about the executable bit
Kay Sieversb87d78d2005-08-07 20:21:04 +0200683 if ($mode & S_IXUSR) {
684 return '-rwxr-xr-x';
Kay Sievers54b0a432005-08-07 20:08:03 +0200685 } else {
Kay Sieversb87d78d2005-08-07 20:21:04 +0200686 return '-rw-r--r--';
Kay Sievers54b0a432005-08-07 20:08:03 +0200687 };
Kay Sieversb87d78d2005-08-07 20:21:04 +0200688 } else {
689 return '----------';
Kay Sieversd767d592005-08-07 20:05:55 +0200690 }
Kay Sieversd767d592005-08-07 20:05:55 +0200691}
692
Kay Sievers2bf7a522005-08-07 20:26:03 +0200693sub chop_str {
694 my $str = shift;
695 my $len = shift;
Kay Sievers19806692005-08-07 20:26:27 +0200696 my $add_len = shift || 10;
Kay Sievers2bf7a522005-08-07 20:26:03 +0200697
Kay Sieversa48e11c2005-08-31 03:25:29 +0200698 # allow only $len chars, but don't cut a word if it would fit in $add_len
699 # if it doesn't fit, cut it if it's still longer than the dots we would add
700 $str =~ m/^(.{0,$len}[^ \/\-_:\.@]{0,$add_len})(.*)/;
701 my $body = $1;
702 my $tail = $2;
703 if (length($tail) > 4) {
704 $tail = " ...";
Kay Sievers2bf7a522005-08-07 20:26:03 +0200705 }
Kay Sieversa48e11c2005-08-31 03:25:29 +0200706 return "$body$tail";
Kay Sievers2bf7a522005-08-07 20:26:03 +0200707}
708
Kay Sievers27359832005-08-07 20:20:20 +0200709sub file_type {
710 my $mode = oct shift;
711
Kay Sieversb87d78d2005-08-07 20:21:04 +0200712 if (S_ISDIR($mode & S_IFMT)) {
Kay Sievers27359832005-08-07 20:20:20 +0200713 return "directory";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200714 } elsif (S_ISLNK($mode)) {
Kay Sievers27359832005-08-07 20:20:20 +0200715 return "symlink";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200716 } elsif (S_ISREG($mode)) {
717 return "file";
Kay Sievers27359832005-08-07 20:20:20 +0200718 } else {
719 return "unknown";
720 }
721}
722
Kay Sieversf49201a2005-08-07 20:28:42 +0200723sub format_log_line_html {
724 my $line = shift;
725
Kay Sievers40c13812005-11-19 17:41:29 +0100726 $line = esc_html($line);
Kay Sieversf49201a2005-08-07 20:28:42 +0200727 $line =~ s/ /&nbsp;/g;
728 if ($line =~ m/([0-9a-fA-F]{40})/) {
729 my $hash_text = $1;
730 if (git_get_type($hash_text) eq "commit") {
Kay Sievers232ff552005-11-24 16:56:55 +0100731 my $link = $cgi->a({-class => "text", -href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_text")}, $hash_text);
Kay Sieversf49201a2005-08-07 20:28:42 +0200732 $line =~ s/$hash_text/$link/;
733 }
734 }
735 return $line;
736}
737
Kay Sievers86eed322005-08-07 20:08:29 +0200738sub date_str {
Kay Sievers991910a2005-08-07 20:09:33 +0200739 my $epoch = shift;
740 my $tz = shift || "-0000";
Kay Sievers86eed322005-08-07 20:08:29 +0200741
Kay Sievers991910a2005-08-07 20:09:33 +0200742 my %date;
Kay Sievers86eed322005-08-07 20:08:29 +0200743 my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
744 my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
Kay Sievers991910a2005-08-07 20:09:33 +0200745 my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
746 $date{'hour'} = $hour;
Kay Sieversff7669a2005-08-07 20:13:02 +0200747 $date{'minute'} = $min;
748 $date{'mday'} = $mday;
749 $date{'day'} = $days[$wday];
750 $date{'month'} = $months[$mon];
Kay Sievers991910a2005-08-07 20:09:33 +0200751 $date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
752 $date{'mday-time'} = sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min;
753
Kay Sievers034df392005-08-07 20:20:07 +0200754 $tz =~ m/^([+\-][0-9][0-9])([0-9][0-9])$/;
755 my $local = $epoch + ((int $1 + ($2/60)) * 3600);
Kay Sievers991910a2005-08-07 20:09:33 +0200756 ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local);
Kay Sievers185f09e2005-08-07 20:13:11 +0200757 $date{'hour_local'} = $hour;
758 $date{'minute_local'} = $min;
759 $date{'tz_local'} = $tz;
Kay Sievers991910a2005-08-07 20:09:33 +0200760 return %date;
Kay Sievers86eed322005-08-07 20:08:29 +0200761}
762
Kay Sieversb87d78d2005-08-07 20:21:04 +0200763# git-logo (cached in browser for one day)
Kay Sieverseb282402005-08-07 20:21:34 +0200764sub git_logo {
Kay Sievers8f1deb52005-11-23 16:02:13 +0100765 binmode STDOUT, ':raw';
Kay Sievers022be3d2005-08-07 20:06:09 +0200766 print $cgi->header(-type => 'image/png', -expires => '+1d');
Kay Sieversb87d78d2005-08-07 20:21:04 +0200767 # cat git-logo.png | hexdump -e '16/1 " %02x" "\n"' | sed 's/ /\\x/g'
768 print "\x89\x50\x4e\x47\x0d\x0a\x1a\x0a\x00\x00\x00\x0d\x49\x48\x44\x52" .
769 "\x00\x00\x00\x48\x00\x00\x00\x1b\x04\x03\x00\x00\x00\x2d\xd9\xd4" .
770 "\x2d\x00\x00\x00\x18\x50\x4c\x54\x45\xff\xff\xff\x60\x60\x5d\xb0" .
771 "\xaf\xaa\x00\x80\x00\xce\xcd\xc7\xc0\x00\x00\xe8\xe8\xe6\xf7\xf7" .
772 "\xf6\x95\x0c\xa7\x47\x00\x00\x00\x73\x49\x44\x41\x54\x28\xcf\x63" .
773 "\x48\x67\x20\x04\x4a\x5c\x18\x0a\x08\x2a\x62\x53\x61\x20\x02\x08" .
774 "\x0d\x69\x45\xac\xa1\xa1\x01\x30\x0c\x93\x60\x36\x26\x52\x91\xb1" .
775 "\x01\x11\xd6\xe1\x55\x64\x6c\x6c\xcc\x6c\x6c\x0c\xa2\x0c\x70\x2a" .
776 "\x62\x06\x2a\xc1\x62\x1d\xb3\x01\x02\x53\xa4\x08\xe8\x00\x03\x18" .
777 "\x26\x56\x11\xd4\xe1\x20\x97\x1b\xe0\xb4\x0e\x35\x24\x71\x29\x82" .
778 "\x99\x30\xb8\x93\x0a\x11\xb9\x45\x88\xc1\x8d\xa0\xa2\x44\x21\x06" .
779 "\x27\x41\x82\x40\x85\xc1\x45\x89\x20\x70\x01\x00\xa4\x3d\x21\xc5" .
780 "\x12\x1c\x9a\xfe\x00\x00\x00\x00\x49\x45\x4e\x44\xae\x42\x60\x82";
Kay Sievers022be3d2005-08-07 20:06:09 +0200781}
782
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200783sub get_file_owner {
784 my $path = shift;
785
786 my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path);
787 my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid);
788 if (!defined $gcos) {
789 return undef;
790 }
791 my $owner = $gcos;
792 $owner =~ s/[,;].*$//;
Kay Sievers281bf0c2006-05-01 03:40:22 +0200793 return decode("utf8", $owner, Encode::FB_DEFAULT);
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200794}
795
Kay Sieversc994d622005-08-07 20:27:18 +0200796sub git_read_projects {
Kay Sievers09bd7892005-08-07 20:21:23 +0200797 my @list;
798
Kay Sieversede5e102005-08-07 20:23:12 +0200799 if (-d $projects_list) {
Kay Sievers09bd7892005-08-07 20:21:23 +0200800 # search in directory
Kay Sieversede5e102005-08-07 20:23:12 +0200801 my $dir = $projects_list;
Kay Sievers19806692005-08-07 20:26:27 +0200802 opendir my $dh, $dir or return undef;
Kay Sievers09bd7892005-08-07 20:21:23 +0200803 while (my $dir = readdir($dh)) {
804 if (-e "$projectroot/$dir/HEAD") {
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200805 my $pr = {
806 path => $dir,
807 };
808 push @list, $pr
Kay Sievers09bd7892005-08-07 20:21:23 +0200809 }
810 }
811 closedir($dh);
Kay Sieversede5e102005-08-07 20:23:12 +0200812 } elsif (-f $projects_list) {
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200813 # read from file(url-encoded):
814 # 'git%2Fgit.git Linus+Torvalds'
815 # 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
816 # 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
Kay Sievers19806692005-08-07 20:26:27 +0200817 open my $fd , $projects_list or return undef;
Kay Sievers09bd7892005-08-07 20:21:23 +0200818 while (my $line = <$fd>) {
819 chomp $line;
Kay Sievers7403d502005-08-07 20:23:49 +0200820 my ($path, $owner) = split ' ', $line;
821 $path = unescape($path);
822 $owner = unescape($owner);
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200823 if (!defined $path) {
824 next;
825 }
826 if (-e "$projectroot/$path/HEAD") {
827 my $pr = {
828 path => $path,
Kay Sievers281bf0c2006-05-01 03:40:22 +0200829 owner => decode("utf8", $owner, Encode::FB_DEFAULT),
Kay Sieversc07ad4b2005-08-07 20:22:44 +0200830 };
831 push @list, $pr
Kay Sievers09bd7892005-08-07 20:21:23 +0200832 }
833 }
834 close $fd;
835 }
Kay Sieversc994d622005-08-07 20:27:18 +0200836 @list = sort {$a->{'path'} cmp $b->{'path'}} @list;
837 return @list;
838}
Kay Sievers09bd7892005-08-07 20:21:23 +0200839
Kay Sieversc994d622005-08-07 20:27:18 +0200840sub git_project_list {
841 my @list = git_read_projects();
Kay Sieversf7ab6602005-08-10 03:53:09 +0200842 my @projects;
Kay Sievers09bd7892005-08-07 20:21:23 +0200843 if (!@list) {
844 die_error(undef, "No project found.");
845 }
Kay Sieversf7ab6602005-08-10 03:53:09 +0200846 foreach my $pr (@list) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +0100847 my $head = git_read_head($pr->{'path'});
Kay Sieversf7ab6602005-08-10 03:53:09 +0200848 if (!defined $head) {
849 next;
850 }
851 $ENV{'GIT_DIR'} = "$projectroot/$pr->{'path'}";
852 my %co = git_read_commit($head);
853 if (!%co) {
854 next;
855 }
856 $pr->{'commit'} = \%co;
857 if (!defined $pr->{'descr'}) {
858 my $descr = git_read_description($pr->{'path'}) || "";
859 $pr->{'descr'} = chop_str($descr, 25, 5);
860 }
861 if (!defined $pr->{'owner'}) {
862 $pr->{'owner'} = get_file_owner("$projectroot/$pr->{'path'}") || "";
863 }
864 push @projects, $pr;
865 }
Kay Sieversb87d78d2005-08-07 20:21:04 +0200866 git_header_html();
Kay Sievers8ab1da22005-08-07 20:22:53 +0200867 if (-f $home_text) {
868 print "<div class=\"index_include\">\n";
Kay Sieversede5e102005-08-07 20:23:12 +0200869 open (my $fd, $home_text);
Kay Sievers8ab1da22005-08-07 20:22:53 +0200870 print <$fd>;
871 close $fd;
872 print "</div>\n";
873 }
Kay Sieversbddec012005-08-07 20:25:42 +0200874 print "<table cellspacing=\"0\">\n" .
Kay Sieversf7ab6602005-08-10 03:53:09 +0200875 "<tr>\n";
Kay Sieversd8d17b52005-08-12 21:43:32 +0200876 if (!defined($order) || (defined($order) && ($order eq "project"))) {
Kay Sieversf7ab6602005-08-10 03:53:09 +0200877 @projects = sort {$a->{'path'} cmp $b->{'path'}} @projects;
878 print "<th>Project</th>\n";
879 } else {
Kay Sievers232ff552005-11-24 16:56:55 +0100880 print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=project")}, "Project") . "</th>\n";
Kay Sieversf7ab6602005-08-10 03:53:09 +0200881 }
Kay Sieversd8d17b52005-08-12 21:43:32 +0200882 if (defined($order) && ($order eq "descr")) {
883 @projects = sort {$a->{'descr'} cmp $b->{'descr'}} @projects;
884 print "<th>Description</th>\n";
885 } else {
Kay Sievers232ff552005-11-24 16:56:55 +0100886 print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=descr")}, "Description") . "</th>\n";
Kay Sieversd8d17b52005-08-12 21:43:32 +0200887 }
Kay Sieversf7ab6602005-08-10 03:53:09 +0200888 if (defined($order) && ($order eq "owner")) {
889 @projects = sort {$a->{'owner'} cmp $b->{'owner'}} @projects;
890 print "<th>Owner</th>\n";
891 } else {
Kay Sievers232ff552005-11-24 16:56:55 +0100892 print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=owner")}, "Owner") . "</th>\n";
Kay Sieversf7ab6602005-08-10 03:53:09 +0200893 }
894 if (defined($order) && ($order eq "age")) {
895 @projects = sort {$a->{'commit'}{'age'} <=> $b->{'commit'}{'age'}} @projects;
Kay Sieversd8d17b52005-08-12 21:43:32 +0200896 print "<th>Last Change</th>\n";
Kay Sieversf7ab6602005-08-10 03:53:09 +0200897 } else {
Kay Sievers232ff552005-11-24 16:56:55 +0100898 print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=age")}, "Last Change") . "</th>\n";
Kay Sieversf7ab6602005-08-10 03:53:09 +0200899 }
900 print "<th></th>\n" .
Kay Sieverseb282402005-08-07 20:21:34 +0200901 "</tr>\n";
Kay Sieversbddec012005-08-07 20:25:42 +0200902 my $alternate = 0;
Kay Sieversf7ab6602005-08-10 03:53:09 +0200903 foreach my $pr (@projects) {
Kay Sieversbddec012005-08-07 20:25:42 +0200904 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +0200905 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +0200906 } else {
Kay Sieversc994d622005-08-07 20:27:18 +0200907 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +0200908 }
909 $alternate ^= 1;
Kay Sievers232ff552005-11-24 16:56:55 +0100910 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary"), -class => "list"}, esc_html($pr->{'path'})) . "</td>\n" .
Kay Sieversf7ab6602005-08-10 03:53:09 +0200911 "<td>$pr->{'descr'}</td>\n" .
912 "<td><i>" . chop_str($pr->{'owner'}, 15) . "</i></td>\n";
Kay Sieversede5e102005-08-07 20:23:12 +0200913 my $colored_age;
Kay Sieversf7ab6602005-08-10 03:53:09 +0200914 if ($pr->{'commit'}{'age'} < 60*60*2) {
915 $colored_age = "<span style =\"color: #009900;\"><b><i>$pr->{'commit'}{'age_string'}</i></b></span>";
916 } elsif ($pr->{'commit'}{'age'} < 60*60*24*2) {
917 $colored_age = "<span style =\"color: #009900;\"><i>$pr->{'commit'}{'age_string'}</i></span>";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200918 } else {
Kay Sieversf7ab6602005-08-10 03:53:09 +0200919 $colored_age = "<i>$pr->{'commit'}{'age_string'}</i>";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200920 }
Kay Sieversede5e102005-08-07 20:23:12 +0200921 print "<td>$colored_age</td>\n" .
922 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +0100923 $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary")}, "summary") .
924 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=shortlog")}, "shortlog") .
925 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=log")}, "log") .
Kay Sievers9ea82aa2005-08-07 20:23:24 +0200926 "</td>\n" .
927 "</tr>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200928 }
Kay Sievers7ab0d2b2005-08-07 20:25:54 +0200929 print "</table>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +0200930 git_footer_html();
Kay Sievers161332a2005-08-07 19:49:46 +0200931}
932
Kay Sievers6a928412005-12-07 09:44:06 +0100933sub read_info_ref {
Kay Sievers4df11912005-12-07 10:51:42 +0100934 my $type = shift || "";
Kay Sievers6a928412005-12-07 09:44:06 +0100935 my %refs;
936 # 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11
937 # c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}
938 open my $fd, "$projectroot/$project/info/refs" or return;
939 while (my $line = <$fd>) {
Kay Sieversc2488d02005-12-07 16:32:51 +0100940 chomp($line);
Kay Sievers4df11912005-12-07 10:51:42 +0100941 if ($line =~ m/^([0-9a-fA-F]{40})\t.*$type\/([^\^]+)/) {
Kay Sievers045e5312005-12-07 10:12:55 +0100942 if (defined $refs{$1}) {
943 $refs{$1} .= " / $2";
944 } else {
945 $refs{$1} = $2;
946 }
Kay Sievers6a928412005-12-07 09:44:06 +0100947 }
948 }
949 close $fd or return;
950 return \%refs;
951}
952
Kay Sievers0db37972005-08-07 20:24:35 +0200953sub git_read_refs {
954 my $ref_dir = shift;
Kay Sieversfa378492005-08-07 20:24:43 +0200955 my @reflist;
Kay Sieversede5e102005-08-07 20:23:12 +0200956
Kay Sievers4fac5292005-08-07 20:27:38 +0200957 my @refs;
Kay Sievers0db37972005-08-07 20:24:35 +0200958 opendir my $dh, "$projectroot/$project/$ref_dir";
Kay Sievers4fac5292005-08-07 20:27:38 +0200959 while (my $dir = readdir($dh)) {
960 if ($dir =~ m/^\./) {
961 next;
962 }
963 if (-d "$projectroot/$project/$ref_dir/$dir") {
964 opendir my $dh2, "$projectroot/$project/$ref_dir/$dir";
965 my @subdirs = grep !m/^\./, readdir $dh2;
966 closedir($dh2);
967 foreach my $subdir (@subdirs) {
968 push @refs, "$dir/$subdir"
969 }
970 next;
971 }
972 push @refs, $dir;
973 }
Kay Sieversede5e102005-08-07 20:23:12 +0200974 closedir($dh);
Kay Sieversfa378492005-08-07 20:24:43 +0200975 foreach my $ref_file (@refs) {
976 my $ref_id = git_read_hash("$project/$ref_dir/$ref_file");
977 my $type = git_get_type($ref_id) || next;
978 my %ref_item;
Kay Sieversede5e102005-08-07 20:23:12 +0200979 my %co;
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200980 $ref_item{'type'} = $type;
981 $ref_item{'id'} = $ref_id;
Kay Sieversd263a6b2005-08-07 20:29:03 +0200982 $ref_item{'epoch'} = 0;
983 $ref_item{'age'} = "unknown";
Kay Sieversede5e102005-08-07 20:23:12 +0200984 if ($type eq "tag") {
Kay Sieversfa378492005-08-07 20:24:43 +0200985 my %tag = git_read_tag($ref_id);
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200986 $ref_item{'comment'} = $tag{'comment'};
Kay Sieversede5e102005-08-07 20:23:12 +0200987 if ($tag{'type'} eq "commit") {
988 %co = git_read_commit($tag{'object'});
Kay Sieversd263a6b2005-08-07 20:29:03 +0200989 $ref_item{'epoch'} = $co{'committer_epoch'};
990 $ref_item{'age'} = $co{'age_string'};
991 } elsif (defined($tag{'epoch'})) {
992 my $age = time - $tag{'epoch'};
993 $ref_item{'epoch'} = $tag{'epoch'};
994 $ref_item{'age'} = age_string($age);
Kay Sieversede5e102005-08-07 20:23:12 +0200995 }
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200996 $ref_item{'reftype'} = $tag{'type'};
Kay Sieversfa378492005-08-07 20:24:43 +0200997 $ref_item{'name'} = $tag{'name'};
Kay Sieversd8a20ba2005-08-07 20:28:53 +0200998 $ref_item{'refid'} = $tag{'object'};
Kay Sieversede5e102005-08-07 20:23:12 +0200999 } elsif ($type eq "commit"){
Kay Sieversfa378492005-08-07 20:24:43 +02001000 %co = git_read_commit($ref_id);
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001001 $ref_item{'reftype'} = "commit";
Kay Sieversfa378492005-08-07 20:24:43 +02001002 $ref_item{'name'} = $ref_file;
1003 $ref_item{'title'} = $co{'title'};
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001004 $ref_item{'refid'} = $ref_id;
Kay Sieversd263a6b2005-08-07 20:29:03 +02001005 $ref_item{'epoch'} = $co{'committer_epoch'};
1006 $ref_item{'age'} = $co{'age_string'};
Kay Sieversede5e102005-08-07 20:23:12 +02001007 }
Kay Sieversede5e102005-08-07 20:23:12 +02001008
Kay Sieversfa378492005-08-07 20:24:43 +02001009 push @reflist, \%ref_item;
Kay Sieversede5e102005-08-07 20:23:12 +02001010 }
1011 # sort tags by age
Kay Sieversfa378492005-08-07 20:24:43 +02001012 @reflist = sort {$b->{'epoch'} <=> $a->{'epoch'}} @reflist;
1013 return \@reflist;
Kay Sieversede5e102005-08-07 20:23:12 +02001014}
1015
1016sub git_summary {
1017 my $descr = git_read_description($project) || "none";
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001018 my $head = git_read_head($project);
Kay Sieversede5e102005-08-07 20:23:12 +02001019 my %co = git_read_commit($head);
1020 my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'});
1021
1022 my $owner;
1023 if (-f $projects_list) {
1024 open (my $fd , $projects_list);
1025 while (my $line = <$fd>) {
1026 chomp $line;
Kay Sievers7403d502005-08-07 20:23:49 +02001027 my ($pr, $ow) = split ' ', $line;
1028 $pr = unescape($pr);
1029 $ow = unescape($ow);
Kay Sieversede5e102005-08-07 20:23:12 +02001030 if ($pr eq $project) {
Kay Sievers281bf0c2006-05-01 03:40:22 +02001031 $owner = decode("utf8", $ow, Encode::FB_DEFAULT);
Kay Sieversede5e102005-08-07 20:23:12 +02001032 last;
1033 }
1034 }
1035 close $fd;
1036 }
1037 if (!defined $owner) {
1038 $owner = get_file_owner("$projectroot/$project");
1039 }
1040
Kay Sievers6a928412005-12-07 09:44:06 +01001041 my $refs = read_info_ref();
Kay Sieversede5e102005-08-07 20:23:12 +02001042 git_header_html();
1043 print "<div class=\"page_nav\">\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001044 "summary".
Kay Sievers232ff552005-11-24 16:56:55 +01001045 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1046 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1047 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
1048 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
1049 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree")}, "tree") .
Kay Sieversede5e102005-08-07 20:23:12 +02001050 "<br/><br/>\n" .
1051 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02001052 print "<div class=\"title\">&nbsp;</div>\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001053 print "<table cellspacing=\"0\">\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01001054 "<tr><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
Kay Sieversede5e102005-08-07 20:23:12 +02001055 "<tr><td>owner</td><td>$owner</td></tr>\n" .
1056 "<tr><td>last change</td><td>$cd{'rfc2822'}</td></tr>\n" .
Kay Sieversbddec012005-08-07 20:25:42 +02001057 "</table>\n";
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001058 open my $fd, "-|", "$gitbin/git-rev-list --max-count=17 " . git_read_head($project) or die_error(undef, "Open failed.");
Kay Sieversede5e102005-08-07 20:23:12 +02001059 my (@revlist) = map { chomp; $_ } <$fd>;
1060 close $fd;
1061 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001062 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog"), -class => "title"}, "shortlog") .
Kay Sieversede5e102005-08-07 20:23:12 +02001063 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02001064 my $i = 16;
Kay Sieversbddec012005-08-07 20:25:42 +02001065 print "<table cellspacing=\"0\">\n";
1066 my $alternate = 0;
Kay Sieversede5e102005-08-07 20:23:12 +02001067 foreach my $commit (@revlist) {
1068 my %co = git_read_commit($commit);
1069 my %ad = date_str($co{'author_epoch'});
Kay Sieversbddec012005-08-07 20:25:42 +02001070 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001071 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001072 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001073 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001074 }
1075 $alternate ^= 1;
Kay Sievers19806692005-08-07 20:26:27 +02001076 if ($i-- > 0) {
Kay Sievers4df11912005-12-07 10:51:42 +01001077 my $ref = "";
1078 if (defined $refs->{$commit}) {
Kay Sieversedde3732005-12-07 16:10:01 +01001079 $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>";
Kay Sievers4df11912005-12-07 10:51:42 +01001080 }
Kay Sievers10dba282005-08-07 20:25:27 +02001081 print "<td><i>$co{'age_string'}</i></td>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01001082 "<td><i>" . esc_html(chop_str($co{'author_name'}, 10)) . "</i></td>\n" .
Kay Sieversc24fd7b2005-08-31 03:47:13 +02001083 "<td>";
1084 if (length($co{'title_short'}) < length($co{'title'})) {
Kay Sievers232ff552005-11-24 16:56:55 +01001085 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list", -title => "$co{'title'}"},
Kay Sievers4df11912005-12-07 10:51:42 +01001086 "<b>" . esc_html($co{'title_short'}) . "$ref</b>");
Kay Sieversc24fd7b2005-08-31 03:47:13 +02001087 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001088 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"},
Kay Sievers4df11912005-12-07 10:51:42 +01001089 "<b>" . esc_html($co{'title'}) . "$ref</b>");
Kay Sievers6a928412005-12-07 09:44:06 +01001090 }
Kay Sievers76a83232005-08-31 04:11:33 +02001091 print "</td>\n" .
Kay Sieversa4d26ef2005-08-07 20:24:51 +02001092 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001093 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
1094 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
Kay Sieversa4d26ef2005-08-07 20:24:51 +02001095 "</td>\n" .
Kay Sievers440c6002005-08-07 20:24:01 +02001096 "</tr>";
1097 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001098 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "...") . "</td>\n" .
Kay Sievers440c6002005-08-07 20:24:01 +02001099 "</tr>";
Kay Sieversede5e102005-08-07 20:23:12 +02001100 last;
1101 }
1102 }
Kay Sieversbddec012005-08-07 20:25:42 +02001103 print "</table\n>";
Kay Sieversede5e102005-08-07 20:23:12 +02001104
Kay Sievers0db37972005-08-07 20:24:35 +02001105 my $taglist = git_read_refs("refs/tags");
Kay Sieversede5e102005-08-07 20:23:12 +02001106 if (defined @$taglist) {
1107 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001108 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tags"), -class => "title"}, "tags") .
Kay Sieversede5e102005-08-07 20:23:12 +02001109 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02001110 my $i = 16;
Kay Sieversbddec012005-08-07 20:25:42 +02001111 print "<table cellspacing=\"0\">\n";
1112 my $alternate = 0;
Kay Sieversede5e102005-08-07 20:23:12 +02001113 foreach my $entry (@$taglist) {
1114 my %tag = %$entry;
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001115 my $comment_lines = $tag{'comment'};
1116 my $comment = shift @$comment_lines;
1117 if (defined($comment)) {
1118 $comment = chop_str($comment, 30, 5);
1119 }
Kay Sieversbddec012005-08-07 20:25:42 +02001120 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001121 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001122 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001123 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001124 }
1125 $alternate ^= 1;
Kay Sievers19806692005-08-07 20:26:27 +02001126 if ($i-- > 0) {
Kay Sievers10dba282005-08-07 20:25:27 +02001127 print "<td><i>$tag{'age'}</i></td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001128 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001129 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}"), -class => "list"},
Kay Sievers40c13812005-11-19 17:41:29 +01001130 "<b>" . esc_html($tag{'name'}) . "</b>") .
Kay Sievers19806692005-08-07 20:26:27 +02001131 "</td>\n" .
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001132 "<td>";
1133 if (defined($comment)) {
Kay Sievers232ff552005-11-24 16:56:55 +01001134 print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment);
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001135 }
1136 print "</td>\n" .
1137 "<td class=\"link\">";
1138 if ($tag{'type'} eq "tag") {
Kay Sievers232ff552005-11-24 16:56:55 +01001139 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001140 }
Kay Sievers232ff552005-11-24 16:56:55 +01001141 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001142 if ($tag{'reftype'} eq "commit") {
Kay Sievers232ff552005-11-24 16:56:55 +01001143 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
1144 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
Kay Sievers19806692005-08-07 20:26:27 +02001145 }
1146 print "</td>\n" .
Kay Sievers440c6002005-08-07 20:24:01 +02001147 "</tr>";
1148 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001149 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tags")}, "...") . "</td>\n" .
Kay Sievers440c6002005-08-07 20:24:01 +02001150 "</tr>";
Kay Sieversede5e102005-08-07 20:23:12 +02001151 last;
1152 }
1153 }
Kay Sieversbddec012005-08-07 20:25:42 +02001154 print "</table\n>";
Kay Sieversede5e102005-08-07 20:23:12 +02001155 }
Kay Sievers0db37972005-08-07 20:24:35 +02001156
Kay Sieversd8f1c5c2005-10-04 01:12:47 +02001157 my $headlist = git_read_refs("refs/heads");
1158 if (defined @$headlist) {
Kay Sievers0db37972005-08-07 20:24:35 +02001159 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001160 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=heads"), -class => "title"}, "heads") .
Kay Sievers0db37972005-08-07 20:24:35 +02001161 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02001162 my $i = 16;
Kay Sieversbddec012005-08-07 20:25:42 +02001163 print "<table cellspacing=\"0\">\n";
1164 my $alternate = 0;
Kay Sieversd8f1c5c2005-10-04 01:12:47 +02001165 foreach my $entry (@$headlist) {
Kay Sievers0db37972005-08-07 20:24:35 +02001166 my %tag = %$entry;
Kay Sieversbddec012005-08-07 20:25:42 +02001167 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001168 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001169 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001170 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001171 }
1172 $alternate ^= 1;
Kay Sievers19806692005-08-07 20:26:27 +02001173 if ($i-- > 0) {
Kay Sievers10dba282005-08-07 20:25:27 +02001174 print "<td><i>$tag{'age'}</i></td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001175 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001176 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}"), -class => "list"},
Kay Sievers40c13812005-11-19 17:41:29 +01001177 "<b>" . esc_html($tag{'name'}) . "</b>") .
Kay Sievers19806692005-08-07 20:26:27 +02001178 "</td>\n" .
1179 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001180 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
1181 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'name'}")}, "log") .
Kay Sievers19806692005-08-07 20:26:27 +02001182 "</td>\n" .
Kay Sievers0db37972005-08-07 20:24:35 +02001183 "</tr>";
1184 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001185 print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=heads")}, "...") . "</td>\n" .
Kay Sievers0db37972005-08-07 20:24:35 +02001186 "</tr>";
1187 last;
1188 }
1189 }
Kay Sieversbddec012005-08-07 20:25:42 +02001190 print "</table\n>";
Kay Sievers0db37972005-08-07 20:24:35 +02001191 }
Kay Sieversede5e102005-08-07 20:23:12 +02001192 git_footer_html();
1193}
1194
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001195sub git_tag {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001196 my $head = git_read_head($project);
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001197 git_header_html();
1198 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001199 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1200 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1201 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1202 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
1203 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
1204 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001205 "<br/>\n" .
1206 "</div>\n";
1207 my %tag = git_read_tag($hash);
1208 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001209 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($tag{'name'})) . "\n" .
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001210 "</div>\n";
1211 print "<div class=\"title_text\">\n" .
1212 "<table cellspacing=\"0\">\n" .
Kay Sieverse4669df2005-08-08 00:02:39 +02001213 "<tr>\n" .
1214 "<td>object</td>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001215 "<td>" . $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=$tag{'type'};h=$tag{'object'}")}, $tag{'object'}) . "</td>\n" .
1216 "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'type'};h=$tag{'object'}")}, $tag{'type'}) . "</td>\n" .
Kay Sieverse4669df2005-08-08 00:02:39 +02001217 "</tr>\n";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001218 if (defined($tag{'author'})) {
1219 my %ad = date_str($tag{'epoch'}, $tag{'tz'});
Kay Sievers40c13812005-11-19 17:41:29 +01001220 print "<tr><td>author</td><td>" . esc_html($tag{'author'}) . "</td></tr>\n";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001221 print "<tr><td></td><td>" . $ad{'rfc2822'} . sprintf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}) . "</td></tr>\n";
1222 }
1223 print "</table>\n\n" .
1224 "</div>\n";
1225 print "<div class=\"page_body\">";
1226 my $comment = $tag{'comment'};
1227 foreach my $line (@$comment) {
Kay Sievers40c13812005-11-19 17:41:29 +01001228 print esc_html($line) . "<br/>\n";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001229 }
1230 print "</div>\n";
1231 git_footer_html();
1232}
1233
Florian Forstere34ef622006-06-11 17:45:19 +02001234sub git_blame {
1235 my $fd;
1236 die_error('404 Not Found', "What file will it be, master?") if (!$file_name);
1237 $hash_base ||= git_read_head($project);
1238 die_error(undef, "Reading commit failed.") unless ($hash_base);
1239 my %co = git_read_commit($hash_base)
1240 or die_error(undef, "Reading commit failed.");
1241 if (!defined $hash) {
1242 $hash = git_get_hash_by_path($hash_base, $file_name, "blob")
1243 or die_error(undef, "Error lookup file.");
1244 }
1245 open ($fd, "-|", "$gitbin/git-annotate", '-l', '-t', '-r', $file_name, $hash_base)
1246 or die_error(undef, "Open failed.");
1247 git_header_html();
1248 print "<div class=\"page_nav\">\n" .
1249 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1250 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1251 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1252 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
1253 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
1254 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n";
1255 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, "blob") .
1256 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;f=$file_name")}, "head") . "<br/>\n";
1257 print "</div>\n".
1258 "<div>" .
1259 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) .
1260 "</div>\n";
1261 print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n";
1262 print "<div class=\"page_body\">\n";
1263 print <<HTML;
1264<table style="border-collapse: collapse;">
1265 <tr>
1266 <th>Commit</th>
1267 <th>Age</th>
1268 <th>Author</th>
1269 <th>Line</th>
1270 <th>Data</th>
1271 </tr>
1272HTML
1273 my @line_class = (qw(light dark));
1274 my $line_class_len = scalar (@line_class);
1275 my $line_class_num = $#line_class;
1276 while (my $line = <$fd>) {
1277 my $long_rev;
1278 my $short_rev;
1279 my $author;
1280 my $time;
1281 my $lineno;
1282 my $data;
1283 my $age;
1284 my $age_str;
1285 my $age_style;
1286
1287 chomp $line;
1288 $line_class_num = ($line_class_num + 1) % $line_class_len;
1289
1290 if ($line =~ m/^([0-9a-fA-F]{40})\t\(\s*([^\t]+)\t(\d+) \+\d\d\d\d\t(\d+)\)(.*)$/) {
1291 $long_rev = $1;
1292 $author = $2;
1293 $time = $3;
1294 $lineno = $4;
1295 $data = $5;
1296 } else {
1297 print qq( <tr><td colspan="5" style="color: red; background-color: yellow;">Unable to parse: $line</td></tr>\n);
1298 next;
1299 }
1300 $short_rev = substr ($long_rev, 0, 8);
1301 $age = time () - $time;
1302 $age_str = age_string ($age);
1303 $age_str =~ s/ /&nbsp;/g;
1304 $age_style = 'font-style: italic;';
1305 $age_style .= ' color: #009900; background: transparent;' if ($age < 60*60*24*2);
1306 $age_style .= ' font-weight: bold;' if ($age < 60*60*2);
1307 $author = esc_html ($author);
1308 $author =~ s/ /&nbsp;/g;
1309 # escape tabs
1310 while ((my $pos = index($data, "\t")) != -1) {
1311 if (my $count = (8 - ($pos % 8))) {
1312 my $spaces = ' ' x $count;
1313 $data =~ s/\t/$spaces/;
1314 }
1315 }
1316 $data = esc_html ($data);
1317 $data =~ s/ /&nbsp;/g;
1318
1319 print <<HTML;
1320 <tr class="$line_class[$line_class_num]">
1321 <td style="font-family: monospace;"><a href="$my_uri?${\esc_param ("p=$project;a=commit;h=$long_rev")}" class="text">$short_rev..</a></td>
1322 <td style="$age_style">$age_str</td>
1323 <td>$author</td>
1324 <td style="text-align: right;"><a id="$lineno" href="#$lineno" class="linenr">$lineno</a></td>
1325 <td style="font-family: monospace;">$data</td>
1326 </tr>
1327HTML
1328 } # while (my $line = <$fd>)
1329 print "</table>\n\n";
1330 close $fd or print "Reading blob failed.\n";
1331 print "</div>";
1332 git_footer_html();
1333}
1334
Kay Sieversede5e102005-08-07 20:23:12 +02001335sub git_tags {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001336 my $head = git_read_head($project);
Kay Sieversede5e102005-08-07 20:23:12 +02001337 git_header_html();
1338 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001339 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1340 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1341 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1342 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
1343 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
1344 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001345 "<br/>\n" .
Kay Sieversede5e102005-08-07 20:23:12 +02001346 "</div>\n";
Kay Sievers0db37972005-08-07 20:24:35 +02001347 my $taglist = git_read_refs("refs/tags");
Kay Sieversede5e102005-08-07 20:23:12 +02001348 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001349 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
Kay Sieversede5e102005-08-07 20:23:12 +02001350 "</div>\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001351 print "<table cellspacing=\"0\">\n";
1352 my $alternate = 0;
Kay Sieversede5e102005-08-07 20:23:12 +02001353 if (defined @$taglist) {
1354 foreach my $entry (@$taglist) {
1355 my %tag = %$entry;
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001356 my $comment_lines = $tag{'comment'};
1357 my $comment = shift @$comment_lines;
1358 if (defined($comment)) {
1359 $comment = chop_str($comment, 30, 5);
1360 }
Kay Sieversbddec012005-08-07 20:25:42 +02001361 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001362 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001363 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001364 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001365 }
1366 $alternate ^= 1;
1367 print "<td><i>$tag{'age'}</i></td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001368 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001369 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}"), -class => "list"},
Kay Sievers40c13812005-11-19 17:41:29 +01001370 "<b>" . esc_html($tag{'name'}) . "</b>") .
Kay Sievers19806692005-08-07 20:26:27 +02001371 "</td>\n" .
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001372 "<td>";
1373 if (defined($comment)) {
Kay Sievers232ff552005-11-24 16:56:55 +01001374 print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment);
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001375 }
1376 print "</td>\n" .
1377 "<td class=\"link\">";
1378 if ($tag{'type'} eq "tag") {
Kay Sievers232ff552005-11-24 16:56:55 +01001379 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | ";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001380 }
Kay Sievers232ff552005-11-24 16:56:55 +01001381 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'});
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001382 if ($tag{'reftype'} eq "commit") {
Kay Sievers232ff552005-11-24 16:56:55 +01001383 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
1384 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log");
Kay Sievers19806692005-08-07 20:26:27 +02001385 }
1386 print "</td>\n" .
Kay Sievers10dba282005-08-07 20:25:27 +02001387 "</tr>";
Kay Sieversede5e102005-08-07 20:23:12 +02001388 }
1389 }
Kay Sieversbddec012005-08-07 20:25:42 +02001390 print "</table\n>";
Kay Sieversede5e102005-08-07 20:23:12 +02001391 git_footer_html();
1392}
1393
Kay Sieversd8f1c5c2005-10-04 01:12:47 +02001394sub git_heads {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001395 my $head = git_read_head($project);
Kay Sievers0db37972005-08-07 20:24:35 +02001396 git_header_html();
1397 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001398 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1399 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1400 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1401 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") .
1402 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") .
1403 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001404 "<br/>\n" .
Kay Sievers0db37972005-08-07 20:24:35 +02001405 "</div>\n";
1406 my $taglist = git_read_refs("refs/heads");
1407 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001408 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
Kay Sievers0db37972005-08-07 20:24:35 +02001409 "</div>\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001410 print "<table cellspacing=\"0\">\n";
1411 my $alternate = 0;
Kay Sievers0db37972005-08-07 20:24:35 +02001412 if (defined @$taglist) {
1413 foreach my $entry (@$taglist) {
1414 my %tag = %$entry;
Kay Sieversbddec012005-08-07 20:25:42 +02001415 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001416 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001417 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001418 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001419 }
1420 $alternate ^= 1;
1421 print "<td><i>$tag{'age'}</i></td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001422 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001423 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}"), -class => "list"}, "<b>" . esc_html($tag{'name'}) . "</b>") .
Kay Sievers19806692005-08-07 20:26:27 +02001424 "</td>\n" .
1425 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001426 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") .
1427 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'name'}")}, "log") .
Kay Sievers19806692005-08-07 20:26:27 +02001428 "</td>\n" .
Kay Sievers10dba282005-08-07 20:25:27 +02001429 "</tr>";
Kay Sievers0db37972005-08-07 20:24:35 +02001430 }
1431 }
Kay Sieversbddec012005-08-07 20:25:42 +02001432 print "</table\n>";
Kay Sievers0db37972005-08-07 20:24:35 +02001433 git_footer_html();
1434}
1435
Kay Sievers09bd7892005-08-07 20:21:23 +02001436sub git_get_hash_by_path {
1437 my $base = shift;
Kay Sievers19806692005-08-07 20:26:27 +02001438 my $path = shift || return undef;
Kay Sievers09bd7892005-08-07 20:21:23 +02001439
1440 my $tree = $base;
1441 my @parts = split '/', $path;
1442 while (my $part = shift @parts) {
Kay Sievers19806692005-08-07 20:26:27 +02001443 open my $fd, "-|", "$gitbin/git-ls-tree $tree" or die_error(undef, "Open git-ls-tree failed.");
Kay Sievers09bd7892005-08-07 20:21:23 +02001444 my (@entries) = map { chomp; $_ } <$fd>;
Kay Sievers19806692005-08-07 20:26:27 +02001445 close $fd or return undef;
Kay Sievers09bd7892005-08-07 20:21:23 +02001446 foreach my $line (@entries) {
1447 #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Kay Sievers19806692005-08-07 20:26:27 +02001448 $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/;
Kay Sievers09bd7892005-08-07 20:21:23 +02001449 my $t_mode = $1;
1450 my $t_type = $2;
1451 my $t_hash = $3;
Kay Sieversae786202005-11-24 18:14:25 +01001452 my $t_name = validate_input(unquote($4));
Kay Sievers09bd7892005-08-07 20:21:23 +02001453 if ($t_name eq $part) {
1454 if (!(@parts)) {
1455 return $t_hash;
1456 }
1457 if ($t_type eq "tree") {
1458 $tree = $t_hash;
1459 }
1460 last;
1461 }
1462 }
1463 }
1464}
1465
1466sub git_blob {
1467 if (!defined $hash && defined $file_name) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001468 my $base = $hash_base || git_read_head($project);
Kay Sieversae786202005-11-24 18:14:25 +01001469 $hash = git_get_hash_by_path($base, $file_name, "blob") || die_error(undef, "Error lookup file.");
Kay Sievers09bd7892005-08-07 20:21:23 +02001470 }
Kay Sievers19806692005-08-07 20:26:27 +02001471 open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or die_error(undef, "Open failed.");
Kay Sievers12a88f22005-08-07 20:02:47 +02001472 git_header_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02001473 if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
Kay Sievers42f7eb92005-08-07 20:21:46 +02001474 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001475 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1476 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
1477 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
1478 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
1479 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
1480 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n";
Kay Sievers93129442005-10-17 03:27:54 +02001481 if (defined $file_name) {
Florian Forstere34ef622006-06-11 17:45:19 +02001482 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$hash;hb=$hash_base;f=$file_name")}, "blame") .
1483 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash;f=$file_name")}, "plain") .
Kay Sievers232ff552005-11-24 16:56:55 +01001484 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=HEAD;f=$file_name")}, "head") . "<br/>\n";
Kay Sievers93129442005-10-17 03:27:54 +02001485 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001486 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash")}, "plain") . "<br/>\n";
Kay Sievers93129442005-10-17 03:27:54 +02001487 }
1488 print "</div>\n".
1489 "<div>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001490 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) .
Kay Sieversc07ad4b2005-08-07 20:22:44 +02001491 "</div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02001492 } else {
1493 print "<div class=\"page_nav\">\n" .
1494 "<br/><br/></div>\n" .
1495 "<div class=\"title\">$hash</div>\n";
1496 }
1497 if (defined $file_name) {
Kay Sievers232ff552005-11-24 16:56:55 +01001498 print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02001499 }
Kay Sieversc07ad4b2005-08-07 20:22:44 +02001500 print "<div class=\"page_body\">\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001501 my $nr;
1502 while (my $line = <$fd>) {
Kay Sieversc07ad4b2005-08-07 20:22:44 +02001503 chomp $line;
Kay Sievers161332a2005-08-07 19:49:46 +02001504 $nr++;
Kay Sievers19806692005-08-07 20:26:27 +02001505 while ((my $pos = index($line, "\t")) != -1) {
1506 if (my $count = (8 - ($pos % 8))) {
1507 my $spaces = ' ' x $count;
1508 $line =~ s/\t/$spaces/;
1509 }
1510 }
Kay Sievers40c13812005-11-19 17:41:29 +01001511 printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line);
Kay Sievers161332a2005-08-07 19:49:46 +02001512 }
Kay Sievers19806692005-08-07 20:26:27 +02001513 close $fd or print "Reading blob failed.\n";
Kay Sieversfbb592a2005-08-07 20:12:11 +02001514 print "</div>";
Kay Sievers12a88f22005-08-07 20:02:47 +02001515 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02001516}
1517
Kay Sievers19806692005-08-07 20:26:27 +02001518sub git_blob_plain {
Kay Sievers93129442005-10-17 03:27:54 +02001519 my $save_as = "$hash.txt";
1520 if (defined $file_name) {
1521 $save_as = $file_name;
1522 }
1523 print $cgi->header(-type => "text/plain", -charset => 'utf-8', '-content-disposition' => "inline; filename=\"$save_as\"");
Kay Sievers19806692005-08-07 20:26:27 +02001524 open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or return;
1525 undef $/;
1526 print <$fd>;
1527 $/ = "\n";
1528 close $fd;
1529}
1530
Kay Sievers09bd7892005-08-07 20:21:23 +02001531sub git_tree {
Kay Sieversb87d78d2005-08-07 20:21:04 +02001532 if (!defined $hash) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001533 $hash = git_read_head($project);
Kay Sievers09bd7892005-08-07 20:21:23 +02001534 if (defined $file_name) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001535 my $base = $hash_base || $hash;
Kay Sievers09bd7892005-08-07 20:21:23 +02001536 $hash = git_get_hash_by_path($base, $file_name, "tree");
1537 }
Kay Sievers10dba282005-08-07 20:25:27 +02001538 if (!defined $hash_base) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001539 $hash_base = $hash;
Kay Sievers10dba282005-08-07 20:25:27 +02001540 }
Kay Sieverse925f382005-08-07 20:23:35 +02001541 }
Kay Sievers232ff552005-11-24 16:56:55 +01001542 $/ = "\0";
1543 open my $fd, "-|", "$gitbin/git-ls-tree -z $hash" or die_error(undef, "Open git-ls-tree failed.");
1544 chomp (my (@entries) = <$fd>);
Kay Sievers19806692005-08-07 20:26:27 +02001545 close $fd or die_error(undef, "Reading tree failed.");
Kay Sievers232ff552005-11-24 16:56:55 +01001546 $/ = "\n";
Kay Sieversd63577d2005-08-07 20:18:13 +02001547
Kay Sieversedde3732005-12-07 16:10:01 +01001548 my $refs = read_info_ref();
1549 my $ref = "";
1550 if (defined $refs->{$hash_base}) {
1551 $ref = " <span class=\"tag\">" . esc_html($refs->{$hash_base}) . "</span>";
1552 }
Kay Sievers12a88f22005-08-07 20:02:47 +02001553 git_header_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02001554 my $base_key = "";
Kay Sievers09bd7892005-08-07 20:21:23 +02001555 my $base = "";
1556 if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
1557 $base_key = ";hb=$hash_base";
Kay Sievers42f7eb92005-08-07 20:21:46 +02001558 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001559 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1560 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash_base")}, "shortlog") .
1561 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash_base")}, "log") .
1562 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
1563 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
Kay Sievers19806692005-08-07 20:26:27 +02001564 " | tree" .
Kay Sievers6191f8e2005-08-07 20:19:56 +02001565 "<br/><br/>\n" .
1566 "</div>\n";
Kay Sieversd63577d2005-08-07 20:18:13 +02001567 print "<div>\n" .
Kay Sieversedde3732005-12-07 16:10:01 +01001568 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
Kay Sieversd63577d2005-08-07 20:18:13 +02001569 "</div>\n";
1570 } else {
1571 print "<div class=\"page_nav\">\n";
1572 print "<br/><br/></div>\n";
1573 print "<div class=\"title\">$hash</div>\n";
1574 }
Kay Sievers09bd7892005-08-07 20:21:23 +02001575 if (defined $file_name) {
Kay Sievers232ff552005-11-24 16:56:55 +01001576 $base = esc_html("$file_name/");
1577 print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02001578 } else {
Kay Sievers19806692005-08-07 20:26:27 +02001579 print "<div class=\"page_path\"><b>/</b></div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02001580 }
Kay Sieversfbb592a2005-08-07 20:12:11 +02001581 print "<div class=\"page_body\">\n";
Kay Sievers42f7eb92005-08-07 20:21:46 +02001582 print "<table cellspacing=\"0\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001583 my $alternate = 0;
Kay Sievers161332a2005-08-07 19:49:46 +02001584 foreach my $line (@entries) {
Kay Sieversc068cff2005-08-07 19:56:10 +02001585 #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Kay Sievers19806692005-08-07 20:26:27 +02001586 $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/;
Kay Sieversd767d592005-08-07 20:05:55 +02001587 my $t_mode = $1;
Kay Sievers161332a2005-08-07 19:49:46 +02001588 my $t_type = $2;
1589 my $t_hash = $3;
Kay Sievers232ff552005-11-24 16:56:55 +01001590 my $t_name = validate_input($4);
Kay Sieversbddec012005-08-07 20:25:42 +02001591 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001592 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001593 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001594 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001595 }
1596 $alternate ^= 1;
1597 print "<td style=\"font-family:monospace\">" . mode_str($t_mode) . "</td>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001598 if ($t_type eq "blob") {
Kay Sievers10dba282005-08-07 20:25:27 +02001599 print "<td class=\"list\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001600 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name"), -class => "list"}, esc_html($t_name)) .
Kay Sieversc994d622005-08-07 20:27:18 +02001601 "</td>\n" .
1602 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001603 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name")}, "blob") .
Florian Forstere34ef622006-06-11 17:45:19 +02001604# " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$t_hash$base_key;f=$base$t_name")}, "blame") .
Kay Sievers232ff552005-11-24 16:56:55 +01001605 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash_base;f=$base$t_name")}, "history") .
Kay Sievers42f7eb92005-08-07 20:21:46 +02001606 "</td>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001607 } elsif ($t_type eq "tree") {
Kay Sievers10dba282005-08-07 20:25:27 +02001608 print "<td class=\"list\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001609 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, esc_html($t_name)) .
Kay Sievers19806692005-08-07 20:26:27 +02001610 "</td>\n" .
Kay Sieversc994d622005-08-07 20:27:18 +02001611 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001612 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, "tree") .
Kay Sieversc994d622005-08-07 20:27:18 +02001613 "</td>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001614 }
Kay Sievers42f7eb92005-08-07 20:21:46 +02001615 print "</tr>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001616 }
Kay Sievers42f7eb92005-08-07 20:21:46 +02001617 print "</table>\n" .
1618 "</div>";
Kay Sievers12a88f22005-08-07 20:02:47 +02001619 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02001620}
1621
1622sub git_rss {
Kay Sievers19806692005-08-07 20:26:27 +02001623 # http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001624 open my $fd, "-|", "$gitbin/git-rev-list --max-count=150 " . git_read_head($project) or die_error(undef, "Open failed.");
Kay Sieversd51e9022005-08-07 20:16:07 +02001625 my (@revlist) = map { chomp; $_ } <$fd>;
Kay Sievers19806692005-08-07 20:26:27 +02001626 close $fd or die_error(undef, "Reading rev-list failed.");
Kay Sievers034df392005-08-07 20:20:07 +02001627 print $cgi->header(-type => 'text/xml', -charset => 'utf-8');
1628 print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
Kay Sievers19806692005-08-07 20:26:27 +02001629 "<rss version=\"2.0\" xmlns:content=\"http://purl.org/rss/1.0/modules/content/\">\n";
Kay Sievers034df392005-08-07 20:20:07 +02001630 print "<channel>\n";
1631 print "<title>$project</title>\n".
Kay Sievers40c13812005-11-19 17:41:29 +01001632 "<link>" . esc_html("$my_url?p=$project;a=summary") . "</link>\n".
Kay Sievers034df392005-08-07 20:20:07 +02001633 "<description>$project log</description>\n".
1634 "<language>en</language>\n";
Kay Sieverse334d182005-08-07 20:02:33 +02001635
Kay Sieversd8d17b52005-08-12 21:43:32 +02001636 for (my $i = 0; $i <= $#revlist; $i++) {
1637 my $commit = $revlist[$i];
Kay Sievers09bd7892005-08-07 20:21:23 +02001638 my %co = git_read_commit($commit);
Kay Sieversd8d17b52005-08-12 21:43:32 +02001639 # we read 150, we always show 30 and the ones more recent than 48 hours
1640 if (($i >= 20) && ((time - $co{'committer_epoch'}) > 48*60*60)) {
1641 last;
1642 }
Kay Sievers19806692005-08-07 20:26:27 +02001643 my %cd = date_str($co{'committer_epoch'});
Kay Sieversd8d17b52005-08-12 21:43:32 +02001644 open $fd, "-|", "$gitbin/git-diff-tree -r $co{'parent'} $co{'id'}" or next;
1645 my @difftree = map { chomp; $_ } <$fd>;
1646 close $fd or next;
Kay Sievers034df392005-08-07 20:20:07 +02001647 print "<item>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001648 "<title>" .
Kay Sievers40c13812005-11-19 17:41:29 +01001649 sprintf("%d %s %02d:%02d", $cd{'mday'}, $cd{'month'}, $cd{'hour'}, $cd{'minute'}) . " - " . esc_html($co{'title'}) .
Kay Sievers19806692005-08-07 20:26:27 +02001650 "</title>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01001651 "<author>" . esc_html($co{'author'}) . "</author>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001652 "<pubDate>$cd{'rfc2822'}</pubDate>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01001653 "<guid isPermaLink=\"true\">" . esc_html("$my_url?p=$project;a=commit;h=$commit") . "</guid>\n" .
1654 "<link>" . esc_html("$my_url?p=$project;a=commit;h=$commit") . "</link>\n" .
1655 "<description>" . esc_html($co{'title'}) . "</description>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001656 "<content:encoded>" .
1657 "<![CDATA[\n";
Kay Sievers034df392005-08-07 20:20:07 +02001658 my $comment = $co{'comment'};
1659 foreach my $line (@$comment) {
Kay Sievers40c13812005-11-19 17:41:29 +01001660 $line = decode("utf8", $line, Encode::FB_DEFAULT);
Kay Sievers19806692005-08-07 20:26:27 +02001661 print "$line<br/>\n";
Kay Sieversa7e09a92005-08-07 20:00:05 +02001662 }
Kay Sieversd8d17b52005-08-12 21:43:32 +02001663 print "<br/>\n";
1664 foreach my $line (@difftree) {
1665 if (!($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/)) {
1666 next;
1667 }
Kay Sievers232ff552005-11-24 16:56:55 +01001668 my $file = validate_input(unquote($7));
1669 $file = decode("utf8", $file, Encode::FB_DEFAULT);
Kay Sieversd8d17b52005-08-12 21:43:32 +02001670 print "$file<br/>\n";
1671 }
Kay Sievers19806692005-08-07 20:26:27 +02001672 print "]]>\n" .
1673 "</content:encoded>\n" .
Kay Sievers034df392005-08-07 20:20:07 +02001674 "</item>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02001675 }
Kay Sievers034df392005-08-07 20:20:07 +02001676 print "</channel></rss>";
Kay Sievers09bd7892005-08-07 20:21:23 +02001677}
1678
Kay Sieversc994d622005-08-07 20:27:18 +02001679sub git_opml {
1680 my @list = git_read_projects();
1681
1682 print $cgi->header(-type => 'text/xml', -charset => 'utf-8');
1683 print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n".
1684 "<opml version=\"1.0\">\n".
1685 "<head>".
1686 " <title>Git OPML Export</title>\n".
1687 "</head>\n".
1688 "<body>\n".
1689 "<outline text=\"git RSS feeds\">\n";
1690
1691 foreach my $pr (@list) {
1692 my %proj = %$pr;
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001693 my $head = git_read_head($proj{'path'});
Kay Sieversc994d622005-08-07 20:27:18 +02001694 if (!defined $head) {
1695 next;
1696 }
Kay Sievers4fac5292005-08-07 20:27:38 +02001697 $ENV{'GIT_DIR'} = "$projectroot/$proj{'path'}";
Kay Sieversc994d622005-08-07 20:27:18 +02001698 my %co = git_read_commit($head);
1699 if (!%co) {
1700 next;
1701 }
1702
Kay Sievers40c13812005-11-19 17:41:29 +01001703 my $path = esc_html(chop_str($proj{'path'}, 25, 5));
Kay Sieversc994d622005-08-07 20:27:18 +02001704 my $rss = "$my_url?p=$proj{'path'};a=rss";
Kay Sievers71be1e72005-08-07 20:27:27 +02001705 my $html = "$my_url?p=$proj{'path'};a=summary";
Kay Sieversc994d622005-08-07 20:27:18 +02001706 print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
1707 }
1708 print "</outline>\n".
1709 "</body>\n".
1710 "</opml>\n";
1711}
1712
Kay Sievers09bd7892005-08-07 20:21:23 +02001713sub git_log {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01001714 my $head = git_read_head($project);
Kay Sievers0db37972005-08-07 20:24:35 +02001715 if (!defined $hash) {
Kay Sievers19806692005-08-07 20:26:27 +02001716 $hash = $head;
Kay Sievers0db37972005-08-07 20:24:35 +02001717 }
Kay Sieversea4a6df2005-08-07 20:26:49 +02001718 if (!defined $page) {
1719 $page = 0;
Kay Sieversb87d78d2005-08-07 20:21:04 +02001720 }
Kay Sievers6a928412005-12-07 09:44:06 +01001721 my $refs = read_info_ref();
Kay Sievers034df392005-08-07 20:20:07 +02001722 git_header_html();
1723 print "<div class=\"page_nav\">\n";
Kay Sievers232ff552005-11-24 16:56:55 +01001724 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1725 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
Kay Sievers19806692005-08-07 20:26:27 +02001726 " | log" .
Kay Sievers232ff552005-11-24 16:56:55 +01001727 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
1728 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
1729 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n";
Kay Sieversea4a6df2005-08-07 20:26:49 +02001730
1731 my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
1732 open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed.");
1733 my (@revlist) = map { chomp; $_ } <$fd>;
1734 close $fd;
1735
1736 if ($hash ne $head || $page) {
Kay Sievers232ff552005-11-24 16:56:55 +01001737 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "HEAD");
Kay Sieversea4a6df2005-08-07 20:26:49 +02001738 } else {
1739 print "HEAD";
Kay Sievers19806692005-08-07 20:26:27 +02001740 }
Kay Sieversea4a6df2005-08-07 20:26:49 +02001741 if ($page > 0) {
Kay Sieversc994d622005-08-07 20:27:18 +02001742 print " &sdot; " .
Kay Sievers232ff552005-11-24 16:56:55 +01001743 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev");
Kay Sieversea4a6df2005-08-07 20:26:49 +02001744 } else {
1745 print " &sdot; prev";
1746 }
1747 if ($#revlist >= (100 * ($page+1)-1)) {
Kay Sieversc994d622005-08-07 20:27:18 +02001748 print " &sdot; " .
Kay Sievers232ff552005-11-24 16:56:55 +01001749 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next");
Kay Sieversea4a6df2005-08-07 20:26:49 +02001750 } else {
1751 print " &sdot; next";
1752 }
Kay Sieversede5e102005-08-07 20:23:12 +02001753 print "<br/>\n" .
Kay Sievers034df392005-08-07 20:20:07 +02001754 "</div>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +02001755 if (!@revlist) {
Kay Sievers19806692005-08-07 20:26:27 +02001756 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001757 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
Kay Sievers19806692005-08-07 20:26:27 +02001758 "</div>\n";
Kay Sievers0db37972005-08-07 20:24:35 +02001759 my %co = git_read_commit($hash);
Kay Sieverse925f382005-08-07 20:23:35 +02001760 print "<div class=\"page_body\"> Last change $co{'age_string'}.<br/><br/></div>\n";
Kay Sievers034df392005-08-07 20:20:07 +02001761 }
Kay Sieversc994d622005-08-07 20:27:18 +02001762 for (my $i = ($page * 100); $i <= $#revlist; $i++) {
1763 my $commit = $revlist[$i];
Kay Sievers6a928412005-12-07 09:44:06 +01001764 my $ref = "";
1765 if (defined $refs->{$commit}) {
Kay Sieversedde3732005-12-07 16:10:01 +01001766 $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>";
Kay Sievers6a928412005-12-07 09:44:06 +01001767 }
Kay Sievers09bd7892005-08-07 20:21:23 +02001768 my %co = git_read_commit($commit);
Kay Sieversb87d78d2005-08-07 20:21:04 +02001769 next if !%co;
Kay Sievers034df392005-08-07 20:20:07 +02001770 my %ad = date_str($co{'author_epoch'});
1771 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001772 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "title"},
Kay Sievers6a928412005-12-07 09:44:06 +01001773 "<span class=\"age\">$co{'age_string'}</span>" . esc_html($co{'title'}) . $ref) . "\n";
1774 print "</div>\n";
Kay Sievers034df392005-08-07 20:20:07 +02001775 print "<div class=\"title_text\">\n" .
1776 "<div class=\"log_link\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001777 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
1778 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
Kay Sieverseb282402005-08-07 20:21:34 +02001779 "<br/>\n" .
Kay Sievers034df392005-08-07 20:20:07 +02001780 "</div>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01001781 "<i>" . esc_html($co{'author_name'}) . " [$ad{'rfc2822'}]</i><br/>\n" .
Kay Sievers034df392005-08-07 20:20:07 +02001782 "</div>\n" .
1783 "<div class=\"log_body\">\n";
1784 my $comment = $co{'comment'};
Kay Sievers09bd7892005-08-07 20:21:23 +02001785 my $empty = 0;
Kay Sievers034df392005-08-07 20:20:07 +02001786 foreach my $line (@$comment) {
Kay Sievers10dba282005-08-07 20:25:27 +02001787 if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) {
Kay Sievers09bd7892005-08-07 20:21:23 +02001788 next;
1789 }
1790 if ($line eq "") {
1791 if ($empty) {
1792 next;
1793 }
1794 $empty = 1;
1795 } else {
1796 $empty = 0;
1797 }
Kay Sieversf49201a2005-08-07 20:28:42 +02001798 print format_log_line_html($line) . "<br/>\n";
Kay Sievers034df392005-08-07 20:20:07 +02001799 }
Kay Sievers09bd7892005-08-07 20:21:23 +02001800 if (!$empty) {
1801 print "<br/>\n";
1802 }
1803 print "</div>\n";
Kay Sievers034df392005-08-07 20:20:07 +02001804 }
1805 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02001806}
1807
1808sub git_commit {
1809 my %co = git_read_commit($hash);
Kay Sievers034df392005-08-07 20:20:07 +02001810 if (!%co) {
Kay Sievers09bd7892005-08-07 20:21:23 +02001811 die_error(undef, "Unknown commit object.");
Kay Sieversd63577d2005-08-07 20:18:13 +02001812 }
Kay Sievers185f09e2005-08-07 20:13:11 +02001813 my %ad = date_str($co{'author_epoch'}, $co{'author_tz'});
1814 my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'});
Kay Sievers161332a2005-08-07 19:49:46 +02001815
Kay Sievers6191f8e2005-08-07 20:19:56 +02001816 my @difftree;
Kay Sievers19806692005-08-07 20:26:27 +02001817 my $root = "";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001818 my $parent = $co{'parent'};
1819 if (!defined $parent) {
Kay Sievers19806692005-08-07 20:26:27 +02001820 $root = " --root";
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001821 $parent = "";
Kay Sievers6191f8e2005-08-07 20:19:56 +02001822 }
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001823 open my $fd, "-|", "$gitbin/git-diff-tree -r -M $root $parent $hash" or die_error(undef, "Open failed.");
Kay Sievers19806692005-08-07 20:26:27 +02001824 @difftree = map { chomp; $_ } <$fd>;
1825 close $fd or die_error(undef, "Reading diff-tree failed.");
Kay Sievers11044292005-10-19 03:18:45 +02001826
1827 # non-textual hash id's can be cached
1828 my $expires;
1829 if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
1830 $expires = "+1d";
1831 }
Kay Sieversedde3732005-12-07 16:10:01 +01001832 my $refs = read_info_ref();
1833 my $ref = "";
Kay Sieversd3a6fd92005-12-22 22:58:29 +01001834 if (defined $refs->{$co{'id'}}) {
1835 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
Kay Sieversedde3732005-12-07 16:10:01 +01001836 }
Kay Sievers11044292005-10-19 03:18:45 +02001837 git_header_html(undef, $expires);
Kay Sievers42f7eb92005-08-07 20:21:46 +02001838 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001839 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
1840 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
1841 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
Kay Sievers19806692005-08-07 20:26:27 +02001842 " | commit";
Kay Sievers42f7eb92005-08-07 20:21:46 +02001843 if (defined $co{'parent'}) {
Kay Sievers232ff552005-11-24 16:56:55 +01001844 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff");
Kay Sievers42f7eb92005-08-07 20:21:46 +02001845 }
Kay Sievers232ff552005-11-24 16:56:55 +01001846 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "\n" .
Kay Sieversff7669a2005-08-07 20:13:02 +02001847 "<br/><br/></div>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +02001848 if (defined $co{'parent'}) {
1849 print "<div>\n" .
Kay Sieversedde3732005-12-07 16:10:01 +01001850 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
Kay Sieversb87d78d2005-08-07 20:21:04 +02001851 "</div>\n";
1852 } else {
1853 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001854 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
Kay Sieversb87d78d2005-08-07 20:21:04 +02001855 "</div>\n";
1856 }
Kay Sievers6191f8e2005-08-07 20:19:56 +02001857 print "<div class=\"title_text\">\n" .
Kay Sieversb87d78d2005-08-07 20:21:04 +02001858 "<table cellspacing=\"0\">\n";
Kay Sievers40c13812005-11-19 17:41:29 +01001859 print "<tr><td>author</td><td>" . esc_html($co{'author'}) . "</td></tr>\n".
Kay Sieversbddec012005-08-07 20:25:42 +02001860 "<tr>" .
1861 "<td></td><td> $ad{'rfc2822'}";
Kay Sievers927dcec2005-08-07 20:18:44 +02001862 if ($ad{'hour_local'} < 6) {
Kay Sieversb87d78d2005-08-07 20:21:04 +02001863 printf(" (<span style=\"color: #cc0000;\">%02d:%02d</span> %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'});
1864 } else {
1865 printf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'});
Kay Sievers927dcec2005-08-07 20:18:44 +02001866 }
Kay Sieversbddec012005-08-07 20:25:42 +02001867 print "</td>" .
1868 "</tr>\n";
Kay Sievers40c13812005-11-19 17:41:29 +01001869 print "<tr><td>committer</td><td>" . esc_html($co{'committer'}) . "</td></tr>\n";
Kay Sieverse925f382005-08-07 20:23:35 +02001870 print "<tr><td></td><td> $cd{'rfc2822'}" . sprintf(" (%02d:%02d %s)", $cd{'hour_local'}, $cd{'minute_local'}, $cd{'tz_local'}) . "</td></tr>\n";
Kay Sieversf9127562005-09-04 01:37:25 +02001871 print "<tr><td>commit</td><td style=\"font-family:monospace\">$co{'id'}</td></tr>\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001872 print "<tr>" .
1873 "<td>tree</td>" .
Kay Sievers19806692005-08-07 20:26:27 +02001874 "<td style=\"font-family:monospace\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001875 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash"), class => "list"}, $co{'tree'}) .
Kay Sievers19806692005-08-07 20:26:27 +02001876 "</td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001877 "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
Kay Sieversbddec012005-08-07 20:25:42 +02001878 "</td>" .
1879 "</tr>\n";
Kay Sievers3e029292005-08-07 20:05:15 +02001880 my $parents = $co{'parents'};
1881 foreach my $par (@$parents) {
Kay Sieversbddec012005-08-07 20:25:42 +02001882 print "<tr>" .
1883 "<td>parent</td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001884 "<td style=\"font-family:monospace\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$par"), class => "list"}, $par) . "</td>" .
Kay Sieversbddec012005-08-07 20:25:42 +02001885 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001886 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$par")}, "commit") .
1887 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash;hp=$par")}, "commitdiff") .
Kay Sieversbddec012005-08-07 20:25:42 +02001888 "</td>" .
1889 "</tr>\n";
Kay Sievers3e029292005-08-07 20:05:15 +02001890 }
Kay Sieversb87d78d2005-08-07 20:21:04 +02001891 print "</table>".
1892 "</div>\n";
Kay Sieversfbb592a2005-08-07 20:12:11 +02001893 print "<div class=\"page_body\">\n";
Kay Sievers3e029292005-08-07 20:05:15 +02001894 my $comment = $co{'comment'};
Kay Sievers09bd7892005-08-07 20:21:23 +02001895 my $empty = 0;
1896 my $signed = 0;
Kay Sievers3e029292005-08-07 20:05:15 +02001897 foreach my $line (@$comment) {
Kay Sievers09bd7892005-08-07 20:21:23 +02001898 # print only one empty line
1899 if ($line eq "") {
1900 if ($empty || $signed) {
1901 next;
1902 }
1903 $empty = 1;
1904 } else {
1905 $empty = 0;
1906 }
Kay Sievers10dba282005-08-07 20:25:27 +02001907 if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) {
Kay Sievers09bd7892005-08-07 20:21:23 +02001908 $signed = 1;
Kay Sievers40c13812005-11-19 17:41:29 +01001909 print "<span style=\"color: #888888\">" . esc_html($line) . "</span><br/>\n";
Kay Sievers3e029292005-08-07 20:05:15 +02001910 } else {
Kay Sievers09bd7892005-08-07 20:21:23 +02001911 $signed = 0;
Kay Sieversf49201a2005-08-07 20:28:42 +02001912 print format_log_line_html($line) . "<br/>\n";
Kay Sievers3e029292005-08-07 20:05:15 +02001913 }
1914 }
Kay Sievers927dcec2005-08-07 20:18:44 +02001915 print "</div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02001916 print "<div class=\"list_head\">\n";
Kay Sievers6191f8e2005-08-07 20:19:56 +02001917 if ($#difftree > 10) {
Kay Sievers09bd7892005-08-07 20:21:23 +02001918 print(($#difftree + 1) . " files changed:\n");
Kay Sievers6191f8e2005-08-07 20:19:56 +02001919 }
Kay Sievers09bd7892005-08-07 20:21:23 +02001920 print "</div>\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001921 print "<table cellspacing=\"0\">\n";
1922 my $alternate = 0;
Kay Sievers161332a2005-08-07 19:49:46 +02001923 foreach my $line (@difftree) {
Kay Sievers19806692005-08-07 20:26:27 +02001924 # ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
1925 # ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
Kay Sieversd8a20ba2005-08-07 20:28:53 +02001926 if (!($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/)) {
1927 next;
1928 }
Kay Sievers19806692005-08-07 20:26:27 +02001929 my $from_mode = $1;
1930 my $to_mode = $2;
1931 my $from_id = $3;
1932 my $to_id = $4;
1933 my $status = $5;
Kay Sieversea4a6df2005-08-07 20:26:49 +02001934 my $similarity = $6;
Kay Sievers232ff552005-11-24 16:56:55 +01001935 my $file = validate_input(unquote($7));
Kay Sieversbddec012005-08-07 20:25:42 +02001936 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02001937 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001938 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02001939 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02001940 }
1941 $alternate ^= 1;
Kay Sieversf6375b22005-08-07 20:28:33 +02001942 if ($status eq "A") {
Kay Sievers10dba282005-08-07 20:25:27 +02001943 my $mode_chng = "";
Kay Sievers19806692005-08-07 20:26:27 +02001944 if (S_ISREG(oct $to_mode)) {
1945 $mode_chng = sprintf(" with mode: %04o", (oct $to_mode) & 0777);
Kay Sievers10dba282005-08-07 20:25:27 +02001946 }
1947 print "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001948 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)) . "</td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001949 "<td><span style=\"color: #008000;\">[new " . file_type($to_mode) . "$mode_chng]</span></td>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01001950 "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, "blob") . "</td>\n";
Kay Sievers19806692005-08-07 20:26:27 +02001951 } elsif ($status eq "D") {
Kay Sievers10dba282005-08-07 20:25:27 +02001952 print "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001953 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)) . "</td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02001954 "<td><span style=\"color: #c00000;\">[deleted " . file_type($from_mode). "]</span></td>\n" .
Kay Sievers10dba282005-08-07 20:25:27 +02001955 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01001956 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, "blob") .
1957 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") .
Kay Sievers10dba282005-08-07 20:25:27 +02001958 "</td>\n"
Kay Sievers19806692005-08-07 20:26:27 +02001959 } elsif ($status eq "M" || $status eq "T") {
Kay Sievers10dba282005-08-07 20:25:27 +02001960 my $mode_chnge = "";
1961 if ($from_mode != $to_mode) {
1962 $mode_chnge = " <span style=\"color: #777777;\">[changed";
1963 if (((oct $from_mode) & S_IFMT) != ((oct $to_mode) & S_IFMT)) {
1964 $mode_chnge .= " from " . file_type($from_mode) . " to " . file_type($to_mode);
1965 }
1966 if (((oct $from_mode) & 0777) != ((oct $to_mode) & 0777)) {
1967 if (S_ISREG($from_mode) && S_ISREG($to_mode)) {
1968 $mode_chnge .= sprintf(" mode: %04o->%04o", (oct $from_mode) & 0777, (oct $to_mode) & 0777);
1969 } elsif (S_ISREG($to_mode)) {
1970 $mode_chnge .= sprintf(" mode: %04o", (oct $to_mode) & 0777);
1971 }
1972 }
1973 $mode_chnge .= "]</span>\n";
1974 }
1975 print "<td>";
1976 if ($to_id ne $from_id) {
Kay Sievers232ff552005-11-24 16:56:55 +01001977 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file));
Kay Sievers10dba282005-08-07 20:25:27 +02001978 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01001979 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file));
Kay Sievers10dba282005-08-07 20:25:27 +02001980 }
1981 print "</td>\n" .
1982 "<td>$mode_chnge</td>\n" .
1983 "<td class=\"link\">";
Kay Sievers232ff552005-11-24 16:56:55 +01001984 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, "blob");
Kay Sievers10dba282005-08-07 20:25:27 +02001985 if ($to_id ne $from_id) {
Kay Sievers232ff552005-11-24 16:56:55 +01001986 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file")}, "diff");
Kay Sievers10dba282005-08-07 20:25:27 +02001987 }
Kay Sievers232ff552005-11-24 16:56:55 +01001988 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") . "\n";
Kay Sievers10dba282005-08-07 20:25:27 +02001989 print "</td>\n";
Kay Sieversdcea8d02005-08-07 20:26:38 +02001990 } elsif ($status eq "R") {
1991 my ($from_file, $to_file) = split "\t", $file;
1992 my $mode_chng = "";
1993 if ($from_mode != $to_mode) {
1994 $mode_chng = sprintf(", mode: %04o", (oct $to_mode) & 0777);
1995 }
1996 print "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01001997 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$to_file"), -class => "list"}, esc_html($to_file)) . "</td>\n" .
Kay Sieversdcea8d02005-08-07 20:26:38 +02001998 "<td><span style=\"color: #777777;\">[moved from " .
Kay Sievers232ff552005-11-24 16:56:55 +01001999 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$from_file"), -class => "list"}, esc_html($from_file)) .
Kay Sieversea4a6df2005-08-07 20:26:49 +02002000 " with " . (int $similarity) . "% similarity$mode_chng]</span></td>\n" .
Kay Sieversdcea8d02005-08-07 20:26:38 +02002001 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002002 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$to_file")}, "blob");
Kay Sieversdcea8d02005-08-07 20:26:38 +02002003 if ($to_id ne $from_id) {
Kay Sievers232ff552005-11-24 16:56:55 +01002004 print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$to_file")}, "diff");
Kay Sieversdcea8d02005-08-07 20:26:38 +02002005 }
2006 print "</td>\n";
Kay Sievers10dba282005-08-07 20:25:27 +02002007 }
2008 print "</tr>\n";
Kay Sievers161332a2005-08-07 19:49:46 +02002009 }
Kay Sieversbddec012005-08-07 20:25:42 +02002010 print "</table>\n";
Kay Sievers12a88f22005-08-07 20:02:47 +02002011 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02002012}
2013
2014sub git_blobdiff {
Kay Sievers19806692005-08-07 20:26:27 +02002015 mkdir($git_temp, 0700);
Kay Sievers12a88f22005-08-07 20:02:47 +02002016 git_header_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02002017 if (defined $hash_base && (my %co = git_read_commit($hash_base))) {
Kay Sievers42f7eb92005-08-07 20:21:46 +02002018 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002019 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
2020 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
2021 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
2022 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") .
2023 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") .
2024 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") .
Kay Sievers19806692005-08-07 20:26:27 +02002025 "<br/>\n";
Kay Sievers232ff552005-11-24 16:56:55 +01002026 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff_plain;h=$hash;hp=$hash_parent")}, "plain") .
Kay Sievers09bd7892005-08-07 20:21:23 +02002027 "</div>\n";
2028 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002029 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) . "\n" .
Kay Sievers09bd7892005-08-07 20:21:23 +02002030 "</div>\n";
2031 } else {
2032 print "<div class=\"page_nav\">\n" .
2033 "<br/><br/></div>\n" .
2034 "<div class=\"title\">$hash vs $hash_parent</div>\n";
2035 }
2036 if (defined $file_name) {
Kay Sievers232ff552005-11-24 16:56:55 +01002037 print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02002038 }
Kay Sievers9cd3d982005-08-07 20:17:42 +02002039 print "<div class=\"page_body\">\n" .
Kay Sieversc07ad4b2005-08-07 20:22:44 +02002040 "<div class=\"diff_info\">blob:" .
Kay Sievers232ff552005-11-24 16:56:55 +01002041 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash_parent;hb=$hash_base;f=$file_name")}, $hash_parent) .
Kay Sievers27359832005-08-07 20:20:20 +02002042 " -> blob:" .
Kay Sievers232ff552005-11-24 16:56:55 +01002043 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, $hash) .
Kay Sieversc07ad4b2005-08-07 20:22:44 +02002044 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02002045 git_diff_print($hash_parent, $file_name || $hash_parent, $hash, $file_name || $hash);
Kay Sieversc07ad4b2005-08-07 20:22:44 +02002046 print "</div>";
Kay Sievers12a88f22005-08-07 20:02:47 +02002047 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02002048}
2049
Kay Sievers19806692005-08-07 20:26:27 +02002050sub git_blobdiff_plain {
2051 mkdir($git_temp, 0700);
2052 print $cgi->header(-type => "text/plain", -charset => 'utf-8');
2053 git_diff_print($hash_parent, $file_name || $hash_parent, $hash, $file_name || $hash, "plain");
2054}
2055
Kay Sievers09bd7892005-08-07 20:21:23 +02002056sub git_commitdiff {
Kay Sievers19806692005-08-07 20:26:27 +02002057 mkdir($git_temp, 0700);
Kay Sievers09bd7892005-08-07 20:21:23 +02002058 my %co = git_read_commit($hash);
Kay Sievers034df392005-08-07 20:20:07 +02002059 if (!%co) {
Kay Sievers09bd7892005-08-07 20:21:23 +02002060 die_error(undef, "Unknown commit object.");
Kay Sieversd63577d2005-08-07 20:18:13 +02002061 }
Kay Sieversbddec012005-08-07 20:25:42 +02002062 if (!defined $hash_parent) {
2063 $hash_parent = $co{'parent'};
2064 }
Kay Sievers19806692005-08-07 20:26:27 +02002065 open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed.");
Kay Sievers4c02e3c2005-08-07 19:52:52 +02002066 my (@difftree) = map { chomp; $_ } <$fd>;
Kay Sievers19806692005-08-07 20:26:27 +02002067 close $fd or die_error(undef, "Reading diff-tree failed.");
Kay Sievers4c02e3c2005-08-07 19:52:52 +02002068
Kay Sievers11044292005-10-19 03:18:45 +02002069 # non-textual hash id's can be cached
2070 my $expires;
2071 if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
2072 $expires = "+1d";
2073 }
Kay Sieversedde3732005-12-07 16:10:01 +01002074 my $refs = read_info_ref();
2075 my $ref = "";
Kay Sieversd3a6fd92005-12-22 22:58:29 +01002076 if (defined $refs->{$co{'id'}}) {
2077 $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>";
Kay Sieversedde3732005-12-07 16:10:01 +01002078 }
Kay Sievers11044292005-10-19 03:18:45 +02002079 git_header_html(undef, $expires);
Kay Sievers42f7eb92005-08-07 20:21:46 +02002080 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002081 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
2082 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") .
2083 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
2084 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
Kay Sievers19806692005-08-07 20:26:27 +02002085 " | commitdiff" .
Kay Sievers232ff552005-11-24 16:56:55 +01002086 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "<br/>\n";
2087 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff_plain;h=$hash;hp=$hash_parent")}, "plain") . "\n" .
Kay Sievers19806692005-08-07 20:26:27 +02002088 "</div>\n";
Kay Sievers9cd3d982005-08-07 20:17:42 +02002089 print "<div>\n" .
Kay Sieversedde3732005-12-07 16:10:01 +01002090 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" .
Kay Sievers9cd3d982005-08-07 20:17:42 +02002091 "</div>\n";
Kay Sieversc07ad4b2005-08-07 20:22:44 +02002092 print "<div class=\"page_body\">\n";
Kay Sievers0db37972005-08-07 20:24:35 +02002093 my $comment = $co{'comment'};
2094 my $empty = 0;
2095 my $signed = 0;
Kay Sieversfa378492005-08-07 20:24:43 +02002096 my @log = @$comment;
Kay Sieversa4d26ef2005-08-07 20:24:51 +02002097 # remove first and empty lines after that
Kay Sieversfa378492005-08-07 20:24:43 +02002098 shift @log;
Kay Sieversa4d26ef2005-08-07 20:24:51 +02002099 while (defined $log[0] && $log[0] eq "") {
2100 shift @log;
2101 }
Kay Sieversfa378492005-08-07 20:24:43 +02002102 foreach my $line (@log) {
Kay Sievers10dba282005-08-07 20:25:27 +02002103 if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) {
Kay Sievers0db37972005-08-07 20:24:35 +02002104 next;
2105 }
2106 if ($line eq "") {
2107 if ($empty) {
2108 next;
2109 }
2110 $empty = 1;
2111 } else {
2112 $empty = 0;
2113 }
Kay Sieversf49201a2005-08-07 20:28:42 +02002114 print format_log_line_html($line) . "<br/>\n";
Kay Sievers0db37972005-08-07 20:24:35 +02002115 }
2116 print "<br/>\n";
Kay Sievers4c02e3c2005-08-07 19:52:52 +02002117 foreach my $line (@difftree) {
Kay Sievers19806692005-08-07 20:26:27 +02002118 # ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
2119 # ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
2120 $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/;
2121 my $from_mode = $1;
2122 my $to_mode = $2;
2123 my $from_id = $3;
2124 my $to_id = $4;
2125 my $status = $5;
Kay Sievers232ff552005-11-24 16:56:55 +01002126 my $file = validate_input(unquote($6));
Kay Sieversf6375b22005-08-07 20:28:33 +02002127 if ($status eq "A") {
Kay Sievers19806692005-08-07 20:26:27 +02002128 print "<div class=\"diff_info\">" . file_type($to_mode) . ":" .
Kay Sievers232ff552005-11-24 16:56:55 +01002129 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id) . "(new)" .
Kay Sievers19806692005-08-07 20:26:27 +02002130 "</div>\n";
2131 git_diff_print(undef, "/dev/null", $to_id, "b/$file");
2132 } elsif ($status eq "D") {
2133 print "<div class=\"diff_info\">" . file_type($from_mode) . ":" .
Kay Sievers232ff552005-11-24 16:56:55 +01002134 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, $from_id) . "(deleted)" .
Kay Sievers19806692005-08-07 20:26:27 +02002135 "</div>\n";
2136 git_diff_print($from_id, "a/$file", undef, "/dev/null");
2137 } elsif ($status eq "M") {
2138 if ($from_id ne $to_id) {
2139 print "<div class=\"diff_info\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002140 file_type($from_mode) . ":" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, $from_id) .
Kay Sievers19806692005-08-07 20:26:27 +02002141 " -> " .
Kay Sievers232ff552005-11-24 16:56:55 +01002142 file_type($to_mode) . ":" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id);
Kay Sievers19806692005-08-07 20:26:27 +02002143 print "</div>\n";
2144 git_diff_print($from_id, "a/$file", $to_id, "b/$file");
Kay Sievers4c02e3c2005-08-07 19:52:52 +02002145 }
2146 }
Kay Sievers4c02e3c2005-08-07 19:52:52 +02002147 }
Kay Sieversc07ad4b2005-08-07 20:22:44 +02002148 print "<br/>\n" .
2149 "</div>";
Kay Sievers12a88f22005-08-07 20:02:47 +02002150 git_footer_html();
Kay Sievers09bd7892005-08-07 20:21:23 +02002151}
2152
Kay Sievers19806692005-08-07 20:26:27 +02002153sub git_commitdiff_plain {
2154 mkdir($git_temp, 0700);
2155 open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed.");
2156 my (@difftree) = map { chomp; $_ } <$fd>;
2157 close $fd or die_error(undef, "Reading diff-tree failed.");
2158
Kay Sievers1b1cd422005-08-07 20:28:01 +02002159 # try to figure out the next tag after this commit
2160 my $tagname;
Kay Sievers4df11912005-12-07 10:51:42 +01002161 my $refs = read_info_ref("tags");
Kay Sievers1b1cd422005-08-07 20:28:01 +02002162 open $fd, "-|", "$gitbin/git-rev-list HEAD";
Kay Sievers6a928412005-12-07 09:44:06 +01002163 chomp (my (@commits) = <$fd>);
2164 close $fd;
2165 foreach my $commit (@commits) {
2166 if (defined $refs->{$commit}) {
2167 $tagname = $refs->{$commit}
Kay Sievers1b1cd422005-08-07 20:28:01 +02002168 }
2169 if ($commit eq $hash) {
2170 last;
2171 }
2172 }
Kay Sievers1b1cd422005-08-07 20:28:01 +02002173
Kay Sievers93129442005-10-17 03:27:54 +02002174 print $cgi->header(-type => "text/plain", -charset => 'utf-8', '-content-disposition' => "inline; filename=\"git-$hash.patch\"");
Kay Sieversc994d622005-08-07 20:27:18 +02002175 my %co = git_read_commit($hash);
2176 my %ad = date_str($co{'author_epoch'}, $co{'author_tz'});
Kay Sieversc994d622005-08-07 20:27:18 +02002177 my $comment = $co{'comment'};
Kay Sievers1b1cd422005-08-07 20:28:01 +02002178 print "From: $co{'author'}\n" .
Kay Sieversc994d622005-08-07 20:27:18 +02002179 "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n".
Kay Sievers1b1cd422005-08-07 20:28:01 +02002180 "Subject: $co{'title'}\n";
2181 if (defined $tagname) {
2182 print "X-Git-Tag: $tagname\n";
2183 }
2184 print "X-Git-Url: $my_url?p=$project;a=commitdiff;h=$hash\n" .
Kay Sieversc994d622005-08-07 20:27:18 +02002185 "\n";
Kay Sievers1b1cd422005-08-07 20:28:01 +02002186
Kay Sieversc994d622005-08-07 20:27:18 +02002187 foreach my $line (@$comment) {;
Kay Sieversc2488d02005-12-07 16:32:51 +01002188 print "$line\n";
Kay Sieversc994d622005-08-07 20:27:18 +02002189 }
Kay Sievers1b1cd422005-08-07 20:28:01 +02002190 print "---\n\n";
2191
Kay Sievers19806692005-08-07 20:26:27 +02002192 foreach my $line (@difftree) {
2193 $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/;
2194 my $from_id = $3;
2195 my $to_id = $4;
2196 my $status = $5;
2197 my $file = $6;
Kay Sieversf6375b22005-08-07 20:28:33 +02002198 if ($status eq "A") {
Kay Sievers19806692005-08-07 20:26:27 +02002199 git_diff_print(undef, "/dev/null", $to_id, "b/$file", "plain");
2200 } elsif ($status eq "D") {
2201 git_diff_print($from_id, "a/$file", undef, "/dev/null", "plain");
2202 } elsif ($status eq "M") {
2203 git_diff_print($from_id, "a/$file", $to_id, "b/$file", "plain");
2204 }
2205 }
2206}
2207
Kay Sievers09bd7892005-08-07 20:21:23 +02002208sub git_history {
Kay Sieversb87d78d2005-08-07 20:21:04 +02002209 if (!defined $hash) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01002210 $hash = git_read_head($project);
Kay Sievers09bd7892005-08-07 20:21:23 +02002211 }
2212 my %co = git_read_commit($hash);
2213 if (!%co) {
2214 die_error(undef, "Unknown commit object.");
Kay Sievers2ae100d2005-08-07 20:17:00 +02002215 }
Kay Sievers6a928412005-12-07 09:44:06 +01002216 my $refs = read_info_ref();
Kay Sieversd51e9022005-08-07 20:16:07 +02002217 git_header_html();
Kay Sievers42f7eb92005-08-07 20:21:46 +02002218 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002219 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
2220 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
2221 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") .
2222 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
2223 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
2224 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
Kay Sievers09bd7892005-08-07 20:21:23 +02002225 "<br/><br/>\n" .
Kay Sievers820e4f62005-08-07 20:17:50 +02002226 "</div>\n";
Kay Sievers09bd7892005-08-07 20:21:23 +02002227 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002228 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
Kay Sievers09bd7892005-08-07 20:21:23 +02002229 "</div>\n";
Kay Sievers232ff552005-11-24 16:56:55 +01002230 print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b><br/></div>\n";
Kay Sievers10dba282005-08-07 20:25:27 +02002231
Rocco Ruttebfb689b2006-05-30 14:40:10 +02002232 open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -- \'$file_name\'";
Kay Sieversb87d78d2005-08-07 20:21:04 +02002233 my $commit;
Kay Sieversbddec012005-08-07 20:25:42 +02002234 print "<table cellspacing=\"0\">\n";
2235 my $alternate = 0;
Kay Sieversb87d78d2005-08-07 20:21:04 +02002236 while (my $line = <$fd>) {
Kay Sieversd05c19e2005-08-07 20:27:49 +02002237 if ($line =~ m/^([0-9a-fA-F]{40})/){
Kay Sieversb87d78d2005-08-07 20:21:04 +02002238 $commit = $1;
2239 next;
Kay Sieversd51e9022005-08-07 20:16:07 +02002240 }
Kay Sievers19806692005-08-07 20:26:27 +02002241 if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/ && (defined $commit)) {
Kay Sievers09bd7892005-08-07 20:21:23 +02002242 my %co = git_read_commit($commit);
Kay Sieversb87d78d2005-08-07 20:21:04 +02002243 if (!%co) {
2244 next;
2245 }
Kay Sievers6a928412005-12-07 09:44:06 +01002246 my $ref = "";
2247 if (defined $refs->{$commit}) {
Kay Sieversedde3732005-12-07 16:10:01 +01002248 $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>";
Kay Sievers6a928412005-12-07 09:44:06 +01002249 }
Kay Sieversbddec012005-08-07 20:25:42 +02002250 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02002251 print "<tr class=\"dark\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02002252 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02002253 print "<tr class=\"light\">\n";
Kay Sieversbddec012005-08-07 20:25:42 +02002254 }
2255 $alternate ^= 1;
Kay Sievers71be1e72005-08-07 20:27:27 +02002256 print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01002257 "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 3)) . "</i></td>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002258 "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"}, "<b>" .
Kay Sievers4df11912005-12-07 10:51:42 +01002259 esc_html(chop_str($co{'title'}, 50)) . "$ref</b>") . "</td>\n" .
Kay Sievers10dba282005-08-07 20:25:27 +02002260 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002261 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
2262 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
2263 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=$commit;f=$file_name")}, "blob");
Kay Sievers42f7eb92005-08-07 20:21:46 +02002264 my $blob = git_get_hash_by_path($hash, $file_name);
2265 my $blob_parent = git_get_hash_by_path($commit, $file_name);
2266 if (defined $blob && defined $blob_parent && $blob ne $blob_parent) {
Kay Sieversc994d622005-08-07 20:27:18 +02002267 print " | " .
Kay Sievers232ff552005-11-24 16:56:55 +01002268 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$blob;hp=$blob_parent;hb=$commit;f=$file_name")},
Kay Sieversc994d622005-08-07 20:27:18 +02002269 "diff to current");
Kay Sievers42f7eb92005-08-07 20:21:46 +02002270 }
Kay Sievers10dba282005-08-07 20:25:27 +02002271 print "</td>\n" .
2272 "</tr>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +02002273 undef $commit;
Kay Sievers2ae100d2005-08-07 20:17:00 +02002274 }
Kay Sieversd51e9022005-08-07 20:16:07 +02002275 }
Kay Sieversbddec012005-08-07 20:25:42 +02002276 print "</table>\n";
Kay Sieversb87d78d2005-08-07 20:21:04 +02002277 close $fd;
Kay Sieversd51e9022005-08-07 20:16:07 +02002278 git_footer_html();
Kay Sievers161332a2005-08-07 19:49:46 +02002279}
Kay Sievers19806692005-08-07 20:26:27 +02002280
2281sub git_search {
2282 if (!defined $searchtext) {
2283 die_error("", "Text field empty.");
2284 }
2285 if (!defined $hash) {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01002286 $hash = git_read_head($project);
Kay Sievers19806692005-08-07 20:26:27 +02002287 }
2288 my %co = git_read_commit($hash);
2289 if (!%co) {
2290 die_error(undef, "Unknown commit object.");
2291 }
Kay Sieversc994d622005-08-07 20:27:18 +02002292 # pickaxe may take all resources of your box and run for several minutes
2293 # with every query - so decide by yourself how public you make this feature :)
2294 my $commit_search = 1;
2295 my $author_search = 0;
2296 my $committer_search = 0;
2297 my $pickaxe_search = 0;
2298 if ($searchtext =~ s/^author\\://i) {
2299 $author_search = 1;
2300 } elsif ($searchtext =~ s/^committer\\://i) {
2301 $committer_search = 1;
2302 } elsif ($searchtext =~ s/^pickaxe\\://i) {
2303 $commit_search = 0;
2304 $pickaxe_search = 1;
2305 }
Kay Sievers19806692005-08-07 20:26:27 +02002306 git_header_html();
2307 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002308 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary;h=$hash")}, "summary") .
2309 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") .
2310 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
2311 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
2312 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
2313 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") .
Kay Sievers19806692005-08-07 20:26:27 +02002314 "<br/><br/>\n" .
2315 "</div>\n";
2316
2317 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002318 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" .
Kay Sievers19806692005-08-07 20:26:27 +02002319 "</div>\n";
2320 print "<table cellspacing=\"0\">\n";
Kay Sievers19806692005-08-07 20:26:27 +02002321 my $alternate = 0;
Kay Sieversc994d622005-08-07 20:27:18 +02002322 if ($commit_search) {
2323 $/ = "\0";
Kay Sievers25f422f2005-09-13 02:21:59 +02002324 open my $fd, "-|", "$gitbin/git-rev-list --header --parents $hash" or next;
Kay Sieversc994d622005-08-07 20:27:18 +02002325 while (my $commit_text = <$fd>) {
2326 if (!grep m/$searchtext/i, $commit_text) {
Kay Sievers19806692005-08-07 20:26:27 +02002327 next;
2328 }
Kay Sieversc994d622005-08-07 20:27:18 +02002329 if ($author_search && !grep m/\nauthor .*$searchtext/i, $commit_text) {
2330 next;
Kay Sievers19806692005-08-07 20:26:27 +02002331 }
Kay Sieversc994d622005-08-07 20:27:18 +02002332 if ($committer_search && !grep m/\ncommitter .*$searchtext/i, $commit_text) {
2333 next;
2334 }
2335 my @commit_lines = split "\n", $commit_text;
Kay Sievers25f422f2005-09-13 02:21:59 +02002336 my %co = git_read_commit(undef, \@commit_lines);
Kay Sieversc994d622005-08-07 20:27:18 +02002337 if (!%co) {
2338 next;
2339 }
2340 if ($alternate) {
2341 print "<tr class=\"dark\">\n";
2342 } else {
2343 print "<tr class=\"light\">\n";
2344 }
2345 $alternate ^= 1;
Kay Sievers71be1e72005-08-07 20:27:27 +02002346 print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01002347 "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 5)) . "</i></td>\n" .
Kay Sieversc994d622005-08-07 20:27:18 +02002348 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01002349 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}"), -class => "list"}, "<b>" . esc_html(chop_str($co{'title'}, 50)) . "</b><br/>");
Kay Sieversc994d622005-08-07 20:27:18 +02002350 my $comment = $co{'comment'};
2351 foreach my $line (@$comment) {
2352 if ($line =~ m/^(.*)($searchtext)(.*)$/i) {
Kay Sievers40c13812005-11-19 17:41:29 +01002353 my $lead = esc_html($1) || "";
Kay Sieversc994d622005-08-07 20:27:18 +02002354 $lead = chop_str($lead, 30, 10);
Kay Sievers40c13812005-11-19 17:41:29 +01002355 my $match = esc_html($2) || "";
2356 my $trail = esc_html($3) || "";
Kay Sieversc994d622005-08-07 20:27:18 +02002357 $trail = chop_str($trail, 30, 10);
2358 my $text = "$lead<span style=\"color:#e00000\">$match</span>$trail";
2359 print chop_str($text, 80, 5) . "<br/>\n";
2360 }
2361 }
2362 print "</td>\n" .
2363 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002364 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}")}, "commit") .
2365 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$co{'id'}")}, "tree");
Kay Sieversc994d622005-08-07 20:27:18 +02002366 print "</td>\n" .
2367 "</tr>\n";
Kay Sievers19806692005-08-07 20:26:27 +02002368 }
Kay Sieversc994d622005-08-07 20:27:18 +02002369 close $fd;
2370 }
2371
2372 if ($pickaxe_search) {
2373 $/ = "\n";
Kay Sieversa9e60b72005-11-14 15:15:12 +01002374 open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -S\'$searchtext\'";
Kay Sieversc994d622005-08-07 20:27:18 +02002375 undef %co;
2376 my @files;
2377 while (my $line = <$fd>) {
2378 if (%co && $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/) {
2379 my %set;
2380 $set{'file'} = $6;
2381 $set{'from_id'} = $3;
2382 $set{'to_id'} = $4;
2383 $set{'id'} = $set{'to_id'};
2384 if ($set{'id'} =~ m/0{40}/) {
2385 $set{'id'} = $set{'from_id'};
2386 }
2387 if ($set{'id'} =~ m/0{40}/) {
2388 next;
2389 }
2390 push @files, \%set;
Kay Sievers53b89d82005-08-12 22:12:58 +02002391 } elsif ($line =~ m/^([0-9a-fA-F]{40})$/){
Kay Sieversc994d622005-08-07 20:27:18 +02002392 if (%co) {
2393 if ($alternate) {
2394 print "<tr class=\"dark\">\n";
2395 } else {
2396 print "<tr class=\"light\">\n";
2397 }
2398 $alternate ^= 1;
Kay Sievers71be1e72005-08-07 20:27:27 +02002399 print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01002400 "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 5)) . "</i></td>\n" .
Kay Sieversc994d622005-08-07 20:27:18 +02002401 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01002402 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}"), -class => "list"}, "<b>" .
Kay Sievers40c13812005-11-19 17:41:29 +01002403 esc_html(chop_str($co{'title'}, 50)) . "</b><br/>");
Kay Sieversc994d622005-08-07 20:27:18 +02002404 while (my $setref = shift @files) {
2405 my %set = %$setref;
Kay Sievers232ff552005-11-24 16:56:55 +01002406 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$set{'id'};hb=$co{'id'};f=$set{'file'}"), class => "list"},
Kay Sievers40c13812005-11-19 17:41:29 +01002407 "<span style=\"color:#e00000\">" . esc_html($set{'file'}) . "</span>") .
Kay Sieversc994d622005-08-07 20:27:18 +02002408 "<br/>\n";
2409 }
2410 print "</td>\n" .
2411 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002412 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}")}, "commit") .
2413 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$co{'id'}")}, "tree");
Kay Sieversc994d622005-08-07 20:27:18 +02002414 print "</td>\n" .
2415 "</tr>\n";
2416 }
2417 %co = git_read_commit($1);
2418 }
2419 }
2420 close $fd;
Kay Sievers19806692005-08-07 20:26:27 +02002421 }
2422 print "</table>\n";
Kay Sievers19806692005-08-07 20:26:27 +02002423 git_footer_html();
2424}
2425
2426sub git_shortlog {
Junio C Hamanodf2c37a2006-01-09 13:13:39 +01002427 my $head = git_read_head($project);
Kay Sievers19806692005-08-07 20:26:27 +02002428 if (!defined $hash) {
2429 $hash = $head;
2430 }
Kay Sieversea4a6df2005-08-07 20:26:49 +02002431 if (!defined $page) {
2432 $page = 0;
2433 }
Kay Sievers6a928412005-12-07 09:44:06 +01002434 my $refs = read_info_ref();
Kay Sievers19806692005-08-07 20:26:27 +02002435 git_header_html();
2436 print "<div class=\"page_nav\">\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002437 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") .
Kay Sievers19806692005-08-07 20:26:27 +02002438 " | shortlog" .
Kay Sievers232ff552005-11-24 16:56:55 +01002439 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") .
2440 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") .
2441 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") .
2442 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n";
Kay Sieversea4a6df2005-08-07 20:26:49 +02002443
2444 my $limit = sprintf("--max-count=%i", (100 * ($page+1)));
Kay Sievers19806692005-08-07 20:26:27 +02002445 open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed.");
2446 my (@revlist) = map { chomp; $_ } <$fd>;
2447 close $fd;
Kay Sieversea4a6df2005-08-07 20:26:49 +02002448
2449 if ($hash ne $head || $page) {
Kay Sievers232ff552005-11-24 16:56:55 +01002450 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "HEAD");
Kay Sieversea4a6df2005-08-07 20:26:49 +02002451 } else {
2452 print "HEAD";
2453 }
2454 if ($page > 0) {
Kay Sieversc994d622005-08-07 20:27:18 +02002455 print " &sdot; " .
Kay Sievers232ff552005-11-24 16:56:55 +01002456 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev");
Kay Sieversea4a6df2005-08-07 20:26:49 +02002457 } else {
2458 print " &sdot; prev";
2459 }
2460 if ($#revlist >= (100 * ($page+1)-1)) {
Kay Sieversc994d622005-08-07 20:27:18 +02002461 print " &sdot; " .
Kay Sievers232ff552005-11-24 16:56:55 +01002462 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next");
Kay Sieversea4a6df2005-08-07 20:26:49 +02002463 } else {
2464 print " &sdot; next";
2465 }
2466 print "<br/>\n" .
2467 "</div>\n";
Kay Sievers19806692005-08-07 20:26:27 +02002468 print "<div>\n" .
Kay Sievers232ff552005-11-24 16:56:55 +01002469 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, "&nbsp;") .
Kay Sievers19806692005-08-07 20:26:27 +02002470 "</div>\n";
2471 print "<table cellspacing=\"0\">\n";
Kay Sievers19806692005-08-07 20:26:27 +02002472 my $alternate = 0;
Kay Sieversea4a6df2005-08-07 20:26:49 +02002473 for (my $i = ($page * 100); $i <= $#revlist; $i++) {
2474 my $commit = $revlist[$i];
Kay Sievers4df11912005-12-07 10:51:42 +01002475 my $ref = "";
2476 if (defined $refs->{$commit}) {
Kay Sieversedde3732005-12-07 16:10:01 +01002477 $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>";
Kay Sievers4df11912005-12-07 10:51:42 +01002478 }
Kay Sievers19806692005-08-07 20:26:27 +02002479 my %co = git_read_commit($commit);
2480 my %ad = date_str($co{'author_epoch'});
2481 if ($alternate) {
Kay Sieversc994d622005-08-07 20:27:18 +02002482 print "<tr class=\"dark\">\n";
Kay Sievers19806692005-08-07 20:26:27 +02002483 } else {
Kay Sieversc994d622005-08-07 20:27:18 +02002484 print "<tr class=\"light\">\n";
Kay Sievers19806692005-08-07 20:26:27 +02002485 }
2486 $alternate ^= 1;
Kay Sievers71be1e72005-08-07 20:27:27 +02002487 print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Kay Sievers40c13812005-11-19 17:41:29 +01002488 "<td><i>" . esc_html(chop_str($co{'author_name'}, 10)) . "</i></td>\n" .
Kay Sieversc24fd7b2005-08-31 03:47:13 +02002489 "<td>";
2490 if (length($co{'title_short'}) < length($co{'title'})) {
Kay Sievers232ff552005-11-24 16:56:55 +01002491 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list", -title => "$co{'title'}"},
Kay Sievers4df11912005-12-07 10:51:42 +01002492 "<b>" . esc_html($co{'title_short'}) . "$ref</b>");
Kay Sieversc24fd7b2005-08-31 03:47:13 +02002493 } else {
Kay Sievers232ff552005-11-24 16:56:55 +01002494 print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"},
Kay Sievers4df11912005-12-07 10:51:42 +01002495 "<b>" . esc_html($co{'title_short'}) . "$ref</b>");
Kay Sievers6a928412005-12-07 09:44:06 +01002496 }
Kay Sieversc24fd7b2005-08-31 03:47:13 +02002497 print "</td>\n" .
Kay Sievers19806692005-08-07 20:26:27 +02002498 "<td class=\"link\">" .
Kay Sievers232ff552005-11-24 16:56:55 +01002499 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") .
2500 " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") .
Kay Sievers19806692005-08-07 20:26:27 +02002501 "</td>\n" .
2502 "</tr>";
2503 }
Kay Sieversc994d622005-08-07 20:27:18 +02002504 if ($#revlist >= (100 * ($page+1)-1)) {
2505 print "<tr>\n" .
2506 "<td>" .
Kay Sievers232ff552005-11-24 16:56:55 +01002507 $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page+1)), -title => "Alt-n"}, "next") .
Kay Sieversc994d622005-08-07 20:27:18 +02002508 "</td>\n" .
2509 "</tr>\n";
2510 }
Kay Sievers19806692005-08-07 20:26:27 +02002511 print "</table\n>";
2512 git_footer_html();
2513}