Blame - gitweb/gitweb.perl - jrn/git

blob: 724f06f1f0bb0f5ff565c135ad414f009ca62669 [file] [log] [blame]

Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	1	#!/usr/bin/perl
				2
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	3	# gitweb - simple web interface to track changes in git repositories
Kay Sievers	22fafb9	2005-08-07 19:56:59 +0200	[diff] [blame]	4	#
Kay Sievers	00cd079	2006-05-22 14:30:47 +0200	[diff] [blame]	5	# (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
				6	# (C) 2005, Christian Gierke
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	7	#
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	8	# This program is licensed under the GPLv2
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	9
Ævar Arnfjörð Bjarmason	d48b284	2010-09-24 20:00:52 +0000	[diff] [blame]	10	use 5.008;
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	11	use strict;
				12	use warnings;
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	13	use CGI qw(:standard :escapeHTML -nosticky);
Kay Sievers	7403d50	2005-08-07 20:23:49 +0200	[diff] [blame]	14	use CGI::Util qw(unescape);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	15	use CGI::Carp qw(fatalsToBrowser set_message);
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	16	use Encode;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	17	use Fcntl ':mode';
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	18	use File::Find qw();
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	19	use File::Basename qw(basename);
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	20	use Time::HiRes qw(gettimeofday tv_interval);
Kay Sievers	10bb903	2005-11-23 04:26:40 +0100	[diff] [blame]	21	binmode STDOUT, ':utf8';
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	22
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	23	our $t0 = [ gettimeofday() ];
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	24	our $number_of_git_cmds = 0;
				25
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	26	BEGIN {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	27	CGI->compile() if $ENV{'MOD_PERL'};
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	28	}
				29
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	30	our $version = "++GIT_VERSION++";
Kay Sievers	44ad297	2005-08-07 19:59:24 +0200	[diff] [blame]	31
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	32	our ($my_url, $my_uri, $base_url, $path_info, $home_link);
				33	sub evaluate_uri {
				34	our $cgi;
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	35
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	36	our $my_url = $cgi->url();
				37	our $my_uri = $cgi->url(-absolute => 1);
				38
				39	# Base URL for relative URLs in gitweb ($logo, $favicon, ...),
				40	# needed and used only for URLs with nonempty PATH_INFO
				41	our $base_url = $my_url;
				42
				43	# When the script is used as DirectoryIndex, the URL does not contain the name
				44	# of the script file itself, and $cgi->url() fails to strip PATH_INFO, so we
				45	# have to do it ourselves. We make $path_info global because it's also used
				46	# later on.
				47	#
				48	# Another issue with the script being the DirectoryIndex is that the resulting
				49	# $my_url data is not the full script URL: this is good, because we want
				50	# generated links to keep implying the script name if it wasn't explicitly
				51	# indicated in the URL we're handling, but it means that $my_url cannot be used
				52	# as base URL.
				53	# Therefore, if we needed to strip PATH_INFO, then we know that we have
				54	# to build the base URL ourselves:
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	55	our $path_info = decode_utf8($ENV{"PATH_INFO"});
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	56	if ($path_info) {
				57	if ($my_url =~ s,\Q$path_info\E$,, &&
				58	$my_uri =~ s,\Q$path_info\E$,, &&
				59	defined $ENV{'SCRIPT_NAME'}) {
				60	$base_url = $cgi->url(-base => 1) . $ENV{'SCRIPT_NAME'};
				61	}
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	62	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	63
				64	# target of the home link on top of all pages
				65	our $home_link = $my_uri \|\| "/";
Giuseppe Bilotta	b65910f	2008-09-29 15:07:42 +0200	[diff] [blame]	66	}
				67
Alp Toker	e130dda	2006-07-12 23:55:10 +0100	[diff] [blame]	68	# core git executable to use
				69	# this can just be "git" if your webserver has a sensible PATH
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	70	our $GIT = "++GIT_BINDIR++/git";
Jakub Narebski	3f7f2710	2006-06-21 09:48:04 +0200	[diff] [blame]	71
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	72	# absolute fs-path which will be prepended to the project path
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	73	#our $projectroot = "/pub/scm";
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	74	our $projectroot = "++GITWEB_PROJECTROOT++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	75
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	76	# fs traversing limit for getting project list
				77	# the number is relative to the projectroot
				78	our $project_maxdepth = "++GITWEB_PROJECT_MAXDEPTH++";
				79
Yasushi SHOJI	2de21fa	2006-08-15 07:50:49 +0900	[diff] [blame]	80	# string of the home link on top of all pages
				81	our $home_link_str = "++GITWEB_HOME_LINK_STR++";
				82
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	83	# name of your site or organization to appear in page titles
				84	# replace this with something more descriptive for clearer bookmarks
Petr Baudis	8be2890	2006-10-24 05:18:39 +0200	[diff] [blame]	85	our $site_name = "++GITWEB_SITENAME++"
				86	\|\| ($ENV{'SERVER_NAME'} \|\| "Untitled") . " Git";
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	87
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	88	# html snippet to include in the <head> section of each page
				89	our $site_html_head_string = "++GITWEB_SITE_HTML_HEAD_STRING++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	90	# filename of html text to include at top of each page
				91	our $site_header = "++GITWEB_SITE_HEADER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	92	# html text to include at home page
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	93	our $home_text = "++GITWEB_HOMETEXT++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	94	# filename of html text to include at bottom of each page
				95	our $site_footer = "++GITWEB_SITE_FOOTER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	96
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	97	# URI of stylesheets
				98	our @stylesheets = ("++GITWEB_CSS++");
Petr Baudis	887a612	2006-10-26 14:41:25 +0200	[diff] [blame]	99	# URI of a single stylesheet, which can be overridden in GITWEB_CONFIG.
				100	our $stylesheet = undef;
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	101	# URI of GIT logo (72x27 size)
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	102	our $logo = "++GITWEB_LOGO++";
Jakub Narebski	0b5deba	2006-09-04 20:32:13 +0200	[diff] [blame]	103	# URI of GIT favicon, assumed to be image/png type
				104	our $favicon = "++GITWEB_FAVICON++";
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	105	# URI of gitweb.js (JavaScript code for gitweb)
				106	our $javascript = "++GITWEB_JS++";
Jakub Narebski	aedd942	2006-06-17 11:23:56 +0200	[diff] [blame]	107
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	108	# URI and label (title) of GIT logo link
				109	#our $logo_url = "http://www.kernel.org/pub/software/scm/git/docs/";
				110	#our $logo_label = "git documentation";
Wincent Colaiuta	69fb828	2009-07-12 14:31:28 +0200	[diff] [blame]	111	our $logo_url = "http://git-scm.com/";
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	112	our $logo_label = "git homepage";
Junio C Hamano	51a7c66	2006-09-23 12:36:01 -0700	[diff] [blame]	113
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	114	# source of projects list
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	115	our $projects_list = "++GITWEB_LIST++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	116
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	117	# the width (in characters) of the projects list "Description" column
				118	our $projects_list_description_width = 25;
				119
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	120	# group projects by category on the projects list
				121	# (enabled if this variable evaluates to true)
				122	our $projects_list_group_categories = 0;
				123
				124	# default category if none specified
				125	# (leave the empty string for no category)
				126	our $project_list_default_category = "";
				127
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	128	# default order of projects list
				129	# valid values are none, project, descr, owner, and age
				130	our $default_projects_order = "project";
				131
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	132	# show repository only if this file exists
				133	# (only effective if this variable evaluates to true)
				134	our $export_ok = "++GITWEB_EXPORT_OK++";
				135
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	136	# show repository only if this subroutine returns true
				137	# when given the path to the project, for example:
				138	# sub { return -e "$_[0]/git-daemon-export-ok"; }
				139	our $export_auth_hook = undef;
				140
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	141	# only allow viewing of repositories also shown on the overview page
				142	our $strict_export = "++GITWEB_STRICT_EXPORT++";
				143
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	144	# list of git base URLs used for URL to where fetch project from,
				145	# i.e. full URL is "$git_base_url/$project"
Jakub Narebski	d6b7e0b	2006-10-26 12:26:44 +0200	[diff] [blame]	146	our @git_base_url_list = grep { $_ ne '' } ("++GITWEB_BASE_URL++");
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	147
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	148	# default blob_plain mimetype and default charset for text/plain blob
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	149	our $default_blob_plain_mimetype = 'text/plain';
				150	our $default_text_plain_charset = undef;
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	151
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	152	# file to use for guessing MIME types before trying /etc/mime.types
				153	# (relative to the current git repository)
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	154	our $mimetypes_file = undef;
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	155
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	156	# assume this charset if line contains non-UTF-8 characters;
				157	# it should be valid encoding (see Encoding::Supported(3pm) for list),
				158	# for which encoding all byte sequences are valid, for example
				159	# 'iso-8859-1' aka 'latin1' (it is decoded without checking, so it
				160	# could be even 'utf-8' for the old behavior)
				161	our $fallback_encoding = 'latin1';
				162
Jakub Narebski	69a9b41	2007-07-20 02:15:09 +0200	[diff] [blame]	163	# rename detection options for git-diff and git-diff-tree
				164	# - default is '-M', with the cost proportional to
				165	# (number of removed files) * (number of new files).
				166	# - more costly is '-C' (which implies '-M'), with the cost proportional to
				167	# (number of changed files + number of removed files) * (number of new files)
				168	# - even more costly is '-C', '--find-copies-harder' with cost
				169	# (number of files in the original tree) * (number of new files)
				170	# - one might want to include '-B' option, e.g. '-B', '-M'
				171	our @diff_opts = ('-M'); # taken from git_commit
				172
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	173	# Disables features that would allow repository owners to inject script into
				174	# the gitweb domain.
				175	our $prevent_xss = 0;
				176
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	177	# Path to the highlight executable to use (must be the one from
				178	# http://www.andre-simon.de due to assumptions about parameters and output).
				179	# Useful if highlight is not installed on your webserver's PATH.
				180	# [Default: highlight]
				181	our $highlight_bin = "++HIGHLIGHT_BIN++";
				182
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	183	# information about snapshot formats that gitweb is capable of serving
				184	our %known_snapshot_formats = (
				185	# name => {
				186	# 'display' => display name,
				187	# 'type' => mime type,
				188	# 'suffix' => filename suffix,
				189	# 'format' => --format for git-archive,
				190	# 'compressor' => [compressor command and arguments]
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	191	# (array reference, optional)
				192	# 'disabled' => boolean (optional)}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	193	#
				194	'tgz' => {
				195	'display' => 'tar.gz',
				196	'type' => 'application/x-gzip',
				197	'suffix' => '.tar.gz',
				198	'format' => 'tar',
Fraser Tweedale	0c8c385	2011-04-26 11:32:00 +1000	[diff] [blame]	199	'compressor' => ['gzip', '-n']},
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	200
				201	'tbz2' => {
				202	'display' => 'tar.bz2',
				203	'type' => 'application/x-bzip2',
				204	'suffix' => '.tar.bz2',
				205	'format' => 'tar',
				206	'compressor' => ['bzip2']},
				207
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	208	'txz' => {
				209	'display' => 'tar.xz',
				210	'type' => 'application/x-xz',
				211	'suffix' => '.tar.xz',
				212	'format' => 'tar',
				213	'compressor' => ['xz'],
				214	'disabled' => 1},
				215
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	216	'zip' => {
				217	'display' => 'zip',
				218	'type' => 'application/x-zip',
				219	'suffix' => '.zip',
				220	'format' => 'zip'},
				221	);
				222
				223	# Aliases so we understand old gitweb.snapshot values in repository
				224	# configuration.
				225	our %known_snapshot_format_aliases = (
				226	'gzip' => 'tgz',
				227	'bzip2' => 'tbz2',
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	228	'xz' => 'txz',
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	229
				230	# backward compatibility: legacy gitweb config support
				231	'x-gzip' => undef, 'gz' => undef,
				232	'x-bzip2' => undef, 'bz2' => undef,
				233	'x-zip' => undef, '' => undef,
				234	);
				235
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	236	# Pixel sizes for icons and avatars. If the default font sizes or lineheights
				237	# are changed, it may be appropriate to change these values too via
				238	# $GITWEB_CONFIG.
				239	our %avatar_size = (
				240	'default' => 16,
				241	'double' => 32
				242	);
				243
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	244	# Used to set the maximum load that we will still respond to gitweb queries.
				245	# If server load exceed this value then return "503 server busy" error.
				246	# If gitweb cannot determined server load, it is taken to be 0.
				247	# Leave it undefined (or set to 'undef') to turn off load checking.
				248	our $maxload = 300;
				249
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	250	# configuration for 'highlight' (http://www.andre-simon.de/)
				251	# match by basename
				252	our %highlight_basename = (
				253	#'Program' => 'py',
				254	#'Library' => 'py',
				255	'SConstruct' => 'py', # SCons equivalent of Makefile
				256	'Makefile' => 'make',
				257	);
				258	# match by extension
				259	our %highlight_ext = (
				260	# main extensions, defining name of syntax;
				261	# see files in /usr/share/highlight/langDefs/ directory
				262	map { $_ => $_ }
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	263	qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl sql make),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	264	# alternate extensions, see /etc/highlight/filetypes.conf
				265	'h' => 'c',
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	266	map { $_ => 'sh' } qw(bash zsh ksh),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	267	map { $_ => 'cpp' } qw(cxx c++ cc),
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	268	map { $_ => 'php' } qw(php3 php4 php5 phps),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	269	map { $_ => 'pl' } qw(perl pm), # perhaps also 'cgi'
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	270	map { $_ => 'make'} qw(mak mk),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	271	map { $_ => 'xml' } qw(xhtml html htm),
				272	);
				273
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	274	# You define site-wide feature defaults here; override them with
				275	# $GITWEB_CONFIG as necessary.
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	276	our %feature = (
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	277	# feature => {
				278	# 'sub' => feature-sub (subroutine),
				279	# 'override' => allow-override (boolean),
				280	# 'default' => [ default options...] (array reference)}
				281	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	282	# if feature is overridable (it means that allow-override has true value),
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	283	# then feature-sub will be called with default options as parameters;
				284	# return value of feature-sub indicates if to enable specified feature
				285	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	286	# if there is no 'sub' key (no feature-sub), then feature cannot be
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	287	# overridden
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	288	#
Giuseppe Bilotta	ff3c0ff	2008-12-02 14:57:28 -0800	[diff] [blame]	289	# use gitweb_get_feature(<feature>) to retrieve the <feature> value
				290	# (an array) or gitweb_check_feature(<feature>) to check if <feature>
				291	# is enabled
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	292
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	293	# Enable the 'blame' blob view, showing the last commit that modified
				294	# each line in the file. This can be very CPU-intensive.
				295
				296	# To enable system wide have in $GITWEB_CONFIG
				297	# $feature{'blame'}{'default'} = [1];
				298	# To have project specific config enable override in $GITWEB_CONFIG
				299	# $feature{'blame'}{'override'} = 1;
				300	# and in project config gitweb.blame = 0\|1;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	301	'blame' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	302	'sub' => sub { feature_bool('blame', @_) },
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	303	'override' => 0,
				304	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	305
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	306	# Enable the 'snapshot' link, providing a compressed archive of any
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	307	# tree. This can potentially generate high traffic if you have large
				308	# project.
				309
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	310	# Value is a list of formats defined in %known_snapshot_formats that
				311	# you wish to offer.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	312	# To disable system wide have in $GITWEB_CONFIG
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	313	# $feature{'snapshot'}{'default'} = [];
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	314	# To have project specific config enable override in $GITWEB_CONFIG
Uwe Zeisberger	bbee1d9	2006-12-08 12:44:31 +0100	[diff] [blame]	315	# $feature{'snapshot'}{'override'} = 1;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	316	# and in project config, a comma-separated list of formats or "none"
				317	# to disable. Example: gitweb.snapshot = tbz2,zip;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	318	'snapshot' => {
				319	'sub' => \&feature_snapshot,
				320	'override' => 0,
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	321	'default' => ['tgz']},
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	322
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	323	# Enable text search, which will list the commits which match author,
				324	# committer or commit text to a given string. Enabled by default.
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	325	# Project specific override is not supported.
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	326	#
				327	# Note that this controls all search features, which means that if
				328	# it is disabled, then 'grep' and 'pickaxe' search would also be
				329	# disabled.
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	330	'search' => {
				331	'override' => 0,
				332	'default' => [1]},
				333
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	334	# Enable grep search, which will list the files in currently selected
				335	# tree containing the given string. Enabled by default. This can be
				336	# potentially CPU-intensive, of course.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	337	# Note that you need to have 'search' feature enabled too.
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	338
				339	# To enable system wide have in $GITWEB_CONFIG
				340	# $feature{'grep'}{'default'} = [1];
				341	# To have project specific config enable override in $GITWEB_CONFIG
				342	# $feature{'grep'}{'override'} = 1;
				343	# and in project config gitweb.grep = 0\|1;
				344	'grep' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	345	'sub' => sub { feature_bool('grep', @_) },
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	346	'override' => 0,
				347	'default' => [1]},
				348
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	349	# Enable the pickaxe search, which will list the commits that modified
				350	# a given string in a file. This can be practical and quite faster
				351	# alternative to 'blame', but still potentially CPU-intensive.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	352	# Note that you need to have 'search' feature enabled too.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	353
				354	# To enable system wide have in $GITWEB_CONFIG
				355	# $feature{'pickaxe'}{'default'} = [1];
				356	# To have project specific config enable override in $GITWEB_CONFIG
				357	# $feature{'pickaxe'}{'override'} = 1;
				358	# and in project config gitweb.pickaxe = 0\|1;
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	359	'pickaxe' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	360	'sub' => sub { feature_bool('pickaxe', @_) },
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	361	'override' => 0,
				362	'default' => [1]},
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	363
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	364	# Enable showing size of blobs in a 'tree' view, in a separate
				365	# column, similar to what 'ls -l' does. This cost a bit of IO.
				366
				367	# To disable system wide have in $GITWEB_CONFIG
				368	# $feature{'show-sizes'}{'default'} = [0];
				369	# To have project specific config enable override in $GITWEB_CONFIG
				370	# $feature{'show-sizes'}{'override'} = 1;
				371	# and in project config gitweb.showsizes = 0\|1;
				372	'show-sizes' => {
				373	'sub' => sub { feature_bool('showsizes', @_) },
				374	'override' => 0,
				375	'default' => [1]},
				376
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	377	# Make gitweb use an alternative format of the URLs which can be
				378	# more readable and natural-looking: project name is embedded
				379	# directly in the path and the query string contains other
				380	# auxiliary information. All gitweb installations recognize
				381	# URL in either format; this configures in which formats gitweb
				382	# generates links.
				383
				384	# To enable system wide have in $GITWEB_CONFIG
				385	# $feature{'pathinfo'}{'default'} = [1];
				386	# Project specific override is not supported.
				387
				388	# Note that you will need to change the default location of CSS,
				389	# favicon, logo and possibly other files to an absolute URL. Also,
				390	# if gitweb.cgi serves as your indexfile, you will need to force
				391	# $my_uri to contain the script name in your $GITWEB_CONFIG.
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	392	'pathinfo' => {
				393	'override' => 0,
				394	'default' => [0]},
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	395
				396	# Make gitweb consider projects in project root subdirectories
				397	# to be forks of existing projects. Given project $projname.git,
				398	# projects matching $projname/*.git will not be shown in the main
				399	# projects list, instead a '+' mark will be added to $projname
				400	# there and a 'forks' view will be enabled for the project, listing
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	401	# all the forks. If project list is taken from a file, forks have
				402	# to be listed after the main project.
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	403
				404	# To enable system wide have in $GITWEB_CONFIG
				405	# $feature{'forks'}{'default'} = [1];
				406	# Project specific override is not supported.
				407	'forks' => {
				408	'override' => 0,
				409	'default' => [0]},
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	410
				411	# Insert custom links to the action bar of all project pages.
				412	# This enables you mainly to link to third-party scripts integrating
				413	# into gitweb; e.g. git-browser for graphical history representation
				414	# or custom web-based repository administration interface.
				415
				416	# The 'default' value consists of a list of triplets in the form
				417	# (label, link, position) where position is the label after which
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	418	# to insert the link and link is a format string where %n expands
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	419	# to the project name, %f to the project path within the filesystem,
				420	# %h to the current hash (h gitweb parameter) and %b to the current
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	421	# hash base (hb gitweb parameter); %% expands to %.
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	422
				423	# To enable system wide have in $GITWEB_CONFIG e.g.
				424	# $feature{'actions'}{'default'} = [('graphiclog',
				425	# '/git-browser/by-commit.html?r=%n', 'summary')];
				426	# Project specific override is not supported.
				427	'actions' => {
				428	'override' => 0,
				429	'default' => []},
Shawn O. Pearce	3e3d4ee	2008-10-03 07:41:25 -0700	[diff] [blame]	430
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	431	# Allow gitweb scan project content tags of project repository,
				432	# and display the popular Web 2.0-ish "tag cloud" near the projects
				433	# list. Note that this is something COMPLETELY different from the
				434	# normal Git tags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	435
				436	# gitweb by itself can show existing tags, but it does not handle
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	437	# tagging itself; you need to do it externally, outside gitweb.
				438	# The format is described in git_get_project_ctags() subroutine.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	439	# You may want to install the HTML::TagCloud Perl module to get
				440	# a pretty tag cloud instead of just a list of tags.
				441
				442	# To enable system wide have in $GITWEB_CONFIG
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	443	# $feature{'ctags'}{'default'} = [1];
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	444	# Project specific override is not supported.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	445
				446	# In the future whether ctags editing is enabled might depend
				447	# on the value, but using 1 should always mean no editing of ctags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	448	'ctags' => {
				449	'override' => 0,
				450	'default' => [0]},
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	451
				452	# The maximum number of patches in a patchset generated in patch
				453	# view. Set this to 0 or undef to disable patch view, or to a
				454	# negative number to remove any limit.
				455
				456	# To disable system wide have in $GITWEB_CONFIG
				457	# $feature{'patches'}{'default'} = [0];
				458	# To have project specific config enable override in $GITWEB_CONFIG
				459	# $feature{'patches'}{'override'} = 1;
				460	# and in project config gitweb.patches = 0\|n;
				461	# where n is the maximum number of patches allowed in a patchset.
				462	'patches' => {
				463	'sub' => \&feature_patches,
				464	'override' => 0,
				465	'default' => [16]},
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	466
				467	# Avatar support. When this feature is enabled, views such as
				468	# shortlog or commit will display an avatar associated with
				469	# the email of the committer(s) and/or author(s).
				470
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	471	# Currently available providers are gravatar and picon.
				472	# If an unknown provider is specified, the feature is disabled.
				473
				474	# Gravatar depends on Digest::MD5.
				475	# Picon currently relies on the indiana.edu database.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	476
				477	# To enable system wide have in $GITWEB_CONFIG
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	478	# $feature{'avatar'}{'default'} = ['<provider>'];
				479	# where <provider> is either gravatar or picon.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	480	# To have project specific config enable override in $GITWEB_CONFIG
				481	# $feature{'avatar'}{'override'} = 1;
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	482	# and in project config gitweb.avatar = <provider>;
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	483	'avatar' => {
				484	'sub' => \&feature_avatar,
				485	'override' => 0,
				486	'default' => ['']},
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	487
				488	# Enable displaying how much time and how many git commands
				489	# it took to generate and display page. Disabled by default.
				490	# Project specific override is not supported.
				491	'timed' => {
				492	'override' => 0,
				493	'default' => [0]},
Jakub Narebski	e627e50	2009-11-26 21:12:15 +0100	[diff] [blame]	494
				495	# Enable turning some links into links to actions which require
				496	# JavaScript to run (like 'blame_incremental'). Not enabled by
				497	# default. Project specific override is currently not supported.
				498	'javascript-actions' => {
				499	'override' => 0,
				500	'default' => [0]},
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	501
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	502	# Enable and configure ability to change common timezone for dates
				503	# in gitweb output via JavaScript. Enabled by default.
				504	# Project specific override is not supported.
				505	'javascript-timezone' => {
				506	'override' => 0,
				507	'default' => [
				508	'local', # default timezone: 'utc', 'local', or '(-\|+)HHMM' format,
				509	# or undef to turn off this feature
				510	'gitweb_tz', # name of cookie where to store selected timezone
				511	'datetime', # CSS class used to mark up dates for manipulation
				512	]},
				513
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	514	# Syntax highlighting support. This is based on Daniel Svensson's
				515	# and Sham Chukoury's work in gitweb-xmms2.git.
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	516	# It requires the 'highlight' program present in $PATH,
				517	# and therefore is disabled by default.
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	518
				519	# To enable system wide have in $GITWEB_CONFIG
				520	# $feature{'highlight'}{'default'} = [1];
				521
				522	'highlight' => {
				523	'sub' => sub { feature_bool('highlight', @_) },
				524	'override' => 0,
				525	'default' => [0]},
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	526
				527	# Enable displaying of remote heads in the heads list
				528
				529	# To enable system wide have in $GITWEB_CONFIG
				530	# $feature{'remote_heads'}{'default'} = [1];
				531	# To have project specific config enable override in $GITWEB_CONFIG
				532	# $feature{'remote_heads'}{'override'} = 1;
				533	# and in project config gitweb.remote_heads = 0\|1;
				534	'remote_heads' => {
				535	'sub' => sub { feature_bool('remote_heads', @_) },
				536	'override' => 0,
				537	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	538	);
				539
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	540	sub gitweb_get_feature {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	541	my ($name) = @_;
Jakub Narebski	dd1ad5f	2006-09-26 01:56:17 +0200	[diff] [blame]	542	return unless exists $feature{$name};
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	543	my ($sub, $override, @defaults) = (
				544	$feature{$name}{'sub'},
				545	$feature{$name}{'override'},
				546	@{$feature{$name}{'default'}});
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	547	# project specific override is possible only if we have project
				548	our $git_dir; # global variable, declared later
				549	if (!$override \|\| !defined $git_dir) {
				550	return @defaults;
				551	}
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	552	if (!defined $sub) {
Nanako Shiraishi	9319789	2009-08-28 12:18:49 +0900	[diff] [blame]	553	warn "feature $name is not overridable";
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	554	return @defaults;
				555	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	556	return $sub->(@defaults);
				557	}
				558
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	559	# A wrapper to check if a given feature is enabled.
				560	# With this, you can say
				561	#
				562	# my $bool_feat = gitweb_check_feature('bool_feat');
				563	# gitweb_check_feature('bool_feat') or somecode;
				564	#
				565	# instead of
				566	#
				567	# my ($bool_feat) = gitweb_get_feature('bool_feat');
				568	# (gitweb_get_feature('bool_feat'))[0] or somecode;
				569	#
				570	sub gitweb_check_feature {
				571	return (gitweb_get_feature(@_))[0];
				572	}
				573
				574
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	575	sub feature_bool {
				576	my $key = shift;
				577	my ($val) = git_get_project_config($key, '--bool');
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	578
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	579	if (!defined $val) {
				580	return ($_[0]);
				581	} elsif ($val eq 'true') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	582	return (1);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	583	} elsif ($val eq 'false') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	584	return (0);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	585	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	586	}
				587
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	588	sub feature_snapshot {
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	589	my (@fmts) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	590
				591	my ($val) = git_get_project_config('snapshot');
				592
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	593	if ($val) {
				594	@fmts = ($val eq 'none' ? () : split /\s[,\s]\s/, $val);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	595	}
				596
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	597	return @fmts;
Luben Tuikov	de9272f	2006-09-28 16:49:21 -0700	[diff] [blame]	598	}
				599
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	600	sub feature_patches {
				601	my @val = (git_get_project_config('patches', '--int'));
				602
				603	if (@val) {
				604	return @val;
				605	}
				606
				607	return ($_[0]);
				608	}
				609
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	610	sub feature_avatar {
				611	my @val = (git_get_project_config('avatar'));
				612
				613	return @val ? @val : @_;
				614	}
				615
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	616	# checking HEAD file with -e is fragile if the repository was
				617	# initialized long time ago (i.e. symlink HEAD) and was pack-ref'ed
				618	# and then pruned.
				619	sub check_head_link {
				620	my ($dir) = @_;
				621	my $headfile = "$dir/HEAD";
				622	return ((-e $headfile) \|\|
				623	(-l $headfile && readlink($headfile) =~ /^refs\/heads\//));
				624	}
				625
				626	sub check_export_ok {
				627	my ($dir) = @_;
				628	return (check_head_link($dir) &&
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	629	(!$export_ok \|\| -e "$dir/$export_ok") &&
				630	(!$export_auth_hook \|\| $export_auth_hook->($dir)));
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	631	}
				632
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	633	# process alternate names for backward compatibility
				634	# filter out unsupported (unknown) snapshot formats
				635	sub filter_snapshot_fmts {
				636	my @fmts = @_;
				637
				638	@fmts = map {
				639	exists $known_snapshot_format_aliases{$_} ?
				640	$known_snapshot_format_aliases{$_} : $_} @fmts;
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	641	@fmts = grep {
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	642	exists $known_snapshot_formats{$_} &&
				643	!$known_snapshot_formats{$_}{'disabled'}} @fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	644	}
				645
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	646	# If it is set to code reference, it is code that it is to be run once per
				647	# request, allowing updating configurations that change with each request,
				648	# while running other code in config file only once.
				649	#
				650	# Otherwise, if it is false then gitweb would process config file only once;
				651	# if it is true then gitweb config would be run for each request.
				652	our $per_request_config = 1;
				653
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	654	# read and parse gitweb config file given by its parameter.
				655	# returns true on success, false on recoverable error, allowing
				656	# to chain this subroutine, using first file that exists.
				657	# dies on errors during parsing config file, as it is unrecoverable.
				658	sub read_config_file {
				659	my $filename = shift;
				660	return unless defined $filename;
				661	# die if there are errors parsing config file
				662	if (-e $filename) {
				663	do $filename;
				664	die $@ if $@;
				665	return 1;
				666	}
				667	return;
				668	}
				669
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	670	our ($GITWEB_CONFIG, $GITWEB_CONFIG_SYSTEM, $GITWEB_CONFIG_COMMON);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	671	sub evaluate_gitweb_config {
				672	our $GITWEB_CONFIG = $ENV{'GITWEB_CONFIG'} \|\| "++GITWEB_CONFIG++";
				673	our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} \|\| "++GITWEB_CONFIG_SYSTEM++";
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	674	our $GITWEB_CONFIG_COMMON = $ENV{'GITWEB_CONFIG_COMMON'} \|\| "++GITWEB_CONFIG_COMMON++";
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	675
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	676	# Protect agains duplications of file names, to not read config twice.
				677	# Only one of $GITWEB_CONFIG and $GITWEB_CONFIG_SYSTEM is used, so
				678	# there possibility of duplication of filename there doesn't matter.
				679	$GITWEB_CONFIG = "" if ($GITWEB_CONFIG eq $GITWEB_CONFIG_COMMON);
				680	$GITWEB_CONFIG_SYSTEM = "" if ($GITWEB_CONFIG_SYSTEM eq $GITWEB_CONFIG_COMMON);
				681
				682	# Common system-wide settings for convenience.
				683	# Those settings can be ovverriden by GITWEB_CONFIG or GITWEB_CONFIG_SYSTEM.
				684	read_config_file($GITWEB_CONFIG_COMMON);
				685
				686	# Use first config file that exists. This means use the per-instance
				687	# GITWEB_CONFIG if exists, otherwise use GITWEB_SYSTEM_CONFIG.
				688	read_config_file($GITWEB_CONFIG) and return;
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	689	read_config_file($GITWEB_CONFIG_SYSTEM);
Gerrit Pape	17a8b25	2008-03-26 18:11:19 +0000	[diff] [blame]	690	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	691
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	692	# Get loadavg of system, to compare against $maxload.
				693	# Currently it requires '/proc/loadavg' present to get loadavg;
				694	# if it is not present it returns 0, which means no load checking.
				695	sub get_loadavg {
				696	if( -e '/proc/loadavg' ){
				697	open my $fd, '<', '/proc/loadavg'
				698	or return 0;
				699	my @load = split(/\s+/, scalar <$fd>);
				700	close $fd;
				701
				702	# The first three columns measure CPU and IO utilization of the last one,
				703	# five, and 10 minute periods. The fourth column shows the number of
				704	# currently running processes and the total number of processes in the m/n
				705	# format. The last column displays the last process ID used.
				706	return $load[0] \|\| 0;
				707	}
				708	# additional checks for load average should go here for things that don't export
				709	# /proc/loadavg
				710
				711	return 0;
				712	}
				713
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	714	# version of the core git binary
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	715	our $git_version;
				716	sub evaluate_git_version {
				717	our $git_version = qx("$GIT" --version) =~ m/git version (.*)$/ ? $1 : "unknown";
				718	$number_of_git_cmds++;
				719	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	720
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	721	sub check_loadavg {
				722	if (defined $maxload && get_loadavg() > $maxload) {
				723	die_error(503, "The load average on the server is too high");
				724	}
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	725	}
				726
Jakub Narebski	154b4d7	2006-08-05 12:55:20 +0200	[diff] [blame]	727	# ======================================================================
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	728	# input validation and dispatch
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	729
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	730	# input parameters can be collected from a variety of sources (presently, CGI
				731	# and PATH_INFO), so we define an %input_params hash that collects them all
				732	# together during validation: this allows subsequent uses (e.g. href()) to be
				733	# agnostic of the parameter origin
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	734
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	735	our %input_params = ();
Martin Waitz	5c95fab	2006-08-17 00:28:38 +0200	[diff] [blame]	736
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	737	# input parameters are stored with the long parameter name as key. This will
				738	# also be used in the href subroutine to convert parameters to their CGI
				739	# equivalent, and since the href() usage is the most frequent one, we store
				740	# the name -> CGI key mapping here, instead of the reverse.
				741	#
				742	# XXX: Warning: If you touch this, check the search form for updating,
				743	# too.
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	744
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	745	our @cgi_param_mapping = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	746	project => "p",
				747	action => "a",
				748	file_name => "f",
				749	file_parent => "fp",
				750	hash => "h",
				751	hash_parent => "hp",
				752	hash_base => "hb",
				753	hash_parent_base => "hpb",
				754	page => "pg",
				755	order => "o",
				756	searchtext => "s",
				757	searchtype => "st",
				758	snapshot_format => "sf",
				759	extra_options => "opt",
				760	search_use_regexp => "sr",
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	761	ctag => "by_tag",
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	762	diff_style => "ds",
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	763	project_filter => "pf",
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	764	# this must be last entry (for manipulation from JavaScript)
				765	javascript => "js"
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	766	);
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	767	our %cgi_param_mapping = @cgi_param_mapping;
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	768
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	769	# we will also need to know the possible actions, for validation
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	770	our %actions = (
Rafael Garcia-Suarez	3a5b919	2008-06-06 09:53:32 +0200	[diff] [blame]	771	"blame" => \&git_blame,
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	772	"blame_incremental" => \&git_blame_incremental,
				773	"blame_data" => \&git_blame_data,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	774	"blobdiff" => \&git_blobdiff,
				775	"blobdiff_plain" => \&git_blobdiff_plain,
				776	"blob" => \&git_blob,
				777	"blob_plain" => \&git_blob_plain,
				778	"commitdiff" => \&git_commitdiff,
				779	"commitdiff_plain" => \&git_commitdiff_plain,
				780	"commit" => \&git_commit,
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	781	"forks" => \&git_forks,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	782	"heads" => \&git_heads,
				783	"history" => \&git_history,
				784	"log" => \&git_log,
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	785	"patch" => \&git_patch,
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	786	"patches" => \&git_patches,
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	787	"remotes" => \&git_remotes,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	788	"rss" => \&git_rss,
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	789	"atom" => \&git_atom,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	790	"search" => \&git_search,
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	791	"search_help" => \&git_search_help,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	792	"shortlog" => \&git_shortlog,
				793	"summary" => \&git_summary,
				794	"tag" => \&git_tag,
				795	"tags" => \&git_tags,
				796	"tree" => \&git_tree,
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	797	"snapshot" => \&git_snapshot,
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	798	"object" => \&git_object,
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	799	# those below don't need $project
				800	"opml" => \&git_opml,
				801	"project_list" => \&git_project_list,
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	802	"project_index" => \&git_project_index,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	803	);
				804
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	805	# finally, we have the hash of allowed extra_options for the commands that
				806	# allow them
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	807	our %allowed_options = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	808	"--no-merges" => [ qw(rss atom log shortlog history) ],
				809	);
				810
				811	# fill %input_params with the CGI parameters. All values except for 'opt'
				812	# should be single values, but opt can be an array. We should probably
				813	# build an array of parameters that can be multi-valued, but since for the time
				814	# being it's only this one, we just single it out
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	815	sub evaluate_query_params {
				816	our $cgi;
				817
				818	while (my ($name, $symbol) = each %cgi_param_mapping) {
				819	if ($symbol eq 'opt') {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	820	$input_params{$name} = [ map { decode_utf8($_) } $cgi->param($symbol) ];
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	821	} else {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	822	$input_params{$name} = decode_utf8($cgi->param($symbol));
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	823	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	824	}
				825	}
				826
				827	# now read PATH_INFO and update the parameter list for missing parameters
				828	sub evaluate_path_info {
				829	return if defined $input_params{'project'};
				830	return if !$path_info;
				831	$path_info =~ s,^/+,,;
				832	return if !$path_info;
				833
				834	# find which part of PATH_INFO is project
				835	my $project = $path_info;
				836	$project =~ s,/+$,,;
				837	while ($project && !check_head_link("$projectroot/$project")) {
				838	$project =~ s,/[^/]$,,;
				839	}
				840	return unless $project;
				841	$input_params{'project'} = $project;
				842
				843	# do not change any parameters if an action is given using the query string
				844	return if $input_params{'action'};
				845	$path_info =~ s,^\Q$project\E/*,,;
				846
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	847	# next, check if we have an action
				848	my $action = $path_info;
				849	$action =~ s,/.*$,,;
				850	if (exists $actions{$action}) {
				851	$path_info =~ s,^$action/*,,;
				852	$input_params{'action'} = $action;
				853	}
				854
				855	# list of actions that want hash_base instead of hash, but can have no
				856	# pathname (f) parameter
				857	my @wants_base = (
				858	'tree',
				859	'history',
				860	);
				861
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	862	# we want to catch, among others
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	863	# [$hash_parent_base[:$file_parent]..]$hash_parent[:$file_name]
				864	my ($parentrefname, $parentpathname, $refname, $pathname) =
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	865	($path_info =~ /^(?:(.+?)(?::(.+))?\.\.)?([^:]+?)?(?::(.+))?$/);
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	866
				867	# first, analyze the 'current' part
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	868	if (defined $pathname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	869	# we got "branch:filename" or "branch:dir/"
				870	# we could use git_get_type(branch:pathname), but:
				871	# - it needs $git_dir
				872	# - it does a git() call
				873	# - the convention of terminating directories with a slash
				874	# makes it superfluous
				875	# - embedding the action in the PATH_INFO would make it even
				876	# more superfluous
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	877	$pathname =~ s,^/+,,;
				878	if (!$pathname \|\| substr($pathname, -1) eq "/") {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	879	$input_params{'action'} \|\|= "tree";
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	880	$pathname =~ s,/$,,;
				881	} else {
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	882	# the default action depends on whether we had parent info
				883	# or not
				884	if ($parentrefname) {
				885	$input_params{'action'} \|\|= "blobdiff_plain";
				886	} else {
				887	$input_params{'action'} \|\|= "blob_plain";
				888	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	889	}
				890	$input_params{'hash_base'} \|\|= $refname;
				891	$input_params{'file_name'} \|\|= $pathname;
				892	} elsif (defined $refname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	893	# we got "branch". In this case we have to choose if we have to
				894	# set hash or hash_base.
				895	#
				896	# Most of the actions without a pathname only want hash to be
				897	# set, except for the ones specified in @wants_base that want
				898	# hash_base instead. It should also be noted that hand-crafted
				899	# links having 'history' as an action and no pathname or hash
				900	# set will fail, but that happens regardless of PATH_INFO.
Jakub Narebski	d0af373	2010-10-13 13:35:20 +0200	[diff] [blame]	901	if (defined $parentrefname) {
				902	# if there is parent let the default be 'shortlog' action
				903	# (for http://git.example.com/repo.git/A..B links); if there
				904	# is no parent, dispatch will detect type of object and set
				905	# action appropriately if required (if action is not set)
				906	$input_params{'action'} \|\|= "shortlog";
				907	}
				908	if ($input_params{'action'} &&
				909	grep { $_ eq $input_params{'action'} } @wants_base) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	910	$input_params{'hash_base'} \|\|= $refname;
				911	} else {
				912	$input_params{'hash'} \|\|= $refname;
				913	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	914	}
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	915
				916	# next, handle the 'parent' part, if present
				917	if (defined $parentrefname) {
				918	# a missing pathspec defaults to the 'current' filename, allowing e.g.
				919	# someproject/blobdiff/oldrev..newrev:/filename
				920	if ($parentpathname) {
				921	$parentpathname =~ s,^/+,,;
				922	$parentpathname =~ s,/$,,;
				923	$input_params{'file_parent'} \|\|= $parentpathname;
				924	} else {
				925	$input_params{'file_parent'} \|\|= $input_params{'file_name'};
				926	}
				927	# we assume that hash_parent_base is wanted if a path was specified,
				928	# or if the action wants hash_base instead of hash
				929	if (defined $input_params{'file_parent'} \|\|
				930	grep { $_ eq $input_params{'action'} } @wants_base) {
				931	$input_params{'hash_parent_base'} \|\|= $parentrefname;
				932	} else {
				933	$input_params{'hash_parent'} \|\|= $parentrefname;
				934	}
				935	}
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	936
				937	# for the snapshot action, we allow URLs in the form
				938	# $project/snapshot/$hash.ext
				939	# where .ext determines the snapshot and gets removed from the
				940	# passed $refname to provide the $hash.
				941	#
				942	# To be able to tell that $refname includes the format extension, we
				943	# require the following two conditions to be satisfied:
				944	# - the hash input parameter MUST have been set from the $refname part
				945	# of the URL (i.e. they must be equal)
				946	# - the snapshot format MUST NOT have been defined already (e.g. from
				947	# CGI parameter sf)
				948	# It's also useless to try any matching unless $refname has a dot,
				949	# so we check for that too
				950	if (defined $input_params{'action'} &&
				951	$input_params{'action'} eq 'snapshot' &&
				952	defined $refname && index($refname, '.') != -1 &&
				953	$refname eq $input_params{'hash'} &&
				954	!defined $input_params{'snapshot_format'}) {
				955	# We loop over the known snapshot formats, checking for
				956	# extensions. Allowed extensions are both the defined suffix
				957	# (which includes the initial dot already) and the snapshot
				958	# format key itself, with a prepended dot
Holger Weiß	ccb4b53	2009-03-31 18:16:36 +0200	[diff] [blame]	959	while (my ($fmt, $opt) = each %known_snapshot_formats) {
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	960	my $hash = $refname;
Jakub Narebski	095e914	2009-05-11 19:42:47 +0200	[diff] [blame]	961	unless ($hash =~ s/(\Q$opt->{'suffix'}\E\|\Q.$fmt\E)$//) {
				962	next;
				963	}
				964	my $sfx = $1;
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	965	# a valid suffix was found, so set the snapshot format
				966	# and reset the hash parameter
				967	$input_params{'snapshot_format'} = $fmt;
				968	$input_params{'hash'} = $hash;
				969	# we also set the format suffix to the one requested
				970	# in the URL: this way a request for e.g. .tgz returns
				971	# a .tgz instead of a .tar.gz
				972	$known_snapshot_formats{$fmt}{'suffix'} = $sfx;
				973	last;
				974	}
				975	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	976	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	977
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	978	our ($action, $project, $file_name, $file_parent, $hash, $hash_parent, $hash_base,
				979	$hash_parent_base, @extra_options, $page, $searchtype, $search_use_regexp,
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	980	$searchtext, $search_regexp, $project_filter);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	981	sub evaluate_and_validate_params {
				982	our $action = $input_params{'action'};
				983	if (defined $action) {
				984	if (!validate_action($action)) {
				985	die_error(400, "Invalid action parameter");
				986	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	987	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	988
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	989	# parameters which are pathnames
				990	our $project = $input_params{'project'};
				991	if (defined $project) {
				992	if (!validate_project($project)) {
				993	undef $project;
				994	die_error(404, "No such project");
				995	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	996	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	997
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	998	our $project_filter = $input_params{'project_filter'};
				999	if (defined $project_filter) {
				1000	if (!validate_pathname($project_filter)) {
				1001	die_error(404, "Invalid project_filter parameter");
				1002	}
				1003	}
				1004
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1005	our $file_name = $input_params{'file_name'};
				1006	if (defined $file_name) {
				1007	if (!validate_pathname($file_name)) {
				1008	die_error(400, "Invalid file parameter");
				1009	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1010	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1011
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1012	our $file_parent = $input_params{'file_parent'};
				1013	if (defined $file_parent) {
				1014	if (!validate_pathname($file_parent)) {
				1015	die_error(400, "Invalid file parent parameter");
				1016	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1017	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1018
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1019	# parameters which are refnames
				1020	our $hash = $input_params{'hash'};
				1021	if (defined $hash) {
				1022	if (!validate_refname($hash)) {
				1023	die_error(400, "Invalid hash parameter");
				1024	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1025	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1026
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1027	our $hash_parent = $input_params{'hash_parent'};
				1028	if (defined $hash_parent) {
				1029	if (!validate_refname($hash_parent)) {
				1030	die_error(400, "Invalid hash parent parameter");
				1031	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1032	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1033
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1034	our $hash_base = $input_params{'hash_base'};
				1035	if (defined $hash_base) {
				1036	if (!validate_refname($hash_base)) {
				1037	die_error(400, "Invalid hash base parameter");
				1038	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1039	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1040
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1041	our @extra_options = @{$input_params{'extra_options'}};
				1042	# @extra_options is always defined, since it can only be (currently) set from
				1043	# CGI, and $cgi->param() returns the empty array in array context if the param
				1044	# is not set
				1045	foreach my $opt (@extra_options) {
				1046	if (not exists $allowed_options{$opt}) {
				1047	die_error(400, "Invalid option parameter");
				1048	}
				1049	if (not grep(/^$action$/, @{$allowed_options{$opt}})) {
				1050	die_error(400, "Invalid option parameter for this action");
				1051	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1052	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1053
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1054	our $hash_parent_base = $input_params{'hash_parent_base'};
				1055	if (defined $hash_parent_base) {
				1056	if (!validate_refname($hash_parent_base)) {
				1057	die_error(400, "Invalid hash parent base parameter");
				1058	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1059	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1060
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1061	# other parameters
				1062	our $page = $input_params{'page'};
				1063	if (defined $page) {
				1064	if ($page =~ m/[^0-9]/) {
				1065	die_error(400, "Invalid page parameter");
				1066	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1067	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1068
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1069	our $searchtype = $input_params{'searchtype'};
				1070	if (defined $searchtype) {
				1071	if ($searchtype =~ m/[^a-z]/) {
				1072	die_error(400, "Invalid searchtype parameter");
				1073	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1074	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1075
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1076	our $search_use_regexp = $input_params{'search_use_regexp'};
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1077
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1078	our $searchtext = $input_params{'searchtext'};
				1079	our $search_regexp;
				1080	if (defined $searchtext) {
				1081	if (length($searchtext) < 2) {
				1082	die_error(403, "At least two characters are required for search parameter");
				1083	}
				1084	$search_regexp = $search_use_regexp ? $searchtext : quotemeta $searchtext;
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1085	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1086	}
				1087
				1088	# path to the current git repository
				1089	our $git_dir;
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1090	sub evaluate_git_dir {
				1091	our $git_dir = "$projectroot/$project" if $project;
				1092	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1093
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1094	our (@snapshot_fmts, $git_avatar);
				1095	sub configure_gitweb_features {
				1096	# list of supported snapshot formats
				1097	our @snapshot_fmts = gitweb_get_feature('snapshot');
				1098	@snapshot_fmts = filter_snapshot_fmts(@snapshot_fmts);
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	1099
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1100	# check that the avatar feature is set to a known provider name,
				1101	# and for each provider check if the dependencies are satisfied.
				1102	# if the provider name is invalid or the dependencies are not met,
				1103	# reset $git_avatar to the empty string.
				1104	our ($git_avatar) = gitweb_get_feature('avatar');
				1105	if ($git_avatar eq 'gravatar') {
				1106	$git_avatar = '' unless (eval { require Digest::MD5; 1; });
				1107	} elsif ($git_avatar eq 'picon') {
				1108	# no dependencies
				1109	} else {
				1110	$git_avatar = '';
				1111	}
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1112	}
				1113
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	1114	# custom error handler: 'die <message>' is Internal Server Error
				1115	sub handle_errors_html {
				1116	my $msg = shift; # it is already HTML escaped
				1117
				1118	# to avoid infinite loop where error occurs in die_error,
				1119	# change handler to default handler, disabling handle_errors_html
				1120	set_message("Error occured when inside die_error:\n$msg");
				1121
				1122	# you cannot jump out of die_error when called as error handler;
				1123	# the subroutine set via CGI::Carp::set_message is called _after_
				1124	# HTTP headers are already written, so it cannot write them itself
				1125	die_error(undef, undef, $msg, -error_handler => 1, -no_http_header => 1);
				1126	}
				1127	set_message(\&handle_errors_html);
				1128
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1129	# dispatch
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1130	sub dispatch {
				1131	if (!defined $action) {
				1132	if (defined $hash) {
				1133	$action = git_get_type($hash);
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1134	$action or die_error(404, "Object does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1135	} elsif (defined $hash_base && defined $file_name) {
				1136	$action = git_get_type("$hash_base:$file_name");
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1137	$action or die_error(404, "File or directory does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1138	} elsif (defined $project) {
				1139	$action = 'summary';
				1140	} else {
				1141	$action = 'project_list';
				1142	}
Gerrit Pape	7f9778b	2007-05-10 07:32:07 +0000	[diff] [blame]	1143	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1144	if (!defined($actions{$action})) {
				1145	die_error(400, "Unknown action");
				1146	}
				1147	if ($action !~ m/^(?:opml\|project_list\|project_index)$/ &&
				1148	!$project) {
				1149	die_error(400, "Project needed");
				1150	}
				1151	$actions{$action}->();
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	1152	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1153
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1154	sub reset_timer {
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	1155	our $t0 = [ gettimeofday() ]
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1156	if defined $t0;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1157	our $number_of_git_cmds = 0;
				1158	}
				1159
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1160	our $first_request = 1;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1161	sub run_request {
				1162	reset_timer();
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1163
				1164	evaluate_uri();
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1165	if ($first_request) {
				1166	evaluate_gitweb_config();
				1167	evaluate_git_version();
				1168	}
				1169	if ($per_request_config) {
				1170	if (ref($per_request_config) eq 'CODE') {
				1171	$per_request_config->();
				1172	} elsif (!$first_request) {
				1173	evaluate_gitweb_config();
				1174	}
				1175	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1176	check_loadavg();
				1177
Jonathan Nieder	7f425db	2010-07-30 22:01:59 -0500	[diff] [blame]	1178	# $projectroot and $projects_list might be set in gitweb config file
				1179	$projects_list \|\|= $projectroot;
				1180
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1181	evaluate_query_params();
				1182	evaluate_path_info();
				1183	evaluate_and_validate_params();
				1184	evaluate_git_dir();
				1185
				1186	configure_gitweb_features();
				1187
				1188	dispatch();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1189	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1190
				1191	our $is_last_request = sub { 1 };
				1192	our ($pre_dispatch_hook, $post_dispatch_hook, $pre_listen_hook);
				1193	our $CGI = 'CGI';
				1194	our $cgi;
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1195	sub configure_as_fcgi {
				1196	require CGI::Fast;
				1197	our $CGI = 'CGI::Fast';
				1198
				1199	my $request_number = 0;
				1200	# let each child service 100 requests
				1201	our $is_last_request = sub { ++$request_number > 100 };
Jakub Narebski	d04d3d4	2006-09-19 21:53:22 +0200	[diff] [blame]	1202	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1203	sub evaluate_argv {
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1204	my $script_name = $ENV{'SCRIPT_NAME'} \|\| $ENV{'SCRIPT_FILENAME'} \|\| __FILE__;
				1205	configure_as_fcgi()
				1206	if $script_name =~ /\.fcgi$/;
				1207
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1208	return unless (@ARGV);
				1209
				1210	require Getopt::Long;
				1211	Getopt::Long::GetOptions(
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1212	'fastcgi\|fcgi\|f' => \&configure_as_fcgi,
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1213	'nproc\|n=i' => sub {
				1214	my ($arg, $val) = @_;
				1215	return unless eval { require FCGI::ProcManager; 1; };
				1216	my $proc_manager = FCGI::ProcManager->new({
				1217	n_processes => $val,
				1218	});
				1219	our $pre_listen_hook = sub { $proc_manager->pm_manage() };
				1220	our $pre_dispatch_hook = sub { $proc_manager->pm_pre_dispatch() };
				1221	our $post_dispatch_hook = sub { $proc_manager->pm_post_dispatch() };
				1222	},
				1223	);
				1224	}
				1225
				1226	sub run {
				1227	evaluate_argv();
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1228
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1229	$first_request = 1;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1230	$pre_listen_hook->()
				1231	if $pre_listen_hook;
				1232
				1233	REQUEST:
				1234	while ($cgi = $CGI->new()) {
				1235	$pre_dispatch_hook->()
				1236	if $pre_dispatch_hook;
				1237
				1238	run_request();
				1239
Jakub Narebski	0b45010	2010-08-02 22:21:47 +0200	[diff] [blame]	1240	$post_dispatch_hook->()
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1241	if $post_dispatch_hook;
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1242	$first_request = 0;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1243
				1244	last REQUEST if ($is_last_request->());
				1245	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1246
				1247	DONE_GITWEB:
				1248	1;
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1249	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1250
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1251	run();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1252
Jakub Narebski	5ed2ec1	2010-06-13 12:09:32 +0200	[diff] [blame]	1253	if (defined caller) {
				1254	# wrapped in a subroutine processing requests,
				1255	# e.g. mod_perl with ModPerl::Registry, or PSGI with Plack::App::WrapCGI
				1256	return;
				1257	} else {
				1258	# pure CGI script, serving single request
				1259	exit;
				1260	}
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	1261
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1262	## ======================================================================
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1263	## action links
				1264
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1265	# possible values of extra options
				1266	# -full => 0\|1 - use absolute/full URL ($my_uri/$my_url as base)
				1267	# -replay => 1 - start from a current view (replay with modifications)
				1268	# -path_info => 0\|1 - don't use/use path_info URL (if possible)
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1269	# -anchor => ANCHOR - add #ANCHOR to end of URL, implies -replay if used alone
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1270	sub href {
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1271	my %params = @_;
Jakub Narebski	bd5d1e4	2006-11-19 15:05:21 +0100	[diff] [blame]	1272	# default is to use -absolute url() i.e. $my_uri
				1273	my $href = $params{-full} ? $my_url : $my_uri;
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1274
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1275	# implicit -replay, must be first of implicit params
				1276	$params{-replay} = 1 if (keys %params == 1 && $params{-anchor});
				1277
Jakub Narebski	afa9b62	2008-02-14 09:22:30 +0100	[diff] [blame]	1278	$params{'project'} = $project unless exists $params{'project'};
				1279
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1280	if ($params{-replay}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1281	while (my ($name, $symbol) = each %cgi_param_mapping) {
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1282	if (!exists $params{$name}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1283	$params{$name} = $input_params{$name};
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1284	}
				1285	}
				1286	}
				1287
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	1288	my $use_pathinfo = gitweb_check_feature('pathinfo');
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1289	if (defined $params{'project'} &&
				1290	(exists $params{-path_info} ? $params{-path_info} : $use_pathinfo)) {
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1291	# try to put as many parameters as possible in PATH_INFO:
				1292	# - project name
				1293	# - action
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1294	# - hash_parent or hash_parent_base:/file_parent
Giuseppe Bilotta	3550ea7	2008-10-21 21:34:52 +0200	[diff] [blame]	1295	# - hash or hash_base:/filename
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1296	# - the snapshot_format as an appropriate suffix
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1297
				1298	# When the script is the root DirectoryIndex for the domain,
				1299	# $href here would be something like http://gitweb.example.com/
				1300	# Thus, we strip any trailing / from $href, to spare us double
				1301	# slashes in the final URL
				1302	$href =~ s,/$,,;
				1303
				1304	# Then add the project name, if present
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1305	$href .= "/".esc_path_info($params{'project'});
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1306	delete $params{'project'};
				1307
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1308	# since we destructively absorb parameters, we keep this
				1309	# boolean that remembers if we're handling a snapshot
				1310	my $is_snapshot = $params{'action'} eq 'snapshot';
				1311
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1312	# Summary just uses the project path URL, any other action is
				1313	# added to the URL
				1314	if (defined $params{'action'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1315	$href .= "/".esc_path_info($params{'action'})
				1316	unless $params{'action'} eq 'summary';
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1317	delete $params{'action'};
				1318	}
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1319
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1320	# Next, we put hash_parent_base:/file_parent..hash_base:/file_name,
				1321	# stripping nonexistent or useless pieces
				1322	$href .= "/" if ($params{'hash_base'} \|\| $params{'hash_parent_base'}
				1323	\|\| $params{'hash_parent'} \|\| $params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1324	if (defined $params{'hash_base'}) {
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1325	if (defined $params{'hash_parent_base'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1326	$href .= esc_path_info($params{'hash_parent_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1327	# skip the file_parent if it's the same as the file_name
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1328	if (defined $params{'file_parent'}) {
				1329	if (defined $params{'file_name'} && $params{'file_parent'} eq $params{'file_name'}) {
				1330	delete $params{'file_parent'};
				1331	} elsif ($params{'file_parent'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1332	$href .= ":/".esc_path_info($params{'file_parent'});
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1333	delete $params{'file_parent'};
				1334	}
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1335	}
				1336	$href .= "..";
				1337	delete $params{'hash_parent'};
				1338	delete $params{'hash_parent_base'};
				1339	} elsif (defined $params{'hash_parent'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1340	$href .= esc_path_info($params{'hash_parent'}). "..";
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1341	delete $params{'hash_parent'};
				1342	}
				1343
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1344	$href .= esc_path_info($params{'hash_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1345	if (defined $params{'file_name'} && $params{'file_name'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1346	$href .= ":/".esc_path_info($params{'file_name'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1347	delete $params{'file_name'};
				1348	}
				1349	delete $params{'hash'};
				1350	delete $params{'hash_base'};
				1351	} elsif (defined $params{'hash'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1352	$href .= esc_path_info($params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1353	delete $params{'hash'};
				1354	}
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1355
				1356	# If the action was a snapshot, we can absorb the
				1357	# snapshot_format parameter too
				1358	if ($is_snapshot) {
				1359	my $fmt = $params{'snapshot_format'};
				1360	# snapshot_format should always be defined when href()
				1361	# is called, but just in case some code forgets, we
				1362	# fall back to the default
				1363	$fmt \|\|= $snapshot_fmts[0];
				1364	$href .= $known_snapshot_formats{$fmt}{'suffix'};
				1365	delete $params{'snapshot_format'};
				1366	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1367	}
				1368
				1369	# now encode the parameters explicitly
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1370	my @result = ();
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1371	for (my $i = 0; $i < @cgi_param_mapping; $i += 2) {
				1372	my ($name, $symbol) = ($cgi_param_mapping[$i], $cgi_param_mapping[$i+1]);
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1373	if (defined $params{$name}) {
Jakub Narebski	f22cca4	2007-07-29 01:04:09 +0200	[diff] [blame]	1374	if (ref($params{$name}) eq "ARRAY") {
				1375	foreach my $par (@{$params{$name}}) {
				1376	push @result, $symbol . "=" . esc_param($par);
				1377	}
				1378	} else {
				1379	push @result, $symbol . "=" . esc_param($params{$name});
				1380	}
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1381	}
				1382	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1383	$href .= "?" . join(';', @result) if scalar @result;
				1384
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1385	# final transformation: trailing spaces must be escaped (URI-encoded)
				1386	$href =~ s/(\s+)$/CGI::escape($1)/e;
				1387
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1388	if ($params{-anchor}) {
				1389	$href .= "#".esc_param($params{-anchor});
				1390	}
				1391
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1392	return $href;
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1393	}
				1394
				1395
				1396	## ======================================================================
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1397	## validation, quoting/unquoting and escaping
				1398
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1399	sub validate_action {
				1400	my $input = shift \|\| return undef;
				1401	return undef unless exists $actions{$input};
				1402	return $input;
				1403	}
				1404
				1405	sub validate_project {
				1406	my $input = shift \|\| return undef;
				1407	if (!validate_pathname($input) \|\|
				1408	!(-d "$projectroot/$input") \|\|
Alexander Gavrilov	ec26f09	2008-11-06 01:15:56 +0300	[diff] [blame]	1409	!check_export_ok("$projectroot/$input") \|\|
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1410	($strict_export && !project_in_list($input))) {
				1411	return undef;
				1412	} else {
				1413	return $input;
				1414	}
				1415	}
				1416
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1417	sub validate_pathname {
				1418	my $input = shift \|\| return undef;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1419
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1420	# no '.' or '..' as elements of path, i.e. no '.' nor '..'
				1421	# at the beginning, at the end, and between slashes.
				1422	# also this catches doubled slashes
				1423	if ($input =~ m!(^\|/)(\|\.\|\.\.)(/\|$)!) {
				1424	return undef;
				1425	}
				1426	# no null characters
				1427	if ($input =~ m!\0!) {
				1428	return undef;
				1429	}
				1430	return $input;
				1431	}
				1432
				1433	sub validate_refname {
				1434	my $input = shift \|\| return undef;
				1435
				1436	# textual hashes are O.K.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1437	if ($input =~ m/^[0-9a-fA-F]{40}$/) {
				1438	return $input;
				1439	}
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1440	# it must be correct pathname
				1441	$input = validate_pathname($input)
				1442	or return undef;
				1443	# restrictions on ref name according to git-check-ref-format
				1444	if ($input =~ m!(/\.\|\.\.\|[\000-\040\177 ~^:?*\[]\|/$)!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1445	return undef;
				1446	}
				1447	return $input;
				1448	}
				1449
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1450	# decode sequences of octets in utf8 into Perl's internal form,
				1451	# which is utf-8 with utf8 flag set if needed. gitweb writes out
				1452	# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
				1453	sub to_utf8 {
				1454	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1455	return undef unless defined $str;
Jakub Narebski	b13e3ea	2011-12-18 23:00:58 +0100	[diff] [blame]	1456
				1457	if (utf8::is_utf8($str) \|\| utf8::decode($str)) {
İsmail Dönmez	e5d3de5	2007-12-04 10:55:41 +0200	[diff] [blame]	1458	return $str;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1459	} else {
				1460	return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
				1461	}
				1462	}
				1463
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1464	# quote unsafe chars, but keep the slash, even when it's not
				1465	# correct, but quoted slashes look too horrible in bookmarks
				1466	sub esc_param {
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1467	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1468	return undef unless defined $str;
Giuseppe Bilotta	452e225	2009-10-13 21:51:36 +0200	[diff] [blame]	1469	$str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
Kay Sievers	a9e60b7	2005-11-14 15:15:12 +0100	[diff] [blame]	1470	$str =~ s/ /\+/g;
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1471	return $str;
				1472	}
				1473
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1474	# the quoting rules for path_info fragment are slightly different
				1475	sub esc_path_info {
				1476	my $str = shift;
				1477	return undef unless defined $str;
				1478
				1479	# path_info doesn't treat '+' as space (specially), but '?' must be escaped
				1480	$str =~ s/([^A-Za-z0-9\-_.~();\/;:@&= +]+)/CGI::escape($1)/eg;
				1481
				1482	return $str;
				1483	}
				1484
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	1485	# quote unsafe chars in whole URL, so some characters cannot be quoted
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1486	sub esc_url {
				1487	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1488	return undef unless defined $str;
Pavan Kumar Sunkara	109988f	2010-07-15 12:59:01 +0530	[diff] [blame]	1489	$str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&= ]+)/CGI::escape($1)/eg;
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1490	$str =~ s/ /\+/g;
				1491	return $str;
				1492	}
				1493
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1494	# quote unsafe characters in HTML attributes
				1495	sub esc_attr {
				1496
				1497	# for XHTML conformance escaping '"' to '"' is not enough
				1498	return esc_html(@_);
				1499	}
				1500
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1501	# replace invalid utf8 character with SUBSTITUTION sequence
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1502	sub esc_html {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1503	my $str = shift;
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1504	my %opts = @_;
				1505
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1506	return undef unless defined $str;
				1507
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1508	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1509	$str = $cgi->escapeHTML($str);
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1510	if ($opts{'-nbsp'}) {
				1511	$str =~ s/ / /g;
				1512	}
Junio C Hamano	25ffbb2	2006-11-08 15:11:10 -0800	[diff] [blame]	1513	$str =~ s\|([[:cntrl:]])\|(($1 ne "\t") ? quot_cec($1) : $1)\|eg;
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1514	return $str;
				1515	}
				1516
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1517	# quote control characters and escape filename to HTML
				1518	sub esc_path {
				1519	my $str = shift;
				1520	my %opts = @_;
				1521
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1522	return undef unless defined $str;
				1523
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1524	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1525	$str = $cgi->escapeHTML($str);
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1526	if ($opts{'-nbsp'}) {
				1527	$str =~ s/ / /g;
				1528	}
				1529	$str =~ s\|([[:cntrl:]])\|quot_cec($1)\|eg;
				1530	return $str;
				1531	}
				1532
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	1533	# Sanitize for use in XHTML + application/xml+xhtm (valid XML 1.0)
				1534	sub sanitize {
				1535	my $str = shift;
				1536
				1537	return undef unless defined $str;
				1538
				1539	$str = to_utf8($str);
				1540	$str =~ s\|([[:cntrl:]])\|($1 =~ /[\t\n\r]/ ? $1 : quot_cec($1))\|eg;
				1541	return $str;
				1542	}
				1543
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1544	# Make control characters "printable", using character escape codes (CEC)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1545	sub quot_cec {
				1546	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1547	my %opts = @_;
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1548	my %es = ( # character escape codes, aka escape sequences
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1549	"\t" => '\t', # tab (HT)
				1550	"\n" => '\n', # line feed (LF)
				1551	"\r" => '\r', # carrige return (CR)
				1552	"\f" => '\f', # form feed (FF)
				1553	"\b" => '\b', # backspace (BS)
				1554	"\a" => '\a', # alarm (bell) (BEL)
				1555	"\e" => '\e', # escape (ESC)
				1556	"\013" => '\v', # vertical tab (VT)
				1557	"\000" => '\0', # nul character (NUL)
				1558	);
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1559	my $chr = ( (exists $es{$cntrl})
				1560	? $es{$cntrl}
Petr Baudis	25dfd17	2008-10-01 22:11:54 +0200	[diff] [blame]	1561	: sprintf('\%2x', ord($cntrl)) );
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1562	if ($opts{-nohtml}) {
				1563	return $chr;
				1564	} else {
				1565	return "<span class=\"cntrl\">$chr</span>";
				1566	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1567	}
				1568
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1569	# Alternatively use unicode control pictures codepoints,
				1570	# Unicode "printable representation" (PR)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1571	sub quot_upr {
				1572	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1573	my %opts = @_;
				1574
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1575	my $chr = sprintf('&#%04d;', 0x2400+ord($cntrl));
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1576	if ($opts{-nohtml}) {
				1577	return $chr;
				1578	} else {
				1579	return "<span class=\"cntrl\">$chr</span>";
				1580	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1581	}
				1582
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1583	# git may return quoted and escaped filenames
				1584	sub unquote {
				1585	my $str = shift;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1586
				1587	sub unq {
				1588	my $seq = shift;
				1589	my %es = ( # character escape codes, aka escape sequences
				1590	't' => "\t", # tab (HT, TAB)
				1591	'n' => "\n", # newline (NL)
				1592	'r' => "\r", # return (CR)
				1593	'f' => "\f", # form feed (FF)
				1594	'b' => "\b", # backspace (BS)
				1595	'a' => "\a", # alarm (bell) (BEL)
				1596	'e' => "\e", # escape (ESC)
				1597	'v' => "\013", # vertical tab (VT)
				1598	);
				1599
				1600	if ($seq =~ m/^[0-7]{1,3}$/) {
				1601	# octal char sequence
				1602	return chr(oct($seq));
				1603	} elsif (exists $es{$seq}) {
				1604	# C escape sequence, aka character escape code
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1605	return $es{$seq};
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1606	}
				1607	# quoted ordinary character
				1608	return $seq;
				1609	}
				1610
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1611	if ($str =~ m/^"(.*)"$/) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1612	# needs unquoting
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1613	$str = $1;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1614	$str =~ s/\\([^0-7]\|[0-7]{1,3})/unq($1)/eg;
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1615	}
				1616	return $str;
				1617	}
				1618
Jakub Narebski	f16db17	2006-08-06 02:08:31 +0200	[diff] [blame]	1619	# escape tabs (convert tabs to spaces)
				1620	sub untabify {
				1621	my $line = shift;
				1622
				1623	while ((my $pos = index($line, "\t")) != -1) {
				1624	if (my $count = (8 - ($pos % 8))) {
				1625	my $spaces = ' ' x $count;
				1626	$line =~ s/\t/$spaces/;
				1627	}
				1628	}
				1629
				1630	return $line;
				1631	}
				1632
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	1633	sub project_in_list {
				1634	my $project = shift;
				1635	my @list = git_get_projects_list();
				1636	return @list && scalar(grep { $_->{'path'} eq $project } @list);
				1637	}
				1638
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1639	## ----------------------------------------------------------------------
				1640	## HTML aware string manipulation
				1641
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1642	# Try to chop given string on a word boundary between position
				1643	# $len and $len+$add_len. If there is no word boundary there,
				1644	# chop at $len+$add_len. Do not chop if chopped part plus ellipsis
				1645	# (marking chopped part) would be longer than given string.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1646	sub chop_str {
				1647	my $str = shift;
				1648	my $len = shift;
				1649	my $add_len = shift \|\| 10;
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1650	my $where = shift \|\| 'right'; # 'left' \| 'center' \| 'right'
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1651
Anders Waldenborg	dee2775	2008-05-21 13:44:43 +0200	[diff] [blame]	1652	# Make sure perl knows it is utf8 encoded so we don't
				1653	# cut in the middle of a utf8 multibyte char.
				1654	$str = to_utf8($str);
				1655
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1656	# allow only $len chars, but don't cut a word if it would fit in $add_len
				1657	# if it doesn't fit, cut it if it's still longer than the dots we would add
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1658	# remove chopped character entities entirely
				1659
				1660	# when chopping in the middle, distribute $len into left and right part
				1661	# return early if chopping wouldn't make string shorter
				1662	if ($where eq 'center') {
				1663	return $str if ($len + 5 >= length($str)); # filler is length 5
				1664	$len = int($len/2);
				1665	} else {
				1666	return $str if ($len + 4 >= length($str)); # filler is length 4
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1667	}
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1668
				1669	# regexps: ending and beginning with word part up to $add_len
				1670	my $endre = qr/.{$len}\w{0,$add_len}/;
				1671	my $begre = qr/\w{0,$add_len}.{$len}/;
				1672
				1673	if ($where eq 'left') {
				1674	$str =~ m/^(.*?)($begre)$/;
				1675	my ($lead, $body) = ($1, $2);
				1676	if (length($lead) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1677	$lead = " ...";
				1678	}
				1679	return "$lead$body";
				1680
				1681	} elsif ($where eq 'center') {
				1682	$str =~ m/^($endre)(.*)$/;
				1683	my ($left, $str) = ($1, $2);
				1684	$str =~ m/^(.*?)($begre)$/;
				1685	my ($mid, $right) = ($1, $2);
				1686	if (length($mid) > 5) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1687	$mid = " ... ";
				1688	}
				1689	return "$left$mid$right";
				1690
				1691	} else {
				1692	$str =~ m/^($endre)(.*)$/;
				1693	my $body = $1;
				1694	my $tail = $2;
				1695	if (length($tail) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1696	$tail = "... ";
				1697	}
				1698	return "$body$tail";
				1699	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1700	}
				1701
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1702	# takes the same arguments as chop_str, but also wraps a <span> around the
				1703	# result with a title attribute if it does get chopped. Additionally, the
				1704	# string is HTML-escaped.
				1705	sub chop_and_escape_str {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1706	my ($str) = @_;
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1707
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1708	my $chopped = chop_str(@_);
Jürgen Kreileder	168c1e0	2011-12-17 10:22:21 +0100	[diff] [blame]	1709	$str = to_utf8($str);
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1710	if ($chopped eq $str) {
				1711	return esc_html($chopped);
				1712	} else {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1713	$str =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	850b90a	2008-02-16 23:07:46 +0100	[diff] [blame]	1714	return $cgi->span({-title=>$str}, esc_html($chopped));
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1715	}
				1716	}
				1717
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1718	# Highlight selected fragments of string, using given CSS class,
				1719	# and escape HTML. It is assumed that fragments do not overlap.
				1720	# Regions are passed as list of pairs (array references).
				1721	#
				1722	# Example: esc_html_hl_regions("foobar", "mark", [ 0, 3 ]) returns
				1723	# '<span class="mark">foo</span>bar'
				1724	sub esc_html_hl_regions {
				1725	my ($str, $css_class, @sel) = @_;
				1726	return esc_html($str) unless @sel;
				1727
				1728	my $out = '';
				1729	my $pos = 0;
				1730
				1731	for my $s (@sel) {
				1732	$out .= esc_html(substr($str, $pos, $s->[0] - $pos))
				1733	if ($s->[0] - $pos > 0);
				1734	$out .= $cgi->span({-class => $css_class},
				1735	esc_html(substr($str, $s->[0], $s->[1] - $s->[0])));
				1736
				1737	$pos = $s->[1];
				1738	}
				1739	$out .= esc_html(substr($str, $pos))
				1740	if ($pos < length($str));
				1741
				1742	return $out;
				1743	}
				1744
				1745	# highlight match (if any), and escape HTML
				1746	sub esc_html_match_hl {
				1747	my ($str, $regexp) = @_;
				1748	return esc_html($str) unless defined $regexp;
				1749
				1750	my @matches;
				1751	while ($str =~ /$regexp/g) {
				1752	push @matches, [$-[0], $+[0]];
				1753	}
				1754	return esc_html($str) unless @matches;
				1755
				1756	return esc_html_hl_regions($str, 'match', @matches);
				1757	}
				1758
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1759	## ----------------------------------------------------------------------
				1760	## functions returning short strings
				1761
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1762	# CSS class for given age value (in seconds)
				1763	sub age_class {
				1764	my $age = shift;
				1765
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	1766	if (!defined $age) {
				1767	return "noage";
				1768	} elsif ($age < 60602) {
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1769	return "age0";
				1770	} elsif ($age < 606024*2) {
				1771	return "age1";
				1772	} else {
				1773	return "age2";
				1774	}
				1775	}
				1776
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1777	# convert age in seconds to "nn units ago" string
				1778	sub age_string {
				1779	my $age = shift;
				1780	my $age_str;
				1781
				1782	if ($age > 6060243652) {
				1783	$age_str = (int $age/60/60/24/365);
				1784	$age_str .= " years ago";
				1785	} elsif ($age > 606024(365/12)2) {
				1786	$age_str = int $age/60/60/24/(365/12);
				1787	$age_str .= " months ago";
				1788	} elsif ($age > 60602472) {
				1789	$age_str = int $age/60/60/24/7;
				1790	$age_str .= " weeks ago";
				1791	} elsif ($age > 606024*2) {
				1792	$age_str = int $age/60/60/24;
				1793	$age_str .= " days ago";
				1794	} elsif ($age > 60602) {
				1795	$age_str = int $age/60/60;
				1796	$age_str .= " hours ago";
				1797	} elsif ($age > 60*2) {
				1798	$age_str = int $age/60;
				1799	$age_str .= " min ago";
				1800	} elsif ($age > 2) {
				1801	$age_str = int $age;
				1802	$age_str .= " sec ago";
				1803	} else {
				1804	$age_str .= " right now";
				1805	}
				1806	return $age_str;
				1807	}
				1808
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1809	use constant {
				1810	S_IFINVALID => 0030000,
				1811	S_IFGITLINK => 0160000,
				1812	};
				1813
				1814	# submodule/subproject, a commit object reference
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1815	sub S_ISGITLINK {
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1816	my $mode = shift;
				1817
				1818	return (($mode & S_IFMT) == S_IFGITLINK)
				1819	}
				1820
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1821	# convert file mode in octal to symbolic file mode string
				1822	sub mode_str {
				1823	my $mode = oct shift;
				1824
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1825	if (S_ISGITLINK($mode)) {
				1826	return 'm---------';
				1827	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1828	return 'drwxr-xr-x';
				1829	} elsif (S_ISLNK($mode)) {
				1830	return 'lrwxrwxrwx';
				1831	} elsif (S_ISREG($mode)) {
				1832	# git cares only about the executable bit
				1833	if ($mode & S_IXUSR) {
				1834	return '-rwxr-xr-x';
				1835	} else {
				1836	return '-rw-r--r--';
				1837	};
				1838	} else {
				1839	return '----------';
				1840	}
				1841	}
				1842
				1843	# convert file mode in octal to file type string
				1844	sub file_type {
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	1845	my $mode = shift;
				1846
				1847	if ($mode !~ m/^[0-7]+$/) {
				1848	return $mode;
				1849	} else {
				1850	$mode = oct $mode;
				1851	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1852
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1853	if (S_ISGITLINK($mode)) {
				1854	return "submodule";
				1855	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1856	return "directory";
				1857	} elsif (S_ISLNK($mode)) {
				1858	return "symlink";
				1859	} elsif (S_ISREG($mode)) {
				1860	return "file";
				1861	} else {
				1862	return "unknown";
				1863	}
				1864	}
				1865
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1866	# convert file mode in octal to file type description string
				1867	sub file_type_long {
				1868	my $mode = shift;
				1869
				1870	if ($mode !~ m/^[0-7]+$/) {
				1871	return $mode;
				1872	} else {
				1873	$mode = oct $mode;
				1874	}
				1875
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1876	if (S_ISGITLINK($mode)) {
				1877	return "submodule";
				1878	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1879	return "directory";
				1880	} elsif (S_ISLNK($mode)) {
				1881	return "symlink";
				1882	} elsif (S_ISREG($mode)) {
				1883	if ($mode & S_IXUSR) {
				1884	return "executable";
				1885	} else {
				1886	return "file";
				1887	};
				1888	} else {
				1889	return "unknown";
				1890	}
				1891	}
				1892
				1893
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1894	## ----------------------------------------------------------------------
				1895	## functions returning short HTML fragments, or transforming HTML fragments
Pavel Roskin	3dff537	2007-02-03 23:49:16 -0500	[diff] [blame]	1896	## which don't belong to other sections
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1897
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1898	# format line of commit message.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1899	sub format_log_line_html {
				1900	my $line = shift;
				1901
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1902	$line = esc_html($line, -nbsp=>1);
Marcel M. Cary	7d233de	2009-02-17 19:00:43 -0800	[diff] [blame]	1903	$line =~ s{\b([0-9a-fA-F]{8,40})\b}{
				1904	$cgi->a({-href => href(action=>"object", hash=>$1),
				1905	-class => "text"}, $1);
				1906	}eg;
				1907
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1908	return $line;
				1909	}
				1910
				1911	# format marker of refs pointing to given object
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1912
				1913	# the destination action is chosen based on object type and current context:
				1914	# - for annotated tags, we choose the tag view unless it's the current view
				1915	# already, in which case we go to shortlog view
				1916	# - for other refs, we keep the current view if we're in history, shortlog or
				1917	# log view, and select shortlog otherwise
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	1918	sub format_ref_marker {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1919	my ($refs, $id) = @_;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1920	my $markers = '';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1921
				1922	if (defined $refs->{$id}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1923	foreach my $ref (@{$refs->{$id}}) {
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1924	# this code exploits the fact that non-lightweight tags are the
				1925	# only indirect objects, and that they are the only objects for which
				1926	# we want to use tag instead of shortlog as action
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1927	my ($type, $name) = qw();
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1928	my $indirect = ($ref =~ s/\^\{\}$//);
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1929	# e.g. tags/v2.6.11 or heads/next
				1930	if ($ref =~ m!^(.?)s?/(.)$!) {
				1931	$type = $1;
				1932	$name = $2;
				1933	} else {
				1934	$type = "ref";
				1935	$name = $ref;
				1936	}
				1937
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1938	my $class = $type;
				1939	$class .= " indirect" if $indirect;
				1940
				1941	my $dest_action = "shortlog";
				1942
				1943	if ($indirect) {
				1944	$dest_action = "tag" unless $action eq "tag";
				1945	} elsif ($action =~ /^(history\|(short)?log)$/) {
				1946	$dest_action = $action;
				1947	}
				1948
				1949	my $dest = "";
				1950	$dest .= "refs/" unless $ref =~ m!^refs/!;
				1951	$dest .= $ref;
				1952
				1953	my $link = $cgi->a({
				1954	-href => href(
				1955	action=>$dest_action,
				1956	hash=>$dest
				1957	)}, $name);
				1958
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1959	$markers .= " <span class=\"".esc_attr($class)."\" title=\"".esc_attr($ref)."\">" .
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1960	$link . "</span>";
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1961	}
				1962	}
				1963
				1964	if ($markers) {
				1965	return ' <span class="refs">'. $markers . '</span>';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1966	} else {
				1967	return "";
				1968	}
				1969	}
				1970
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1971	# format, perhaps shortened and with markers, title line
				1972	sub format_subject_html {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	1973	my ($long, $short, $href, $extra) = @_;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1974	$extra = '' unless defined($extra);
				1975
				1976	if (length($short) < length($long)) {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1977	$long =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	1978	return $cgi->a({-href => $href, -class => "list subject",
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1979	-title => to_utf8($long)},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	1980	esc_html($short)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1981	} else {
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	1982	return $cgi->a({-href => $href, -class => "list subject"},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	1983	esc_html($long)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1984	}
				1985	}
				1986
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	1987	# Rather than recomputing the url for an email multiple times, we cache it
				1988	# after the first hit. This gives a visible benefit in views where the avatar
				1989	# for the same email is used repeatedly (e.g. shortlog).
				1990	# The cache is shared by all avatar engines (currently gravatar only), which
				1991	# are free to use it as preferred. Since only one avatar engine is used for any
				1992	# given page, there's no risk for cache conflicts.
				1993	our %avatar_cache = ();
				1994
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	1995	# Compute the picon url for a given email, by using the picon search service over at
				1996	# http://www.cs.indiana.edu/picons/search.html
				1997	sub picon_url {
				1998	my $email = lc shift;
				1999	if (!$avatar_cache{$email}) {
				2000	my ($user, $domain) = split('@', $email);
				2001	$avatar_cache{$email} =
				2002	"http://www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
				2003	"$domain/$user/" .
				2004	"users+domains+unknown/up/single";
				2005	}
				2006	return $avatar_cache{$email};
				2007	}
				2008
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2009	# Compute the gravatar url for a given email, if it's not in the cache already.
				2010	# Gravatar stores only the part of the URL before the size, since that's the
				2011	# one computationally more expensive. This also allows reuse of the cache for
				2012	# different sizes (for this particular engine).
				2013	sub gravatar_url {
				2014	my $email = lc shift;
				2015	my $size = shift;
				2016	$avatar_cache{$email} \|\|=
				2017	"http://www.gravatar.com/avatar/" .
				2018	Digest::MD5::md5_hex($email) . "?s=";
				2019	return $avatar_cache{$email} . $size;
				2020	}
				2021
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2022	# Insert an avatar for the given $email at the given $size if the feature
				2023	# is enabled.
				2024	sub git_get_avatar {
				2025	my ($email, %opts) = @_;
				2026	my $pre_white = ($opts{-pad_before} ? " " : "");
				2027	my $post_white = ($opts{-pad_after} ? " " : "");
				2028	$opts{-size} \|\|= 'default';
				2029	my $size = $avatar_size{$opts{-size}} \|\| $avatar_size{'default'};
				2030	my $url = "";
				2031	if ($git_avatar eq 'gravatar') {
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2032	$url = gravatar_url($email, $size);
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2033	} elsif ($git_avatar eq 'picon') {
				2034	$url = picon_url($email);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2035	}
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2036	# Other providers can be added by extending the if chain, defining $url
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2037	# as needed. If no variant puts something in $url, we assume avatars
				2038	# are completely disabled/unavailable.
				2039	if ($url) {
				2040	return $pre_white .
				2041	"<img width=\"$size\" " .
				2042	"class=\"avatar\" " .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2043	"src=\"".esc_url($url)."\" " .
Giuseppe Bilotta	7d25ef4	2009-06-30 00:00:54 +0200	[diff] [blame]	2044	"alt=\"\" " .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2045	"/>" . $post_white;
				2046	} else {
				2047	return "";
				2048	}
				2049	}
				2050
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2051	sub format_search_author {
				2052	my ($author, $searchtype, $displaytext) = @_;
				2053	my $have_search = gitweb_check_feature('search');
				2054
				2055	if ($have_search) {
				2056	my $performed = "";
				2057	if ($searchtype eq 'author') {
				2058	$performed = "authored";
				2059	} elsif ($searchtype eq 'committer') {
				2060	$performed = "committed";
				2061	}
				2062
				2063	return $cgi->a({-href => href(action=>"search", hash=>$hash,
				2064	searchtext=>$author,
				2065	searchtype=>$searchtype), class=>"list",
				2066	title=>"Search for commits $performed by $author"},
				2067	$displaytext);
				2068
				2069	} else {
				2070	return $displaytext;
				2071	}
				2072	}
				2073
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2074	# format the author name of the given commit with the given tag
				2075	# the author name is chopped and escaped according to the other
				2076	# optional parameters (see chop_str).
				2077	sub format_author_html {
				2078	my $tag = shift;
				2079	my $co = shift;
				2080	my $author = chop_and_escape_str($co->{'author_name'}, @_);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2081	return "<$tag class=\"author\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2082	format_search_author($co->{'author_name'}, "author",
				2083	git_get_avatar($co->{'author_email'}, -pad_after => 1) .
				2084	$author) .
				2085	"</$tag>";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2086	}
				2087
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2088	# format git diff header line, i.e. "diff --(git\|combined\|cc) ..."
				2089	sub format_git_diff_header_line {
				2090	my $line = shift;
				2091	my $diffinfo = shift;
				2092	my ($from, $to) = @_;
				2093
				2094	if ($diffinfo->{'nparents'}) {
				2095	# combined diff
				2096	$line =~ s!^(diff (.?) )"?.$!$1!;
				2097	if ($to->{'href'}) {
				2098	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2099	esc_path($to->{'file'}));
				2100	} else { # file was deleted (no href)
				2101	$line .= esc_path($to->{'file'});
				2102	}
				2103	} else {
				2104	# "ordinary" diff
				2105	$line =~ s!^(diff (.?) )"?a/.$!$1!;
				2106	if ($from->{'href'}) {
				2107	$line .= $cgi->a({-href => $from->{'href'}, -class => "path"},
				2108	'a/' . esc_path($from->{'file'}));
				2109	} else { # file was added (no href)
				2110	$line .= 'a/' . esc_path($from->{'file'});
				2111	}
				2112	$line .= ' ';
				2113	if ($to->{'href'}) {
				2114	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2115	'b/' . esc_path($to->{'file'}));
				2116	} else { # file was deleted
				2117	$line .= 'b/' . esc_path($to->{'file'});
				2118	}
				2119	}
				2120
				2121	return "<div class=\"diff header\">$line</div>\n";
				2122	}
				2123
				2124	# format extended diff header line, before patch itself
				2125	sub format_extended_diff_header_line {
				2126	my $line = shift;
				2127	my $diffinfo = shift;
				2128	my ($from, $to) = @_;
				2129
				2130	# match <path>
				2131	if ($line =~ s!^((copy\|rename) from ).*$!$1! && $from->{'href'}) {
				2132	$line .= $cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2133	esc_path($from->{'file'}));
				2134	}
				2135	if ($line =~ s!^((copy\|rename) to ).*$!$1! && $to->{'href'}) {
				2136	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2137	esc_path($to->{'file'}));
				2138	}
				2139	# match single <mode>
				2140	if ($line =~ m/\s(\d{6})$/) {
				2141	$line .= '<span class="info"> (' .
				2142	file_type_long($1) .
				2143	')</span>';
				2144	}
				2145	# match <hash>
				2146	if ($line =~ m/^index [0-9a-fA-F]{40},[0-9a-fA-F]{40}/) {
				2147	# can match only for combined diff
				2148	$line = 'index ';
				2149	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2150	if ($from->{'href'}[$i]) {
				2151	$line .= $cgi->a({-href=>$from->{'href'}[$i],
				2152	-class=>"hash"},
				2153	substr($diffinfo->{'from_id'}[$i],0,7));
				2154	} else {
				2155	$line .= '0' x 7;
				2156	}
				2157	# separator
				2158	$line .= ',' if ($i < $diffinfo->{'nparents'} - 1);
				2159	}
				2160	$line .= '..';
				2161	if ($to->{'href'}) {
				2162	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2163	substr($diffinfo->{'to_id'},0,7));
				2164	} else {
				2165	$line .= '0' x 7;
				2166	}
				2167
				2168	} elsif ($line =~ m/^index [0-9a-fA-F]{40}..[0-9a-fA-F]{40}/) {
				2169	# can match only for ordinary diff
				2170	my ($from_link, $to_link);
				2171	if ($from->{'href'}) {
				2172	$from_link = $cgi->a({-href=>$from->{'href'}, -class=>"hash"},
				2173	substr($diffinfo->{'from_id'},0,7));
				2174	} else {
				2175	$from_link = '0' x 7;
				2176	}
				2177	if ($to->{'href'}) {
				2178	$to_link = $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2179	substr($diffinfo->{'to_id'},0,7));
				2180	} else {
				2181	$to_link = '0' x 7;
				2182	}
				2183	my ($from_id, $to_id) = ($diffinfo->{'from_id'}, $diffinfo->{'to_id'});
				2184	$line =~ s!$from_id\.\.$to_id!$from_link..$to_link!;
				2185	}
				2186
				2187	return $line . "<br/>\n";
				2188	}
				2189
				2190	# format from-file/to-file diff header
				2191	sub format_diff_from_to_header {
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2192	my ($from_line, $to_line, $diffinfo, $from, $to, @parents) = @_;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2193	my $line;
				2194	my $result = '';
				2195
				2196	$line = $from_line;
				2197	#assert($line =~ m/^---/) if DEBUG;
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2198	# no extra formatting for "^--- /dev/null"
				2199	if (! $diffinfo->{'nparents'}) {
				2200	# ordinary (single parent) diff
				2201	if ($line =~ m!^--- "?a/!) {
				2202	if ($from->{'href'}) {
				2203	$line = '--- a/' .
				2204	$cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2205	esc_path($from->{'file'}));
				2206	} else {
				2207	$line = '--- a/' .
				2208	esc_path($from->{'file'});
				2209	}
				2210	}
				2211	$result .= qq!<div class="diff from_file">$line</div>\n!;
				2212
				2213	} else {
				2214	# combined diff (merge commit)
				2215	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2216	if ($from->{'href'}[$i]) {
				2217	$line = '--- ' .
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2218	$cgi->a({-href=>href(action=>"blobdiff",
				2219	hash_parent=>$diffinfo->{'from_id'}[$i],
				2220	hash_parent_base=>$parents[$i],
				2221	file_parent=>$from->{'file'}[$i],
				2222	hash=>$diffinfo->{'to_id'},
				2223	hash_base=>$hash,
				2224	file_name=>$to->{'file'}),
				2225	-class=>"path",
				2226	-title=>"diff" . ($i+1)},
				2227	$i+1) .
				2228	'/' .
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2229	$cgi->a({-href=>$from->{'href'}[$i], -class=>"path"},
				2230	esc_path($from->{'file'}[$i]));
				2231	} else {
				2232	$line = '--- /dev/null';
				2233	}
				2234	$result .= qq!<div class="diff from_file">$line</div>\n!;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2235	}
				2236	}
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2237
				2238	$line = $to_line;
				2239	#assert($line =~ m/^\+\+\+/) if DEBUG;
				2240	# no extra formatting for "^+++ /dev/null"
				2241	if ($line =~ m!^\+\+\+ "?b/!) {
				2242	if ($to->{'href'}) {
				2243	$line = '+++ b/' .
				2244	$cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2245	esc_path($to->{'file'}));
				2246	} else {
				2247	$line = '+++ b/' .
				2248	esc_path($to->{'file'});
				2249	}
				2250	}
				2251	$result .= qq!<div class="diff to_file">$line</div>\n!;
				2252
				2253	return $result;
				2254	}
				2255
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	2256	# create note for patch simplified by combined diff
				2257	sub format_diff_cc_simplified {
				2258	my ($diffinfo, @parents) = @_;
				2259	my $result = '';
				2260
				2261	$result .= "<div class=\"diff header\">" .
				2262	"diff --cc ";
				2263	if (!is_deleted($diffinfo)) {
				2264	$result .= $cgi->a({-href => href(action=>"blob",
				2265	hash_base=>$hash,
				2266	hash=>$diffinfo->{'to_id'},
				2267	file_name=>$diffinfo->{'to_file'}),
				2268	-class => "path"},
				2269	esc_path($diffinfo->{'to_file'}));
				2270	} else {
				2271	$result .= esc_path($diffinfo->{'to_file'});
				2272	}
				2273	$result .= "</div>\n" . # class="diff header"
				2274	"<div class=\"diff nodifferences\">" .
				2275	"Simple merge" .
				2276	"</div>\n"; # class="diff nodifferences"
				2277
				2278	return $result;
				2279	}
				2280
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2281	sub diff_line_class {
				2282	my ($line, $from, $to) = @_;
				2283
				2284	# ordinary diff
				2285	my $num_sign = 1;
				2286	# combined diff
				2287	if ($from && $to && ref($from->{'href'}) eq "ARRAY") {
				2288	$num_sign = scalar @{$from->{'href'}};
				2289	}
				2290
				2291	my @diff_line_classifier = (
				2292	{ regexp => qr/^\@\@{$num_sign} /, class => "chunk_header"},
				2293	{ regexp => qr/^\\/, class => "incomplete" },
				2294	{ regexp => qr/^ {$num_sign}/, class => "ctx" },
				2295	# classifier for context must come before classifier add/rem,
				2296	# or we would have to use more complicated regexp, for example
				2297	# qr/(?= {0,$m}\+)[+ ]{$num_sign}/, where $m = $num_sign - 1;
				2298	{ regexp => qr/^[+ ]{$num_sign}/, class => "add" },
				2299	{ regexp => qr/^[- ]{$num_sign}/, class => "rem" },
				2300	);
				2301	for my $clsfy (@diff_line_classifier) {
				2302	return $clsfy->{'class'}
				2303	if ($line =~ $clsfy->{'regexp'});
				2304	}
				2305
				2306	# fallback
				2307	return "";
				2308	}
				2309
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2310	# assumes that $from and $to are defined and correctly filled,
				2311	# and that $line holds a line of chunk header for unified diff
				2312	sub format_unidiff_chunk_header {
				2313	my ($line, $from, $to) = @_;
				2314
				2315	my ($from_text, $from_start, $from_lines, $to_text, $to_start, $to_lines, $section) =
				2316	$line =~ m/^\@{2} (-(\d+)(?:,(\d+))?) (\+(\d+)(?:,(\d+))?) \@{2}(.*)$/;
				2317
				2318	$from_lines = 0 unless defined $from_lines;
				2319	$to_lines = 0 unless defined $to_lines;
				2320
				2321	if ($from->{'href'}) {
				2322	$from_text = $cgi->a({-href=>"$from->{'href'}#l$from_start",
				2323	-class=>"list"}, $from_text);
				2324	}
				2325	if ($to->{'href'}) {
				2326	$to_text = $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2327	-class=>"list"}, $to_text);
				2328	}
				2329	$line = "<span class=\"chunk_info\">@@ $from_text $to_text @@</span>" .
				2330	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2331	return $line;
				2332	}
				2333
				2334	# assumes that $from and $to are defined and correctly filled,
				2335	# and that $line holds a line of chunk header for combined diff
				2336	sub format_cc_diff_chunk_header {
				2337	my ($line, $from, $to) = @_;
				2338
				2339	my ($prefix, $ranges, $section) = $line =~ m/^(\@+) (.?) \@+(.)$/;
				2340	my (@from_text, @from_start, @from_nlines, $to_text, $to_start, $to_nlines);
				2341
				2342	@from_text = split(' ', $ranges);
				2343	for (my $i = 0; $i < @from_text; ++$i) {
				2344	($from_start[$i], $from_nlines[$i]) =
				2345	(split(',', substr($from_text[$i], 1)), 0);
				2346	}
				2347
				2348	$to_text = pop @from_text;
				2349	$to_start = pop @from_start;
				2350	$to_nlines = pop @from_nlines;
				2351
				2352	$line = "<span class=\"chunk_info\">$prefix ";
				2353	for (my $i = 0; $i < @from_text; ++$i) {
				2354	if ($from->{'href'}[$i]) {
				2355	$line .= $cgi->a({-href=>"$from->{'href'}[$i]#l$from_start[$i]",
				2356	-class=>"list"}, $from_text[$i]);
				2357	} else {
				2358	$line .= $from_text[$i];
				2359	}
				2360	$line .= " ";
				2361	}
				2362	if ($to->{'href'}) {
				2363	$line .= $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2364	-class=>"list"}, $to_text);
				2365	} else {
				2366	$line .= $to_text;
				2367	}
				2368	$line .= " $prefix</span>" .
				2369	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2370	return $line;
				2371	}
				2372
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2373	# process patch (diff) line (not to be used for diff headers),
				2374	# returning class and HTML-formatted (but not wrapped) line
				2375	sub process_diff_line {
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2376	my $line = shift;
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2377	my ($from, $to) = @_;
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2378
				2379	my $diff_class = diff_line_class($line, $from, $to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2380
				2381	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2382	$line = untabify($line);
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2383
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2384	if ($from && $to && $line =~ m/^\@{2} /) {
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2385	$line = format_unidiff_chunk_header($line, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2386	return $diff_class, $line;
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2387
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	2388	} elsif ($from && $to && $line =~ m/^\@{3}/) {
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2389	$line = format_cc_diff_chunk_header($line, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2390	return $diff_class, $line;
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2391
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2392	}
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2393	return $diff_class, esc_html($line, -nbsp=>1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2394	}
				2395
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2396	# Generates undef or something like "_snapshot_" or "snapshot (_tbz2_ _zip_)",
				2397	# linked. Pass the hash of the tree/commit to snapshot.
				2398	sub format_snapshot_links {
				2399	my ($hash) = @_;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2400	my $num_fmts = @snapshot_fmts;
				2401	if ($num_fmts > 1) {
				2402	# A parenthesized list of links bearing format names.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2403	# e.g. "snapshot (_tar.gz_ _zip_)"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2404	return "snapshot (" . join(' ', map
				2405	$cgi->a({
				2406	-href => href(
				2407	action=>"snapshot",
				2408	hash=>$hash,
				2409	snapshot_format=>$_
				2410	)
				2411	}, $known_snapshot_formats{$_}{'display'})
				2412	, @snapshot_fmts) . ")";
				2413	} elsif ($num_fmts == 1) {
				2414	# A single "snapshot" link whose tooltip bears the format name.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2415	# i.e. "_snapshot_"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2416	my ($fmt) = @snapshot_fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2417	return
				2418	$cgi->a({
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2419	-href => href(
				2420	action=>"snapshot",
				2421	hash=>$hash,
				2422	snapshot_format=>$fmt
				2423	),
				2424	-title => "in format: $known_snapshot_formats{$fmt}{'display'}"
				2425	}, "snapshot");
				2426	} else { # $num_fmts == 0
				2427	return undef;
				2428	}
				2429	}
				2430
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2431	## ......................................................................
				2432	## functions returning values to be passed, perhaps after some
				2433	## transformation, to other functions; e.g. returning arguments to href()
				2434
				2435	# returns hash to be passed to href to generate gitweb URL
				2436	# in -title key it returns description of link
				2437	sub get_feed_info {
				2438	my $format = shift \|\| 'Atom';
				2439	my %res = (action => lc($format));
				2440
				2441	# feed links are possible only for project views
				2442	return unless (defined $project);
				2443	# some views should link to OPML, or to generic project feed,
				2444	# or don't have specific feed yet (so they should use generic)
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	2445	return if (!$action \|\| $action =~ /^(?:tags\|heads\|forks\|tag\|search)$/x);
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2446
				2447	my $branch;
				2448	# branches refs uses 'refs/heads/' prefix (fullname) to differentiate
				2449	# from tag links; this also makes possible to detect branch links
				2450	if ((defined $hash_base && $hash_base =~ m!^refs/heads/(.*)$!) \|\|
				2451	(defined $hash && $hash =~ m!^refs/heads/(.*)$!)) {
				2452	$branch = $1;
				2453	}
				2454	# find log type for feed description (title)
				2455	my $type = 'log';
				2456	if (defined $file_name) {
				2457	$type = "history of $file_name";
				2458	$type .= "/" if ($action eq 'tree');
				2459	$type .= " on '$branch'" if (defined $branch);
				2460	} else {
				2461	$type = "log of $branch" if (defined $branch);
				2462	}
				2463
				2464	$res{-title} = $type;
				2465	$res{'hash'} = (defined $branch ? "refs/heads/$branch" : undef);
				2466	$res{'file_name'} = $file_name;
				2467
				2468	return %res;
				2469	}
				2470
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2471	## ----------------------------------------------------------------------
				2472	## git utility subroutines, invoking git commands
				2473
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2474	# returns path to the core git executable and the --git-dir parameter as list
				2475	sub git_cmd {
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	2476	$number_of_git_cmds++;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2477	return $GIT, '--git-dir='.$git_dir;
				2478	}
				2479
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	2480	# quote the given arguments for passing them to the shell
				2481	# quote_command("command", "arg 1", "arg with ' and ! characters")
				2482	# => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"
				2483	# Try to avoid using this function wherever possible.
				2484	sub quote_command {
				2485	return join(' ',
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	2486	map { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ );
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2487	}
				2488
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2489	# get HEAD ref of given project as hash
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2490	sub git_get_head_hash {
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2491	return git_get_full_hash(shift, 'HEAD');
				2492	}
				2493
				2494	sub git_get_full_hash {
				2495	return git_get_hash(@_);
				2496	}
				2497
				2498	sub git_get_short_hash {
				2499	return git_get_hash(@_, '--short=7');
				2500	}
				2501
				2502	sub git_get_hash {
				2503	my ($project, $hash, @options) = @_;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2504	my $o_git_dir = $git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2505	my $retval = undef;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2506	$git_dir = "$projectroot/$project";
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2507	if (open my $fd, '-\|', git_cmd(), 'rev-parse',
				2508	'--verify', '-q', @options, $hash) {
				2509	$retval = <$fd>;
				2510	chomp $retval if defined $retval;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2511	close $fd;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2512	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2513	if (defined $o_git_dir) {
				2514	$git_dir = $o_git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2515	}
				2516	return $retval;
				2517	}
				2518
				2519	# get type of given object
				2520	sub git_get_type {
				2521	my $hash = shift;
				2522
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2523	open my $fd, "-\|", git_cmd(), "cat-file", '-t', $hash or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2524	my $type = <$fd>;
				2525	close $fd or return;
				2526	chomp $type;
				2527	return $type;
				2528	}
				2529
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2530	# repository configuration
				2531	our $config_file = '';
				2532	our %config;
				2533
				2534	# store multiple values for single key as anonymous array reference
				2535	# single values stored directly in the hash, not as [ <value> ]
				2536	sub hash_set_multi {
				2537	my ($hash, $key, $value) = @_;
				2538
				2539	if (!exists $hash->{$key}) {
				2540	$hash->{$key} = $value;
				2541	} elsif (!ref $hash->{$key}) {
				2542	$hash->{$key} = [ $hash->{$key}, $value ];
				2543	} else {
				2544	push @{$hash->{$key}}, $value;
				2545	}
				2546	}
				2547
				2548	# return hash of git project configuration
				2549	# optionally limited to some section, e.g. 'gitweb'
				2550	sub git_parse_project_config {
				2551	my $section_regexp = shift;
				2552	my %config;
				2553
				2554	local $/ = "\0";
				2555
				2556	open my $fh, "-\|", git_cmd(), "config", '-z', '-l',
				2557	or return;
				2558
				2559	while (my $keyval = <$fh>) {
				2560	chomp $keyval;
				2561	my ($key, $value) = split(/\n/, $keyval, 2);
				2562
				2563	hash_set_multi(\%config, $key, $value)
				2564	if (!defined $section_regexp \|\| $key =~ /^(?:$section_regexp)\./o);
				2565	}
				2566	close $fh;
				2567
				2568	return %config;
				2569	}
				2570
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2571	# convert config value to boolean: 'true' or 'false'
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2572	# no value, number > 0, 'true' and 'yes' values are true
				2573	# rest of values are treated as false (never as error)
				2574	sub config_to_bool {
				2575	my $val = shift;
				2576
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2577	return 1 if !defined $val; # section.key
				2578
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2579	# strip leading and trailing whitespace
				2580	$val =~ s/^\s+//;
				2581	$val =~ s/\s+$//;
				2582
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2583	return (($val =~ /^\d+$/ && $val) \|\| # section.key = 1
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2584	($val =~ /^(?:true\|yes)$/i)); # section.key = true
				2585	}
				2586
				2587	# convert config value to simple decimal number
				2588	# an optional value suffix of 'k', 'm', or 'g' will cause the value
				2589	# to be multiplied by 1024, 1048576, or 1073741824
				2590	sub config_to_int {
				2591	my $val = shift;
				2592
				2593	# strip leading and trailing whitespace
				2594	$val =~ s/^\s+//;
				2595	$val =~ s/\s+$//;
				2596
				2597	if (my ($num, $unit) = ($val =~ /^([0-9]*)([kmg])$/i)) {
				2598	$unit = lc($unit);
				2599	# unknown unit is treated as 1
				2600	return $num * ($unit eq 'g' ? 1073741824 :
				2601	$unit eq 'm' ? 1048576 :
				2602	$unit eq 'k' ? 1024 : 1);
				2603	}
				2604	return $val;
				2605	}
				2606
				2607	# convert config value to array reference, if needed
				2608	sub config_to_multi {
				2609	my $val = shift;
				2610
Jakub Narebski	d76a585	2007-12-20 10:48:09 +0100	[diff] [blame]	2611	return ref($val) ? $val : (defined($val) ? [ $val ] : []);
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2612	}
				2613
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2614	sub git_get_project_config {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	2615	my ($key, $type) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2616
Jakub Narebski	7a49c25	2010-03-27 20:26:59 +0100	[diff] [blame]	2617	return unless defined $git_dir;
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	2618
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2619	# key sanity check
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2620	return unless ($key);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2621	# only subsection, if exists, is case sensitive,
				2622	# and not lowercased by 'git config -z -l'
				2623	if (my ($hi, $mi, $lo) = ($key =~ /^([^.])\.(.)\.([^.]*)$/)) {
				2624	$key = join(".", lc($hi), $mi, lc($lo));
				2625	} else {
				2626	$key = lc($key);
				2627	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2628	$key =~ s/^gitweb\.//;
				2629	return if ($key =~ m/\W/);
				2630
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2631	# type sanity check
				2632	if (defined $type) {
				2633	$type =~ s/^--//;
				2634	$type = undef
				2635	unless ($type eq 'bool' \|\| $type eq 'int');
				2636	}
				2637
				2638	# get config
				2639	if (!defined $config_file \|\|
				2640	$config_file ne "$git_dir/config") {
				2641	%config = git_parse_project_config('gitweb');
				2642	$config_file = "$git_dir/config";
				2643	}
				2644
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2645	# check if config variable (key) exists
				2646	return unless exists $config{"gitweb.$key"};
				2647
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2648	# ensure given type
				2649	if (!defined $type) {
				2650	return $config{"gitweb.$key"};
				2651	} elsif ($type eq 'bool') {
				2652	# backward compatibility: 'git config --bool' returns true/false
				2653	return config_to_bool($config{"gitweb.$key"}) ? 'true' : 'false';
				2654	} elsif ($type eq 'int') {
				2655	return config_to_int($config{"gitweb.$key"});
				2656	}
				2657	return $config{"gitweb.$key"};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2658	}
				2659
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2660	# get hash of given path at given ref
				2661	sub git_get_hash_by_path {
				2662	my $base = shift;
				2663	my $path = shift \|\| return undef;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2664	my $type = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2665
Jakub Narebski	4b02f48	2006-09-26 01:54:24 +0200	[diff] [blame]	2666	$path =~ s,/+$,,;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2667
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2668	open my $fd, "-\|", git_cmd(), "ls-tree", $base, "--", $path
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	2669	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2670	my $line = <$fd>;
				2671	close $fd or return undef;
				2672
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	2673	if (!defined $line) {
				2674	# there is no tree or hash given by $path at $base
				2675	return undef;
				2676	}
				2677
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2678	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Jakub Narebski	8b4b94c	2006-10-30 22:25:11 +0100	[diff] [blame]	2679	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2680	if (defined $type && $type ne $2) {
				2681	# type doesn't match
				2682	return undef;
				2683	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2684	return $3;
				2685	}
				2686
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	2687	# get path of entry with given hash at given tree-ish (ref)
				2688	# used to get 'from' filename for combined diff (merge commit) for renames
				2689	sub git_get_path_by_hash {
				2690	my $base = shift \|\| return;
				2691	my $hash = shift \|\| return;
				2692
				2693	local $/ = "\0";
				2694
				2695	open my $fd, "-\|", git_cmd(), "ls-tree", '-r', '-t', '-z', $base
				2696	or return undef;
				2697	while (my $line = <$fd>) {
				2698	chomp $line;
				2699
				2700	#'040000 tree 595596a6a9117ddba9fe379b6b012b558bac8423 gitweb'
				2701	#'100644 blob e02e90f0429be0d2a69b76571101f20b8f75530f gitweb/README'
				2702	if ($line =~ m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {
				2703	close $fd;
				2704	return $1;
				2705	}
				2706	}
				2707	close $fd;
				2708	return undef;
				2709	}
				2710
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2711	## ......................................................................
				2712	## git utility functions, directly accessing git repository
				2713
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2714	# get the value of config variable either from file named as the variable
				2715	# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name
				2716	# configuration variable in the repository config file.
				2717	sub git_get_file_or_project_config {
				2718	my ($path, $name) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2719
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2720	$git_dir = "$projectroot/$path";
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2721	open my $fd, '<', "$git_dir/$name"
				2722	or return git_get_project_config($name);
				2723	my $conf = <$fd>;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2724	close $fd;
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2725	if (defined $conf) {
				2726	chomp $conf;
Junio C Hamano	2eb54ef	2007-05-16 21:04:16 -0700	[diff] [blame]	2727	}
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2728	return $conf;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2729	}
				2730
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2731	sub git_get_project_description {
				2732	my $path = shift;
				2733	return git_get_file_or_project_config($path, 'description');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2734	}
				2735
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	2736	sub git_get_project_category {
				2737	my $path = shift;
				2738	return git_get_file_or_project_config($path, 'category');
				2739	}
				2740
				2741
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2742	# supported formats:
				2743	# * $GIT_DIR/ctags/<tagname> file (in 'ctags' subdirectory)
				2744	# - if its contents is a number, use it as tag weight,
				2745	# - otherwise add a tag with weight 1
				2746	# * $GIT_DIR/ctags file, each line is a tag (with weight 1)
				2747	# the same value multiple times increases tag weight
				2748	# * `gitweb.ctag' multi-valued repo config variable
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2749	sub git_get_project_ctags {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2750	my $project = shift;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2751	my $ctags = {};
				2752
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2753	$git_dir = "$projectroot/$project";
				2754	if (opendir my $dh, "$git_dir/ctags") {
				2755	my @files = grep { -f $_ } map { "$git_dir/ctags/$_" } readdir($dh);
				2756	foreach my $tagfile (@files) {
				2757	open my $ct, '<', $tagfile
				2758	or next;
				2759	my $val = <$ct>;
				2760	chomp $val if $val;
				2761	close $ct;
				2762
				2763	(my $ctag = $tagfile) =~ s#.*/##;
Jonathan Nieder	2c162b5	2011-06-09 02:08:57 -0500	[diff] [blame]	2764	if ($val =~ /^\d+$/) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2765	$ctags->{$ctag} = $val;
				2766	} else {
				2767	$ctags->{$ctag} = 1;
				2768	}
				2769	}
				2770	closedir $dh;
				2771
				2772	} elsif (open my $fh, '<', "$git_dir/ctags") {
				2773	while (my $line = <$fh>) {
				2774	chomp $line;
				2775	$ctags->{$line}++ if $line;
				2776	}
				2777	close $fh;
				2778
				2779	} else {
				2780	my $taglist = config_to_multi(git_get_project_config('ctag'));
				2781	foreach my $tag (@$taglist) {
				2782	$ctags->{$tag}++;
				2783	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2784	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2785
				2786	return $ctags;
				2787	}
				2788
				2789	# return hash, where keys are content tags ('ctags'),
				2790	# and values are sum of weights of given tag in every project
				2791	sub git_gather_all_ctags {
				2792	my $projects = shift;
				2793	my $ctags = {};
				2794
				2795	foreach my $p (@$projects) {
				2796	foreach my $ct (keys %{$p->{'ctags'}}) {
				2797	$ctags->{$ct} += $p->{'ctags'}->{$ct};
				2798	}
				2799	}
				2800
				2801	return $ctags;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2802	}
				2803
				2804	sub git_populate_project_tagcloud {
				2805	my $ctags = shift;
				2806
				2807	# First, merge different-cased tags; tags vote on casing
				2808	my %ctags_lc;
				2809	foreach (keys %$ctags) {
				2810	$ctags_lc{lc $_}->{count} += $ctags->{$_};
				2811	if (not $ctags_lc{lc $_}->{topcount}
				2812	or $ctags_lc{lc $_}->{topcount} < $ctags->{$_}) {
				2813	$ctags_lc{lc $_}->{topcount} = $ctags->{$_};
				2814	$ctags_lc{lc $_}->{topname} = $_;
				2815	}
				2816	}
				2817
				2818	my $cloud;
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	2819	my $matched = $input_params{'ctag'};
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2820	if (eval { require HTML::TagCloud; 1; }) {
				2821	$cloud = HTML::TagCloud->new;
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2822	foreach my $ctag (sort keys %ctags_lc) {
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2823	# Pad the title with spaces so that the cloud looks
				2824	# less crammed.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2825	my $title = esc_html($ctags_lc{$ctag}->{topname});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2826	$title =~ s/ / /g;
				2827	$title =~ s/^/ /g;
				2828	$title =~ s/$/ /g;
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2829	if (defined $matched && $matched eq $ctag) {
				2830	$title = qq(<span class="match">$title</span>);
				2831	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2832	$cloud->add($title, href(project=>undef, ctag=>$ctag),
				2833	$ctags_lc{$ctag}->{count});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2834	}
				2835	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2836	$cloud = {};
				2837	foreach my $ctag (keys %ctags_lc) {
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2838	my $title = esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);
				2839	if (defined $matched && $matched eq $ctag) {
				2840	$title = qq(<span class="match">$title</span>);
				2841	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2842	$cloud->{$ctag}{count} = $ctags_lc{$ctag}->{count};
				2843	$cloud->{$ctag}{ctag} =
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2844	$cgi->a({-href=>href(project=>undef, ctag=>$ctag)}, $title);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2845	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2846	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2847	return $cloud;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2848	}
				2849
				2850	sub git_show_project_tagcloud {
				2851	my ($cloud, $count) = @_;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2852	if (ref $cloud eq 'HTML::TagCloud') {
				2853	return $cloud->html_and_css($count);
				2854	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2855	my @tags = sort { $cloud->{$a}->{'count'} <=> $cloud->{$b}->{'count'} } keys %$cloud;
				2856	return
				2857	'<div id="htmltagcloud"'.($project ? '' : ' align="center"').'>' .
				2858	join (', ', map {
				2859	$cloud->{$_}->{'ctag'}
				2860	} splice(@tags, 0, $count)) .
				2861	'</div>';
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2862	}
				2863	}
				2864
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2865	sub git_get_project_url_list {
				2866	my $path = shift;
				2867
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2868	$git_dir = "$projectroot/$path";
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	2869	open my $fd, '<', "$git_dir/cloneurl"
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2870	or return wantarray ?
				2871	@{ config_to_multi(git_get_project_config('url')) } :
				2872	config_to_multi(git_get_project_config('url'));
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2873	my @git_project_url_list = map { chomp; $_ } <$fd>;
				2874	close $fd;
				2875
				2876	return wantarray ? @git_project_url_list : \@git_project_url_list;
				2877	}
				2878
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2879	sub git_get_projects_list {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2880	my $filter = shift \|\| '';
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2881	my $paranoid = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2882	my @list;
				2883
				2884	if (-d $projects_list) {
				2885	# search in directory
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2886	my $dir = $projects_list;
Aneesh Kumar K.V	6768d6b	2006-11-03 10:41:45 +0530	[diff] [blame]	2887	# remove the trailing "/"
				2888	$dir =~ s!/+$!!;
Matthieu Moy	ac593b7	2012-01-04 11:07:45 +0100	[diff] [blame]	2889	my $pfxlen = length("$dir");
				2890	my $pfxdepth = ($dir =~ tr!/!!);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2891	# when filtering, search only given subdirectory
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2892	if ($filter && !$paranoid) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2893	$dir .= "/$filter";
				2894	$dir =~ s!/+$!!;
				2895	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2896
				2897	File::Find::find({
				2898	follow_fast => 1, # follow symbolic links
Junio C Hamano	d20602e	2007-07-27 01:23:03 -0700	[diff] [blame]	2899	follow_skip => 2, # ignore duplicates
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2900	dangling_symlinks => 0, # ignore dangling symlinks, silently
				2901	wanted => sub {
Jakub Narebski	ee1d8ee	2010-04-30 18:30:31 +0200	[diff] [blame]	2902	# global variables
				2903	our $project_maxdepth;
				2904	our $projectroot;
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2905	# skip project-list toplevel, if we get it.
				2906	return if (m!^[/.]$!);
				2907	# only directories can be git repositories
				2908	return unless (-d $_);
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2909	# don't traverse too deep (Find is super slow on os x)
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2910	# $project_maxdepth excludes depth of $projectroot
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2911	if (($File::Find::name =~ tr!/!!) - $pfxdepth > $project_maxdepth) {
				2912	$File::Find::prune = 1;
				2913	return;
				2914	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2915
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2916	my $path = substr($File::Find::name, $pfxlen + 1);
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2917	# paranoidly only filter here
				2918	if ($paranoid && $filter && $path !~ m!^\Q$filter\E/!) {
				2919	next;
				2920	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2921	# we check related file in $projectroot
Devin Doucette	fb3bb3d	2008-12-27 02:39:31 -0700	[diff] [blame]	2922	if (check_export_ok("$projectroot/$path")) {
				2923	push @list, { path => $path };
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2924	$File::Find::prune = 1;
				2925	}
				2926	},
				2927	}, "$dir");
				2928
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2929	} elsif (-f $projects_list) {
				2930	# read from file(url-encoded):
				2931	# 'git%2Fgit.git Linus+Torvalds'
				2932	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				2933	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	2934	open my $fd, '<', $projects_list or return;
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	2935	PROJECT:
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2936	while (my $line = <$fd>) {
				2937	chomp $line;
				2938	my ($path, $owner) = split ' ', $line;
				2939	$path = unescape($path);
				2940	$owner = unescape($owner);
				2941	if (!defined $path) {
				2942	next;
				2943	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2944	# if $filter is rpovided, check if $path begins with $filter
				2945	if ($filter && $path !~ m!^\Q$filter\E/!) {
				2946	next;
Junio C Hamano	83ee94c	2006-11-07 22:37:17 -0800	[diff] [blame]	2947	}
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	2948	if (check_export_ok("$projectroot/$path")) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2949	my $pr = {
				2950	path => $path,
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	2951	owner => to_utf8($owner),
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2952	};
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	2953	push @list, $pr;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2954	}
				2955	}
				2956	close $fd;
				2957	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2958	return @list;
				2959	}
				2960
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2961	# written with help of Tree::Trie module (Perl Artistic License, GPL compatibile)
				2962	# as side effects it sets 'forks' field to list of forks for forked projects
				2963	sub filter_forks_from_projects_list {
				2964	my $projects = shift;
				2965
				2966	my %trie; # prefix tree of directories (path components)
				2967	# generate trie out of those directories that might contain forks
				2968	foreach my $pr (@$projects) {
				2969	my $path = $pr->{'path'};
				2970	$path =~ s/\.git$//; # forks of 'repo.git' are in 'repo/' directory
				2971	next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
				2972	next unless ($path); # skip '.git' repository: tests, git-instaweb
Julien Muchembled	53c632f	2011-10-21 21:04:21 +0200	[diff] [blame]	2973	next unless (-d "$projectroot/$path"); # containing directory exists
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2974	$pr->{'forks'} = []; # there can be 0 or more forks of project
				2975
				2976	# add to trie
				2977	my @dirs = split('/', $path);
				2978	# walk the trie, until either runs out of components or out of trie
				2979	my $ref = \%trie;
				2980	while (scalar @dirs &&
				2981	exists($ref->{$dirs[0]})) {
				2982	$ref = $ref->{shift @dirs};
				2983	}
				2984	# create rest of trie structure from rest of components
				2985	foreach my $dir (@dirs) {
				2986	$ref = $ref->{$dir} = {};
				2987	}
				2988	# create end marker, store $pr as a data
				2989	$ref->{''} = $pr if (!exists $ref->{''});
				2990	}
				2991
				2992	# filter out forks, by finding shortest prefix match for paths
				2993	my @filtered;
				2994	PROJECT:
				2995	foreach my $pr (@$projects) {
				2996	# trie lookup
				2997	my $ref = \%trie;
				2998	DIR:
				2999	foreach my $dir (split('/', $pr->{'path'})) {
				3000	if (exists $ref->{''}) {
				3001	# found [shortest] prefix, is a fork - skip it
				3002	push @{$ref->{''}{'forks'}}, $pr;
				3003	next PROJECT;
				3004	}
				3005	if (!exists $ref->{$dir}) {
				3006	# not in trie, cannot have prefix, not a fork
				3007	push @filtered, $pr;
				3008	next PROJECT;
				3009	}
				3010	# If the dir is there, we just walk one step down the trie.
				3011	$ref = $ref->{$dir};
				3012	}
				3013	# we ran out of trie
				3014	# (shouldn't happen: it's either no match, or end marker)
				3015	push @filtered, $pr;
				3016	}
				3017
				3018	return @filtered;
				3019	}
				3020
				3021	# note: fill_project_list_info must be run first,
				3022	# for 'descr_long' and 'ctags' to be filled
				3023	sub search_projects_list {
				3024	my ($projlist, %opts) = @_;
				3025	my $tagfilter = $opts{'tagfilter'};
				3026	my $searchtext = $opts{'searchtext'};
				3027
				3028	return @$projlist
				3029	unless ($tagfilter \|\| $searchtext);
				3030
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	3031	# searching projects require filling to be run before it;
				3032	fill_project_list_info($projlist,
				3033	$tagfilter ? 'ctags' : (),
				3034	$searchtext ? ('path', 'descr') : ());
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3035	my @projects;
				3036	PROJECT:
				3037	foreach my $pr (@$projlist) {
				3038
				3039	if ($tagfilter) {
				3040	next unless ref($pr->{'ctags'}) eq 'HASH';
				3041	next unless
				3042	grep { lc($_) eq lc($tagfilter) } keys %{$pr->{'ctags'}};
				3043	}
				3044
				3045	if ($searchtext) {
				3046	next unless
				3047	$pr->{'path'} =~ /$searchtext/ \|\|
				3048	$pr->{'descr_long'} =~ /$searchtext/;
				3049	}
				3050
				3051	push @projects, $pr;
				3052	}
				3053
				3054	return @projects;
				3055	}
				3056
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3057	our $gitweb_project_owner = undef;
				3058	sub git_get_project_list_from_file {
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3059
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3060	return if (defined $gitweb_project_owner);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3061
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3062	$gitweb_project_owner = {};
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3063	# read from file (url-encoded):
				3064	# 'git%2Fgit.git Linus+Torvalds'
				3065	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3066	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
				3067	if (-f $projects_list) {
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3068	open(my $fd, '<', $projects_list);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3069	while (my $line = <$fd>) {
				3070	chomp $line;
				3071	my ($pr, $ow) = split ' ', $line;
				3072	$pr = unescape($pr);
				3073	$ow = unescape($ow);
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3074	$gitweb_project_owner->{$pr} = to_utf8($ow);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3075	}
				3076	close $fd;
				3077	}
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3078	}
				3079
				3080	sub git_get_project_owner {
				3081	my $project = shift;
				3082	my $owner;
				3083
				3084	return undef unless $project;
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3085	$git_dir = "$projectroot/$project";
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3086
				3087	if (!defined $gitweb_project_owner) {
				3088	git_get_project_list_from_file();
				3089	}
				3090
				3091	if (exists $gitweb_project_owner->{$project}) {
				3092	$owner = $gitweb_project_owner->{$project};
				3093	}
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3094	if (!defined $owner){
				3095	$owner = git_get_project_config('owner');
				3096	}
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3097	if (!defined $owner) {
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3098	$owner = get_file_owner("$git_dir");
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3099	}
				3100
				3101	return $owner;
				3102	}
				3103
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3104	sub git_get_last_activity {
				3105	my ($path) = @_;
				3106	my $fd;
				3107
				3108	$git_dir = "$projectroot/$path";
				3109	open($fd, "-\|", git_cmd(), 'for-each-ref',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3110	'--format=%(committer)',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3111	'--sort=-committerdate',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3112	'--count=1',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3113	'refs/heads') or return;
				3114	my $most_recent = <$fd>;
				3115	close $fd or return;
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	3116	if (defined $most_recent &&
				3117	$most_recent =~ / (\d+) [-+][01]\d\d\d$/) {
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3118	my $timestamp = $1;
				3119	my $age = time - $timestamp;
				3120	return ($age, age_string($age));
				3121	}
Matt McCutchen	c956395	2007-06-28 18:15:22 -0400	[diff] [blame]	3122	return (undef, undef);
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3123	}
				3124
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	3125	# Implementation note: when a single remote is wanted, we cannot use 'git
				3126	# remote show -n' because that command always work (assuming it's a remote URL
				3127	# if it's not defined), and we cannot use 'git remote show' because that would
				3128	# try to make a network roundtrip. So the only way to find if that particular
				3129	# remote is defined is to walk the list provided by 'git remote -v' and stop if
				3130	# and when we find what we want.
				3131	sub git_get_remotes_list {
				3132	my $wanted = shift;
				3133	my %remotes = ();
				3134
				3135	open my $fd, '-\|' , git_cmd(), 'remote', '-v';
				3136	return unless $fd;
				3137	while (my $remote = <$fd>) {
				3138	chomp $remote;
				3139	$remote =~ s!\t(.*?)\s+$(\w+)$$!!;
				3140	next if $wanted and not $remote eq $wanted;
				3141	my ($url, $key) = ($1, $2);
				3142
				3143	$remotes{$remote} \|\|= { 'heads' => () };
				3144	$remotes{$remote}{$key} = $url;
				3145	}
				3146	close $fd or return;
				3147	return wantarray ? %remotes : \%remotes;
				3148	}
				3149
				3150	# Takes a hash of remotes as first parameter and fills it by adding the
				3151	# available remote heads for each of the indicated remotes.
				3152	sub fill_remote_heads {
				3153	my $remotes = shift;
				3154	my @heads = map { "remotes/$_" } keys %$remotes;
				3155	my @remoteheads = git_get_heads_list(undef, @heads);
				3156	foreach my $remote (keys %$remotes) {
				3157	$remotes->{$remote}{'heads'} = [ grep {
				3158	$_->{'name'} =~ s!^$remote/!!
				3159	} @remoteheads ];
				3160	}
				3161	}
				3162
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3163	sub git_get_references {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3164	my $type = shift \|\| "";
				3165	my %refs;
Jakub Narebski	28b9d9f	2006-11-25 11:32:08 +0100	[diff] [blame]	3166	# 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11
				3167	# c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}
				3168	open my $fd, "-\|", git_cmd(), "show-ref", "--dereference",
				3169	($type ? ("--", "refs/$type") : ()) # use -- <pattern> if $type
Jakub Narebski	9704d75	2006-09-19 14:31:49 +0200	[diff] [blame]	3170	or return;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3171
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3172	while (my $line = <$fd>) {
				3173	chomp $line;
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	3174	if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3175	if (defined $refs{$1}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3176	push @{$refs{$1}}, $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3177	} else {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3178	$refs{$1} = [ $2 ];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3179	}
				3180	}
				3181	}
				3182	close $fd or return;
				3183	return \%refs;
				3184	}
				3185
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3186	sub git_get_rev_name_tags {
				3187	my $hash = shift \|\| return undef;
				3188
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3189	open my $fd, "-\|", git_cmd(), "name-rev", "--tags", $hash
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3190	or return;
				3191	my $name_rev = <$fd>;
				3192	close $fd;
				3193
				3194	if ($name_rev =~ m\|^$hash tags/(.*)$\|) {
				3195	return $1;
				3196	} else {
				3197	# catches also '$hash undefined' output
				3198	return undef;
				3199	}
				3200	}
				3201
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3202	## ----------------------------------------------------------------------
				3203	## parse to hash functions
				3204
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3205	sub parse_date {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3206	my $epoch = shift;
				3207	my $tz = shift \|\| "-0000";
				3208
				3209	my %date;
				3210	my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
				3211	my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
				3212	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
				3213	$date{'hour'} = $hour;
				3214	$date{'minute'} = $min;
				3215	$date{'mday'} = $mday;
				3216	$date{'day'} = $days[$wday];
				3217	$date{'month'} = $months[$mon];
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3218	$date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000",
				3219	$days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3220	$date{'mday-time'} = sprintf "%d %s %02d:%02d",
				3221	$mday, $months[$mon], $hour ,$min;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3222	$date{'iso-8601'} = sprintf "%04d-%02d-%02dT%02d:%02d:%02dZ",
Vincent Zanotti	a62d6d8	2007-11-10 19:55:27 +0100	[diff] [blame]	3223	1900+$year, 1+$mon, $mday, $hour ,$min, $sec;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3224
Jakub Narebski	2b1e172	2011-03-25 20:20:49 +0100	[diff] [blame]	3225	my ($tz_sign, $tz_hour, $tz_min) =
				3226	($tz =~ m/^([-+])(\d\d)(\d\d)$/);
				3227	$tz_sign = ($tz_sign eq '-' ? -1 : +1);
				3228	my $local = $epoch + $tz_sign((($tz_hour60) + $tz_min)*60);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3229	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local);
				3230	$date{'hour_local'} = $hour;
				3231	$date{'minute_local'} = $min;
				3232	$date{'tz_local'} = $tz;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3233	$date{'iso-tz'} = sprintf("%04d-%02d-%02d %02d:%02d:%02d %s",
				3234	1900+$year, $mon+1, $mday,
				3235	$hour, $min, $sec, $tz);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3236	return %date;
				3237	}
				3238
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3239	sub parse_tag {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3240	my $tag_id = shift;
				3241	my %tag;
				3242	my @comment;
				3243
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3244	open my $fd, "-\|", git_cmd(), "cat-file", "tag", $tag_id or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3245	$tag{'id'} = $tag_id;
				3246	while (my $line = <$fd>) {
				3247	chomp $line;
				3248	if ($line =~ m/^object ([0-9a-fA-F]{40})$/) {
				3249	$tag{'object'} = $1;
				3250	} elsif ($line =~ m/^type (.+)$/) {
				3251	$tag{'type'} = $1;
				3252	} elsif ($line =~ m/^tag (.+)$/) {
				3253	$tag{'name'} = $1;
				3254	} elsif ($line =~ m/^tagger (.) ([0-9]+) (.)$/) {
				3255	$tag{'author'} = $1;
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	3256	$tag{'author_epoch'} = $2;
				3257	$tag{'author_tz'} = $3;
				3258	if ($tag{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3259	$tag{'author_name'} = $1;
				3260	$tag{'author_email'} = $2;
				3261	} else {
				3262	$tag{'author_name'} = $tag{'author'};
				3263	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3264	} elsif ($line =~ m/--BEGIN/) {
				3265	push @comment, $line;
				3266	last;
				3267	} elsif ($line eq "") {
				3268	last;
				3269	}
				3270	}
				3271	push @comment, <$fd>;
				3272	$tag{'comment'} = \@comment;
				3273	close $fd or return;
				3274	if (!defined $tag{'name'}) {
				3275	return
				3276	};
				3277	return %tag
				3278	}
				3279
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3280	sub parse_commit_text {
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3281	my ($commit_text, $withparents) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3282	my @commit_lines = split '\n', $commit_text;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3283	my %co;
				3284
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3285	pop @commit_lines; # Remove '\0'
				3286
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3287	if (! @commit_lines) {
				3288	return;
				3289	}
				3290
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3291	my $header = shift @commit_lines;
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3292	if ($header !~ m/^[0-9a-fA-F]{40}/) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3293	return;
				3294	}
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3295	($co{'id'}, my @parents) = split ' ', $header;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3296	while (my $line = shift @commit_lines) {
				3297	last if $line eq "\n";
				3298	if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) {
				3299	$co{'tree'} = $1;
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3300	} elsif ((!defined $withparents) && ($line =~ m/^parent ([0-9a-fA-F]{40})$/)) {
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3301	push @parents, $1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3302	} elsif ($line =~ m/^author (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3303	$co{'author'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3304	$co{'author_epoch'} = $2;
				3305	$co{'author_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3306	if ($co{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3307	$co{'author_name'} = $1;
				3308	$co{'author_email'} = $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3309	} else {
				3310	$co{'author_name'} = $co{'author'};
				3311	}
				3312	} elsif ($line =~ m/^committer (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3313	$co{'committer'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3314	$co{'committer_epoch'} = $2;
				3315	$co{'committer_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3316	if ($co{'committer'} =~ m/^([^<]+) <([^>]*)>/) {
				3317	$co{'committer_name'} = $1;
				3318	$co{'committer_email'} = $2;
				3319	} else {
				3320	$co{'committer_name'} = $co{'committer'};
				3321	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3322	}
				3323	}
				3324	if (!defined $co{'tree'}) {
				3325	return;
				3326	};
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3327	$co{'parents'} = \@parents;
				3328	$co{'parent'} = $parents[0];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3329
				3330	foreach my $title (@commit_lines) {
				3331	$title =~ s/^ //;
				3332	if ($title ne "") {
				3333	$co{'title'} = chop_str($title, 80, 5);
				3334	# remove leading stuff of merges to make the interesting part visible
				3335	if (length($title) > 50) {
				3336	$title =~ s/^Automatic //;
				3337	$title =~ s/^merge (of\|with) /Merge ... /i;
				3338	if (length($title) > 50) {
				3339	$title =~ s/(http\|rsync):\/\///;
				3340	}
				3341	if (length($title) > 50) {
				3342	$title =~ s/(master\|www\|rsync)\.//;
				3343	}
				3344	if (length($title) > 50) {
				3345	$title =~ s/kernel.org:?//;
				3346	}
				3347	if (length($title) > 50) {
				3348	$title =~ s/\/pub\/scm//;
				3349	}
				3350	}
				3351	$co{'title_short'} = chop_str($title, 50, 5);
				3352	last;
				3353	}
				3354	}
Joey Hess	53c3967	2008-09-05 14:26:29 -0400	[diff] [blame]	3355	if (! defined $co{'title'} \|\| $co{'title'} eq "") {
Petr Baudis	7e0fe5c	2006-10-06 18:55:04 +0200	[diff] [blame]	3356	$co{'title'} = $co{'title_short'} = '(no commit message)';
				3357	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3358	# remove added spaces
				3359	foreach my $line (@commit_lines) {
				3360	$line =~ s/^ //;
				3361	}
				3362	$co{'comment'} = \@commit_lines;
				3363
				3364	my $age = time - $co{'committer_epoch'};
				3365	$co{'age'} = $age;
				3366	$co{'age_string'} = age_string($age);
				3367	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'});
				3368	if ($age > 60602472) {
				3369	$co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3370	$co{'age_string_age'} = $co{'age_string'};
				3371	} else {
				3372	$co{'age_string_date'} = $co{'age_string'};
				3373	$co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3374	}
				3375	return %co;
				3376	}
				3377
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3378	sub parse_commit {
				3379	my ($commit_id) = @_;
				3380	my %co;
				3381
				3382	local $/ = "\0";
				3383
				3384	open my $fd, "-\|", git_cmd(), "rev-list",
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3385	"--parents",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3386	"--header",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3387	"--max-count=1",
				3388	$commit_id,
				3389	"--",
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3390	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3391	%co = parse_commit_text(<$fd>, 1);
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3392	close $fd;
				3393
				3394	return %co;
				3395	}
				3396
				3397	sub parse_commits {
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3398	my ($commit_id, $maxcount, $skip, $filename, @args) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3399	my @cos;
				3400
				3401	$maxcount \|\|= 1;
				3402	$skip \|\|= 0;
				3403
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3404	local $/ = "\0";
				3405
				3406	open my $fd, "-\|", git_cmd(), "rev-list",
				3407	"--header",
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3408	@args,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3409	("--max-count=" . $maxcount),
Robert Fitzsimons	f47efbb	2006-12-24 14:31:49 +0000	[diff] [blame]	3410	("--skip=" . $skip),
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	3411	@extra_options,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3412	$commit_id,
				3413	"--",
				3414	($filename ? ($filename) : ())
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3415	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3416	while (my $line = <$fd>) {
				3417	my %co = parse_commit_text($line);
				3418	push @cos, \%co;
				3419	}
				3420	close $fd;
				3421
				3422	return wantarray ? @cos : \@cos;
				3423	}
				3424
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3425	# parse line of git-diff-tree "raw" output
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3426	sub parse_difftree_raw_line {
				3427	my $line = shift;
				3428	my %res;
				3429
				3430	# ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
				3431	# ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
				3432	if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/) {
				3433	$res{'from_mode'} = $1;
				3434	$res{'to_mode'} = $2;
				3435	$res{'from_id'} = $3;
				3436	$res{'to_id'} = $4;
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	3437	$res{'status'} = $5;
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3438	$res{'similarity'} = $6;
				3439	if ($res{'status'} eq 'R' \|\| $res{'status'} eq 'C') { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3440	($res{'from_file'}, $res{'to_file'}) = map { unquote($_) } split("\t", $7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3441	} else {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3442	$res{'from_file'} = $res{'to_file'} = $res{'file'} = unquote($7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3443	}
				3444	}
Jakub Narebski	78bc403	2007-05-07 01:10:03 +0200	[diff] [blame]	3445	# '::100755 100755 100755 60e79ca1b01bc8b057abe17ddab484699a7f5fdb 94067cc5f73388f33722d52ae02f44692bc07490 94067cc5f73388f33722d52ae02f44692bc07490 MR git-gui/git-gui.sh'
				3446	# combined diff (for merge commit)
				3447	elsif ($line =~ s/^(::+)((?:[0-7]{6} )+)((?:[0-9a-fA-F]{40} )+)([a-zA-Z]+)\t(.*)$//) {
				3448	$res{'nparents'} = length($1);
				3449	$res{'from_mode'} = [ split(' ', $2) ];
				3450	$res{'to_mode'} = pop @{$res{'from_mode'}};
				3451	$res{'from_id'} = [ split(' ', $3) ];
				3452	$res{'to_id'} = pop @{$res{'from_id'}};
				3453	$res{'status'} = [ split('', $4) ];
				3454	$res{'to_file'} = unquote($5);
				3455	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3456	# 'c512b523472485aef4fff9e57b229d9d243c967f'
Jakub Narebski	0edcb37	2006-08-31 00:36:04 +0200	[diff] [blame]	3457	elsif ($line =~ m/^([0-9a-fA-F]{40})$/) {
				3458	$res{'commit'} = $1;
				3459	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3460
				3461	return wantarray ? %res : \%res;
				3462	}
				3463
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3464	# wrapper: return parsed line of git-diff-tree "raw" output
				3465	# (the argument might be raw line, or parsed info)
				3466	sub parsed_difftree_line {
				3467	my $line_or_ref = shift;
				3468
				3469	if (ref($line_or_ref) eq "HASH") {
				3470	# pre-parsed (or generated by hand)
				3471	return $line_or_ref;
				3472	} else {
				3473	return parse_difftree_raw_line($line_or_ref);
				3474	}
				3475	}
				3476
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3477	# parse line of git-ls-tree output
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	3478	sub parse_ls_tree_line {
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3479	my $line = shift;
				3480	my %opts = @_;
				3481	my %res;
				3482
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3483	if ($opts{'-l'}) {
				3484	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa 16717 panic.c'
				3485	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40}) +(-\|[0-9]+)\t(.+)$/s;
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3486
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3487	$res{'mode'} = $1;
				3488	$res{'type'} = $2;
				3489	$res{'hash'} = $3;
				3490	$res{'size'} = $4;
				3491	if ($opts{'-z'}) {
				3492	$res{'name'} = $5;
				3493	} else {
				3494	$res{'name'} = unquote($5);
				3495	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3496	} else {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3497	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				3498	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/s;
				3499
				3500	$res{'mode'} = $1;
				3501	$res{'type'} = $2;
				3502	$res{'hash'} = $3;
				3503	if ($opts{'-z'}) {
				3504	$res{'name'} = $4;
				3505	} else {
				3506	$res{'name'} = unquote($4);
				3507	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3508	}
				3509
				3510	return wantarray ? %res : \%res;
				3511	}
				3512
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3513	# generates _two_ hashes, references to which are passed as 2 and 3 argument
				3514	sub parse_from_to_diffinfo {
				3515	my ($diffinfo, $from, $to, @parents) = @_;
				3516
				3517	if ($diffinfo->{'nparents'}) {
				3518	# combined diff
				3519	$from->{'file'} = [];
				3520	$from->{'href'} = [];
				3521	fill_from_file_info($diffinfo, @parents)
				3522	unless exists $diffinfo->{'from_file'};
				3523	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3524	$from->{'file'}[$i] =
				3525	defined $diffinfo->{'from_file'}[$i] ?
				3526	$diffinfo->{'from_file'}[$i] :
				3527	$diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3528	if ($diffinfo->{'status'}[$i] ne "A") { # not new (added) file
				3529	$from->{'href'}[$i] = href(action=>"blob",
				3530	hash_base=>$parents[$i],
				3531	hash=>$diffinfo->{'from_id'}[$i],
				3532	file_name=>$from->{'file'}[$i]);
				3533	} else {
				3534	$from->{'href'}[$i] = undef;
				3535	}
				3536	}
				3537	} else {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3538	# ordinary (not combined) diff
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3539	$from->{'file'} = $diffinfo->{'from_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3540	if ($diffinfo->{'status'} ne "A") { # not new (added) file
				3541	$from->{'href'} = href(action=>"blob", hash_base=>$hash_parent,
				3542	hash=>$diffinfo->{'from_id'},
				3543	file_name=>$from->{'file'});
				3544	} else {
				3545	delete $from->{'href'};
				3546	}
				3547	}
				3548
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3549	$to->{'file'} = $diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3550	if (!is_deleted($diffinfo)) { # file exists in result
				3551	$to->{'href'} = href(action=>"blob", hash_base=>$hash,
				3552	hash=>$diffinfo->{'to_id'},
				3553	file_name=>$to->{'file'});
				3554	} else {
				3555	delete $to->{'href'};
				3556	}
				3557	}
				3558
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3559	## ......................................................................
				3560	## parse to array of hashes functions
				3561
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3562	sub git_get_heads_list {
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3563	my ($limit, @classes) = @_;
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	3564	@classes = ('heads') unless @classes;
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3565	my @patterns = map { "refs/$_" } @classes;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3566	my @headslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3567
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3568	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3569	($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate',
				3570	'--format=%(objectname) %(refname) %(subject)%00%(committer)',
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3571	@patterns
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3572	or return;
				3573	while (my $line = <$fd>) {
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3574	my %ref_item;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	3575
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3576	chomp $line;
				3577	my ($refinfo, $committerinfo) = split(/\0/, $line);
				3578	my ($hash, $name, $title) = split(' ', $refinfo, 3);
				3579	my ($committer, $epoch, $tz) =
				3580	($committerinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3581	$ref_item{'fullname'} = $name;
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	3582	$name =~ s!^refs/(?:head\|remote)s/!!;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3583
				3584	$ref_item{'name'} = $name;
				3585	$ref_item{'id'} = $hash;
				3586	$ref_item{'title'} = $title \|\| '(no commit message)';
				3587	$ref_item{'epoch'} = $epoch;
				3588	if ($epoch) {
				3589	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3590	} else {
				3591	$ref_item{'age'} = "unknown";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3592	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3593
				3594	push @headslist, \%ref_item;
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3595	}
				3596	close $fd;
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	3597
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3598	return wantarray ? @headslist : \@headslist;
				3599	}
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3600
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3601	sub git_get_tags_list {
				3602	my $limit = shift;
				3603	my @tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3604
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3605	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3606	($limit ? '--count='.($limit+1) : ()), '--sort=-creatordate',
				3607	'--format=%(objectname) %(objecttype) %(refname) '.
				3608	'%(objectname) %(objecttype) %(subject)%00%(creator)',
				3609	'refs/tags'
				3610	or return;
				3611	while (my $line = <$fd>) {
				3612	my %ref_item;
				3613
				3614	chomp $line;
				3615	my ($refinfo, $creatorinfo) = split(/\0/, $line);
				3616	my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);
				3617	my ($creator, $epoch, $tz) =
				3618	($creatorinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3619	$ref_item{'fullname'} = $name;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3620	$name =~ s!^refs/tags/!!;
				3621
				3622	$ref_item{'type'} = $type;
				3623	$ref_item{'id'} = $id;
				3624	$ref_item{'name'} = $name;
				3625	if ($type eq "tag") {
				3626	$ref_item{'subject'} = $title;
				3627	$ref_item{'reftype'} = $reftype;
				3628	$ref_item{'refid'} = $refid;
				3629	} else {
				3630	$ref_item{'reftype'} = $type;
				3631	$ref_item{'refid'} = $id;
				3632	}
				3633
				3634	if ($type eq "tag" \|\| $type eq "commit") {
				3635	$ref_item{'epoch'} = $epoch;
				3636	if ($epoch) {
				3637	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3638	} else {
				3639	$ref_item{'age'} = "unknown";
				3640	}
				3641	}
				3642
				3643	push @tagslist, \%ref_item;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3644	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3645	close $fd;
				3646
				3647	return wantarray ? @tagslist : \@tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3648	}
				3649
				3650	## ----------------------------------------------------------------------
				3651	## filesystem-related functions
				3652
				3653	sub get_file_owner {
				3654	my $path = shift;
				3655
				3656	my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path);
				3657	my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid);
				3658	if (!defined $gcos) {
				3659	return undef;
				3660	}
				3661	my $owner = $gcos;
				3662	$owner =~ s/[,;].*$//;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	3663	return to_utf8($owner);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3664	}
				3665
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3666	# assume that file exists
				3667	sub insert_file {
				3668	my $filename = shift;
				3669
				3670	open my $fd, '<', $filename;
Jakub Narebski	4586864	2008-12-08 14:13:21 +0100	[diff] [blame]	3671	print map { to_utf8($_) } <$fd>;
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3672	close $fd;
				3673	}
				3674
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3675	## ......................................................................
				3676	## mimetype related functions
				3677
				3678	sub mimetype_guess_file {
				3679	my $filename = shift;
				3680	my $mimemap = shift;
				3681	-r $mimemap or return undef;
				3682
				3683	my %mimemap;
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3684	open(my $mh, '<', $mimemap) or return undef;
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3685	while (<$mh>) {
Jakub Narebski	618918e	2006-08-14 02:15:22 +0200	[diff] [blame]	3686	next if m/^#/; # skip comments
Ludwig Nussel	93a6ad1	2011-06-15 08:10:08 +0200	[diff] [blame]	3687	my ($mimetype, @exts) = split(/\s+/);
				3688	foreach my $ext (@exts) {
				3689	$mimemap{$ext} = $mimetype;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3690	}
				3691	}
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3692	close($mh);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3693
Jakub Narebski	8059319	2006-09-19 13:57:03 +0200	[diff] [blame]	3694	$filename =~ /\.([^.]*)$/;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3695	return $mimemap{$1};
				3696	}
				3697
				3698	sub mimetype_guess {
				3699	my $filename = shift;
				3700	my $mime;
				3701	$filename =~ /\./ or return undef;
				3702
				3703	if ($mimetypes_file) {
				3704	my $file = $mimetypes_file;
Jakub Narebski	d5aa50d	2006-08-14 02:16:33 +0200	[diff] [blame]	3705	if ($file !~ m!^/!) { # if it is relative path
				3706	# it is relative to project
				3707	$file = "$projectroot/$project/$file";
				3708	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3709	$mime = mimetype_guess_file($filename, $file);
				3710	}
				3711	$mime \|\|= mimetype_guess_file($filename, '/etc/mime.types');
				3712	return $mime;
				3713	}
				3714
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3715	sub blob_mimetype {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3716	my $fd = shift;
				3717	my $filename = shift;
				3718
				3719	if ($filename) {
				3720	my $mime = mimetype_guess($filename);
				3721	$mime and return $mime;
				3722	}
				3723
				3724	# just in case
				3725	return $default_blob_plain_mimetype unless $fd;
				3726
				3727	if (-T $fd) {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3728	return 'text/plain';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3729	} elsif (! $filename) {
				3730	return 'application/octet-stream';
				3731	} elsif ($filename =~ m/\.png$/i) {
				3732	return 'image/png';
				3733	} elsif ($filename =~ m/\.gif$/i) {
				3734	return 'image/gif';
				3735	} elsif ($filename =~ m/\.jpe?g$/i) {
				3736	return 'image/jpeg';
				3737	} else {
				3738	return 'application/octet-stream';
				3739	}
				3740	}
				3741
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3742	sub blob_contenttype {
				3743	my ($fd, $file_name, $type) = @_;
				3744
				3745	$type \|\|= blob_mimetype($fd, $file_name);
				3746	if ($type eq 'text/plain' && defined $default_text_plain_charset) {
				3747	$type .= "; charset=$default_text_plain_charset";
				3748	}
				3749
				3750	return $type;
				3751	}
				3752
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3753	# guess file syntax for syntax highlighting; return undef if no highlighting
				3754	# the name of syntax can (in the future) depend on syntax highlighter used
				3755	sub guess_file_syntax {
				3756	my ($highlight, $mimetype, $file_name) = @_;
				3757	return undef unless ($highlight && defined $file_name);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3758	my $basename = basename($file_name, '.in');
				3759	return $highlight_basename{$basename}
				3760	if exists $highlight_basename{$basename};
				3761
				3762	$basename =~ /\.([^.]*)$/;
				3763	my $ext = $1 or return undef;
				3764	return $highlight_ext{$ext}
				3765	if exists $highlight_ext{$ext};
				3766
				3767	return undef;
				3768	}
				3769
				3770	# run highlighter and return FD of its output,
				3771	# or return original FD if no highlighting
				3772	sub run_highlighter {
				3773	my ($fd, $highlight, $syntax) = @_;
				3774	return $fd unless ($highlight && defined $syntax);
				3775
Sylvain Rabot	3ca7353	2010-12-30 22:20:29 +0100	[diff] [blame]	3776	close $fd;
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3777	open $fd, quote_command(git_cmd(), "cat-file", "blob", $hash)." \| ".
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	3778	quote_command($highlight_bin).
Kevin Cernekee	6affdbe	2011-03-16 15:34:13 -0700	[diff] [blame]	3779	" --replace-tabs=8 --fragment --syntax $syntax \|"
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3780	or die_error(500, "Couldn't open file or run syntax highlighter");
				3781	return $fd;
				3782	}
				3783
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3784	## ======================================================================
				3785	## functions printing HTML: header, footer, error page
				3786
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3787	sub get_page_title {
				3788	my $title = to_utf8($site_name);
				3789
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3790	unless (defined $project) {
				3791	if (defined $project_filter) {
Jakub Narebski	f421208	2012-02-12 16:21:30 +0100	[diff] [blame]	3792	$title .= " - projects in '" . esc_path($project_filter) . "'";
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3793	}
				3794	return $title;
				3795	}
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3796	$title .= " - " . to_utf8($project);
				3797
				3798	return $title unless (defined $action);
				3799	$title .= "/$action"; # $action is US-ASCII (7bit ASCII)
				3800
				3801	return $title unless (defined $file_name);
				3802	$title .= " - " . esc_path($file_name);
				3803	if ($action eq "tree" && $file_name !~ m\|/$\|) {
				3804	$title .= "/";
				3805	}
				3806
				3807	return $title;
				3808	}
				3809
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3810	sub get_content_type_html {
				3811	# require explicit support from the UA if we are to send the page as
				3812	# 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
				3813	# we have to do this because MSIE sometimes globs '/', pretending to
				3814	# support xhtml+xml but choking when it gets what it asked for.
				3815	if (defined $cgi->http('HTTP_ACCEPT') &&
				3816	$cgi->http('HTTP_ACCEPT') =~ m/(,\|;\|\s\|^)application\/xhtml\+xml(,\|;\|\s\|$)/ &&
				3817	$cgi->Accept('application/xhtml+xml') != 0) {
				3818	return 'application/xhtml+xml';
				3819	} else {
				3820	return 'text/html';
				3821	}
				3822	}
				3823
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3824	sub print_feed_meta {
				3825	if (defined $project) {
				3826	my %href_params = get_feed_info();
				3827	if (!exists $href_params{'-title'}) {
				3828	$href_params{'-title'} = 'log';
				3829	}
				3830
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	3831	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3832	my $type = lc($format);
				3833	my %link_attr = (
				3834	'-rel' => 'alternate',
				3835	'-title' => esc_attr("$project - $href_params{'-title'} - $format feed"),
				3836	'-type' => "application/$type+xml"
				3837	);
				3838
				3839	$href_params{'action'} = $type;
				3840	$link_attr{'-href'} = href(%href_params);
				3841	print "<link ".
				3842	"rel=\"$link_attr{'-rel'}\" ".
				3843	"title=\"$link_attr{'-title'}\" ".
				3844	"href=\"$link_attr{'-href'}\" ".
				3845	"type=\"$link_attr{'-type'}\" ".
				3846	"/>\n";
				3847
				3848	$href_params{'extra_options'} = '--no-merges';
				3849	$link_attr{'-href'} = href(%href_params);
				3850	$link_attr{'-title'} .= ' (no merges)';
				3851	print "<link ".
				3852	"rel=\"$link_attr{'-rel'}\" ".
				3853	"title=\"$link_attr{'-title'}\" ".
				3854	"href=\"$link_attr{'-href'}\" ".
				3855	"type=\"$link_attr{'-type'}\" ".
				3856	"/>\n";
				3857	}
				3858
				3859	} else {
				3860	printf('<link rel="alternate" title="%s projects list" '.
				3861	'href="%s" type="text/plain; charset=utf-8" />'."\n",
				3862	esc_attr($site_name), href(project=>undef, action=>"project_index"));
				3863	printf('<link rel="alternate" title="%s projects feeds" '.
				3864	'href="%s" type="text/x-opml" />'."\n",
				3865	esc_attr($site_name), href(project=>undef, action=>"opml"));
				3866	}
				3867	}
				3868
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3869	sub print_header_links {
				3870	my $status = shift;
				3871
				3872	# print out each stylesheet that exist, providing backwards capability
				3873	# for those people who defined $stylesheet in a config file
				3874	if (defined $stylesheet) {
				3875	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3876	} else {
				3877	foreach my $stylesheet (@stylesheets) {
				3878	next unless $stylesheet;
				3879	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3880	}
				3881	}
				3882	print_feed_meta()
				3883	if ($status eq '200 OK');
				3884	if (defined $favicon) {
				3885	print qq(<link rel="shortcut icon" href=").esc_url($favicon).qq(" type="image/png" />\n);
				3886	}
				3887	}
				3888
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	3889	sub print_nav_breadcrumbs_path {
				3890	my $dirprefix = undef;
				3891	while (my $part = shift) {
				3892	$dirprefix .= "/" if defined $dirprefix;
				3893	$dirprefix .= $part;
				3894	print $cgi->a({-href => href(project => undef,
				3895	project_filter => $dirprefix,
				3896	action => "project_list")},
				3897	esc_html($part)) . " / ";
				3898	}
				3899	}
				3900
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3901	sub print_nav_breadcrumbs {
				3902	my %opts = @_;
				3903
				3904	print $cgi->a({-href => esc_url($home_link)}, $home_link_str) . " / ";
				3905	if (defined $project) {
Bernhard R. Link	4426ba2	2012-01-30 21:10:23 +0100	[diff] [blame]	3906	my @dirname = split '/', $project;
				3907	my $projectbasename = pop @dirname;
				3908	print_nav_breadcrumbs_path(@dirname);
				3909	print $cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3910	if (defined $action) {
				3911	my $action_print = $action ;
				3912	if (defined $opts{-action_extra}) {
				3913	$action_print = $cgi->a({-href => href(action=>$action)},
				3914	$action);
				3915	}
				3916	print " / $action_print";
				3917	}
				3918	if (defined $opts{-action_extra}) {
				3919	print " / $opts{-action_extra}";
				3920	}
				3921	print "\n";
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	3922	} elsif (defined $project_filter) {
				3923	print_nav_breadcrumbs_path(split '/', $project_filter);
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3924	}
				3925	}
				3926
				3927	sub print_search_form {
				3928	if (!defined $searchtext) {
				3929	$searchtext = "";
				3930	}
				3931	my $search_hash;
				3932	if (defined $hash_base) {
				3933	$search_hash = $hash_base;
				3934	} elsif (defined $hash) {
				3935	$search_hash = $hash;
				3936	} else {
				3937	$search_hash = "HEAD";
				3938	}
				3939	my $action = $my_uri;
				3940	my $use_pathinfo = gitweb_check_feature('pathinfo');
				3941	if ($use_pathinfo) {
				3942	$action .= "/".esc_url($project);
				3943	}
				3944	print $cgi->startform(-method => "get", -action => $action) .
				3945	"<div class=\"search\">\n" .
				3946	(!$use_pathinfo &&
				3947	$cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) . "\n") .
				3948	$cgi->input({-name=>"a", -value=>"search", -type=>"hidden"}) . "\n" .
				3949	$cgi->input({-name=>"h", -value=>$search_hash, -type=>"hidden"}) . "\n" .
				3950	$cgi->popup_menu(-name => 'st', -default => 'commit',
				3951	-values => ['commit', 'grep', 'author', 'committer', 'pickaxe']) .
				3952	$cgi->sup($cgi->a({-href => href(action=>"search_help")}, "?")) .
				3953	" search:\n",
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	3954	$cgi->textfield(-name => "s", -value => $searchtext, -override => 1) . "\n" .
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3955	"<span title=\"Extended regular expression\">" .
				3956	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				3957	-checked => $search_use_regexp) .
				3958	"</span>" .
				3959	"</div>" .
				3960	$cgi->end_form() . "\n";
				3961	}
				3962
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	3963	sub git_header_html {
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3964	my $status = shift \|\| "200 OK";
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	3965	my $expires = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	3966	my %opts = @_;
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3967
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3968	my $title = get_page_title();
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3969	my $content_type = get_content_type_html();
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3970	print $cgi->header(-type=>$content_type, -charset => 'utf-8',
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	3971	-status=> $status, -expires => $expires)
Jakub Narebski	ad709ea	2010-06-13 00:35:59 +0200	[diff] [blame]	3972	unless ($opts{'-no_http_header'});
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	3973	my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3974	print <<EOF;
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	3975	<?xml version="1.0" encoding="utf-8"?>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3976	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
Kay Sievers	034df39	2005-08-07 20:20:07 +0200	[diff] [blame]	3977	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US">
Jakub Narebski	d4baf9e	2006-08-17 11:21:28 +0200	[diff] [blame]	3978	<!-- git web interface version $version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->
Jakub Narebski	ae20de5	2006-06-21 09:48:03 +0200	[diff] [blame]	3979	<!-- git core binaries version $git_version -->
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3980	<head>
Alp Toker	f6801d6	2006-07-11 11:19:34 +0100	[diff] [blame]	3981	<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	3982	<meta name="generator" content="gitweb/$version git/$git_version$mod_perl_version"/>
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	3983	<meta name="robots" content="index, nofollow"/>
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	3984	<title>$title</title>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3985	EOF
Giuseppe Bilotta	41a4d16	2009-01-31 02:31:52 +0100	[diff] [blame]	3986	# the stylesheet, favicon etc urls won't work correctly with path_info
				3987	# unless we set the appropriate base URL
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	3988	if ($ENV{'PATH_INFO'}) {
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	3989	print "<base href=\"".esc_url($base_url)."\" />\n";
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	3990	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3991	print_header_links($status);
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	3992
				3993	if (defined $site_html_head_string) {
				3994	print to_utf8($site_html_head_string);
				3995	}
				3996
Matthias Lederhofer	dd04c42	2006-08-06 13:25:41 +0200	[diff] [blame]	3997	print "</head>\n" .
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	3998	"<body>\n";
				3999
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4000	if (defined $site_header && -f $site_header) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4001	insert_file($site_header);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4002	}
				4003
Jonathan Nieder	6822052	2010-09-03 19:45:09 -0500	[diff] [blame]	4004	print "<div class=\"page_header\">\n";
				4005	if (defined $logo) {
				4006	print $cgi->a({-href => esc_url($logo_url),
				4007	-title => $logo_label},
				4008	$cgi->img({-src => esc_url($logo),
				4009	-width => 72, -height => 27,
				4010	-alt => "git",
				4011	-class => "logo"}));
				4012	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4013	print_nav_breadcrumbs(%opts);
Petr Baudis	d77b567	2007-05-17 04:24:19 +0200	[diff] [blame]	4014	print "</div>\n";
				4015
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4016	my $have_search = gitweb_check_feature('search');
Jakub Narebski	f70dda2	2008-06-02 11:54:41 +0200	[diff] [blame]	4017	if (defined $project && $have_search) {
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4018	print_search_form();
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4019	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4020	}
				4021
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	4022	sub git_footer_html {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4023	my $feed_class = 'rss_logo';
				4024
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4025	print "<div class=\"page_footer\">\n";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4026	if (defined $project) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4027	my $descr = git_get_project_description($project);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4028	if (defined $descr) {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	4029	print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4030	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4031
				4032	my %href_params = get_feed_info();
				4033	if (!%href_params) {
				4034	$feed_class .= ' generic';
				4035	}
				4036	$href_params{'-title'} \|\|= 'log';
				4037
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	4038	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4039	$href_params{'action'} = lc($format);
				4040	print $cgi->a({-href => href(%href_params),
				4041	-title => "$href_params{'-title'} $format feed",
				4042	-class => $feed_class}, $format)."\n";
				4043	}
				4044
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4045	} else {
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4046	print $cgi->a({-href => href(project=>undef, action=>"opml",
				4047	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4048	-class => $feed_class}, "OPML") . " ";
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4049	print $cgi->a({-href => href(project=>undef, action=>"project_index",
				4050	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4051	-class => $feed_class}, "TXT") . "\n";
Kay Sievers	ff7669a	2005-08-07 20:13:02 +0200	[diff] [blame]	4052	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4053	print "</div>\n"; # class="page_footer"
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4054
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4055	if (defined $t0 && gitweb_check_feature('timed')) {
				4056	print "<div id=\"generating_info\">\n";
				4057	print 'This page took '.
				4058	'<span id="generating_time" class="time_span">'.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	4059	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4060	' seconds </span>'.
				4061	' and '.
				4062	'<span id="generating_cmd">'.
				4063	$number_of_git_cmds.
				4064	'</span> git commands '.
				4065	" to generate.\n";
				4066	print "</div>\n"; # class="page_footer"
				4067	}
				4068
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4069	if (defined $site_footer && -f $site_footer) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4070	insert_file($site_footer);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4071	}
				4072
Junio C Hamano	abf411e	2010-12-15 11:32:57 -0800	[diff] [blame]	4073	print qq!<script type="text/javascript" src="!.esc_url($javascript).qq!"></script>\n!;
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4074	if (defined $action &&
				4075	$action eq 'blame_incremental') {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4076	print qq!<script type="text/javascript">\n!.
				4077	qq!startBlame("!. href(action=>"blame_data", -replay=>1) .qq!",\n!.
				4078	qq! "!. href() .qq!");\n!.
				4079	qq!</script>\n!;
John 'Warthog9' Hawley	291e52b	2011-04-28 21:04:09 +0200	[diff] [blame]	4080	} else {
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4081	my ($jstimezone, $tz_cookie, $datetime_class) =
				4082	gitweb_get_feature('javascript-timezone');
				4083
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4084	print qq!<script type="text/javascript">\n!.
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4085	qq!window.onload = function () {\n!;
				4086	if (gitweb_check_feature('javascript-actions')) {
				4087	print qq! fixLinks();\n!;
				4088	}
				4089	if ($jstimezone && $tz_cookie && $datetime_class) {
				4090	print qq! var tz_cookie = { name: '$tz_cookie', expires: 14, path: '/' };\n!. # in days
				4091	qq! onloadTZSetup('$jstimezone', tz_cookie, '$datetime_class');\n!;
				4092	}
				4093	print qq!};\n!.
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4094	qq!</script>\n!;
				4095	}
				4096
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4097	print "</body>\n" .
Kay Sievers	9cd3d98	2005-08-07 20:17:42 +0200	[diff] [blame]	4098	"</html>";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4099	}
				4100
Jakub Narebski	453541f	2010-02-07 21:51:18 +0100	[diff] [blame]	4101	# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4102	# Example: die_error(404, 'Hash not found')
				4103	# By convention, use the following status codes (as defined in RFC 2616):
				4104	# 400: Invalid or missing CGI parameters, or
				4105	# requested object exists but has wrong type.
				4106	# 403: Requested feature (like "pickaxe" or "snapshot") not enabled on
				4107	# this server or project.
				4108	# 404: Requested object/revision/project doesn't exist.
				4109	# 500: The server isn't configured properly, or
				4110	# an internal error occurred (e.g. failed assertions caused by bugs), or
				4111	# an unknown error occurred (e.g. the git binary died unexpectedly).
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4112	# 503: The server is currently unavailable (because it is overloaded,
				4113	# or down for maintenance). Generally, this is a temporary state.
Kay Sievers	061cc7c	2005-08-07 20:15:57 +0200	[diff] [blame]	4114	sub die_error {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4115	my $status = shift \|\| 500;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	4116	my $error = esc_html(shift) \|\| "Internal Server Error";
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4117	my $extra = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4118	my %opts = @_;
Kay Sievers	664f4cc	2005-08-07 20:17:19 +0200	[diff] [blame]	4119
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4120	my %http_responses = (
				4121	400 => '400 Bad Request',
				4122	403 => '403 Forbidden',
				4123	404 => '404 Not Found',
				4124	500 => '500 Internal Server Error',
				4125	503 => '503 Service Unavailable',
				4126	);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4127	git_header_html($http_responses{$status}, undef, %opts);
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4128	print <<EOF;
				4129	<div class="page_body">
				4130	<br /><br />
				4131	$status - $error
				4132	<br />
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4133	EOF
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4134	if (defined $extra) {
				4135	print "<hr />\n" .
				4136	"$extra\n";
				4137	}
				4138	print "</div>\n";
				4139
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4140	git_footer_html();
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4141	goto DONE_GITWEB
				4142	unless ($opts{'-error_handler'});
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4143	}
				4144
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4145	## ----------------------------------------------------------------------
				4146	## functions printing or outputting HTML: navigation
				4147
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4148	sub git_print_page_nav {
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4149	my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
				4150	$extra = '' if !defined $extra; # pager or formats
				4151
				4152	my @navs = qw(summary shortlog log commit commitdiff tree);
				4153	if ($suppress) {
				4154	@navs = grep { $_ ne $suppress } @navs;
				4155	}
				4156
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4157	my %arg = map { $_ => {action=>$_} } @navs;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4158	if (defined $head) {
				4159	for (qw(commit commitdiff)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4160	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4161	}
				4162	if ($current =~ m/^(tree \| log \| shortlog \| commit \| commitdiff \| search)$/x) {
				4163	for (qw(shortlog log)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4164	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4165	}
				4166	}
				4167	}
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4168
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4169	$arg{'tree'}{'hash'} = $treehead if defined $treehead;
				4170	$arg{'tree'}{'hash_base'} = $treebase if defined $treebase;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4171
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	4172	my @actions = gitweb_get_feature('actions');
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4173	my %repl = (
				4174	'%' => '%',
				4175	'n' => $project, # project name
				4176	'f' => $git_dir, # project path within filesystem
				4177	'h' => $treehead \|\| '', # current hash ('h' parameter)
				4178	'b' => $treebase \|\| '', # hash base ('hb' parameter)
				4179	);
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4180	while (@actions) {
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4181	my ($label, $link, $pos) = splice(@actions,0,3);
				4182	# insert
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4183	@navs = map { $_ eq $pos ? ($_, $label) : $_ } @navs;
				4184	# munch munch
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4185	$link =~ s/%([%nfhb])/$repl{$1}/g;
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4186	$arg{$label}{'_href'} = $link;
				4187	}
				4188
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4189	print "<div class=\"page_nav\">\n" .
				4190	(join " \| ",
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4191	map { $_ eq $current ?
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4192	$_ : $cgi->a({-href => ($arg{$_}{_href} ? $arg{$_}{_href} : href(%{$arg{$_}}))}, "$_")
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4193	} @navs);
Jakub Narebski	898a893	2006-07-30 16:14:43 +0200	[diff] [blame]	4194	print "<br/>\n$extra<br/>\n" .
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4195	"</div>\n";
				4196	}
				4197
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	4198	# returns a submenu for the nagivation of the refs views (tags, heads,
				4199	# remotes) with the current view disabled and the remotes view only
				4200	# available if the feature is enabled
				4201	sub format_ref_views {
				4202	my ($current) = @_;
				4203	my @ref_views = qw{tags heads};
				4204	push @ref_views, 'remotes' if gitweb_check_feature('remote_heads');
				4205	return join " \| ", map {
				4206	$_ eq $current ? $_ :
				4207	$cgi->a({-href => href(action=>$_)}, $_)
				4208	} @ref_views
				4209	}
				4210
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4211	sub format_paging_nav {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4212	my ($action, $page, $has_next_link) = @_;
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4213	my $paging_nav;
				4214
				4215
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4216	if ($page > 0) {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4217	$paging_nav .=
				4218	$cgi->a({-href => href(-replay=>1, page=>undef)}, "first") .
				4219	" ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4220	$cgi->a({-href => href(-replay=>1, page=>$page-1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4221	-accesskey => "p", -title => "Alt-p"}, "prev");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4222	} else {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4223	$paging_nav .= "first ⋅ prev";
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4224	}
				4225
Lea Wiemann	1f684dc	2008-05-28 01:25:42 +0200	[diff] [blame]	4226	if ($has_next_link) {
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4227	$paging_nav .= " ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4228	$cgi->a({-href => href(-replay=>1, page=>$page+1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4229	-accesskey => "n", -title => "Alt-n"}, "next");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4230	} else {
				4231	$paging_nav .= " ⋅ next";
				4232	}
				4233
				4234	return $paging_nav;
				4235	}
				4236
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4237	## ......................................................................
				4238	## functions printing or outputting HTML: div
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4239
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4240	sub git_print_header_div {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4241	my ($action, $title, $hash, $hash_base) = @_;
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4242	my %args = ();
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4243
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4244	$args{'action'} = $action;
				4245	$args{'hash'} = $hash if $hash;
				4246	$args{'hash_base'} = $hash_base if $hash_base;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4247
				4248	print "<div class=\"header\">\n" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4249	$cgi->a({-href => href(%args), -class => "title"},
				4250	$title ? $title : $action) .
				4251	"\n</div>\n";
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4252	}
				4253
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	4254	sub format_repo_url {
				4255	my ($name, $url) = @_;
				4256	return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
				4257	}
				4258
Giuseppe Bilotta	b891d52	2010-11-11 13:26:16 +0100	[diff] [blame]	4259	# Group output by placing it in a DIV element and adding a header.
				4260	# Options for start_div() can be provided by passing a hash reference as the
				4261	# first parameter to the function.
				4262	# Options to git_print_header_div() can be provided by passing an array
				4263	# reference. This must follow the options to start_div if they are present.
				4264	# The content can be a scalar, which is output as-is, a scalar reference, which
				4265	# is output after html escaping, an IO handle passed either as *handle or
				4266	# *handle{IO}, or a function reference. In the latter case all following
				4267	# parameters will be taken as argument to the content function call.
				4268	sub git_print_section {
				4269	my ($div_args, $header_args, $content);
				4270	my $arg = shift;
				4271	if (ref($arg) eq 'HASH') {
				4272	$div_args = $arg;
				4273	$arg = shift;
				4274	}
				4275	if (ref($arg) eq 'ARRAY') {
				4276	$header_args = $arg;
				4277	$arg = shift;
				4278	}
				4279	$content = $arg;
				4280
				4281	print $cgi->start_div($div_args);
				4282	git_print_header_div(@$header_args);
				4283
				4284	if (ref($content) eq 'CODE') {
				4285	$content->(@_);
				4286	} elsif (ref($content) eq 'SCALAR') {
				4287	print esc_html($$content);
				4288	} elsif (ref($content) eq 'GLOB' or ref($content) eq 'IO::Handle') {
				4289	print <$content>;
				4290	} elsif (!ref($content) && defined($content)) {
				4291	print $content;
				4292	}
				4293
				4294	print $cgi->end_div;
				4295	}
				4296
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4297	sub format_timestamp_html {
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4298	my $date = shift;
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4299	my $strtime = $date->{'rfc2822'};
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4300
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4301	my (undef, undef, $datetime_class) =
				4302	gitweb_get_feature('javascript-timezone');
				4303	if ($datetime_class) {
				4304	$strtime = qq!<span class="$datetime_class">$strtime</span>!;
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4305	}
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4306
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4307	my $localtime_format = '(%02d:%02d %s)';
				4308	if ($date->{'hour_local'} < 6) {
				4309	$localtime_format = '(<span class="atnight">%02d:%02d</span> %s)';
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4310	}
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4311	$strtime .= ' ' .
				4312	sprintf($localtime_format,
				4313	$date->{'hour_local'}, $date->{'minute_local'}, $date->{'tz_local'});
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4314
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4315	return $strtime;
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4316	}
				4317
				4318	# Outputs the author name and date in long form
				4319	sub git_print_authorship {
				4320	my $co = shift;
				4321	my %opts = @_;
				4322	my $tag = $opts{-tag} \|\| 'div';
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4323	my $author = $co->{'author_name'};
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4324
				4325	my %ad = parse_date($co->{'author_epoch'}, $co->{'author_tz'});
				4326	print "<$tag class=\"author_date\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4327	format_search_author($author, "author", esc_html($author)) .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4328	" [".format_timestamp_html(\%ad)."]".
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4329	git_get_avatar($co->{'author_email'}, -pad_before => 1) .
				4330	"</$tag>\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4331	}
				4332
				4333	# Outputs table rows containing the full author or committer information,
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4334	# in the format expected for 'commit' view (& similar).
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4335	# Parameters are a commit hash reference, followed by the list of people
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4336	# to output information for. If the list is empty it defaults to both
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4337	# author and committer.
				4338	sub git_print_authorship_rows {
				4339	my $co = shift;
				4340	# too bad we can't use @people = @_ \|\| ('author', 'committer')
				4341	my @people = @_;
				4342	@people = ('author', 'committer') unless @people;
				4343	foreach my $who (@people) {
				4344	my %wd = parse_date($co->{"${who}_epoch"}, $co->{"${who}_tz"});
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4345	print "<tr><td>$who</td><td>" .
				4346	format_search_author($co->{"${who}_name"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4347	esc_html($co->{"${who}_name"})) . " " .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4348	format_search_author($co->{"${who}_email"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4349	esc_html("<" . $co->{"${who}_email"} . ">")) .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4350	"</td><td rowspan=\"2\">" .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	4351	git_get_avatar($co->{"${who}_email"}, -size => 'double') .
				4352	"</td></tr>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4353	"<tr>" .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4354	"<td></td><td>" .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4355	format_timestamp_html(\%wd) .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4356	"</td>" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4357	"</tr>\n";
				4358	}
Jakub Narebski	6fd92a2	2006-08-28 14:48:12 +0200	[diff] [blame]	4359	}
				4360
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4361	sub git_print_page_path {
				4362	my $name = shift;
				4363	my $type = shift;
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4364	my $hb = shift;
Junio C Hamano	df2c37a	2006-01-09 13:13:39 +0100	[diff] [blame]	4365
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4366
				4367	print "<div class=\"page_path\">";
				4368	print $cgi->a({-href => href(action=>"tree", hash_base=>$hb),
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	4369	-title => 'tree root'}, to_utf8("[$project]"));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4370	print " / ";
				4371	if (defined $name) {
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4372	my @dirname = split '/', $name;
				4373	my $basename = pop @dirname;
				4374	my $fullname = '';
				4375
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4376	foreach my $dir (@dirname) {
Petr Baudis	16fdb48	2006-09-21 02:05:50 +0200	[diff] [blame]	4377	$fullname .= ($fullname ? '/' : '') . $dir;
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4378	print $cgi->a({-href => href(action=>"tree", file_name=>$fullname,
				4379	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4380	-title => $fullname}, esc_path($dir));
Petr Baudis	26d0a97	2006-09-23 01:00:12 +0200	[diff] [blame]	4381	print " / ";
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4382	}
				4383	if (defined $type && $type eq 'blob') {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4384	print $cgi->a({-href => href(action=>"blob_plain", file_name=>$file_name,
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4385	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4386	-title => $name}, esc_path($basename));
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4387	} elsif (defined $type && $type eq 'tree') {
				4388	print $cgi->a({-href => href(action=>"tree", file_name=>$file_name,
				4389	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4390	-title => $name}, esc_path($basename));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4391	print " / ";
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4392	} else {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4393	print esc_path($basename);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4394	}
Kay Sievers	8ed23e1	2005-08-07 20:05:44 +0200	[diff] [blame]	4395	}
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4396	print "<br/></div>\n";
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4397	}
				4398
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	4399	sub git_print_log {
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4400	my $log = shift;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4401	my %opts = @_;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4402
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4403	if ($opts{'-remove_title'}) {
				4404	# remove title, i.e. first line of log
				4405	shift @$log;
				4406	}
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4407	# remove leading empty lines
				4408	while (defined $log->[0] && $log->[0] eq "") {
				4409	shift @$log;
				4410	}
				4411
				4412	# print log
				4413	my $signoff = 0;
				4414	my $empty = 0;
				4415	foreach my $line (@$log) {
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4416	if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]\|acked[ \-]by[ :]\|cc[ :])/i) {
				4417	$signoff = 1;
Jakub Narebski	fba20b4	2006-08-28 14:48:13 +0200	[diff] [blame]	4418	$empty = 0;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4419	if (! $opts{'-remove_signoff'}) {
				4420	print "<span class=\"signoff\">" . esc_html($line) . "</span><br/>\n";
				4421	next;
				4422	} else {
				4423	# remove signoff lines
				4424	next;
				4425	}
				4426	} else {
				4427	$signoff = 0;
				4428	}
				4429
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4430	# print only one empty line
				4431	# do not print empty line after signoff
				4432	if ($line eq "") {
				4433	next if ($empty \|\| $signoff);
				4434	$empty = 1;
				4435	} else {
				4436	$empty = 0;
				4437	}
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4438
				4439	print format_log_line_html($line) . "<br/>\n";
				4440	}
				4441
				4442	if ($opts{'-final_empty_line'}) {
				4443	# end with single empty line
				4444	print "<br/>\n" unless $empty;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4445	}
				4446	}
				4447
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4448	# return link target (what link points to)
				4449	sub git_get_link_target {
				4450	my $hash = shift;
				4451	my $link_target;
				4452
				4453	# read link
				4454	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
				4455	or return;
				4456	{
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	4457	local $/ = undef;
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4458	$link_target = <$fd>;
				4459	}
				4460	close $fd
				4461	or return;
				4462
				4463	return $link_target;
				4464	}
				4465
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4466	# given link target, and the directory (basedir) the link is in,
				4467	# return target of link relative to top directory (top tree);
				4468	# return undef if it is not possible (including absolute links).
				4469	sub normalize_link_target {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4470	my ($link_target, $basedir) = @_;
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4471
				4472	# absolute symlinks (beginning with '/') cannot be normalized
				4473	return if (substr($link_target, 0, 1) eq '/');
				4474
				4475	# normalize link target to path from top (root) tree (dir)
				4476	my $path;
				4477	if ($basedir) {
				4478	$path = $basedir . '/' . $link_target;
				4479	} else {
				4480	# we are in top (root) tree (dir)
				4481	$path = $link_target;
				4482	}
				4483
				4484	# remove //, /./, and /../
				4485	my @path_parts;
				4486	foreach my $part (split('/', $path)) {
				4487	# discard '.' and ''
				4488	next if (!$part \|\| $part eq '.');
				4489	# handle '..'
				4490	if ($part eq '..') {
				4491	if (@path_parts) {
				4492	pop @path_parts;
				4493	} else {
				4494	# link leads outside repository (outside top dir)
				4495	return;
				4496	}
				4497	} else {
				4498	push @path_parts, $part;
				4499	}
				4500	}
				4501	$path = join('/', @path_parts);
				4502
				4503	return $path;
				4504	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4505
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4506	# print tree entry (row of git_tree), but without encompassing <tr> element
				4507	sub git_print_tree_entry {
				4508	my ($t, $basedir, $hash_base, $have_blame) = @_;
				4509
				4510	my %base_key = ();
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4511	$base_key{'hash_base'} = $hash_base if defined $hash_base;
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4512
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4513	# The format of a table row is: mode list link. Where mode is
				4514	# the mode of the entry, list is the name of the entry, an href,
				4515	# and link is the action links of the entry.
				4516
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4517	print "<td class=\"mode\">" . mode_str($t->{'mode'}) . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4518	if (exists $t->{'size'}) {
				4519	print "<td class=\"size\">$t->{'size'}</td>\n";
				4520	}
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4521	if ($t->{'type'} eq "blob") {
				4522	print "<td class=\"list\">" .
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4523	$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4524	file_name=>"$basedir$t->{'name'}", %base_key),
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4525	-class => "list"}, esc_path($t->{'name'}));
				4526	if (S_ISLNK(oct $t->{'mode'})) {
				4527	my $link_target = git_get_link_target($t->{'hash'});
				4528	if ($link_target) {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4529	my $norm_target = normalize_link_target($link_target, $basedir);
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4530	if (defined $norm_target) {
				4531	print " -> " .
				4532	$cgi->a({-href => href(action=>"object", hash_base=>$hash_base,
				4533	file_name=>$norm_target),
				4534	-title => $norm_target}, esc_path($link_target));
				4535	} else {
				4536	print " -> " . esc_path($link_target);
				4537	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4538	}
				4539	}
				4540	print "</td>\n";
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4541	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4542	print $cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4543	file_name=>"$basedir$t->{'name'}", %base_key)},
				4544	"blob");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4545	if ($have_blame) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4546	print " \| " .
				4547	$cgi->a({-href => href(action=>"blame", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4548	file_name=>"$basedir$t->{'name'}", %base_key)},
				4549	"blame");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4550	}
				4551	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4552	print " \| " .
				4553	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4554	hash=>$t->{'hash'}, file_name=>"$basedir$t->{'name'}")},
				4555	"history");
				4556	}
				4557	print " \| " .
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	4558	$cgi->a({-href => href(action=>"blob_plain", hash_base=>$hash_base,
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4559	file_name=>"$basedir$t->{'name'}")},
				4560	"raw");
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4561	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4562
				4563	} elsif ($t->{'type'} eq "tree") {
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4564	print "<td class=\"list\">";
				4565	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4566	file_name=>"$basedir$t->{'name'}",
				4567	%base_key)},
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4568	esc_path($t->{'name'}));
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4569	print "</td>\n";
				4570	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4571	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4572	file_name=>"$basedir$t->{'name'}",
				4573	%base_key)},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4574	"tree");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4575	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4576	print " \| " .
				4577	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4578	file_name=>"$basedir$t->{'name'}")},
				4579	"history");
				4580	}
				4581	print "</td>\n";
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	4582	} else {
				4583	# unknown object: we can only present history for it
				4584	# (this includes 'commit' object, i.e. submodule support)
				4585	print "<td class=\"list\">" .
				4586	esc_path($t->{'name'}) .
				4587	"</td>\n";
				4588	print "<td class=\"link\">";
				4589	if (defined $hash_base) {
				4590	print $cgi->a({-href => href(action=>"history",
				4591	hash_base=>$hash_base,
				4592	file_name=>"$basedir$t->{'name'}")},
				4593	"history");
				4594	}
				4595	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4596	}
				4597	}
				4598
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4599	## ......................................................................
				4600	## functions printing large fragments of HTML
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	4601
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4602	# get pre-image filenames for merge (combined) diff
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4603	sub fill_from_file_info {
				4604	my ($diff, @parents) = @_;
				4605
				4606	$diff->{'from_file'} = [ ];
				4607	$diff->{'from_file'}[$diff->{'nparents'} - 1] = undef;
				4608	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
				4609	if ($diff->{'status'}[$i] eq 'R' \|\|
				4610	$diff->{'status'}[$i] eq 'C') {
				4611	$diff->{'from_file'}[$i] =
				4612	git_get_path_by_hash($parents[$i], $diff->{'from_id'}[$i]);
				4613	}
				4614	}
				4615
				4616	return $diff;
				4617	}
				4618
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4619	# is current raw difftree line of file deletion
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4620	sub is_deleted {
				4621	my $diffinfo = shift;
				4622
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	4623	return $diffinfo->{'to_id'} eq ('0' x 40);
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4624	}
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4625
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4626	# does patch correspond to [previous] difftree raw line
				4627	# $diffinfo - hashref of parsed raw diff format
				4628	# $patchinfo - hashref of parsed patch diff format
				4629	# (the same keys as in $diffinfo)
				4630	sub is_patch_split {
				4631	my ($diffinfo, $patchinfo) = @_;
				4632
				4633	return defined $diffinfo && defined $patchinfo
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	4634	&& $diffinfo->{'to_file'} eq $patchinfo->{'to_file'};
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4635	}
				4636
				4637
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4638	sub git_difftree_body {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4639	my ($difftree, $hash, @parents) = @_;
				4640	my ($parent) = $parents[0];
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4641	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4642	print "<div class=\"list_head\">\n";
				4643	if ($#{$difftree} > 10) {
				4644	print(($#{$difftree} + 1) . " files changed:\n");
				4645	}
				4646	print "</div>\n";
				4647
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4648	print "<table class=\"" .
				4649	(@parents > 1 ? "combined " : "") .
				4650	"diff_tree\">\n";
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4651
				4652	# header only for combined diff in 'commitdiff' view
Jakub Narebski	3ef408a	2007-09-08 21:54:28 +0200	[diff] [blame]	4653	my $has_header = @$difftree && @parents > 1 && $action eq 'commitdiff';
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4654	if ($has_header) {
				4655	# table header
				4656	print "<thead><tr>\n" .
				4657	"<th></th><th></th>\n"; # filename, patchN link
				4658	for (my $i = 0; $i < @parents; $i++) {
				4659	my $par = $parents[$i];
				4660	print "<th>" .
				4661	$cgi->a({-href => href(action=>"commitdiff",
				4662	hash=>$hash, hash_parent=>$par),
				4663	-title => 'commitdiff to parent number ' .
				4664	($i+1) . ': ' . substr($par,0,7)},
				4665	$i+1) .
				4666	" </th>\n";
				4667	}
				4668	print "</tr></thead>\n<tbody>\n";
				4669	}
				4670
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	4671	my $alternate = 1;
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4672	my $patchno = 0;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4673	foreach my $line (@{$difftree}) {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4674	my $diff = parsed_difftree_line($line);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4675
				4676	if ($alternate) {
				4677	print "<tr class=\"dark\">\n";
				4678	} else {
				4679	print "<tr class=\"light\">\n";
				4680	}
				4681	$alternate ^= 1;
				4682
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4683	if (exists $diff->{'nparents'}) { # combined diff
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4684
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4685	fill_from_file_info($diff, @parents)
				4686	unless exists $diff->{'from_file'};
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4687
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4688	if (!is_deleted($diff)) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4689	# file exists in the result (child) commit
				4690	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4691	$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4692	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4693	hash_base=>$hash),
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4694	-class => "list"}, esc_path($diff->{'to_file'})) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4695	"</td>\n";
				4696	} else {
				4697	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4698	esc_path($diff->{'to_file'}) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4699	"</td>\n";
				4700	}
				4701
				4702	if ($action eq 'commitdiff') {
				4703	# link to patch
				4704	$patchno++;
				4705	print "<td class=\"link\">" .
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4706	$cgi->a({-href => href(-anchor=>"patch$patchno")},
				4707	"patch") .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4708	" \| " .
				4709	"</td>\n";
				4710	}
				4711
				4712	my $has_history = 0;
				4713	my $not_deleted = 0;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4714	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4715	my $hash_parent = $parents[$i];
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4716	my $from_hash = $diff->{'from_id'}[$i];
				4717	my $from_path = $diff->{'from_file'}[$i];
				4718	my $status = $diff->{'status'}[$i];
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4719
				4720	$has_history \|\|= ($status ne 'A');
				4721	$not_deleted \|\|= ($status ne 'D');
				4722
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4723	if ($status eq 'A') {
				4724	print "<td class=\"link\" align=\"right\"> \| </td>\n";
				4725	} elsif ($status eq 'D') {
				4726	print "<td class=\"link\">" .
				4727	$cgi->a({-href => href(action=>"blob",
				4728	hash_base=>$hash,
				4729	hash=>$from_hash,
				4730	file_name=>$from_path)},
				4731	"blob" . ($i+1)) .
				4732	" \| </td>\n";
				4733	} else {
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4734	if ($diff->{'to_id'} eq $from_hash) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4735	print "<td class=\"link nochange\">";
				4736	} else {
				4737	print "<td class=\"link\">";
				4738	}
				4739	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4740	hash=>$diff->{'to_id'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4741	hash_parent=>$from_hash,
				4742	hash_base=>$hash,
				4743	hash_parent_base=>$hash_parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4744	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4745	file_parent=>$from_path)},
				4746	"diff" . ($i+1)) .
				4747	" \| </td>\n";
				4748	}
				4749	}
				4750
				4751	print "<td class=\"link\">";
				4752	if ($not_deleted) {
				4753	print $cgi->a({-href => href(action=>"blob",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4754	hash=>$diff->{'to_id'},
				4755	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4756	hash_base=>$hash)},
				4757	"blob");
				4758	print " \| " if ($has_history);
				4759	}
				4760	if ($has_history) {
				4761	print $cgi->a({-href => href(action=>"history",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4762	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4763	hash_base=>$hash)},
				4764	"history");
				4765	}
				4766	print "</td>\n";
				4767
				4768	print "</tr>\n";
				4769	next; # instead of 'else' clause, to avoid extra indent
				4770	}
				4771	# else ordinary diff
				4772
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4773	my ($to_mode_oct, $to_mode_str, $to_file_type);
				4774	my ($from_mode_oct, $from_mode_str, $from_file_type);
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4775	if ($diff->{'to_mode'} ne ('0' x 6)) {
				4776	$to_mode_oct = oct $diff->{'to_mode'};
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4777	if (S_ISREG($to_mode_oct)) { # only for regular file
				4778	$to_mode_str = sprintf("%04o", $to_mode_oct & 0777); # permission bits
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4779	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4780	$to_file_type = file_type($diff->{'to_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4781	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4782	if ($diff->{'from_mode'} ne ('0' x 6)) {
				4783	$from_mode_oct = oct $diff->{'from_mode'};
Ævar Arnfjörð Bjarmason	98885c2	2011-02-19 15:27:42 +0000	[diff] [blame]	4784	if (S_ISREG($from_mode_oct)) { # only for regular file
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4785	$from_mode_str = sprintf("%04o", $from_mode_oct & 0777); # permission bits
				4786	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4787	$from_file_type = file_type($diff->{'from_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4788	}
				4789
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4790	if ($diff->{'status'} eq "A") { # created
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4791	my $mode_chng = "<span class=\"file_status new\">[new $to_file_type";
				4792	$mode_chng .= " with mode: $to_mode_str" if $to_mode_str;
				4793	$mode_chng .= "]</span>";
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4794	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4795	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4796	hash_base=>$hash, file_name=>$diff->{'file'}),
				4797	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4798	print "</td>\n";
				4799	print "<td>$mode_chng</td>\n";
				4800	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4801	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4802	# link to patch
				4803	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4804	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4805	"patch") .
				4806	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4807	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4808	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4809	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	3faa541	2007-01-08 02:10:42 +0100	[diff] [blame]	4810	"blob");
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4811	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4812
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4813	} elsif ($diff->{'status'} eq "D") { # deleted
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4814	my $mode_chng = "<span class=\"file_status deleted\">[deleted $from_file_type]</span>";
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4815	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4816	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4817	hash_base=>$parent, file_name=>$diff->{'file'}),
				4818	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4819	print "</td>\n";
				4820	print "<td>$mode_chng</td>\n";
				4821	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4822	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4823	# link to patch
				4824	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4825	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4826	"patch") .
				4827	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4828	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4829	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4830	hash_base=>$parent, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4831	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4832	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4833	print $cgi->a({-href => href(action=>"blame", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4834	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4835	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4836	}
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4837	print $cgi->a({-href => href(action=>"history", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4838	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4839	"history");
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4840	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4841
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4842	} elsif ($diff->{'status'} eq "M" \|\| $diff->{'status'} eq "T") { # modified, or type changed
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4843	my $mode_chnge = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4844	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4845	$mode_chnge = "<span class=\"file_status mode_chnge\">[changed";
Jakub Narebski	6e72cf4	2007-01-03 20:47:24 +0100	[diff] [blame]	4846	if ($from_file_type ne $to_file_type) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4847	$mode_chnge .= " from $from_file_type to $to_file_type";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4848	}
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4849	if (($from_mode_oct & 0777) != ($to_mode_oct & 0777)) {
				4850	if ($from_mode_str && $to_mode_str) {
				4851	$mode_chnge .= " mode: $from_mode_str->$to_mode_str";
				4852	} elsif ($to_mode_str) {
				4853	$mode_chnge .= " mode: $to_mode_str";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4854	}
				4855	}
				4856	$mode_chnge .= "]</span>\n";
				4857	}
				4858	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4859	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4860	hash_base=>$hash, file_name=>$diff->{'file'}),
				4861	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4862	print "</td>\n";
				4863	print "<td>$mode_chnge</td>\n";
				4864	print "<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4865	if ($action eq 'commitdiff') {
				4866	# link to patch
				4867	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4868	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4869	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4870	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4871	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4872	# "commit" view and modified file (not onlu mode changed)
				4873	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4874	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4875	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4876	file_name=>$diff->{'file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4877	"diff") .
				4878	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4879	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4880	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4881	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4882	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4883	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4884	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4885	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4886	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4887	}
Luben Tuikov	eb51ec9	2006-09-27 17:24:49 -0700	[diff] [blame]	4888	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4889	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4890	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4891	print "</td>\n";
				4892
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4893	} elsif ($diff->{'status'} eq "R" \|\| $diff->{'status'} eq "C") { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4894	my %status_name = ('R' => 'moved', 'C' => 'copied');
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4895	my $nstatus = $status_name{$diff->{'status'}};
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4896	my $mode_chng = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4897	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4898	# mode also for directories, so we cannot use $to_mode_str
				4899	$mode_chng = sprintf(", mode: %04o", $to_mode_oct & 0777);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4900	}
				4901	print "<td>" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4902	$cgi->a({-href => href(action=>"blob", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4903	hash=>$diff->{'to_id'}, file_name=>$diff->{'to_file'}),
				4904	-class => "list"}, esc_path($diff->{'to_file'})) . "</td>\n" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4905	"<td><span class=\"file_status $nstatus\">[$nstatus from " .
				4906	$cgi->a({-href => href(action=>"blob", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4907	hash=>$diff->{'from_id'}, file_name=>$diff->{'from_file'}),
				4908	-class => "list"}, esc_path($diff->{'from_file'})) .
				4909	" with " . (int $diff->{'similarity'}) . "% similarity$mode_chng]</span></td>\n" .
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4910	"<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4911	if ($action eq 'commitdiff') {
				4912	# link to patch
				4913	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4914	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4915	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4916	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4917	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4918	# "commit" view and modified file (not only pure rename or copy)
				4919	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4920	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4921	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4922	file_name=>$diff->{'to_file'}, file_parent=>$diff->{'from_file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4923	"diff") .
				4924	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4925	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4926	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4927	hash_base=>$parent, file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4928	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4929	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4930	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4931	file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4932	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4933	}
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4934	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4935	file_name=>$diff->{'to_file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4936	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4937	print "</td>\n";
				4938
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4939	} # we should not encounter Unmerged (U) or Unknown (X) status
				4940	print "</tr>\n";
				4941	}
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4942	print "</tbody>" if $has_header;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4943	print "</table>\n";
				4944	}
				4945
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4946	sub print_sidebyside_diff_chunk {
				4947	my @chunk = @_;
				4948	my (@ctx, @rem, @add);
				4949
				4950	return unless @chunk;
				4951
				4952	# incomplete last line might be among removed or added lines,
				4953	# or both, or among context lines: find which
				4954	for (my $i = 1; $i < @chunk; $i++) {
				4955	if ($chunk[$i][0] eq 'incomplete') {
				4956	$chunk[$i][0] = $chunk[$i-1][0];
				4957	}
				4958	}
				4959
				4960	# guardian
				4961	push @chunk, ["", ""];
				4962
				4963	foreach my $line_info (@chunk) {
				4964	my ($class, $line) = @$line_info;
				4965
				4966	# print chunk headers
				4967	if ($class && $class eq 'chunk_header') {
				4968	print $line;
				4969	next;
				4970	}
				4971
				4972	## print from accumulator when type of class of lines change
				4973	# empty contents block on start rem/add block, or end of chunk
				4974	if (@ctx && (!$class \|\| $class eq 'rem' \|\| $class eq 'add')) {
				4975	print join '',
Jakub Narebski	970fac5	2011-10-31 00:36:23 +0100	[diff] [blame]	4976	'<div class="chunk_block ctx">',
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4977	'<div class="old">',
				4978	@ctx,
				4979	'</div>',
				4980	'<div class="new">',
				4981	@ctx,
				4982	'</div>',
				4983	'</div>';
				4984	@ctx = ();
				4985	}
				4986	# empty add/rem block on start context block, or end of chunk
				4987	if ((@rem \|\| @add) && (!$class \|\| $class eq 'ctx')) {
Jakub Narebski	970fac5	2011-10-31 00:36:23 +0100	[diff] [blame]	4988	if (!@add) {
				4989	# pure removal
				4990	print join '',
				4991	'<div class="chunk_block rem">',
				4992	'<div class="old">',
				4993	@rem,
				4994	'</div>',
				4995	'</div>';
				4996	} elsif (!@rem) {
				4997	# pure addition
				4998	print join '',
				4999	'<div class="chunk_block add">',
				5000	'<div class="new">',
				5001	@add,
				5002	'</div>',
				5003	'</div>';
				5004	} else {
				5005	# assume that it is change
				5006	print join '',
				5007	'<div class="chunk_block chg">',
				5008	'<div class="old">',
				5009	@rem,
				5010	'</div>',
				5011	'<div class="new">',
				5012	@add,
				5013	'</div>',
				5014	'</div>';
				5015	}
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5016	@rem = @add = ();
				5017	}
				5018
				5019	## adding lines to accumulator
				5020	# guardian value
				5021	last unless $line;
				5022	# rem, add or change
				5023	if ($class eq 'rem') {
				5024	push @rem, $line;
				5025	} elsif ($class eq 'add') {
				5026	push @add, $line;
				5027	}
				5028	# context line
				5029	if ($class eq 'ctx') {
				5030	push @ctx, $line;
				5031	}
				5032	}
				5033	}
				5034
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5035	sub git_patchset_body {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5036	my ($fd, $diff_style, $difftree, $hash, @hash_parents) = @_;
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	5037	my ($hash_parent) = $hash_parents[0];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5038
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5039	my $is_combined = (@hash_parents > 1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5040	my $patch_idx = 0;
Martin Koegler	4280cde	2007-04-22 22:49:25 -0700	[diff] [blame]	5041	my $patch_number = 0;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5042	my $patch_line;
Jakub Narebski	fe87585	2006-08-25 20:59:39 +0200	[diff] [blame]	5043	my $diffinfo;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5044	my $to_name;
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5045	my (%from, %to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5046	my @chunk; # for side-by-side diff
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5047
				5048	print "<div class=\"patchset\">\n";
				5049
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5050	# skip to first patch
				5051	while ($patch_line = <$fd>) {
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	5052	chomp $patch_line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5053
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5054	last if ($patch_line =~ m/^diff /);
				5055	}
				5056
				5057	PATCH:
				5058	while ($patch_line) {
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5059
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5060	# parse "git diff" header line
				5061	if ($patch_line =~ m/^diff --git (\"(?:[^\\\"](?:\\.[^\\\"]))\"\|[^ "]) (.*)$/) {
				5062	# $1 is from_name, which we do not use
				5063	$to_name = unquote($2);
				5064	$to_name =~ s!^b/!!;
				5065	} elsif ($patch_line =~ m/^diff --(cc\|combined) ("?.*"?)$/) {
				5066	# $1 is 'cc' or 'combined', which we do not use
				5067	$to_name = unquote($2);
				5068	} else {
				5069	$to_name = undef;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5070	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5071
				5072	# check if current patch belong to current raw line
				5073	# and parse raw git-diff line if needed
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5074	if (is_patch_split($diffinfo, { 'to_file' => $to_name })) {
Jakub Narebski	2206537	2007-05-12 12:42:32 +0200	[diff] [blame]	5075	# this is continuation of a split patch
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5076	print "<div class=\"patch cont\">\n";
				5077	} else {
				5078	# advance raw git-diff output if needed
				5079	$patch_idx++ if defined $diffinfo;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5080
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5081	# read and prepare patch information
				5082	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
				5083
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5084	# compact combined diff output can have some patches skipped
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5085	# find which patch (using pathname of result) we are at now;
				5086	if ($is_combined) {
				5087	while ($to_name ne $diffinfo->{'to_file'}) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5088	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5089	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5090	"</div>\n"; # class="patch"
				5091
				5092	$patch_idx++;
				5093	$patch_number++;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5094
				5095	last if $patch_idx > $#$difftree;
				5096	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5097	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5098	}
Jakub Narebski	711fa74	2007-09-08 21:49:11 +0200	[diff] [blame]	5099
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5100	# modifies %from, %to hashes
				5101	parse_from_to_diffinfo($diffinfo, \%from, \%to, @hash_parents);
Jakub Narebski	5f85505	2007-05-17 22:54:28 +0200	[diff] [blame]	5102
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5103	# this is first patch for raw difftree line with $patch_idx index
				5104	# we index @$difftree array from 0, but number patches from 1
				5105	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n";
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5106	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5107
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5108	# git diff header
				5109	#assert($patch_line =~ m/^diff /) if DEBUG;
				5110	#assert($patch_line !~ m!$/$!) if DEBUG; # is chomp-ed
				5111	$patch_number++;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5112	# print "git diff" header
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5113	print format_git_diff_header_line($patch_line, $diffinfo,
				5114	\%from, \%to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5115
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5116	# print extended diff header
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5117	print "<div class=\"diff extended_header\">\n";
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5118	EXTENDED_HEADER:
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5119	while ($patch_line = <$fd>) {
				5120	chomp $patch_line;
				5121
				5122	last EXTENDED_HEADER if ($patch_line =~ m/^--- \|^diff /);
				5123
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5124	print format_extended_diff_header_line($patch_line, $diffinfo,
				5125	\%from, \%to);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5126	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5127	print "</div>\n"; # class="diff extended_header"
Jakub Narebski	e4e4f82	2006-08-25 21:04:13 +0200	[diff] [blame]	5128
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5129	# from-file/to-file diff header
Jakub Narebski	0bdb28c	2007-01-10 00:07:43 +0100	[diff] [blame]	5130	if (! $patch_line) {
				5131	print "</div>\n"; # class="patch"
				5132	last PATCH;
				5133	}
Jakub Narebski	66399ef	2007-01-07 02:52:25 +0100	[diff] [blame]	5134	next PATCH if ($patch_line =~ m/^diff /);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5135	#assert($patch_line =~ m/^---/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5136
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5137	my $last_patch_line = $patch_line;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5138	$patch_line = <$fd>;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5139	chomp $patch_line;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5140	#assert($patch_line =~ m/^\+\+\+/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5141
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5142	print format_diff_from_to_header($last_patch_line, $patch_line,
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	5143	$diffinfo, \%from, \%to,
				5144	@hash_parents);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5145
				5146	# the patch itself
				5147	LINE:
				5148	while ($patch_line = <$fd>) {
				5149	chomp $patch_line;
				5150
				5151	next PATCH if ($patch_line =~ m/^diff /);
				5152
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5153	my ($class, $line) = process_diff_line($patch_line, \%from, \%to);
				5154	my $diff_classes = "diff";
				5155	$diff_classes .= " $class" if ($class);
				5156	$line = "<div class=\"$diff_classes\">$line</div>\n";
				5157
				5158	if ($diff_style eq 'sidebyside' && !$is_combined) {
				5159	if ($class eq 'chunk_header') {
				5160	print_sidebyside_diff_chunk(@chunk);
				5161	@chunk = ( [ $class, $line ] );
				5162	} else {
				5163	push @chunk, [ $class, $line ];
				5164	}
				5165	} else {
				5166	# default 'inline' style and unknown styles
				5167	print $line;
				5168	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5169	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5170
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5171	} continue {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5172	if (@chunk) {
				5173	print_sidebyside_diff_chunk(@chunk);
				5174	@chunk = ();
				5175	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5176	print "</div>\n"; # class="patch"
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5177	}
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5178
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	5179	# for compact combined (--cc) format, with chunk and patch simplification
				5180	# the patchset might be empty, but there might be unprocessed raw lines
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5181	for (++$patch_idx if $patch_number > 0;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5182	$patch_idx < @$difftree;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5183	++$patch_idx) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5184	# read and prepare patch information
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5185	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5186
				5187	# generate anchor for "patch" links in difftree / whatchanged part
				5188	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5189	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5190	"</div>\n"; # class="patch"
				5191
				5192	$patch_number++;
				5193	}
				5194
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5195	if ($patch_number == 0) {
				5196	if (@hash_parents > 1) {
				5197	print "<div class=\"diff nodifferences\">Trivial merge</div>\n";
				5198	} else {
				5199	print "<div class=\"diff nodifferences\">No differences found</div>\n";
				5200	}
				5201	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5202
				5203	print "</div>\n"; # class="patchset"
				5204	}
				5205
				5206	# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
				5207
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5208	sub git_project_search_form {
				5209	my ($searchtext, $search_use_regexp);
				5210
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5211	my $limit = '';
				5212	if ($project_filter) {
				5213	$limit = " in '$project_filter/'";
				5214	}
				5215
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5216	print "<div class=\"projsearch\">\n";
				5217	print $cgi->startform(-method => 'get', -action => $my_uri) .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5218	$cgi->hidden(-name => 'a', -value => 'project_list') . "\n";
				5219	print $cgi->hidden(-name => 'pf', -value => $project_filter). "\n"
				5220	if (defined $project_filter);
				5221	print $cgi->textfield(-name => 's', -value => $searchtext,
				5222	-title => "Search project by name and description$limit",
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5223	-size => 60) . "\n" .
				5224	"<span title=\"Extended regular expression\">" .
				5225	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				5226	-checked => $search_use_regexp) .
				5227	"</span>\n" .
				5228	$cgi->submit(-name => 'btnS', -value => 'Search') .
				5229	$cgi->end_form() . "\n" .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5230	$cgi->a({-href => href(project => undef, searchtext => undef,
				5231	project_filter => $project_filter)},
				5232	esc_html("List all projects$limit")) . "<br />\n";
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5233	print "</div>\n";
				5234	}
				5235
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5236	# entry for given @keys needs filling if at least one of keys in list
				5237	# is not present in %$project_info
				5238	sub project_info_needs_filling {
				5239	my ($project_info, @keys) = @_;
				5240
				5241	# return List::MoreUtils::any { !exists $project_info->{$_} } @keys;
				5242	foreach my $key (@keys) {
				5243	if (!exists $project_info->{$key}) {
				5244	return 1;
				5245	}
				5246	}
				5247	return;
				5248	}
				5249
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5250	# fills project list info (age, description, owner, category, forks, etc.)
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5251	# for each project in the list, removing invalid projects from
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5252	# returned list, or fill only specified info.
				5253	#
				5254	# Invalid projects are removed from the returned list if and only if you
				5255	# ask 'age' or 'age_string' to be filled, because they are the only fields
				5256	# that run unconditionally git command that requires repository, and
				5257	# therefore do always check if project repository is invalid.
				5258	#
				5259	# USAGE:
				5260	# * fill_project_list_info(\@project_list, 'descr_long', 'ctags')
				5261	# ensures that 'descr_long' and 'ctags' fields are filled
				5262	# * @project_list = fill_project_list_info(\@project_list)
				5263	# ensures that all fields are filled (and invalid projects removed)
				5264	#
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5265	# NOTE: modifies $projlist, but does not remove entries from it
				5266	sub fill_project_list_info {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5267	my ($projlist, @wanted_keys) = @_;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5268	my @projects;
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5269	my $filter_set = sub { return @_; };
				5270	if (@wanted_keys) {
				5271	my %wanted_keys = map { $_ => 1 } @wanted_keys;
				5272	$filter_set = sub { return grep { $wanted_keys{$_} } @_; };
				5273	}
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5274
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5275	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5276	PROJECT:
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5277	foreach my $pr (@$projlist) {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5278	if (project_info_needs_filling($pr, $filter_set->('age', 'age_string'))) {
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5279	my (@activity) = git_get_last_activity($pr->{'path'});
				5280	unless (@activity) {
				5281	next PROJECT;
				5282	}
				5283	($pr->{'age'}, $pr->{'age_string'}) = @activity;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5284	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5285	if (project_info_needs_filling($pr, $filter_set->('descr', 'descr_long'))) {
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5286	my $descr = git_get_project_description($pr->{'path'}) \|\| "";
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5287	$descr = to_utf8($descr);
				5288	$pr->{'descr_long'} = $descr;
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	5289	$pr->{'descr'} = chop_str($descr, $projects_list_description_width, 5);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5290	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5291	if (project_info_needs_filling($pr, $filter_set->('owner'))) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	5292	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}") \|\| "";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5293	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5294	if ($show_ctags &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5295	project_info_needs_filling($pr, $filter_set->('ctags'))) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5296	$pr->{'ctags'} = git_get_project_ctags($pr->{'path'});
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5297	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5298	if ($projects_list_group_categories &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5299	project_info_needs_filling($pr, $filter_set->('category'))) {
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5300	my $cat = git_get_project_category($pr->{'path'}) \|\|
				5301	$project_list_default_category;
				5302	$pr->{'category'} = to_utf8($cat);
				5303	}
				5304
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5305	push @projects, $pr;
				5306	}
				5307
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5308	return @projects;
				5309	}
				5310
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5311	sub sort_projects_list {
				5312	my ($projlist, $order) = @_;
				5313	my @projects;
				5314
				5315	my %order_info = (
				5316	project => { key => 'path', type => 'str' },
				5317	descr => { key => 'descr_long', type => 'str' },
				5318	owner => { key => 'owner', type => 'str' },
				5319	age => { key => 'age', type => 'num' }
				5320	);
				5321	my $oi = $order_info{$order};
				5322	return @$projlist unless defined $oi;
				5323	if ($oi->{'type'} eq 'str') {
				5324	@projects = sort {$a->{$oi->{'key'}} cmp $b->{$oi->{'key'}}} @$projlist;
				5325	} else {
				5326	@projects = sort {$a->{$oi->{'key'}} <=> $b->{$oi->{'key'}}} @$projlist;
				5327	}
				5328
				5329	return @projects;
				5330	}
				5331
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5332	# returns a hash of categories, containing the list of project
				5333	# belonging to each category
				5334	sub build_projlist_by_category {
				5335	my ($projlist, $from, $to) = @_;
				5336	my %categories;
				5337
				5338	$from = 0 unless defined $from;
				5339	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5340
				5341	for (my $i = $from; $i <= $to; $i++) {
				5342	my $pr = $projlist->[$i];
				5343	push @{$categories{ $pr->{'category'} }}, $pr;
				5344	}
				5345
				5346	return wantarray ? %categories : \%categories;
				5347	}
				5348
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5349	# print 'sort by' <th> element, generating 'sort by $name' replay link
				5350	# if that order is not selected
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5351	sub print_sort_th {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5352	print format_sort_th(@_);
				5353	}
				5354
				5355	sub format_sort_th {
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5356	my ($name, $order, $header) = @_;
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5357	my $sort_th = "";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5358	$header \|\|= ucfirst($name);
				5359
				5360	if ($order eq $name) {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5361	$sort_th .= "<th>$header</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5362	} else {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5363	$sort_th .= "<th>" .
				5364	$cgi->a({-href => href(-replay=>1, order=>$name),
				5365	-class => "header"}, $header) .
				5366	"</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5367	}
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5368
				5369	return $sort_th;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5370	}
				5371
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5372	sub git_project_list_rows {
				5373	my ($projlist, $from, $to, $check_forks) = @_;
				5374
				5375	$from = 0 unless defined $from;
				5376	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5377
				5378	my $alternate = 1;
				5379	for (my $i = $from; $i <= $to; $i++) {
				5380	my $pr = $projlist->[$i];
				5381
				5382	if ($alternate) {
				5383	print "<tr class=\"dark\">\n";
				5384	} else {
				5385	print "<tr class=\"light\">\n";
				5386	}
				5387	$alternate ^= 1;
				5388
				5389	if ($check_forks) {
				5390	print "<td>";
				5391	if ($pr->{'forks'}) {
				5392	my $nforks = scalar @{$pr->{'forks'}};
				5393	if ($nforks > 0) {
				5394	print $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks"),
				5395	-title => "$nforks forks"}, "+");
				5396	} else {
				5397	print $cgi->span({-title => "$nforks forks"}, "+");
				5398	}
				5399	}
				5400	print "</td>\n";
				5401	}
				5402	print "<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	07a4006	2012-02-27 02:55:20 +0100	[diff] [blame]	5403	-class => "list"},
				5404	esc_html_match_hl($pr->{'path'}, $search_regexp)) .
				5405	"</td>\n" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5406	"<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame^]	5407	-class => "list",
				5408	$search_regexp ? () : -title => $pr->{'descr_long'}},
				5409	$search_regexp
				5410	? esc_html_match_hl($pr->{'descr_long'}, $search_regexp)
				5411	: esc_html($pr->{'descr'})) .
				5412	"</td>\n" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5413	"<td><i>" . chop_and_escape_str($pr->{'owner'}, 15) . "</i></td>\n";
				5414	print "<td class=\"". age_class($pr->{'age'}) . "\">" .
				5415	(defined $pr->{'age_string'} ? $pr->{'age_string'} : "No commits") . "</td>\n" .
				5416	"<td class=\"link\">" .
				5417	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary")}, "summary") . " \| " .
				5418	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"shortlog")}, "shortlog") . " \| " .
				5419	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")}, "log") . " \| " .
				5420	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")}, "tree") .
				5421	($pr->{'forks'} ? " \| " . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
				5422	"</td>\n" .
				5423	"</tr>\n";
				5424	}
				5425	}
				5426
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5427	sub git_project_list_body {
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5428	# actually uses global variable $project
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5429	my ($projlist, $order, $from, $to, $extra, $no_header) = @_;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5430	my @projects = @$projlist;
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5431
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5432	my $check_forks = gitweb_check_feature('forks');
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5433	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	5434	my $tagfilter = $show_ctags ? $input_params{'ctag'} : undef;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5435	$check_forks = undef
				5436	if ($tagfilter \|\| $searchtext);
				5437
				5438	# filtering out forks before filling info allows to do less work
				5439	@projects = filter_forks_from_projects_list(\@projects)
				5440	if ($check_forks);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5441	# search_projects_list pre-fills required info
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5442	@projects = search_projects_list(\@projects,
				5443	'searchtext' => $searchtext,
				5444	'tagfilter' => $tagfilter)
				5445	if ($tagfilter \|\| $searchtext);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5446	# fill the rest
				5447	@projects = fill_project_list_info(\@projects);
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5448
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	5449	$order \|\|= $default_projects_order;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5450	$from = 0 unless defined $from;
				5451	$to = $#projects if (!defined $to \|\| $#projects < $to);
				5452
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5453	# short circuit
				5454	if ($from > $to) {
				5455	print "<center>\n".
				5456	"<b>No such projects found</b><br />\n".
				5457	"Click ".$cgi->a({-href=>href(project=>undef)},"here")." to view all projects<br />\n".
				5458	"</center>\n<br />\n";
				5459	return;
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5460	}
				5461
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5462	@projects = sort_projects_list(\@projects, $order);
				5463
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5464	if ($show_ctags) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	5465	my $ctags = git_gather_all_ctags(\@projects);
				5466	my $cloud = git_populate_project_tagcloud($ctags);
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5467	print git_show_project_tagcloud($cloud, 64);
				5468	}
				5469
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5470	print "<table class=\"project_list\">\n";
				5471	unless ($no_header) {
				5472	print "<tr>\n";
				5473	if ($check_forks) {
				5474	print "<th></th>\n";
				5475	}
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5476	print_sort_th('project', $order, 'Project');
				5477	print_sort_th('descr', $order, 'Description');
				5478	print_sort_th('owner', $order, 'Owner');
				5479	print_sort_th('age', $order, 'Last Change');
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5480	print "<th></th>\n" . # for links
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5481	"</tr>\n";
				5482	}
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5483
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5484	if ($projects_list_group_categories) {
				5485	# only display categories with projects in the $from-$to window
				5486	@projects = sort {$a->{'category'} cmp $b->{'category'}} @projects[$from..$to];
				5487	my %categories = build_projlist_by_category(\@projects, $from, $to);
				5488	foreach my $cat (sort keys %categories) {
				5489	unless ($cat eq "") {
				5490	print "<tr>\n";
				5491	if ($check_forks) {
				5492	print "<td></td>\n";
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5493	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5494	print "<td class=\"category\" colspan=\"5\">".esc_html($cat)."</td>\n";
				5495	print "</tr>\n";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5496	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5497
				5498	git_project_list_rows($categories{$cat}, undef, undef, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5499	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5500	} else {
				5501	git_project_list_rows(\@projects, $from, $to, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5502	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5503
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5504	if (defined $extra) {
				5505	print "<tr>\n";
				5506	if ($check_forks) {
				5507	print "<td></td>\n";
				5508	}
				5509	print "<td colspan=\"5\">$extra</td>\n" .
				5510	"</tr>\n";
				5511	}
				5512	print "</table>\n";
				5513	}
				5514
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5515	sub git_log_body {
				5516	# uses global variable $project
				5517	my ($commitlist, $from, $to, $refs, $extra) = @_;
				5518
				5519	$from = 0 unless defined $from;
				5520	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
				5521
				5522	for (my $i = 0; $i <= $to; $i++) {
				5523	my %co = %{$commitlist->[$i]};
				5524	next if !%co;
				5525	my $commit = $co{'id'};
				5526	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5527	git_print_header_div('commit',
				5528	"<span class=\"age\">$co{'age_string'}</span>" .
				5529	esc_html($co{'title'}) . $ref,
				5530	$commit);
				5531	print "<div class=\"title_text\">\n" .
				5532	"<div class=\"log_link\">\n" .
				5533	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") .
				5534	" \| " .
				5535	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") .
				5536	" \| " .
				5537	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree") .
				5538	"<br/>\n" .
				5539	"</div>\n";
				5540	git_print_authorship(\%co, -tag => 'span');
				5541	print "<br/>\n</div>\n";
				5542
				5543	print "<div class=\"log_body\">\n";
				5544	git_print_log($co{'comment'}, -final_empty_line=> 1);
				5545	print "</div>\n";
				5546	}
				5547	if ($extra) {
				5548	print "<div class=\"page_nav\">\n";
				5549	print "$extra\n";
				5550	print "</div>\n";
				5551	}
				5552	}
				5553
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5554	sub git_shortlog_body {
				5555	# uses global variable $project
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5556	my ($commitlist, $from, $to, $refs, $extra) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	5557
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5558	$from = 0 unless defined $from;
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5559	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5560
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5561	print "<table class=\"shortlog\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5562	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5563	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5564	my %co = %{$commitlist->[$i]};
				5565	my $commit = $co{'id'};
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	5566	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5567	if ($alternate) {
				5568	print "<tr class=\"dark\">\n";
				5569	} else {
				5570	print "<tr class=\"light\">\n";
				5571	}
				5572	$alternate ^= 1;
				5573	# git_summary() used print "<td><i>$co{'age_string'}</i></td>\n" .
				5574	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	5575	format_author_html('td', \%co, 10) . "<td>";
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5576	print format_subject_html($co{'title'}, $co{'title_short'},
				5577	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5578	print "</td>\n" .
				5579	"<td class=\"link\">" .
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	5580	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") . " \| " .
Petr Baudis	35749ae	2006-09-22 03:19:44 +0200	[diff] [blame]	5581	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") . " \| " .
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5582	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	5583	my $snapshot_links = format_snapshot_links($commit);
				5584	if (defined $snapshot_links) {
				5585	print " \| " . $snapshot_links;
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5586	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	5587	print "</td>\n" .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5588	"</tr>\n";
				5589	}
				5590	if (defined $extra) {
				5591	print "<tr>\n" .
				5592	"<td colspan=\"4\">$extra</td>\n" .
				5593	"</tr>\n";
				5594	}
				5595	print "</table>\n";
				5596	}
				5597
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5598	sub git_history_body {
				5599	# Warning: assumes constant type (blob or tree) during history
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5600	my ($commitlist, $from, $to, $refs, $extra,
				5601	$file_name, $file_hash, $ftype) = @_;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5602
				5603	$from = 0 unless defined $from;
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5604	$to = $#{$commitlist} unless (defined $to && $to <= $#{$commitlist});
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5605
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5606	print "<table class=\"history\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5607	my $alternate = 1;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5608	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5609	my %co = %{$commitlist->[$i]};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5610	if (!%co) {
				5611	next;
				5612	}
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5613	my $commit = $co{'id'};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5614
				5615	my $ref = format_ref_marker($refs, $commit);
				5616
				5617	if ($alternate) {
				5618	print "<tr class=\"dark\">\n";
				5619	} else {
				5620	print "<tr class=\"light\">\n";
				5621	}
				5622	$alternate ^= 1;
				5623	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	5624	# shortlog: format_author_html('td', \%co, 10)
				5625	format_author_html('td', \%co, 15, 3) . "<td>";
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5626	# originally git_history used chop_str($co{'title'}, 50)
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5627	print format_subject_html($co{'title'}, $co{'title_short'},
				5628	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5629	print "</td>\n" .
				5630	"<td class=\"link\">" .
Luben Tuikov	6d81c5a	2006-09-28 17:21:07 -0700	[diff] [blame]	5631	$cgi->a({-href => href(action=>$ftype, hash_base=>$commit, file_name=>$file_name)}, $ftype) . " \| " .
				5632	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff");
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5633
				5634	if ($ftype eq 'blob') {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5635	my $blob_current = $file_hash;
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5636	my $blob_parent = git_get_hash_by_path($commit, $file_name);
				5637	if (defined $blob_current && defined $blob_parent &&
				5638	$blob_current ne $blob_parent) {
				5639	print " \| " .
Jakub Narebski	420e92f	2006-08-24 23:53:54 +0200	[diff] [blame]	5640	$cgi->a({-href => href(action=>"blobdiff",
				5641	hash=>$blob_current, hash_parent=>$blob_parent,
				5642	hash_base=>$hash_base, hash_parent_base=>$commit,
				5643	file_name=>$file_name)},
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5644	"diff to current");
				5645	}
				5646	}
				5647	print "</td>\n" .
				5648	"</tr>\n";
				5649	}
				5650	if (defined $extra) {
				5651	print "<tr>\n" .
				5652	"<td colspan=\"4\">$extra</td>\n" .
				5653	"</tr>\n";
				5654	}
				5655	print "</table>\n";
				5656	}
				5657
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5658	sub git_tags_body {
				5659	# uses global variable $project
				5660	my ($taglist, $from, $to, $extra) = @_;
				5661	$from = 0 unless defined $from;
				5662	$to = $#{$taglist} if (!defined $to \|\| $#{$taglist} < $to);
				5663
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5664	print "<table class=\"tags\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5665	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5666	for (my $i = $from; $i <= $to; $i++) {
				5667	my $entry = $taglist->[$i];
				5668	my %tag = %$entry;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5669	my $comment = $tag{'subject'};
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5670	my $comment_short;
				5671	if (defined $comment) {
				5672	$comment_short = chop_str($comment, 30, 5);
				5673	}
				5674	if ($alternate) {
				5675	print "<tr class=\"dark\">\n";
				5676	} else {
				5677	print "<tr class=\"light\">\n";
				5678	}
				5679	$alternate ^= 1;
Jakub Narebski	27dd1a8	2007-01-03 22:54:29 +0100	[diff] [blame]	5680	if (defined $tag{'age'}) {
				5681	print "<td><i>$tag{'age'}</i></td>\n";
				5682	} else {
				5683	print "<td></td>\n";
				5684	}
				5685	print "<td>" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5686	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),
Jakub Narebski	63e4220	2006-08-22 12:38:59 +0200	[diff] [blame]	5687	-class => "list name"}, esc_html($tag{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5688	"</td>\n" .
				5689	"<td>";
				5690	if (defined $comment) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5691	print format_subject_html($comment, $comment_short,
				5692	href(action=>"tag", hash=>$tag{'id'}));
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5693	}
				5694	print "</td>\n" .
				5695	"<td class=\"selflink\">";
				5696	if ($tag{'type'} eq "tag") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5697	print $cgi->a({-href => href(action=>"tag", hash=>$tag{'id'})}, "tag");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5698	} else {
				5699	print " ";
				5700	}
				5701	print "</td>\n" .
				5702	"<td class=\"link\">" . " \| " .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5703	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'})}, $tag{'reftype'});
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5704	if ($tag{'reftype'} eq "commit") {
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5705	print " \| " . $cgi->a({-href => href(action=>"shortlog", hash=>$tag{'fullname'})}, "shortlog") .
				5706	" \| " . $cgi->a({-href => href(action=>"log", hash=>$tag{'fullname'})}, "log");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5707	} elsif ($tag{'reftype'} eq "blob") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5708	print " \| " . $cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})}, "raw");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5709	}
				5710	print "</td>\n" .
				5711	"</tr>";
				5712	}
				5713	if (defined $extra) {
				5714	print "<tr>\n" .
				5715	"<td colspan=\"5\">$extra</td>\n" .
				5716	"</tr>\n";
				5717	}
				5718	print "</table>\n";
				5719	}
				5720
				5721	sub git_heads_body {
				5722	# uses global variable $project
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5723	my ($headlist, $head, $from, $to, $extra) = @_;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5724	$from = 0 unless defined $from;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5725	$to = $#{$headlist} if (!defined $to \|\| $#{$headlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5726
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5727	print "<table class=\"heads\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5728	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5729	for (my $i = $from; $i <= $to; $i++) {
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5730	my $entry = $headlist->[$i];
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5731	my %ref = %$entry;
				5732	my $curr = $ref{'id'} eq $head;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5733	if ($alternate) {
				5734	print "<tr class=\"dark\">\n";
				5735	} else {
				5736	print "<tr class=\"light\">\n";
				5737	}
				5738	$alternate ^= 1;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5739	print "<td><i>$ref{'age'}</i></td>\n" .
				5740	($curr ? "<td class=\"current_head\">" : "<td>") .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5741	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'}),
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5742	-class => "list name"},esc_html($ref{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5743	"</td>\n" .
				5744	"<td class=\"link\">" .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5745	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'})}, "shortlog") . " \| " .
				5746	$cgi->a({-href => href(action=>"log", hash=>$ref{'fullname'})}, "log") . " \| " .
Giuseppe Bilotta	9e70e15	2010-11-11 13:26:08 +0100	[diff] [blame]	5747	$cgi->a({-href => href(action=>"tree", hash=>$ref{'fullname'}, hash_base=>$ref{'fullname'})}, "tree") .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5748	"</td>\n" .
				5749	"</tr>";
				5750	}
				5751	if (defined $extra) {
				5752	print "<tr>\n" .
				5753	"<td colspan=\"3\">$extra</td>\n" .
				5754	"</tr>\n";
				5755	}
				5756	print "</table>\n";
				5757	}
				5758
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	5759	# Display a single remote block
				5760	sub git_remote_block {
				5761	my ($remote, $rdata, $limit, $head) = @_;
				5762
				5763	my $heads = $rdata->{'heads'};
				5764	my $fetch = $rdata->{'fetch'};
				5765	my $push = $rdata->{'push'};
				5766
				5767	my $urls_table = "<table class=\"projects_list\">\n" ;
				5768
				5769	if (defined $fetch) {
				5770	if ($fetch eq $push) {
				5771	$urls_table .= format_repo_url("URL", $fetch);
				5772	} else {
				5773	$urls_table .= format_repo_url("Fetch URL", $fetch);
				5774	$urls_table .= format_repo_url("Push URL", $push) if defined $push;
				5775	}
				5776	} elsif (defined $push) {
				5777	$urls_table .= format_repo_url("Push URL", $push);
				5778	} else {
				5779	$urls_table .= format_repo_url("", "No remote URL");
				5780	}
				5781
				5782	$urls_table .= "</table>\n";
				5783
				5784	my $dots;
				5785	if (defined $limit && $limit < @$heads) {
				5786	$dots = $cgi->a({-href => href(action=>"remotes", hash=>$remote)}, "...");
				5787	}
				5788
				5789	print $urls_table;
				5790	git_heads_body($heads, $head, 0, $limit, $dots);
				5791	}
				5792
				5793	# Display a list of remote names with the respective fetch and push URLs
				5794	sub git_remotes_list {
				5795	my ($remotedata, $limit) = @_;
				5796	print "<table class=\"heads\">\n";
				5797	my $alternate = 1;
				5798	my @remotes = sort keys %$remotedata;
				5799
				5800	my $limited = $limit && $limit < @remotes;
				5801
				5802	$#remotes = $limit - 1 if $limited;
				5803
				5804	while (my $remote = shift @remotes) {
				5805	my $rdata = $remotedata->{$remote};
				5806	my $fetch = $rdata->{'fetch'};
				5807	my $push = $rdata->{'push'};
				5808	if ($alternate) {
				5809	print "<tr class=\"dark\">\n";
				5810	} else {
				5811	print "<tr class=\"light\">\n";
				5812	}
				5813	$alternate ^= 1;
				5814	print "<td>" .
				5815	$cgi->a({-href=> href(action=>'remotes', hash=>$remote),
				5816	-class=> "list name"},esc_html($remote)) .
				5817	"</td>";
				5818	print "<td class=\"link\">" .
				5819	(defined $fetch ? $cgi->a({-href=> $fetch}, "fetch") : "fetch") .
				5820	" \| " .
				5821	(defined $push ? $cgi->a({-href=> $push}, "push") : "push") .
				5822	"</td>";
				5823
				5824	print "</tr>\n";
				5825	}
				5826
				5827	if ($limited) {
				5828	print "<tr>\n" .
				5829	"<td colspan=\"3\">" .
				5830	$cgi->a({-href => href(action=>"remotes")}, "...") .
				5831	"</td>\n" . "</tr>\n";
				5832	}
				5833
				5834	print "</table>";
				5835	}
				5836
				5837	# Display remote heads grouped by remote, unless there are too many
				5838	# remotes, in which case we only display the remote names
				5839	sub git_remotes_body {
				5840	my ($remotedata, $limit, $head) = @_;
				5841	if ($limit and $limit < keys %$remotedata) {
				5842	git_remotes_list($remotedata, $limit);
				5843	} else {
				5844	fill_remote_heads($remotedata);
				5845	while (my ($remote, $rdata) = each %$remotedata) {
				5846	git_print_section({-class=>"remote", -id=>$remote},
				5847	["remotes", $remote, $remote], sub {
				5848	git_remote_block($remote, $rdata, $limit, $head);
				5849	});
				5850	}
				5851	}
				5852	}
				5853
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5854	sub git_search_message {
				5855	my %co = @_;
				5856
				5857	my $greptype;
				5858	if ($searchtype eq 'commit') {
				5859	$greptype = "--grep=";
				5860	} elsif ($searchtype eq 'author') {
				5861	$greptype = "--author=";
				5862	} elsif ($searchtype eq 'committer') {
				5863	$greptype = "--committer=";
				5864	}
				5865	$greptype .= $searchtext;
				5866	my @commitlist = parse_commits($hash, 101, (100 * $page), undef,
				5867	$greptype, '--regexp-ignore-case',
				5868	$search_use_regexp ? '--extended-regexp' : '--fixed-strings');
				5869
				5870	my $paging_nav = '';
				5871	if ($page > 0) {
				5872	$paging_nav .=
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5873	$cgi->a({-href => href(-replay=>1, page=>undef)},
				5874	"first") .
				5875	" ⋅ " .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5876	$cgi->a({-href => href(-replay=>1, page=>$page-1),
				5877	-accesskey => "p", -title => "Alt-p"}, "prev");
				5878	} else {
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5879	$paging_nav .= "first ⋅ prev";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5880	}
				5881	my $next_link = '';
				5882	if ($#commitlist >= 100) {
				5883	$next_link =
				5884	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				5885	-accesskey => "n", -title => "Alt-n"}, "next");
				5886	$paging_nav .= " ⋅ $next_link";
				5887	} else {
				5888	$paging_nav .= " ⋅ next";
				5889	}
				5890
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5891	git_header_html();
				5892
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5893	git_print_page_nav('','', $hash,$co{'tree'},$hash, $paging_nav);
				5894	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				5895	if ($page == 0 && !@commitlist) {
				5896	print "<p>No match.</p>\n";
				5897	} else {
				5898	git_search_grep_body(\@commitlist, 0, 99, $next_link);
				5899	}
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5900
				5901	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5902	}
				5903
				5904	sub git_search_changes {
				5905	my %co = @_;
				5906
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5907	local $/ = "\n";
				5908	open my $fd, '-\|', git_cmd(), '--no-pager', 'log', @diff_opts,
				5909	'--pretty=format:%H', '--no-abbrev', '--raw', "-S$searchtext",
				5910	($search_use_regexp ? '--pickaxe-regex' : ())
				5911	or die_error(500, "Open git-log failed");
				5912
				5913	git_header_html();
				5914
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5915	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				5916	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				5917
				5918	print "<table class=\"pickaxe search\">\n";
				5919	my $alternate = 1;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5920	undef %co;
				5921	my @files;
				5922	while (my $line = <$fd>) {
				5923	chomp $line;
				5924	next unless $line;
				5925
				5926	my %set = parse_difftree_raw_line($line);
				5927	if (defined $set{'commit'}) {
				5928	# finish previous commit
				5929	if (%co) {
				5930	print "</td>\n" .
				5931	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5932	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				5933	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5934	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5935	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				5936	hash_base=>$co{'id'})},
				5937	"tree") .
				5938	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5939	"</tr>\n";
				5940	}
				5941
				5942	if ($alternate) {
				5943	print "<tr class=\"dark\">\n";
				5944	} else {
				5945	print "<tr class=\"light\">\n";
				5946	}
				5947	$alternate ^= 1;
				5948	%co = parse_commit($set{'commit'});
				5949	my $author = chop_and_escape_str($co{'author_name'}, 15, 5);
				5950	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
				5951	"<td><i>$author</i></td>\n" .
				5952	"<td>" .
				5953	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				5954	-class => "list subject"},
				5955	chop_and_escape_str($co{'title'}, 50) . "<br/>");
				5956	} elsif (defined $set{'to_id'}) {
				5957	next if ($set{'to_id'} =~ m/^0{40}$/);
				5958
				5959	print $cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},
				5960	hash=>$set{'to_id'}, file_name=>$set{'to_file'}),
				5961	-class => "list"},
				5962	"<span class=\"match\">" . esc_path($set{'file'}) . "</span>") .
				5963	"<br/>\n";
				5964	}
				5965	}
				5966	close $fd;
				5967
				5968	# finish last commit (warning: repetition!)
				5969	if (%co) {
				5970	print "</td>\n" .
				5971	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5972	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				5973	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5974	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5975	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				5976	hash_base=>$co{'id'})},
				5977	"tree") .
				5978	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5979	"</tr>\n";
				5980	}
				5981
				5982	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5983
				5984	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5985	}
				5986
				5987	sub git_search_files {
				5988	my %co = @_;
				5989
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5990	local $/ = "\n";
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	5991	open my $fd, "-\|", git_cmd(), 'grep', '-n', '-z',
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5992	$search_use_regexp ? ('-E', '-i') : '-F',
				5993	$searchtext, $co{'tree'}
				5994	or die_error(500, "Open git-grep failed");
				5995
				5996	git_header_html();
				5997
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5998	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				5999	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6000
				6001	print "<table class=\"grep_search\">\n";
				6002	my $alternate = 1;
				6003	my $matches = 0;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6004	my $lastfile = '';
				6005	while (my $line = <$fd>) {
				6006	chomp $line;
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6007	my ($file, $file_href, $lno, $ltext, $binary);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6008	last if ($matches++ > 1000);
				6009	if ($line =~ /^Binary file (.+) matches$/) {
				6010	$file = $1;
				6011	$binary = 1;
				6012	} else {
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	6013	($file, $lno, $ltext) = split(/\0/, $line, 3);
				6014	$file =~ s/^$co{'tree'}://;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6015	}
				6016	if ($file ne $lastfile) {
				6017	$lastfile and print "</td></tr>\n";
				6018	if ($alternate++) {
				6019	print "<tr class=\"dark\">\n";
				6020	} else {
				6021	print "<tr class=\"light\">\n";
				6022	}
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6023	$file_href = href(action=>"blob", hash_base=>$co{'id'},
				6024	file_name=>$file);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6025	print "<td class=\"list\">".
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6026	$cgi->a({-href => $file_href, -class => "list"}, esc_path($file));
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6027	print "</td><td>\n";
				6028	$lastfile = $file;
				6029	}
				6030	if ($binary) {
				6031	print "<div class=\"binary\">Binary file</div>\n";
				6032	} else {
				6033	$ltext = untabify($ltext);
				6034	if ($ltext =~ m/^(.)($search_regexp)(.)$/i) {
				6035	$ltext = esc_html($1, -nbsp=>1);
				6036	$ltext .= '<span class="match">';
				6037	$ltext .= esc_html($2, -nbsp=>1);
				6038	$ltext .= '</span>';
				6039	$ltext .= esc_html($3, -nbsp=>1);
				6040	} else {
				6041	$ltext = esc_html($ltext, -nbsp=>1);
				6042	}
				6043	print "<div class=\"pre\">" .
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6044	$cgi->a({-href => $file_href.'#l'.$lno,
				6045	-class => "linenr"}, sprintf('%4i', $lno)) .
				6046	' ' . $ltext . "</div>\n";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6047	}
				6048	}
				6049	if ($lastfile) {
				6050	print "</td></tr>\n";
				6051	if ($matches > 1000) {
				6052	print "<div class=\"diff nodifferences\">Too many matches, listing trimmed</div>\n";
				6053	}
				6054	} else {
				6055	print "<div class=\"diff nodifferences\">No matches found</div>\n";
				6056	}
				6057	close $fd;
				6058
				6059	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6060
				6061	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6062	}
				6063
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6064	sub git_search_grep_body {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6065	my ($commitlist, $from, $to, $extra) = @_;
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6066	$from = 0 unless defined $from;
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6067	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6068
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6069	print "<table class=\"commit_search\">\n";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6070	my $alternate = 1;
				6071	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6072	my %co = %{$commitlist->[$i]};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6073	if (!%co) {
				6074	next;
				6075	}
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6076	my $commit = $co{'id'};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6077	if ($alternate) {
				6078	print "<tr class=\"dark\">\n";
				6079	} else {
				6080	print "<tr class=\"light\">\n";
				6081	}
				6082	$alternate ^= 1;
				6083	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	6084	format_author_html('td', \%co, 15, 5) .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6085	"<td>" .
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6086	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6087	-class => "list subject"},
				6088	chop_and_escape_str($co{'title'}, 50) . "<br/>");
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6089	my $comment = $co{'comment'};
				6090	foreach my $line (@$comment) {
Jakub Narebski	6dfbb30	2008-03-02 16:57:14 +0100	[diff] [blame]	6091	if ($line =~ m/^(.?)($search_regexp)(.)$/i) {
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6092	my ($lead, $match, $trail) = ($1, $2, $3);
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	6093	$match = chop_str($match, 70, 5, 'center');
				6094	my $contextlen = int((80 - length($match))/2);
				6095	$contextlen = 30 if ($contextlen > 30);
				6096	$lead = chop_str($lead, $contextlen, 10, 'left');
				6097	$trail = chop_str($trail, $contextlen, 10, 'right');
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6098
				6099	$lead = esc_html($lead);
				6100	$match = esc_html($match);
				6101	$trail = esc_html($trail);
				6102
				6103	print "$lead<span class=\"match\">$match</span>$trail<br />";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6104	}
				6105	}
				6106	print "</td>\n" .
				6107	"<td class=\"link\">" .
				6108	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})}, "commit") .
				6109	" \| " .
Denis Cheng	f1fe8f5	2007-11-26 20:42:06 +0800	[diff] [blame]	6110	$cgi->a({-href => href(action=>"commitdiff", hash=>$co{'id'})}, "commitdiff") .
				6111	" \| " .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6112	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$co{'id'})}, "tree");
				6113	print "</td>\n" .
				6114	"</tr>\n";
				6115	}
				6116	if (defined $extra) {
				6117	print "<tr>\n" .
				6118	"<td colspan=\"3\">$extra</td>\n" .
				6119	"</tr>\n";
				6120	}
				6121	print "</table>\n";
				6122	}
				6123
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6124	## ======================================================================
				6125	## ======================================================================
				6126	## actions
				6127
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6128	sub git_project_list {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6129	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6130	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6131	die_error(400, "Unknown order parameter");
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6132	}
				6133
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6134	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6135	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6136	die_error(404, "No projects found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6137	}
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6138
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6139	git_header_html();
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	6140	if (defined $home_text && -f $home_text) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6141	print "<div class=\"index_include\">\n";
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6142	insert_file($home_text);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6143	print "</div>\n";
				6144	}
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	6145
				6146	git_project_search_form($searchtext, $search_use_regexp);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6147	git_project_list_body(\@list, $order);
				6148	git_footer_html();
				6149	}
				6150
				6151	sub git_forks {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6152	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6153	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6154	die_error(400, "Unknown order parameter");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6155	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6156
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6157	my $filter = $project;
				6158	$filter =~ s/\.git$//;
				6159	my @list = git_get_projects_list($filter);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6160	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6161	die_error(404, "No forks found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6162	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6163
				6164	git_header_html();
				6165	git_print_page_nav('','');
				6166	git_print_header_div('summary', "$project forks");
				6167	git_project_list_body(\@list, $order);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6168	git_footer_html();
				6169	}
				6170
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6171	sub git_project_index {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6172	my @projects = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6173	if (!@projects) {
				6174	die_error(404, "No projects found");
				6175	}
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6176
				6177	print $cgi->header(
				6178	-type => 'text/plain',
				6179	-charset => 'utf-8',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6180	-content_disposition => 'inline; filename="index.aux"');
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6181
				6182	foreach my $pr (@projects) {
				6183	if (!exists $pr->{'owner'}) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	6184	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}");
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6185	}
				6186
				6187	my ($path, $owner) = ($pr->{'path'}, $pr->{'owner'});
				6188	# quote as in CGI::Util::encode, but keep the slash, and use '+' for ' '
				6189	$path =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6190	$owner =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6191	$path =~ s/ /\+/g;
				6192	$owner =~ s/ /\+/g;
				6193
				6194	print "$path $owner\n";
				6195	}
				6196	}
				6197
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6198	sub git_summary {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6199	my $descr = git_get_project_description($project) \|\| "none";
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6200	my %co = parse_commit("HEAD");
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6201	my %cd = %co ? parse_date($co{'committer_epoch'}, $co{'committer_tz'}) : ();
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6202	my $head = $co{'id'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6203	my $remote_heads = gitweb_check_feature('remote_heads');
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6204
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	6205	my $owner = git_get_project_owner($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6206
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6207	my $refs = git_get_references();
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6208	# These get_*_list functions return one more to allow us to see if
				6209	# there are more ...
				6210	my @taglist = git_get_tags_list(16);
				6211	my @headlist = git_get_heads_list(16);
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6212	my %remotedata = $remote_heads ? git_get_remotes_list() : ();
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6213	my @forklist;
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6214	my $check_forks = gitweb_check_feature('forks');
Junio C Hamano	5dd5ed0	2006-11-07 22:00:45 -0800	[diff] [blame]	6215
				6216	if ($check_forks) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6217	# find forks of a project
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6218	my $filter = $project;
				6219	$filter =~ s/\.git$//;
				6220	@forklist = git_get_projects_list($filter);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6221	# filter out forks of forks
				6222	@forklist = filter_forks_from_projects_list(\@forklist)
				6223	if (@forklist);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6224	}
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6225
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6226	git_header_html();
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6227	git_print_page_nav('summary','', $head);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6228
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	6229	print "<div class=\"title\"> </div>\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6230	print "<table class=\"projects_list\">\n" .
Petr Baudis	a476142	2008-10-02 16:25:05 +0200	[diff] [blame]	6231	"<tr id=\"metadata_desc\"><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
				6232	"<tr id=\"metadata_owner\"><td>owner</td><td>" . esc_html($owner) . "</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6233	if (defined $cd{'rfc2822'}) {
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	6234	print "<tr id=\"metadata_lchange\"><td>last change</td>" .
				6235	"<td>".format_timestamp_html(\%cd)."</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6236	}
				6237
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6238	# use per project git URL list in $projectroot/$project/cloneurl
				6239	# or make project git URL from git base URL and project name
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6240	my $url_tag = "URL";
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6241	my @url_list = git_get_project_url_list($project);
				6242	@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
				6243	foreach my $git_url (@url_list) {
				6244	next unless $git_url;
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	6245	print format_repo_url($url_tag, $git_url);
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6246	$url_tag = "";
				6247	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6248
				6249	# Tag cloud
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6250	my $show_ctags = gitweb_check_feature('ctags');
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6251	if ($show_ctags) {
				6252	my $ctags = git_get_project_ctags($project);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	6253	if (%$ctags) {
				6254	# without ability to add tags, don't show if there are none
				6255	my $cloud = git_populate_project_tagcloud($ctags);
				6256	print "<tr id=\"metadata_ctags\">" .
				6257	"<td>content tags</td>" .
				6258	"<td>".git_show_project_tagcloud($cloud, 48)."</td>" .
				6259	"</tr>\n";
				6260	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6261	}
				6262
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6263	print "</table>\n";
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6264
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6265	# If XSS prevention is on, we don't include README.html.
				6266	# TODO: Allow a readme in some safe format.
				6267	if (!$prevent_xss && -s "$projectroot/$project/README.html") {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6268	print "<div class=\"title\">readme</div>\n" .
				6269	"<div class=\"readme\">\n";
				6270	insert_file("$projectroot/$project/README.html");
				6271	print "\n</div>\n"; # class="readme"
Petr Baudis	447ef09	2006-10-24 05:23:46 +0200	[diff] [blame]	6272	}
				6273
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6274	# we need to request one more than 16 (0..15) to check if
				6275	# those 16 are all
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6276	my @commitlist = $head ? parse_commits($head, 17) : ();
				6277	if (@commitlist) {
				6278	git_print_header_div('shortlog');
				6279	git_shortlog_body(\@commitlist, 0, 15, $refs,
				6280	$#commitlist <= 15 ? undef :
				6281	$cgi->a({-href => href(action=>"shortlog")}, "..."));
				6282	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6283
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6284	if (@taglist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6285	git_print_header_div('tags');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6286	git_tags_body(\@taglist, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6287	$#taglist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6288	$cgi->a({-href => href(action=>"tags")}, "..."));
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6289	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6290
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6291	if (@headlist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6292	git_print_header_div('heads');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6293	git_heads_body(\@headlist, $head, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6294	$#headlist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6295	$cgi->a({-href => href(action=>"heads")}, "..."));
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6296	}
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6297
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6298	if (%remotedata) {
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6299	git_print_header_div('remotes');
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6300	git_remotes_body(\%remotedata, 15, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6301	}
				6302
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6303	if (@forklist) {
				6304	git_print_header_div('forks');
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6305	git_project_list_body(\@forklist, 'age', 0, 15,
Robert Fitzsimons	aaca967	2006-12-22 19:38:12 +0000	[diff] [blame]	6306	$#forklist <= 15 ? undef :
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6307	$cgi->a({-href => href(action=>"forks")}, "..."),
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6308	'no_header');
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6309	}
				6310
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6311	git_footer_html();
				6312	}
				6313
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6314	sub git_tag {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6315	my %tag = parse_tag($hash);
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6316
				6317	if (! %tag) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6318	die_error(404, "Unknown tag object");
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6319	}
				6320
Anders Kaseorg	d8a9480	2010-08-27 13:38:16 -0400	[diff] [blame]	6321	my $head = git_get_head_hash($project);
				6322	git_header_html();
				6323	git_print_page_nav('','', $head,undef,$head);
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6324	git_print_header_div('commit', esc_html($tag{'name'}), $hash);
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6325	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6326	"<table class=\"object_header\">\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6327	"<tr>\n" .
				6328	"<td>object</td>\n" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6329	"<td>" . $cgi->a({-class => "list", -href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6330	$tag{'object'}) . "</td>\n" .
				6331	"<td class=\"link\">" . $cgi->a({-href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6332	$tag{'type'}) . "</td>\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6333	"</tr>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6334	if (defined($tag{'author'})) {
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	6335	git_print_authorship_rows(\%tag, 'author');
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6336	}
				6337	print "</table>\n\n" .
				6338	"</div>\n";
				6339	print "<div class=\"page_body\">";
				6340	my $comment = $tag{'comment'};
				6341	foreach my $line (@$comment) {
Junio C Hamano	7002243	2006-11-24 14:04:01 -0800	[diff] [blame]	6342	chomp $line;
Jakub Narebski	793c400	2006-11-24 22:25:50 +0100	[diff] [blame]	6343	print esc_html($line, -nbsp=>1) . "<br/>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6344	}
				6345	print "</div>\n";
				6346	git_footer_html();
				6347	}
				6348
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6349	sub git_blame_common {
				6350	my $format = shift \|\| 'porcelain';
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	6351	if ($format eq 'porcelain' && $input_params{'javascript'}) {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6352	$format = 'incremental';
				6353	$action = 'blame_incremental'; # for page title etc
				6354	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6355
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6356	# permissions
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6357	gitweb_check_feature('blame')
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6358	or die_error(403, "Blame view not allowed");
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6359
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6360	# error checking
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6361	die_error(400, "No file name given") unless $file_name;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6362	$hash_base \|\|= git_get_head_hash($project);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6363	die_error(404, "Couldn't find base commit") unless $hash_base;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6364	my %co = parse_commit($hash_base)
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6365	or die_error(404, "Commit not found");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6366	my $ftype = "blob";
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6367	if (!defined $hash) {
				6368	$hash = git_get_hash_by_path($hash_base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6369	or die_error(404, "Error looking up file");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6370	} else {
				6371	$ftype = git_get_type($hash);
				6372	if ($ftype !~ "blob") {
				6373	die_error(400, "Object is not a blob");
				6374	}
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6375	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6376
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6377	my $fd;
				6378	if ($format eq 'incremental') {
				6379	# get file contents (as base)
				6380	open $fd, "-\|", git_cmd(), 'cat-file', 'blob', $hash
				6381	or die_error(500, "Open git-cat-file failed");
				6382	} elsif ($format eq 'data') {
				6383	# run git-blame --incremental
				6384	open $fd, "-\|", git_cmd(), "blame", "--incremental",
				6385	$hash_base, "--", $file_name
				6386	or die_error(500, "Open git-blame --incremental failed");
				6387	} else {
				6388	# run git-blame --porcelain
				6389	open $fd, "-\|", git_cmd(), "blame", '-p',
				6390	$hash_base, '--', $file_name
				6391	or die_error(500, "Open git-blame --porcelain failed");
				6392	}
				6393
				6394	# incremental blame data returns early
				6395	if ($format eq 'data') {
				6396	print $cgi->header(
				6397	-type=>"text/plain", -charset => "utf-8",
				6398	-status=> "200 OK");
				6399	local $\| = 1; # output autoflush
Jürgen Kreileder	57cf4ad	2011-12-17 10:22:23 +0100	[diff] [blame]	6400	while (my $line = <$fd>) {
				6401	print to_utf8($line);
				6402	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6403	close $fd
				6404	or print "ERROR $!\n";
				6405
				6406	print 'END';
				6407	if (defined $t0 && gitweb_check_feature('timed')) {
				6408	print ' '.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	6409	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6410	' '.$number_of_git_cmds;
				6411	}
				6412	print "\n";
				6413
				6414	return;
				6415	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6416
				6417	# page header
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6418	git_header_html();
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6419	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6420	$cgi->a({-href => href(action=>"blob", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6421	"blob") .
Jakub Narebski	87e573f	2009-12-01 17:54:26 +0100	[diff] [blame]	6422	" \| ";
				6423	if ($format eq 'incremental') {
				6424	$formats_nav .=
				6425	$cgi->a({-href => href(action=>"blame", javascript=>0, -replay=>1)},
				6426	"blame") . " (non-incremental)";
				6427	} else {
				6428	$formats_nav .=
				6429	$cgi->a({-href => href(action=>"blame_incremental", -replay=>1)},
				6430	"blame") . " (incremental)";
				6431	}
				6432	$formats_nav .=
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6433	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6434	$cgi->a({-href => href(action=>"history", -replay=>1)},
				6435	"history") .
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6436	" \| " .
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6437	$cgi->a({-href => href(action=>$action, file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6438	"HEAD");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6439	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6440	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6441	git_print_page_path($file_name, $ftype, $hash_base);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6442
				6443	# page body
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6444	if ($format eq 'incremental') {
				6445	print "<noscript>\n<div class=\"error\"><center><b>\n".
				6446	"This page requires JavaScript to run.\n Use ".
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6447	$cgi->a({-href => href(action=>'blame',javascript=>0,-replay=>1)},
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6448	'this page').
				6449	" instead.\n".
				6450	"</b></center></div>\n</noscript>\n";
				6451
				6452	print qq!<div id="progress_bar" style="width: 100%; background-color: yellow"></div>\n!;
				6453	}
				6454
				6455	print qq!<div class="page_body">\n!;
				6456	print qq!<div id="progress_info">... / ...</div>\n!
				6457	if ($format eq 'incremental');
				6458	print qq!<table id="blame_table" class="blame" width="100%">\n!.
				6459	#qq!<col width="5.5em" /><col width="2.5em" /><col width="*" />\n!.
				6460	qq!<thead>\n!.
				6461	qq!<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n!.
				6462	qq!</thead>\n!.
				6463	qq!<tbody>\n!;
				6464
Jakub Narebski	aef3768	2009-07-25 00:44:06 +0200	[diff] [blame]	6465	my @rev_color = qw(light dark);
Luben Tuikov	cc1bf97	2006-07-23 13:37:53 -0700	[diff] [blame]	6466	my $num_colors = scalar(@rev_color);
				6467	my $current_color = 0;
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6468
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6469	if ($format eq 'incremental') {
				6470	my $color_class = $rev_color[$current_color];
				6471
				6472	#contents of a file
				6473	my $linenr = 0;
				6474	LINE:
				6475	while (my $line = <$fd>) {
				6476	chomp $line;
				6477	$linenr++;
				6478
				6479	print qq!<tr id="l$linenr" class="$color_class">!.
				6480	qq!<td class="sha1"><a href=""> </a></td>!.
				6481	qq!<td class="linenr">!.
				6482	qq!<a class="linenr" href="">$linenr</a></td>!;
				6483	print qq!<td class="pre">! . esc_html($line) . "</td>\n";
				6484	print qq!</tr>\n!;
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6485	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6486
				6487	} else { # porcelain, i.e. ordinary blame
				6488	my %metainfo = (); # saves information about commits
				6489
				6490	# blame data
				6491	LINE:
				6492	while (my $line = <$fd>) {
				6493	chomp $line;
				6494	# the header: <SHA-1> <src lineno> <dst lineno> [<lines in group>]
				6495	# no <lines in group> for subsequent lines in group of lines
				6496	my ($full_rev, $orig_lineno, $lineno, $group_size) =
				6497	($line =~ /^([0-9a-f]{40}) (\d+) (\d+)(?: (\d+))?$/);
				6498	if (!exists $metainfo{$full_rev}) {
				6499	$metainfo{$full_rev} = { 'nprevious' => 0 };
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6500	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6501	my $meta = $metainfo{$full_rev};
				6502	my $data;
				6503	while ($data = <$fd>) {
				6504	chomp $data;
				6505	last if ($data =~ s/^\t//); # contents of line
				6506	if ($data =~ /^(\S+)(?: (.*))?$/) {
				6507	$meta->{$1} = $2 unless exists $meta->{$1};
				6508	}
				6509	if ($data =~ /^previous /) {
				6510	$meta->{'nprevious'}++;
Jakub Narebski	a36817b	2009-07-25 00:44:05 +0200	[diff] [blame]	6511	}
				6512	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6513	my $short_rev = substr($full_rev, 0, 8);
				6514	my $author = $meta->{'author'};
				6515	my %date =
				6516	parse_date($meta->{'author-time'}, $meta->{'author-tz'});
				6517	my $date = $date{'iso-tz'};
				6518	if ($group_size) {
				6519	$current_color = ($current_color + 1) % $num_colors;
				6520	}
				6521	my $tr_class = $rev_color[$current_color];
				6522	$tr_class .= ' boundary' if (exists $meta->{'boundary'});
				6523	$tr_class .= ' no-previous' if ($meta->{'nprevious'} == 0);
				6524	$tr_class .= ' multiple-previous' if ($meta->{'nprevious'} > 1);
				6525	print "<tr id=\"l$lineno\" class=\"$tr_class\">\n";
				6526	if ($group_size) {
				6527	print "<td class=\"sha1\"";
				6528	print " title=\"". esc_html($author) . ", $date\"";
				6529	print " rowspan=\"$group_size\"" if ($group_size > 1);
				6530	print ">";
				6531	print $cgi->a({-href => href(action=>"commit",
				6532	hash=>$full_rev,
				6533	file_name=>$file_name)},
				6534	esc_html($short_rev));
				6535	if ($group_size >= 2) {
				6536	my @author_initials = ($author =~ /\b([[:upper:]])\B/g);
				6537	if (@author_initials) {
				6538	print "<br />" .
				6539	esc_html(join('', @author_initials));
				6540	# or join('.', ...)
				6541	}
				6542	}
				6543	print "</td>\n";
				6544	}
				6545	# 'previous' <sha1 of parent commit> <filename at commit>
				6546	if (exists $meta->{'previous'} &&
				6547	$meta->{'previous'} =~ /^([a-fA-F0-9]{40}) (.*)$/) {
				6548	$meta->{'parent'} = $1;
				6549	$meta->{'file_parent'} = unquote($2);
				6550	}
				6551	my $linenr_commit =
				6552	exists($meta->{'parent'}) ?
				6553	$meta->{'parent'} : $full_rev;
				6554	my $linenr_filename =
				6555	exists($meta->{'file_parent'}) ?
				6556	$meta->{'file_parent'} : unquote($meta->{'filename'});
				6557	my $blamed = href(action => 'blame',
				6558	file_name => $linenr_filename,
				6559	hash_base => $linenr_commit);
				6560	print "<td class=\"linenr\">";
				6561	print $cgi->a({ -href => "$blamed#l$orig_lineno",
				6562	-class => "linenr" },
				6563	esc_html($lineno));
				6564	print "</td>";
				6565	print "<td class=\"pre\">" . esc_html($data) . "</td>\n";
				6566	print "</tr>\n";
				6567	} # end while
				6568
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6569	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6570
				6571	# footer
				6572	print "</tbody>\n".
				6573	"</table>\n"; # class="blame"
				6574	print "</div>\n"; # class="blame_body"
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6575	close $fd
				6576	or print "Reading blob failed\n";
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6577
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6578	git_footer_html();
				6579	}
				6580
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6581	sub git_blame {
				6582	git_blame_common();
				6583	}
				6584
				6585	sub git_blame_incremental {
				6586	git_blame_common('incremental');
				6587	}
				6588
				6589	sub git_blame_data {
				6590	git_blame_common('data');
				6591	}
				6592
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6593	sub git_tags {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6594	my $head = git_get_head_hash($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6595	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6596	git_print_page_nav('','', $head,undef,$head,format_ref_views('tags'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6597	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6598
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6599	my @tagslist = git_get_tags_list();
				6600	if (@tagslist) {
				6601	git_tags_body(\@tagslist);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6602	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6603	git_footer_html();
				6604	}
				6605
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	6606	sub git_heads {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6607	my $head = git_get_head_hash($project);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6608	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6609	git_print_page_nav('','', $head,undef,$head,format_ref_views('heads'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6610	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6611
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6612	my @headslist = git_get_heads_list();
				6613	if (@headslist) {
				6614	git_heads_body(\@headslist, $head);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6615	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6616	git_footer_html();
				6617	}
				6618
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6619	# used both for single remote view and for list of all the remotes
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6620	sub git_remotes {
				6621	gitweb_check_feature('remote_heads')
				6622	or die_error(403, "Remote heads view is disabled");
				6623
				6624	my $head = git_get_head_hash($project);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6625	my $remote = $input_params{'hash'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6626
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6627	my $remotedata = git_get_remotes_list($remote);
				6628	die_error(500, "Unable to get remote information") unless defined $remotedata;
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6629
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6630	unless (%$remotedata) {
				6631	die_error(404, defined $remote ?
				6632	"Remote $remote not found" :
				6633	"No remotes found");
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6634	}
				6635
				6636	git_header_html(undef, undef, -action_extra => $remote);
				6637	git_print_page_nav('', '', $head, undef, $head,
				6638	format_ref_views($remote ? '' : 'remotes'));
				6639
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6640	fill_remote_heads($remotedata);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6641	if (defined $remote) {
				6642	git_print_header_div('remotes', "$remote remote for $project");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6643	git_remote_block($remote, $remotedata->{$remote}, undef, $head);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6644	} else {
				6645	git_print_header_div('summary', "$project remotes");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6646	git_remotes_body($remotedata, undef, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6647	}
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6648
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6649	git_footer_html();
				6650	}
				6651
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6652	sub git_blob_plain {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6653	my $type = shift;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6654	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6655
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6656	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6657	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6658	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6659	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6660	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6661	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6662	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6663	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6664	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6665	# blobs defined by non-textual hash id's can be cached
				6666	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6667	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6668
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6669	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6670	or die_error(500, "Open git-cat-file blob '$hash' failed");
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6671
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6672	# content-type (can include charset)
				6673	$type = blob_contenttype($fd, $file_name, $type);
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6674
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6675	# "save as" filename, even when no $file_name is given
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6676	my $save_as = "$hash";
				6677	if (defined $file_name) {
				6678	$save_as = $file_name;
				6679	} elsif ($type =~ m/^text\//) {
				6680	$save_as .= '.txt';
				6681	}
				6682
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6683	# With XSS prevention on, blobs of all types except a few known safe
				6684	# ones are served with "Content-Disposition: attachment" to make sure
				6685	# they don't run in our security domain. For certain image types,
				6686	# blob view writes an <img> tag referring to blob_plain view, and we
				6687	# want to be sure not to break that by serving the image as an
				6688	# attachment (though Firefox 3 doesn't seem to care).
				6689	my $sandbox = $prevent_xss &&
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6690	$type !~ m!^(?:text/[a-z]+\|image/(?:gif\|png\|jpeg))(?:[ ;]\|$)!;
				6691
				6692	# serve text/* as text/plain
				6693	if ($prevent_xss &&
Jakub Narebski	e8c3531	2011-06-30 11:39:21 +0200	[diff] [blame]	6694	($type =~ m!^text/[a-z]+\b(.*)$! \|\|
				6695	($type =~ m!^[a-z]+/[a-z]\+xml\b(.*)$! && -T $fd))) {
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6696	my $rest = $1;
				6697	$rest = defined $rest ? $rest : '';
				6698	$type = "text/plain$rest";
				6699	}
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6700
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6701	print $cgi->header(
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6702	-type => $type,
				6703	-expires => $expires,
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6704	-content_disposition =>
				6705	($sandbox ? 'attachment' : 'inline')
				6706	. '; filename="' . $save_as . '"');
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6707	local $/ = undef;
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6708	binmode STDOUT, ':raw';
				6709	print <$fd>;
				6710	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6711	close $fd;
				6712	}
				6713
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6714	sub git_blob {
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6715	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6716
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6717	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6718	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6719	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6720	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6721	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6722	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6723	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6724	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6725	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6726	# blobs defined by non-textual hash id's can be cached
				6727	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6728	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6729
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6730	my $have_blame = gitweb_check_feature('blame');
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6731	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6732	or die_error(500, "Couldn't cat $file_name, $hash");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6733	my $mimetype = blob_mimetype($fd, $file_name);
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6734	# use 'blob_plain' (aka 'raw') view for files that cannot be displayed
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6735	if ($mimetype !~ m!^(?:text/\|image/(?:gif\|png\|jpeg)$)! && -B $fd) {
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6736	close $fd;
				6737	return git_blob_plain($mimetype);
				6738	}
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6739	# we can have blame only for text/* mimetype
				6740	$have_blame &&= ($mimetype =~ m!^text/!);
				6741
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	6742	my $highlight = gitweb_check_feature('highlight');
				6743	my $syntax = guess_file_syntax($highlight, $mimetype, $file_name);
				6744	$fd = run_highlighter($fd, $highlight, $syntax)
				6745	if $syntax;
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6746
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6747	git_header_html(undef, $expires);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6748	my $formats_nav = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6749	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6750	if (defined $file_name) {
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6751	if ($have_blame) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6752	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6753	$cgi->a({-href => href(action=>"blame", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6754	"blame") .
				6755	" \| ";
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6756	}
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6757	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6758	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6759	"history") .
				6760	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6761	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	6762	"raw") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6763	" \| " .
				6764	$cgi->a({-href => href(action=>"blob",
				6765	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6766	"HEAD");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6767	} else {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6768	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6769	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
				6770	"raw");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6771	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6772	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6773	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6774	} else {
				6775	print "<div class=\"page_nav\">\n" .
				6776	"<br/><br/></div>\n" .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6777	"<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6778	}
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6779	git_print_page_path($file_name, "blob", $hash_base);
Kay Sievers	c07ad4b	2005-08-07 20:22:44 +0200	[diff] [blame]	6780	print "<div class=\"page_body\">\n";
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6781	if ($mimetype =~ m!^image/!) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6782	print qq!<img type="!.esc_attr($mimetype).qq!"!;
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6783	if ($file_name) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6784	print qq! alt="!.esc_attr($file_name).qq!" title="!.esc_attr($file_name).qq!"!;
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6785	}
				6786	print qq! src="! .
				6787	href(action=>"blob_plain", hash=>$hash,
				6788	hash_base=>$hash_base, file_name=>$file_name) .
				6789	qq!" />\n!;
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6790	} else {
				6791	my $nr;
				6792	while (my $line = <$fd>) {
				6793	chomp $line;
				6794	$nr++;
				6795	$line = untabify($line);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	6796	printf qq!<div class="pre"><a id="l%i" href="%s#l%i" class="linenr">%4i</a> %s</div>\n!,
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	6797	$nr, esc_attr(href(-replay => 1)), $nr, $nr,
				6798	$syntax ? sanitize($line) : esc_html($line, -nbsp=>1);
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6799	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6800	}
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6801	close $fd
				6802	or print "Reading blob failed.\n";
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	6803	print "</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6804	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6805	}
				6806
				6807	sub git_tree {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	6808	if (!defined $hash_base) {
				6809	$hash_base = "HEAD";
				6810	}
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	6811	if (!defined $hash) {
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6812	if (defined $file_name) {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	6813	$hash = git_get_hash_by_path($hash_base, $file_name, "tree");
				6814	} else {
				6815	$hash = $hash_base;
Kay Sievers	10dba28	2005-08-07 20:25:27 +0200	[diff] [blame]	6816	}
Kay Sievers	e925f38	2005-08-07 20:23:35 +0200	[diff] [blame]	6817	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	6818	die_error(404, "No such tree") unless defined($hash);
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6819
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6820	my $show_sizes = gitweb_check_feature('show-sizes');
				6821	my $have_blame = gitweb_check_feature('blame');
				6822
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6823	my @entries = ();
				6824	{
				6825	local $/ = "\0";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6826	open my $fd, "-\|", git_cmd(), "ls-tree", '-z',
				6827	($show_sizes ? '-l' : ()), @extra_options, $hash
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6828	or die_error(500, "Open git-ls-tree failed");
				6829	@entries = map { chomp; $_ } <$fd>;
				6830	close $fd
				6831	or die_error(404, "Reading tree failed");
				6832	}
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6833
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6834	my $refs = git_get_references();
				6835	my $ref = format_ref_marker($refs, $hash_base);
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6836	git_header_html();
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6837	my $basedir = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6838	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6839	my @views_nav = ();
				6840	if (defined $file_name) {
				6841	push @views_nav,
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6842	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6843	"history"),
				6844	$cgi->a({-href => href(action=>"tree",
				6845	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6846	"HEAD"),
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6847	}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6848	my $snapshot_links = format_snapshot_links($hash);
				6849	if (defined $snapshot_links) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6850	# FIXME: Should be available when we have no hash base as well.
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6851	push @views_nav, $snapshot_links;
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6852	}
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6853	git_print_page_nav('tree','', $hash_base, undef, undef,
				6854	join(' \| ', @views_nav));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6855	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash_base);
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6856	} else {
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	6857	undef $hash_base;
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6858	print "<div class=\"page_nav\">\n";
				6859	print "<br/><br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6860	print "<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6861	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6862	if (defined $file_name) {
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6863	$basedir = $file_name;
				6864	if ($basedir ne '' && substr($basedir, -1) ne '/') {
				6865	$basedir .= '/';
				6866	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	6867	git_print_page_path($file_name, 'tree', $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6868	}
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	6869	print "<div class=\"page_body\">\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6870	print "<table class=\"tree\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	6871	my $alternate = 1;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6872	# '..' (top directory) link if possible
				6873	if (defined $hash_base &&
				6874	defined $file_name && $file_name =~ m![^/]+$!) {
				6875	if ($alternate) {
				6876	print "<tr class=\"dark\">\n";
				6877	} else {
				6878	print "<tr class=\"light\">\n";
				6879	}
				6880	$alternate ^= 1;
				6881
				6882	my $up = $file_name;
				6883	$up =~ s!/?[^/]+$!!;
				6884	undef $up unless $up;
				6885	# based on git_print_tree_entry
				6886	print '<td class="mode">' . mode_str('040000') . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6887	print '<td class="size"> </td>'."\n" if $show_sizes;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6888	print '<td class="list">';
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6889	print $cgi->a({-href => href(action=>"tree",
				6890	hash_base=>$hash_base,
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6891	file_name=>$up)},
				6892	"..");
				6893	print "</td>\n";
				6894	print "<td class=\"link\"></td>\n";
				6895
				6896	print "</tr>\n";
				6897	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6898	foreach my $line (@entries) {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6899	my %t = parse_ls_tree_line($line, -z => 1, -l => $show_sizes);
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	6900
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6901	if ($alternate) {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	6902	print "<tr class=\"dark\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6903	} else {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	6904	print "<tr class=\"light\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6905	}
				6906	$alternate ^= 1;
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	6907
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6908	git_print_tree_entry(\%t, $basedir, $hash_base, $have_blame);
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	6909
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	6910	print "</tr>\n";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6911	}
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	6912	print "</table>\n" .
				6913	"</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6914	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6915	}
				6916
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6917	sub snapshot_name {
				6918	my ($project, $hash) = @_;
				6919
				6920	# path/to/project.git -> project
				6921	# path/to/project/.git -> project
				6922	my $name = to_utf8($project);
				6923	$name =~ s,([^/])/*\.git$,$1,;
				6924	$name = basename($name);
				6925	# sanitize name
				6926	$name =~ s/[[:cntrl:]]/?/g;
				6927
				6928	my $ver = $hash;
				6929	if ($hash =~ /^[0-9a-fA-F]+$/) {
				6930	# shorten SHA-1 hash
				6931	my $full_hash = git_get_full_hash($project, $hash);
				6932	if ($full_hash =~ /^$hash/ && length($hash) > 7) {
				6933	$ver = git_get_short_hash($project, $hash);
				6934	}
				6935	} elsif ($hash =~ m!^refs/tags/(.*)$!) {
				6936	# tags don't need shortened SHA-1 hash
				6937	$ver = $1;
				6938	} else {
				6939	# branches and other need shortened SHA-1 hash
				6940	if ($hash =~ m!^refs/(?:heads\|remotes)/(.*)$!) {
				6941	$ver = $1;
				6942	}
				6943	$ver .= '-' . git_get_short_hash($project, $hash);
				6944	}
				6945	# in case of hierarchical branch names
				6946	$ver =~ s!/!.!g;
				6947
				6948	# name = project-version_string
				6949	$name = "$name-$ver";
				6950
				6951	return wantarray ? ($name, $name) : $name;
				6952	}
				6953
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6954	sub git_snapshot {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6955	my $format = $input_params{'snapshot_format'};
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	6956	if (!@snapshot_fmts) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6957	die_error(403, "Snapshots not allowed");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6958	}
				6959	# default to first supported snapshot format
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	6960	$format \|\|= $snapshot_fmts[0];
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6961	if ($format !~ m/^[a-z0-9]+$/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6962	die_error(400, "Invalid snapshot format parameter");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6963	} elsif (!exists($known_snapshot_formats{$format})) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6964	die_error(400, "Unknown snapshot format");
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	6965	} elsif ($known_snapshot_formats{$format}{'disabled'}) {
				6966	die_error(403, "Snapshot format not allowed");
Mark Rada	34b31a8	2009-08-25 00:59:48 -0400	[diff] [blame]	6967	} elsif (!grep($_ eq $format, @snapshot_fmts)) {
				6968	die_error(403, "Unsupported snapshot format");
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	6969	}
				6970
Mark Rada	fdb0c36	2009-09-26 13:46:08 -0400	[diff] [blame]	6971	my $type = git_get_type("$hash^{}");
				6972	if (!$type) {
				6973	die_error(404, 'Object does not exist');
				6974	} elsif ($type eq 'blob') {
				6975	die_error(400, 'Object is not a tree-ish');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6976	}
				6977
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6978	my ($name, $prefix) = snapshot_name($project, $hash);
				6979	my $filename = "$name$known_snapshot_formats{$format}{'suffix'}";
				6980	my $cmd = quote_command(
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	6981	git_cmd(), 'archive',
				6982	"--format=$known_snapshot_formats{$format}{'format'}",
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6983	"--prefix=$prefix/", $hash);
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6984	if (exists $known_snapshot_formats{$format}{'compressor'}) {
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	6985	$cmd .= ' \| ' . quote_command(@{$known_snapshot_formats{$format}{'compressor'}});
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	6986	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6987
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6988	$filename =~ s/(["\\])/\\$1/g;
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6989	print $cgi->header(
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6990	-type => $known_snapshot_formats{$format}{'type'},
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6991	-content_disposition => 'inline; filename="' . $filename . '"',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6992	-status => '200 OK');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6993
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	6994	open my $fd, "-\|", $cmd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6995	or die_error(500, "Execute git-archive failed");
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6996	binmode STDOUT, ':raw';
				6997	print <$fd>;
				6998	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
				6999	close $fd;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7000	}
				7001
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7002	sub git_log_generic {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7003	my ($fmt_name, $body_subr, $base, $parent, $file_name, $file_hash) = @_;
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7004
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7005	my $head = git_get_head_hash($project);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7006	if (!defined $base) {
				7007	$base = $head;
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	7008	}
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7009	if (!defined $page) {
				7010	$page = 0;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7011	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7012	my $refs = git_get_references();
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7013
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7014	my $commit_hash = $base;
				7015	if (defined $parent) {
				7016	$commit_hash = "$parent..$base";
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7017	}
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7018	my @commitlist =
				7019	parse_commits($commit_hash, 101, (100 * $page),
				7020	defined $file_name ? ($file_name, "--full-history") : ());
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7021
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7022	my $ftype;
				7023	if (!defined $file_hash && defined $file_name) {
				7024	# some commits could have deleted file in question,
				7025	# and not have it in tree, but one of them has to have it
				7026	for (my $i = 0; $i < @commitlist; $i++) {
				7027	$file_hash = git_get_hash_by_path($commitlist[$i]{'id'}, $file_name);
				7028	last if defined $file_hash;
				7029	}
				7030	}
				7031	if (defined $file_hash) {
				7032	$ftype = git_get_type($file_hash);
				7033	}
				7034	if (defined $file_name && !defined $ftype) {
				7035	die_error(500, "Unknown type of object");
				7036	}
				7037	my %co;
				7038	if (defined $file_name) {
				7039	%co = parse_commit($base)
				7040	or die_error(404, "Unknown commit object");
				7041	}
				7042
				7043
				7044	my $paging_nav = format_paging_nav($fmt_name, $page, $#commitlist >= 100);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7045	my $next_link = '';
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7046	if ($#commitlist >= 100) {
				7047	$next_link =
				7048	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				7049	-accesskey => "n", -title => "Alt-n"}, "next");
				7050	}
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7051	my $patch_max = gitweb_get_feature('patches');
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7052	if ($patch_max && !defined $file_name) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7053	if ($patch_max < 0 \|\| @commitlist <= $patch_max) {
				7054	$paging_nav .= " ⋅ " .
				7055	$cgi->a({-href => href(action=>"patches", -replay=>1)},
				7056	"patches");
				7057	}
				7058	}
				7059
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7060	git_header_html();
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7061	git_print_page_nav($fmt_name,'', $hash,$hash,$hash, $paging_nav);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7062	if (defined $file_name) {
				7063	git_print_header_div('commit', esc_html($co{'title'}), $base);
				7064	} else {
				7065	git_print_header_div('summary', $project)
				7066	}
				7067	git_print_page_path($file_name, $ftype, $hash_base)
				7068	if (defined $file_name);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7069
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7070	$body_subr->(\@commitlist, 0, 99, $refs, $next_link,
				7071	$file_name, $file_hash, $ftype);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7072
Kay Sievers	034df39	2005-08-07 20:20:07 +0200	[diff] [blame]	7073	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7074	}
				7075
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7076	sub git_log {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7077	git_log_generic('log', \&git_log_body,
				7078	$hash, $hash_parent);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7079	}
				7080
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7081	sub git_commit {
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7082	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7083	my %co = parse_commit($hash)
				7084	or die_error(404, "Unknown commit object");
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7085
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7086	my $parent = $co{'parent'};
				7087	my $parents = $co{'parents'}; # listref
				7088
				7089	# we need to prepare $formats_nav before any parameter munging
				7090	my $formats_nav;
				7091	if (!defined $parent) {
				7092	# --root commitdiff
				7093	$formats_nav .= '(initial)';
				7094	} elsif (@$parents == 1) {
				7095	# single parent commit
				7096	$formats_nav .=
				7097	'(parent: ' .
				7098	$cgi->a({-href => href(action=>"commit",
				7099	hash=>$parent)},
				7100	esc_html(substr($parent, 0, 7))) .
				7101	')';
				7102	} else {
				7103	# merge commit
				7104	$formats_nav .=
				7105	'(merge: ' .
				7106	join(' ', map {
Jakub Narebski	f9308a1	2007-03-23 21:04:31 +0100	[diff] [blame]	7107	$cgi->a({-href => href(action=>"commit",
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7108	hash=>$_)},
				7109	esc_html(substr($_, 0, 7)));
				7110	} @$parents ) .
				7111	')';
				7112	}
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7113	if (gitweb_check_feature('patches') && @$parents <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7114	$formats_nav .= " \| " .
				7115	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7116	"patch");
				7117	}
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7118
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	7119	if (!defined $parent) {
Jakub Narebski	b918298	2006-07-30 18:28:34 -0700	[diff] [blame]	7120	$parent = "--root";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7121	}
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7122	my @difftree;
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7123	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', "--no-commit-id",
				7124	@diff_opts,
				7125	(@$parents <= 1 ? $parent : '-c'),
				7126	$hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7127	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7128	@difftree = map { chomp; $_ } <$fd>;
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7129	close $fd or die_error(404, "Reading git-diff-tree failed");
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7130
				7131	# non-textual hash id's can be cached
				7132	my $expires;
				7133	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7134	$expires = "+1d";
				7135	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7136	my $refs = git_get_references();
				7137	my $ref = format_ref_marker($refs, $co{'id'});
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7138
Jakub Narebski	594e212	2006-07-31 02:21:52 +0200	[diff] [blame]	7139	git_header_html(undef, $expires);
Petr Baudis	a144154	2006-10-06 18:59:33 +0200	[diff] [blame]	7140	git_print_page_nav('commit', '',
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7141	$hash, $co{'tree'}, $hash,
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7142	$formats_nav);
Luben Tuikov	4f7b34c	2006-07-23 13:36:32 -0700	[diff] [blame]	7143
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7144	if (defined $co{'parent'}) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7145	git_print_header_div('commitdiff', esc_html($co{'title'}) . $ref, $hash);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7146	} else {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7147	git_print_header_div('tree', esc_html($co{'title'}) . $ref, $co{'tree'}, $hash);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7148	}
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7149	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7150	"<table class=\"object_header\">\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	7151	git_print_authorship_rows(\%co);
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7152	print "<tr><td>commit</td><td class=\"sha1\">$co{'id'}</td></tr>\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7153	print "<tr>" .
				7154	"<td>tree</td>" .
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7155	"<td class=\"sha1\">" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7156	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash),
				7157	class => "list"}, $co{'tree'}) .
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7158	"</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7159	"<td class=\"link\">" .
				7160	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash)},
				7161	"tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7162	my $snapshot_links = format_snapshot_links($hash);
				7163	if (defined $snapshot_links) {
				7164	print " \| " . $snapshot_links;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7165	}
				7166	print "</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7167	"</tr>\n";
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7168
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7169	foreach my $par (@$parents) {
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7170	print "<tr>" .
				7171	"<td>parent</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7172	"<td class=\"sha1\">" .
				7173	$cgi->a({-href => href(action=>"commit", hash=>$par),
				7174	class => "list"}, $par) .
				7175	"</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7176	"<td class=\"link\">" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	7177	$cgi->a({-href => href(action=>"commit", hash=>$par)}, "commit") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7178	" \| " .
Jakub Narebski	f2e6094	2006-09-03 23:43:03 +0200	[diff] [blame]	7179	$cgi->a({-href => href(action=>"commitdiff", hash=>$hash, hash_parent=>$par)}, "diff") .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7180	"</td>" .
				7181	"</tr>\n";
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7182	}
Jakub Narebski	7a9b4c5	2006-06-21 09:48:02 +0200	[diff] [blame]	7183	print "</table>".
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7184	"</div>\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7185
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7186	print "<div class=\"page_body\">\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7187	git_print_log($co{'comment'});
Kay Sievers	927dcec	2005-08-07 20:18:44 +0200	[diff] [blame]	7188	print "</div>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7189
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7190	git_difftree_body(\@difftree, $hash, @$parents);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7191
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7192	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7193	}
				7194
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7195	sub git_object {
				7196	# object is defined by:
				7197	# - hash or hash_base alone
				7198	# - hash_base and file_name
				7199	my $type;
				7200
				7201	# - hash or hash_base alone
				7202	if ($hash \|\| ($hash_base && !defined $file_name)) {
				7203	my $object_id = $hash \|\| $hash_base;
				7204
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7205	open my $fd, "-\|", quote_command(
				7206	git_cmd(), 'cat-file', '-t', $object_id) . ' 2> /dev/null'
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7207	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7208	$type = <$fd>;
				7209	chomp $type;
				7210	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7211	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7212
				7213	# - hash_base and file_name
				7214	} elsif ($hash_base && defined $file_name) {
				7215	$file_name =~ s,/+$,,;
				7216
				7217	system(git_cmd(), "cat-file", '-e', $hash_base) == 0
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7218	or die_error(404, "Base object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7219
				7220	# here errors should not hapen
				7221	open my $fd, "-\|", git_cmd(), "ls-tree", $hash_base, "--", $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7222	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7223	my $line = <$fd>;
				7224	close $fd;
				7225
				7226	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				7227	unless ($line && $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7228	die_error(404, "File or directory for given base does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7229	}
				7230	$type = $2;
				7231	$hash = $3;
				7232	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7233	die_error(400, "Not enough information to find object");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7234	}
				7235
				7236	print $cgi->redirect(-uri => href(action=>$type, -full=>1,
				7237	hash=>$hash, hash_base=>$hash_base,
				7238	file_name=>$file_name),
				7239	-status => '302 Found');
				7240	}
				7241
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7242	sub git_blobdiff {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7243	my $format = shift \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7244	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7245
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7246	my $fd;
				7247	my @difftree;
				7248	my %diffinfo;
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7249	my $expires;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7250
				7251	# preparing $fd and %diffinfo for git_patchset_body
				7252	# new style URI
				7253	if (defined $hash_base && defined $hash_parent_base) {
				7254	if (defined $file_name) {
				7255	# read raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7256	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7257	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7258	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7259	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7260	@difftree = map { chomp; $_ } <$fd>;
				7261	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7262	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7263	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7264	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7265
Jakub Narebski	0aea337	2006-08-27 23:45:26 +0200	[diff] [blame]	7266	} elsif (defined $hash &&
				7267	$hash =~ /[0-9a-fA-F]{40}/) {
				7268	# try to find filename from $hash
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7269
				7270	# read filtered raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7271	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7272	$hash_parent_base, $hash_base, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7273	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7274	@difftree =
				7275	# ':100644 100644 03b21826... 3b93d5e7... M ls-files.c'
				7276	# $hash == to_id
				7277	grep { /^:[0-7]{6} [0-7]{6} [0-9a-fA-F]{40} $hash/ }
				7278	map { chomp; $_ } <$fd>;
				7279	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7280	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7281	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7282	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7283
				7284	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7285	die_error(400, "Missing one of the blob diff parameters");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7286	}
				7287
				7288	if (@difftree > 1) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7289	die_error(400, "Ambiguous blob diff specification");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7290	}
				7291
				7292	%diffinfo = parse_difftree_raw_line($difftree[0]);
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	7293	$file_parent \|\|= $diffinfo{'from_file'} \|\| $file_name;
				7294	$file_name \|\|= $diffinfo{'to_file'};
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7295
				7296	$hash_parent \|\|= $diffinfo{'from_id'};
				7297	$hash \|\|= $diffinfo{'to_id'};
				7298
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7299	# non-textual hash id's can be cached
				7300	if ($hash_base =~ m/^[0-9a-fA-F]{40}$/ &&
				7301	$hash_parent_base =~ m/^[0-9a-fA-F]{40}$/) {
				7302	$expires = '+1d';
				7303	}
				7304
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7305	# open patch output
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7306	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	957d6ea	2007-04-05 13:45:41 +0200	[diff] [blame]	7307	'-p', ($format eq 'html' ? "--full-index" : ()),
				7308	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7309	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7310	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7311	}
				7312
Junio C Hamano	b54dc9f	2008-12-16 19:42:02 -0800	[diff] [blame]	7313	# old/legacy style URI -- not generated anymore since 1.4.3.
				7314	if (!%diffinfo) {
				7315	die_error('404 Not Found', "Missing one of the blob diff parameters")
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7316	}
				7317
				7318	# header
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7319	if ($format eq 'html') {
				7320	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7321	$cgi->a({-href => href(action=>"blobdiff_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	7322	"raw");
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7323	$formats_nav .= diff_style_nav($diff_style);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7324	git_header_html(undef, $expires);
				7325	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
				7326	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7327	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
				7328	} else {
				7329	print "<div class=\"page_nav\"><br/>$formats_nav<br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7330	print "<div class=\"title\">".esc_html("$hash vs $hash_parent")."</div>\n";
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7331	}
				7332	if (defined $file_name) {
				7333	git_print_page_path($file_name, "blob", $hash_base);
				7334	} else {
				7335	print "<div class=\"page_path\"></div>\n";
				7336	}
				7337
				7338	} elsif ($format eq 'plain') {
				7339	print $cgi->header(
				7340	-type => 'text/plain',
				7341	-charset => 'utf-8',
				7342	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7343	-content_disposition => 'inline; filename="' . "$file_name" . '.patch"');
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7344
				7345	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
				7346
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7347	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7348	die_error(400, "Unknown blobdiff format");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7349	}
				7350
				7351	# patch
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7352	if ($format eq 'html') {
				7353	print "<div class=\"page_body\">\n";
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7354
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7355	git_patchset_body($fd, $diff_style,
				7356	[ \%diffinfo ], $hash_base, $hash_parent_base);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7357	close $fd;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7358
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7359	print "</div>\n"; # class="page_body"
				7360	git_footer_html();
				7361
				7362	} else {
				7363	while (my $line = <$fd>) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	7364	$line =~ s!a/($hash\|$hash_parent)!'a/'.esc_path($diffinfo{'from_file'})!eg;
				7365	$line =~ s!b/($hash\|$hash_parent)!'b/'.esc_path($diffinfo{'to_file'})!eg;
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7366
				7367	print $line;
				7368
				7369	last if $line =~ m!^\+\+\+!;
				7370	}
				7371	local $/ = undef;
				7372	print <$fd>;
				7373	close $fd;
				7374	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7375	}
				7376
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7377	sub git_blobdiff_plain {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7378	git_blobdiff('plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7379	}
				7380
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7381	# assumes that it is added as later part of already existing navigation,
				7382	# so it returns "\| foo \| bar" rather than just "foo \| bar"
				7383	sub diff_style_nav {
				7384	my ($diff_style, $is_combined) = @_;
				7385	$diff_style \|\|= 'inline';
				7386
				7387	return "" if ($is_combined);
				7388
				7389	my @styles = (inline => 'inline', 'sidebyside' => 'side by side');
				7390	my %styles = @styles;
				7391	@styles =
				7392	@styles[ map { $_ * 2 } 0..$#styles/2 ];
				7393
				7394	return join '',
				7395	map { " \| ".$_ }
				7396	map {
				7397	$_ eq $diff_style ? $styles{$_} :
				7398	$cgi->a({-href => href(-replay=>1, diff_style => $_)}, $styles{$_})
				7399	} @styles;
				7400	}
				7401
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7402	sub git_commitdiff {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7403	my %params = @_;
				7404	my $format = $params{-format} \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7405	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7406
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7407	my ($patch_max) = gitweb_get_feature('patches');
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7408	if ($format eq 'patch') {
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7409	die_error(403, "Patch view not allowed") unless $patch_max;
				7410	}
				7411
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7412	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7413	my %co = parse_commit($hash)
				7414	or die_error(404, "Unknown commit object");
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7415
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7416	# choose format for commitdiff for merge
				7417	if (! defined $hash_parent && @{$co{'parents'}} > 1) {
				7418	$hash_parent = '--cc';
				7419	}
				7420	# we need to prepare $formats_nav before almost any parameter munging
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7421	my $formats_nav;
				7422	if ($format eq 'html') {
				7423	$formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7424	$cgi->a({-href => href(action=>"commitdiff_plain", -replay=>1)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7425	"raw");
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7426	if ($patch_max && @{$co{'parents'}} <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7427	$formats_nav .= " \| " .
				7428	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7429	"patch");
				7430	}
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7431	$formats_nav .= diff_style_nav($diff_style, @{$co{'parents'}} > 1);
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7432
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7433	if (defined $hash_parent &&
				7434	$hash_parent ne '-c' && $hash_parent ne '--cc') {
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7435	# commitdiff with two commits given
				7436	my $hash_parent_short = $hash_parent;
				7437	if ($hash_parent =~ m/^[0-9a-fA-F]{40}$/) {
				7438	$hash_parent_short = substr($hash_parent, 0, 7);
				7439	}
				7440	$formats_nav .=
Jakub Narebski	ada3e1f	2007-06-08 13:26:31 +0200	[diff] [blame]	7441	' (from';
				7442	for (my $i = 0; $i < @{$co{'parents'}}; $i++) {
				7443	if ($co{'parents'}[$i] eq $hash_parent) {
				7444	$formats_nav .= ' parent ' . ($i+1);
				7445	last;
				7446	}
				7447	}
				7448	$formats_nav .= ': ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7449	$cgi->a({-href => href(-replay=>1,
				7450	hash=>$hash_parent, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7451	esc_html($hash_parent_short)) .
				7452	')';
				7453	} elsif (!$co{'parent'}) {
				7454	# --root commitdiff
				7455	$formats_nav .= ' (initial)';
				7456	} elsif (scalar @{$co{'parents'}} == 1) {
				7457	# single parent commit
				7458	$formats_nav .=
				7459	' (parent: ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7460	$cgi->a({-href => href(-replay=>1,
				7461	hash=>$co{'parent'}, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7462	esc_html(substr($co{'parent'}, 0, 7))) .
				7463	')';
				7464	} else {
				7465	# merge commit
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7466	if ($hash_parent eq '--cc') {
				7467	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7468	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7469	hash=>$hash, hash_parent=>'-c')},
				7470	'combined');
				7471	} else { # $hash_parent eq '-c'
				7472	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7473	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7474	hash=>$hash, hash_parent=>'--cc')},
				7475	'compact');
				7476	}
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7477	$formats_nav .=
				7478	' (merge: ' .
				7479	join(' ', map {
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7480	$cgi->a({-href => href(-replay=>1,
				7481	hash=>$_, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7482	esc_html(substr($_, 0, 7)));
				7483	} @{$co{'parents'}} ) .
				7484	')';
				7485	}
				7486	}
				7487
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7488	my $hash_parent_param = $hash_parent;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7489	if (!defined $hash_parent_param) {
				7490	# --cc for multiple parents, --root for parentless
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7491	$hash_parent_param =
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7492	@{$co{'parents'}} > 1 ? '--cc' : $co{'parent'} \|\| '--root';
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7493	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7494
				7495	# read commitdiff
				7496	my $fd;
				7497	my @difftree;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7498	if ($format eq 'html') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7499	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7500	"--no-commit-id", "--patch-with-raw", "--full-index",
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7501	$hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7502	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7503
Jakub Narebski	04408c3	2006-11-18 23:35:38 +0100	[diff] [blame]	7504	while (my $line = <$fd>) {
				7505	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7506	# empty line ends raw part of diff-tree output
				7507	last unless $line;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	7508	push @difftree, scalar parse_difftree_raw_line($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7509	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7510
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7511	} elsif ($format eq 'plain') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7512	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7513	'-p', $hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7514	or die_error(500, "Open git-diff-tree failed");
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7515	} elsif ($format eq 'patch') {
				7516	# For commit ranges, we limit the output to the number of
				7517	# patches specified in the 'patches' feature.
				7518	# For single commits, we limit the output to a single patch,
				7519	# diverging from the git-format-patch default.
				7520	my @commit_spec = ();
				7521	if ($hash_parent) {
				7522	if ($patch_max > 0) {
				7523	push @commit_spec, "-$patch_max";
				7524	}
				7525	push @commit_spec, '-n', "$hash_parent..$hash";
				7526	} else {
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7527	if ($params{-single}) {
				7528	push @commit_spec, '-1';
				7529	} else {
				7530	if ($patch_max > 0) {
				7531	push @commit_spec, "-$patch_max";
				7532	}
				7533	push @commit_spec, "-n";
				7534	}
				7535	push @commit_spec, '--root', $hash;
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7536	}
Pavan Kumar Sunkara	04794fd	2010-05-10 18:41:35 +0200	[diff] [blame]	7537	open $fd, "-\|", git_cmd(), "format-patch", @diff_opts,
				7538	'--encoding=utf8', '--stdout', @commit_spec
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7539	or die_error(500, "Open git-format-patch failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7540	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7541	die_error(400, "Unknown commitdiff format");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7542	}
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	7543
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7544	# non-textual hash id's can be cached
				7545	my $expires;
				7546	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7547	$expires = "+1d";
				7548	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7549
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7550	# write commit message
				7551	if ($format eq 'html') {
				7552	my $refs = git_get_references();
				7553	my $ref = format_ref_marker($refs, $co{'id'});
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7554
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7555	git_header_html(undef, $expires);
				7556	git_print_page_nav('commitdiff','', $hash,$co{'tree'},$hash, $formats_nav);
				7557	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash);
Giuseppe Bilotta	f88bafa	2009-06-30 00:00:49 +0200	[diff] [blame]	7558	print "<div class=\"title_text\">\n" .
				7559	"<table class=\"object_header\">\n";
				7560	git_print_authorship_rows(\%co);
				7561	print "</table>".
				7562	"</div>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7563	print "<div class=\"page_body\">\n";
Jakub Narebski	8256098	2006-10-24 13:55:33 +0200	[diff] [blame]	7564	if (@{$co{'comment'}} > 1) {
				7565	print "<div class=\"log\">\n";
				7566	git_print_log($co{'comment'}, -final_empty_line=> 1, -remove_title => 1);
				7567	print "</div>\n"; # class="log"
				7568	}
Kay Sievers	1b1cd42	2005-08-07 20:28:01 +0200	[diff] [blame]	7569
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7570	} elsif ($format eq 'plain') {
				7571	my $refs = git_get_references("tags");
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7572	my $tagname = git_get_rev_name_tags($hash);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7573	my $filename = basename($project) . "-$hash.patch";
				7574
				7575	print $cgi->header(
				7576	-type => 'text/plain',
				7577	-charset => 'utf-8',
				7578	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7579	-content_disposition => 'inline; filename="' . "$filename" . '"');
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7580	my %ad = parse_date($co{'author_epoch'}, $co{'author_tz'});
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7581	print "From: " . to_utf8($co{'author'}) . "\n";
				7582	print "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n";
				7583	print "Subject: " . to_utf8($co{'title'}) . "\n";
				7584
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7585	print "X-Git-Tag: $tagname\n" if $tagname;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7586	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7587
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7588	foreach my $line (@{$co{'comment'}}) {
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7589	print to_utf8($line) . "\n";
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7590	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7591	print "---\n\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7592	} elsif ($format eq 'patch') {
				7593	my $filename = basename($project) . "-$hash.patch";
				7594
				7595	print $cgi->header(
				7596	-type => 'text/plain',
				7597	-charset => 'utf-8',
				7598	-expires => $expires,
				7599	-content_disposition => 'inline; filename="' . "$filename" . '"');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7600	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7601
				7602	# write patch
				7603	if ($format eq 'html') {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7604	my $use_parents = !defined $hash_parent \|\|
				7605	$hash_parent eq '-c' \|\| $hash_parent eq '--cc';
				7606	git_difftree_body(\@difftree, $hash,
				7607	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	7608	print "<br/>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7609
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7610	git_patchset_body($fd, $diff_style,
				7611	\@difftree, $hash,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7612	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	7613	close $fd;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7614	print "</div>\n"; # class="page_body"
				7615	git_footer_html();
				7616
				7617	} elsif ($format eq 'plain') {
				7618	local $/ = undef;
				7619	print <$fd>;
				7620	close $fd
				7621	or print "Reading git-diff-tree failed\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7622	} elsif ($format eq 'patch') {
				7623	local $/ = undef;
				7624	print <$fd>;
				7625	close $fd
				7626	or print "Reading git-format-patch failed\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7627	}
				7628	}
				7629
				7630	sub git_commitdiff_plain {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7631	git_commitdiff(-format => 'plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7632	}
				7633
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7634	# format-patch-style patches
				7635	sub git_patch {
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7636	git_commitdiff(-format => 'patch', -single => 1);
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7637	}
				7638
				7639	sub git_patches {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7640	git_commitdiff(-format => 'patch');
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7641	}
				7642
				7643	sub git_history {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7644	git_log_generic('history', \&git_history_body,
				7645	$hash_base, $hash_parent_base,
				7646	$file_name, $hash);
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7647	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7648
				7649	sub git_search {
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	7650	$searchtype \|\|= 'commit';
				7651
				7652	# check if appropriate features are enabled
				7653	gitweb_check_feature('search')
				7654	or die_error(403, "Search is disabled");
				7655	if ($searchtype eq 'pickaxe') {
				7656	# pickaxe may take all resources of your box and run for several minutes
				7657	# with every query - so decide by yourself how public you make this feature
				7658	gitweb_check_feature('pickaxe')
				7659	or die_error(403, "Pickaxe search is disabled");
				7660	}
				7661	if ($searchtype eq 'grep') {
				7662	# grep search might be potentially CPU-intensive, too
				7663	gitweb_check_feature('grep')
				7664	or die_error(403, "Grep search is disabled");
				7665	}
				7666
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7667	if (!defined $searchtext) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7668	die_error(400, "Text field is empty");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7669	}
				7670	if (!defined $hash) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7671	$hash = git_get_head_hash($project);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7672	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7673	my %co = parse_commit($hash);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7674	if (!%co) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7675	die_error(404, "Unknown commit object");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7676	}
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	7677	if (!defined $page) {
				7678	$page = 0;
				7679	}
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	7680
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	7681	if ($searchtype eq 'commit' \|\|
				7682	$searchtype eq 'author' \|\|
				7683	$searchtype eq 'committer') {
				7684	git_search_message(%co);
				7685	} elsif ($searchtype eq 'pickaxe') {
				7686	git_search_changes(%co);
				7687	} elsif ($searchtype eq 'grep') {
				7688	git_search_files(%co);
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	7689	} else {
				7690	die_error(400, "Unknown search type");
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7691	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7692	}
				7693
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7694	sub git_search_help {
				7695	git_header_html();
				7696	git_print_page_nav('','', $hash,$hash,$hash);
				7697	print <<EOT;
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7698	<p><strong>Pattern</strong> is by default a normal string that is matched precisely (but without
				7699	regard to case, except in the case of pickaxe). However, when you check the <em>re</em> checkbox,
				7700	the pattern entered is recognized as the POSIX extended
				7701	<a href="http://en.wikipedia.org/wiki/Regular_expression">regular expression</a> (also case
				7702	insensitive).</p>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7703	<dl>
				7704	<dt><b>commit</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7705	<dd>The commit messages and authorship information will be scanned for the given pattern.</dd>
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7706	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7707	my $have_grep = gitweb_check_feature('grep');
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7708	if ($have_grep) {
				7709	print <<EOT;
				7710	<dt><b>grep</b></dt>
				7711	<dd>All files in the currently selected tree (HEAD unless you are explicitly browsing
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7712	a different one) are searched for the given pattern. On large trees, this search can take
				7713	a while and put some strain on the server, so please use it with some consideration. Note that
				7714	due to git-grep peculiarity, currently if regexp mode is turned off, the matches are
				7715	case-sensitive.</dd>
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7716	EOT
				7717	}
				7718	print <<EOT;
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7719	<dt><b>author</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7720	<dd>Name and e-mail of the change author and date of birth of the patch will be scanned for the given pattern.</dd>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7721	<dt><b>committer</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7722	<dd>Name and e-mail of the committer and date of commit will be scanned for the given pattern.</dd>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7723	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7724	my $have_pickaxe = gitweb_check_feature('pickaxe');
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7725	if ($have_pickaxe) {
				7726	print <<EOT;
				7727	<dt><b>pickaxe</b></dt>
				7728	<dd>All commits that caused the string to appear or disappear from any file (changes that
				7729	added, removed or "modified" the string) will be listed. This search can take a while and
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7730	takes a lot of strain on the server, so please use it wisely. Note that since you may be
				7731	interested even in changes just changing the case as well, this search is case sensitive.</dd>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7732	EOT
				7733	}
				7734	print "</dl>\n";
				7735	git_footer_html();
				7736	}
				7737
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7738	sub git_shortlog {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7739	git_log_generic('shortlog', \&git_shortlog_body,
				7740	$hash, $hash_parent);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7741	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7742
				7743	## ......................................................................
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7744	## feeds (RSS, Atom; OPML)
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7745
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7746	sub git_feed {
				7747	my $format = shift \|\| 'atom';
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7748	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7749
				7750	# Atom: http://www.atomenabled.org/developers/syndication/
				7751	# RSS: http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
				7752	if ($format ne 'rss' && $format ne 'atom') {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7753	die_error(400, "Unknown web feed format");
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7754	}
				7755
				7756	# log/feed of current (HEAD) branch, log of given branch, history of file/directory
				7757	my $head = $hash \|\| 'HEAD';
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	7758	my @commitlist = parse_commits($head, 150, 0, $file_name);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7759
				7760	my %latest_commit;
				7761	my %latest_date;
				7762	my $content_type = "application/$format+xml";
				7763	if (defined $cgi->http('HTTP_ACCEPT') &&
				7764	$cgi->Accept('text/xml') > $cgi->Accept($content_type)) {
				7765	# browser (feed reader) prefers text/xml
				7766	$content_type = 'text/xml';
				7767	}
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7768	if (defined($commitlist[0])) {
				7769	%latest_commit = %{$commitlist[0]};
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	7770	my $latest_epoch = $latest_commit{'committer_epoch'};
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	7771	%latest_date = parse_date($latest_epoch, $latest_commit{'comitter_tz'});
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	7772	my $if_modified = $cgi->http('IF_MODIFIED_SINCE');
				7773	if (defined $if_modified) {
				7774	my $since;
				7775	if (eval { require HTTP::Date; 1; }) {
				7776	$since = HTTP::Date::str2time($if_modified);
				7777	} elsif (eval { require Time::ParseDate; 1; }) {
				7778	$since = Time::ParseDate::parsedate($if_modified, GMT => 1);
				7779	}
				7780	if (defined $since && $latest_epoch <= $since) {
				7781	print $cgi->header(
				7782	-type => $content_type,
				7783	-charset => 'utf-8',
				7784	-last_modified => $latest_date{'rfc2822'},
				7785	-status => '304 Not Modified');
				7786	return;
				7787	}
				7788	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7789	print $cgi->header(
				7790	-type => $content_type,
				7791	-charset => 'utf-8',
				7792	-last_modified => $latest_date{'rfc2822'});
				7793	} else {
				7794	print $cgi->header(
				7795	-type => $content_type,
				7796	-charset => 'utf-8');
				7797	}
				7798
				7799	# Optimization: skip generating the body if client asks only
				7800	# for Last-Modified date.
				7801	return if ($cgi->request_method() eq 'HEAD');
				7802
				7803	# header variables
				7804	my $title = "$site_name - $project/$action";
				7805	my $feed_type = 'log';
				7806	if (defined $hash) {
				7807	$title .= " - '$hash'";
				7808	$feed_type = 'branch log';
				7809	if (defined $file_name) {
				7810	$title .= " :: $file_name";
				7811	$feed_type = 'history';
				7812	}
				7813	} elsif (defined $file_name) {
				7814	$title .= " - $file_name";
				7815	$feed_type = 'history';
				7816	}
				7817	$title .= " $feed_type";
				7818	my $descr = git_get_project_description($project);
				7819	if (defined $descr) {
				7820	$descr = esc_html($descr);
				7821	} else {
				7822	$descr = "$project " .
				7823	($format eq 'rss' ? 'RSS' : 'Atom') .
				7824	" feed";
				7825	}
				7826	my $owner = git_get_project_owner($project);
				7827	$owner = esc_html($owner);
				7828
				7829	#header
				7830	my $alt_url;
				7831	if (defined $file_name) {
				7832	$alt_url = href(-full=>1, action=>"history", hash=>$hash, file_name=>$file_name);
				7833	} elsif (defined $hash) {
				7834	$alt_url = href(-full=>1, action=>"log", hash=>$hash);
				7835	} else {
				7836	$alt_url = href(-full=>1, action=>"summary");
				7837	}
				7838	print qq!<?xml version="1.0" encoding="utf-8"?>\n!;
				7839	if ($format eq 'rss') {
				7840	print <<XML;
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7841	<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">
				7842	<channel>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7843	XML
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7844	print "<title>$title</title>\n" .
				7845	"<link>$alt_url</link>\n" .
				7846	"<description>$descr</description>\n" .
Giuseppe Bilotta	3ac109a	2009-01-26 12:50:13 +0100	[diff] [blame]	7847	"<language>en</language>\n" .
				7848	# project owner is responsible for 'editorial' content
				7849	"<managingEditor>$owner</managingEditor>\n";
Giuseppe Bilotta	1ba68ce	2009-01-26 12:50:11 +0100	[diff] [blame]	7850	if (defined $logo \|\| defined $favicon) {
				7851	# prefer the logo to the favicon, since RSS
				7852	# doesn't allow both
				7853	my $img = esc_url($logo \|\| $favicon);
				7854	print "<image>\n" .
				7855	"<url>$img</url>\n" .
				7856	"<title>$title</title>\n" .
				7857	"<link>$alt_url</link>\n" .
				7858	"</image>\n";
				7859	}
Giuseppe Bilotta	0cf3128	2009-01-26 12:50:14 +0100	[diff] [blame]	7860	if (%latest_date) {
				7861	print "<pubDate>$latest_date{'rfc2822'}</pubDate>\n";
				7862	print "<lastBuildDate>$latest_date{'rfc2822'}</lastBuildDate>\n";
				7863	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	7864	print "<generator>gitweb v.$version/$git_version</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7865	} elsif ($format eq 'atom') {
				7866	print <<XML;
				7867	<feed xmlns="http://www.w3.org/2005/Atom">
				7868	XML
				7869	print "<title>$title</title>\n" .
				7870	"<subtitle>$descr</subtitle>\n" .
				7871	'<link rel="alternate" type="text/html" href="' .
				7872	$alt_url . '" />' . "\n" .
				7873	'<link rel="self" type="' . $content_type . '" href="' .
				7874	$cgi->self_url() . '" />' . "\n" .
				7875	"<id>" . href(-full=>1) . "</id>\n" .
				7876	# use project owner for feed author
				7877	"<author><name>$owner</name></author>\n";
				7878	if (defined $favicon) {
				7879	print "<icon>" . esc_url($favicon) . "</icon>\n";
				7880	}
Jonathan Nieder	9d9f5e7	2010-09-03 19:44:39 -0500	[diff] [blame]	7881	if (defined $logo) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7882	# not twice as wide as tall: 72 x 27 pixels
Jakub Narebski	e114726	2006-12-04 14:09:43 +0100	[diff] [blame]	7883	print "<logo>" . esc_url($logo) . "</logo>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7884	}
				7885	if (! %latest_date) {
				7886	# dummy date to keep the feed valid until commits trickle in:
				7887	print "<updated>1970-01-01T00:00:00Z</updated>\n";
				7888	} else {
				7889	print "<updated>$latest_date{'iso-8601'}</updated>\n";
				7890	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	7891	print "<generator version='$version/$git_version'>gitweb</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7892	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7893
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7894	# contents
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7895	for (my $i = 0; $i <= $#commitlist; $i++) {
				7896	my %co = %{$commitlist[$i]};
				7897	my $commit = $co{'id'};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7898	# we read 150, we always show 30 and the ones more recent than 48 hours
Jakub Narebski	91fd2bf	2006-11-25 15:54:34 +0100	[diff] [blame]	7899	if (($i >= 20) && ((time - $co{'author_epoch'}) > 486060)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7900	last;
				7901	}
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	7902	my %cd = parse_date($co{'author_epoch'}, $co{'author_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7903
				7904	# get list of changed files
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7905	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	c906b18	2007-05-19 02:47:51 +0200	[diff] [blame]	7906	$co{'parent'} \|\| "--root",
				7907	$co{'id'}, "--", (defined $file_name ? $file_name : ())
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	7908	or next;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7909	my @difftree = map { chomp; $_ } <$fd>;
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	7910	close $fd
				7911	or next;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7912
				7913	# print element (entry, item)
Florian La Roche	e62a641	2008-02-03 12:38:46 +0100	[diff] [blame]	7914	my $co_url = href(-full=>1, action=>"commitdiff", hash=>$commit);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7915	if ($format eq 'rss') {
				7916	print "<item>\n" .
				7917	"<title>" . esc_html($co{'title'}) . "</title>\n" .
				7918	"<author>" . esc_html($co{'author'}) . "</author>\n" .
				7919	"<pubDate>$cd{'rfc2822'}</pubDate>\n" .
				7920	"<guid isPermaLink=\"true\">$co_url</guid>\n" .
				7921	"<link>$co_url</link>\n" .
				7922	"<description>" . esc_html($co{'title'}) . "</description>\n" .
				7923	"<content:encoded>" .
				7924	"<![CDATA[\n";
				7925	} elsif ($format eq 'atom') {
				7926	print "<entry>\n" .
				7927	"<title type=\"html\">" . esc_html($co{'title'}) . "</title>\n" .
				7928	"<updated>$cd{'iso-8601'}</updated>\n" .
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	7929	"<author>\n" .
				7930	" <name>" . esc_html($co{'author_name'}) . "</name>\n";
				7931	if ($co{'author_email'}) {
				7932	print " <email>" . esc_html($co{'author_email'}) . "</email>\n";
				7933	}
				7934	print "</author>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7935	# use committer for contributor
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	7936	"<contributor>\n" .
				7937	" <name>" . esc_html($co{'committer_name'}) . "</name>\n";
				7938	if ($co{'committer_email'}) {
				7939	print " <email>" . esc_html($co{'committer_email'}) . "</email>\n";
				7940	}
				7941	print "</contributor>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7942	"<published>$cd{'iso-8601'}</published>\n" .
				7943	"<link rel=\"alternate\" type=\"text/html\" href=\"$co_url\" />\n" .
				7944	"<id>$co_url</id>\n" .
				7945	"<content type=\"xhtml\" xml:base=\"" . esc_url($my_url) . "\">\n" .
				7946	"<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
				7947	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7948	my $comment = $co{'comment'};
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7949	print "<pre>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7950	foreach my $line (@$comment) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7951	$line = esc_html($line);
				7952	print "$line\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7953	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7954	print "</pre><ul>\n";
				7955	foreach my $difftree_line (@difftree) {
				7956	my %difftree = parse_difftree_raw_line($difftree_line);
				7957	next if !$difftree{'from_id'};
				7958
				7959	my $file = $difftree{'file'} \|\| $difftree{'to_file'};
				7960
				7961	print "<li>" .
				7962	"[" .
				7963	$cgi->a({-href => href(-full=>1, action=>"blobdiff",
				7964	hash=>$difftree{'to_id'}, hash_parent=>$difftree{'from_id'},
				7965	hash_base=>$co{'id'}, hash_parent_base=>$co{'parent'},
				7966	file_name=>$file, file_parent=>$difftree{'from_file'}),
				7967	-title => "diff"}, 'D');
				7968	if ($have_blame) {
				7969	print $cgi->a({-href => href(-full=>1, action=>"blame",
				7970	file_name=>$file, hash_base=>$commit),
				7971	-title => "blame"}, 'B');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7972	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7973	# if this is not a feed of a file history
				7974	if (!defined $file_name \|\| $file_name ne $file) {
				7975	print $cgi->a({-href => href(-full=>1, action=>"history",
				7976	file_name=>$file, hash=>$commit),
				7977	-title => "history"}, 'H');
				7978	}
				7979	$file = esc_path($file);
				7980	print "] ".
				7981	"$file</li>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7982	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7983	if ($format eq 'rss') {
				7984	print "</ul>]]>\n" .
				7985	"</content:encoded>\n" .
				7986	"</item>\n";
				7987	} elsif ($format eq 'atom') {
				7988	print "</ul>\n</div>\n" .
				7989	"</content>\n" .
				7990	"</entry>\n";
				7991	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7992	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7993
				7994	# end of feed
				7995	if ($format eq 'rss') {
				7996	print "</channel>\n</rss>\n";
Jakub Narebski	3278fbc	2009-05-11 19:37:28 +0200	[diff] [blame]	7997	} elsif ($format eq 'atom') {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7998	print "</feed>\n";
				7999	}
				8000	}
				8001
				8002	sub git_rss {
				8003	git_feed('rss');
				8004	}
				8005
				8006	sub git_atom {
				8007	git_feed('atom');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8008	}
				8009
				8010	sub git_opml {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8011	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	8012	if (!@list) {
				8013	die_error(404, "No projects found");
				8014	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8015
Giuseppe Bilotta	ae35785	2009-01-02 13:49:30 +0100	[diff] [blame]	8016	print $cgi->header(
				8017	-type => 'text/xml',
				8018	-charset => 'utf-8',
				8019	-content_disposition => 'inline; filename="opml.xml"');
				8020
Jürgen Kreileder	5d79105	2011-12-17 10:22:22 +0100	[diff] [blame]	8021	my $title = esc_html($site_name);
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8022	my $filter = " within subdirectory ";
				8023	if (defined $project_filter) {
				8024	$filter .= esc_html($project_filter);
				8025	} else {
				8026	$filter = "";
				8027	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8028	print <<XML;
				8029	<?xml version="1.0" encoding="utf-8"?>
				8030	<opml version="1.0">
				8031	<head>
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8032	<title>$title OPML Export$filter</title>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8033	</head>
				8034	<body>
				8035	<outline text="git RSS feeds">
				8036	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8037
				8038	foreach my $pr (@list) {
				8039	my %proj = %$pr;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8040	my $head = git_get_head_hash($proj{'path'});
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8041	if (!defined $head) {
				8042	next;
				8043	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	8044	$git_dir = "$projectroot/$proj{'path'}";
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8045	my %co = parse_commit($head);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8046	if (!%co) {
				8047	next;
				8048	}
				8049
				8050	my $path = esc_html(chop_str($proj{'path'}, 25, 5));
Giuseppe Bilotta	df63fbb	2009-01-02 13:15:28 +0100	[diff] [blame]	8051	my $rss = href('project' => $proj{'path'}, 'action' => 'rss', -full => 1);
				8052	my $html = href('project' => $proj{'path'}, 'action' => 'summary', -full => 1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8053	print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
				8054	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8055	print <<XML;
				8056	</outline>
				8057	</body>
				8058	</opml>
				8059	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8060	}