Blame - gitweb/gitweb.perl - jrn/git

blob: 7f8c1878d407e07c3ac4ac16d840557a18176d29 [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) {
Jay Soffian	cacfc09	2012-08-08 22:29:26 -0400	[diff] [blame]	57	# $path_info has already been URL-decoded by the web server, but
				58	# $my_url and $my_uri have not. URL-decode them so we can properly
				59	# strip $path_info.
				60	$my_url = unescape($my_url);
				61	$my_uri = unescape($my_uri);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	62	if ($my_url =~ s,\Q$path_info\E$,, &&
				63	$my_uri =~ s,\Q$path_info\E$,, &&
				64	defined $ENV{'SCRIPT_NAME'}) {
				65	$base_url = $cgi->url(-base => 1) . $ENV{'SCRIPT_NAME'};
				66	}
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	67	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	68
				69	# target of the home link on top of all pages
				70	our $home_link = $my_uri \|\| "/";
Giuseppe Bilotta	b65910f	2008-09-29 15:07:42 +0200	[diff] [blame]	71	}
				72
Alp Toker	e130dda	2006-07-12 23:55:10 +0100	[diff] [blame]	73	# core git executable to use
				74	# 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]	75	our $GIT = "++GIT_BINDIR++/git";
Jakub Narebski	3f7f2710	2006-06-21 09:48:04 +0200	[diff] [blame]	76
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	77	# absolute fs-path which will be prepended to the project path
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	78	#our $projectroot = "/pub/scm";
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	79	our $projectroot = "++GITWEB_PROJECTROOT++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	80
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	81	# fs traversing limit for getting project list
				82	# the number is relative to the projectroot
				83	our $project_maxdepth = "++GITWEB_PROJECT_MAXDEPTH++";
				84
Yasushi SHOJI	2de21fa	2006-08-15 07:50:49 +0900	[diff] [blame]	85	# string of the home link on top of all pages
				86	our $home_link_str = "++GITWEB_HOME_LINK_STR++";
				87
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	88	# name of your site or organization to appear in page titles
				89	# replace this with something more descriptive for clearer bookmarks
Petr Baudis	8be2890	2006-10-24 05:18:39 +0200	[diff] [blame]	90	our $site_name = "++GITWEB_SITENAME++"
				91	\|\| ($ENV{'SERVER_NAME'} \|\| "Untitled") . " Git";
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	92
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	93	# html snippet to include in the <head> section of each page
				94	our $site_html_head_string = "++GITWEB_SITE_HTML_HEAD_STRING++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	95	# filename of html text to include at top of each page
				96	our $site_header = "++GITWEB_SITE_HEADER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	97	# html text to include at home page
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	98	our $home_text = "++GITWEB_HOMETEXT++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	99	# filename of html text to include at bottom of each page
				100	our $site_footer = "++GITWEB_SITE_FOOTER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	101
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	102	# URI of stylesheets
				103	our @stylesheets = ("++GITWEB_CSS++");
Petr Baudis	887a612	2006-10-26 14:41:25 +0200	[diff] [blame]	104	# URI of a single stylesheet, which can be overridden in GITWEB_CONFIG.
				105	our $stylesheet = undef;
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	106	# URI of GIT logo (72x27 size)
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	107	our $logo = "++GITWEB_LOGO++";
Jakub Narebski	0b5deba	2006-09-04 20:32:13 +0200	[diff] [blame]	108	# URI of GIT favicon, assumed to be image/png type
				109	our $favicon = "++GITWEB_FAVICON++";
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	110	# URI of gitweb.js (JavaScript code for gitweb)
				111	our $javascript = "++GITWEB_JS++";
Jakub Narebski	aedd942	2006-06-17 11:23:56 +0200	[diff] [blame]	112
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	113	# URI and label (title) of GIT logo link
				114	#our $logo_url = "http://www.kernel.org/pub/software/scm/git/docs/";
				115	#our $logo_label = "git documentation";
Wincent Colaiuta	69fb828	2009-07-12 14:31:28 +0200	[diff] [blame]	116	our $logo_url = "http://git-scm.com/";
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	117	our $logo_label = "git homepage";
Junio C Hamano	51a7c66	2006-09-23 12:36:01 -0700	[diff] [blame]	118
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	119	# source of projects list
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	120	our $projects_list = "++GITWEB_LIST++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	121
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	122	# the width (in characters) of the projects list "Description" column
				123	our $projects_list_description_width = 25;
				124
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	125	# group projects by category on the projects list
				126	# (enabled if this variable evaluates to true)
				127	our $projects_list_group_categories = 0;
				128
				129	# default category if none specified
				130	# (leave the empty string for no category)
				131	our $project_list_default_category = "";
				132
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	133	# default order of projects list
				134	# valid values are none, project, descr, owner, and age
				135	our $default_projects_order = "project";
				136
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	137	# show repository only if this file exists
				138	# (only effective if this variable evaluates to true)
				139	our $export_ok = "++GITWEB_EXPORT_OK++";
				140
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	141	# don't generate age column on the projects list page
				142	our $omit_age_column = 0;
				143
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	144	# don't generate information about owners of repositories
				145	our $omit_owner=0;
				146
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	147	# show repository only if this subroutine returns true
				148	# when given the path to the project, for example:
				149	# sub { return -e "$_[0]/git-daemon-export-ok"; }
				150	our $export_auth_hook = undef;
				151
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	152	# only allow viewing of repositories also shown on the overview page
				153	our $strict_export = "++GITWEB_STRICT_EXPORT++";
				154
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	155	# list of git base URLs used for URL to where fetch project from,
				156	# i.e. full URL is "$git_base_url/$project"
Jakub Narebski	d6b7e0b	2006-10-26 12:26:44 +0200	[diff] [blame]	157	our @git_base_url_list = grep { $_ ne '' } ("++GITWEB_BASE_URL++");
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	158
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	159	# default blob_plain mimetype and default charset for text/plain blob
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	160	our $default_blob_plain_mimetype = 'text/plain';
				161	our $default_text_plain_charset = undef;
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	162
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	163	# file to use for guessing MIME types before trying /etc/mime.types
				164	# (relative to the current git repository)
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	165	our $mimetypes_file = undef;
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	166
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	167	# assume this charset if line contains non-UTF-8 characters;
				168	# it should be valid encoding (see Encoding::Supported(3pm) for list),
				169	# for which encoding all byte sequences are valid, for example
				170	# 'iso-8859-1' aka 'latin1' (it is decoded without checking, so it
				171	# could be even 'utf-8' for the old behavior)
				172	our $fallback_encoding = 'latin1';
				173
Jakub Narebski	69a9b41	2007-07-20 02:15:09 +0200	[diff] [blame]	174	# rename detection options for git-diff and git-diff-tree
				175	# - default is '-M', with the cost proportional to
				176	# (number of removed files) * (number of new files).
				177	# - more costly is '-C' (which implies '-M'), with the cost proportional to
				178	# (number of changed files + number of removed files) * (number of new files)
				179	# - even more costly is '-C', '--find-copies-harder' with cost
				180	# (number of files in the original tree) * (number of new files)
				181	# - one might want to include '-B' option, e.g. '-B', '-M'
				182	our @diff_opts = ('-M'); # taken from git_commit
				183
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	184	# Disables features that would allow repository owners to inject script into
				185	# the gitweb domain.
				186	our $prevent_xss = 0;
				187
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	188	# Path to the highlight executable to use (must be the one from
				189	# http://www.andre-simon.de due to assumptions about parameters and output).
				190	# Useful if highlight is not installed on your webserver's PATH.
				191	# [Default: highlight]
				192	our $highlight_bin = "++HIGHLIGHT_BIN++";
				193
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	194	# information about snapshot formats that gitweb is capable of serving
				195	our %known_snapshot_formats = (
				196	# name => {
				197	# 'display' => display name,
				198	# 'type' => mime type,
				199	# 'suffix' => filename suffix,
				200	# 'format' => --format for git-archive,
				201	# 'compressor' => [compressor command and arguments]
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	202	# (array reference, optional)
				203	# 'disabled' => boolean (optional)}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	204	#
				205	'tgz' => {
				206	'display' => 'tar.gz',
				207	'type' => 'application/x-gzip',
				208	'suffix' => '.tar.gz',
				209	'format' => 'tar',
Fraser Tweedale	0c8c385	2011-04-26 11:32:00 +1000	[diff] [blame]	210	'compressor' => ['gzip', '-n']},
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	211
				212	'tbz2' => {
				213	'display' => 'tar.bz2',
				214	'type' => 'application/x-bzip2',
				215	'suffix' => '.tar.bz2',
				216	'format' => 'tar',
				217	'compressor' => ['bzip2']},
				218
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	219	'txz' => {
				220	'display' => 'tar.xz',
				221	'type' => 'application/x-xz',
				222	'suffix' => '.tar.xz',
				223	'format' => 'tar',
				224	'compressor' => ['xz'],
				225	'disabled' => 1},
				226
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	227	'zip' => {
				228	'display' => 'zip',
				229	'type' => 'application/x-zip',
				230	'suffix' => '.zip',
				231	'format' => 'zip'},
				232	);
				233
				234	# Aliases so we understand old gitweb.snapshot values in repository
				235	# configuration.
				236	our %known_snapshot_format_aliases = (
				237	'gzip' => 'tgz',
				238	'bzip2' => 'tbz2',
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	239	'xz' => 'txz',
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	240
				241	# backward compatibility: legacy gitweb config support
				242	'x-gzip' => undef, 'gz' => undef,
				243	'x-bzip2' => undef, 'bz2' => undef,
				244	'x-zip' => undef, '' => undef,
				245	);
				246
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	247	# Pixel sizes for icons and avatars. If the default font sizes or lineheights
				248	# are changed, it may be appropriate to change these values too via
				249	# $GITWEB_CONFIG.
				250	our %avatar_size = (
				251	'default' => 16,
				252	'double' => 32
				253	);
				254
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	255	# Used to set the maximum load that we will still respond to gitweb queries.
				256	# If server load exceed this value then return "503 server busy" error.
				257	# If gitweb cannot determined server load, it is taken to be 0.
				258	# Leave it undefined (or set to 'undef') to turn off load checking.
				259	our $maxload = 300;
				260
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	261	# configuration for 'highlight' (http://www.andre-simon.de/)
				262	# match by basename
				263	our %highlight_basename = (
				264	#'Program' => 'py',
				265	#'Library' => 'py',
				266	'SConstruct' => 'py', # SCons equivalent of Makefile
				267	'Makefile' => 'make',
				268	);
				269	# match by extension
				270	our %highlight_ext = (
				271	# main extensions, defining name of syntax;
				272	# see files in /usr/share/highlight/langDefs/ directory
				273	map { $_ => $_ }
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	274	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]	275	# alternate extensions, see /etc/highlight/filetypes.conf
				276	'h' => 'c',
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	277	map { $_ => 'sh' } qw(bash zsh ksh),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	278	map { $_ => 'cpp' } qw(cxx c++ cc),
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	279	map { $_ => 'php' } qw(php3 php4 php5 phps),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	280	map { $_ => 'pl' } qw(perl pm), # perhaps also 'cgi'
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	281	map { $_ => 'make'} qw(mak mk),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	282	map { $_ => 'xml' } qw(xhtml html htm),
				283	);
				284
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	285	# You define site-wide feature defaults here; override them with
				286	# $GITWEB_CONFIG as necessary.
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	287	our %feature = (
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	288	# feature => {
				289	# 'sub' => feature-sub (subroutine),
				290	# 'override' => allow-override (boolean),
				291	# 'default' => [ default options...] (array reference)}
				292	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	293	# if feature is overridable (it means that allow-override has true value),
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	294	# then feature-sub will be called with default options as parameters;
				295	# return value of feature-sub indicates if to enable specified feature
				296	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	297	# 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]	298	# overridden
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	299	#
Giuseppe Bilotta	ff3c0ff	2008-12-02 14:57:28 -0800	[diff] [blame]	300	# use gitweb_get_feature(<feature>) to retrieve the <feature> value
				301	# (an array) or gitweb_check_feature(<feature>) to check if <feature>
				302	# is enabled
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	303
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	304	# Enable the 'blame' blob view, showing the last commit that modified
				305	# each line in the file. This can be very CPU-intensive.
				306
				307	# To enable system wide have in $GITWEB_CONFIG
				308	# $feature{'blame'}{'default'} = [1];
				309	# To have project specific config enable override in $GITWEB_CONFIG
				310	# $feature{'blame'}{'override'} = 1;
				311	# and in project config gitweb.blame = 0\|1;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	312	'blame' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	313	'sub' => sub { feature_bool('blame', @_) },
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	314	'override' => 0,
				315	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	316
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	317	# Enable the 'snapshot' link, providing a compressed archive of any
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	318	# tree. This can potentially generate high traffic if you have large
				319	# project.
				320
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	321	# Value is a list of formats defined in %known_snapshot_formats that
				322	# you wish to offer.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	323	# To disable system wide have in $GITWEB_CONFIG
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	324	# $feature{'snapshot'}{'default'} = [];
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	325	# To have project specific config enable override in $GITWEB_CONFIG
Uwe Zeisberger	bbee1d9	2006-12-08 12:44:31 +0100	[diff] [blame]	326	# $feature{'snapshot'}{'override'} = 1;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	327	# and in project config, a comma-separated list of formats or "none"
				328	# to disable. Example: gitweb.snapshot = tbz2,zip;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	329	'snapshot' => {
				330	'sub' => \&feature_snapshot,
				331	'override' => 0,
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	332	'default' => ['tgz']},
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	333
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	334	# Enable text search, which will list the commits which match author,
				335	# committer or commit text to a given string. Enabled by default.
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	336	# Project specific override is not supported.
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	337	#
				338	# Note that this controls all search features, which means that if
				339	# it is disabled, then 'grep' and 'pickaxe' search would also be
				340	# disabled.
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	341	'search' => {
				342	'override' => 0,
				343	'default' => [1]},
				344
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	345	# Enable grep search, which will list the files in currently selected
				346	# tree containing the given string. Enabled by default. This can be
				347	# potentially CPU-intensive, of course.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	348	# Note that you need to have 'search' feature enabled too.
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	349
				350	# To enable system wide have in $GITWEB_CONFIG
				351	# $feature{'grep'}{'default'} = [1];
				352	# To have project specific config enable override in $GITWEB_CONFIG
				353	# $feature{'grep'}{'override'} = 1;
				354	# and in project config gitweb.grep = 0\|1;
				355	'grep' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	356	'sub' => sub { feature_bool('grep', @_) },
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	357	'override' => 0,
				358	'default' => [1]},
				359
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	360	# Enable the pickaxe search, which will list the commits that modified
				361	# a given string in a file. This can be practical and quite faster
				362	# alternative to 'blame', but still potentially CPU-intensive.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	363	# Note that you need to have 'search' feature enabled too.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	364
				365	# To enable system wide have in $GITWEB_CONFIG
				366	# $feature{'pickaxe'}{'default'} = [1];
				367	# To have project specific config enable override in $GITWEB_CONFIG
				368	# $feature{'pickaxe'}{'override'} = 1;
				369	# and in project config gitweb.pickaxe = 0\|1;
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	370	'pickaxe' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	371	'sub' => sub { feature_bool('pickaxe', @_) },
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	372	'override' => 0,
				373	'default' => [1]},
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	374
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	375	# Enable showing size of blobs in a 'tree' view, in a separate
				376	# column, similar to what 'ls -l' does. This cost a bit of IO.
				377
				378	# To disable system wide have in $GITWEB_CONFIG
				379	# $feature{'show-sizes'}{'default'} = [0];
				380	# To have project specific config enable override in $GITWEB_CONFIG
				381	# $feature{'show-sizes'}{'override'} = 1;
				382	# and in project config gitweb.showsizes = 0\|1;
				383	'show-sizes' => {
				384	'sub' => sub { feature_bool('showsizes', @_) },
				385	'override' => 0,
				386	'default' => [1]},
				387
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	388	# Make gitweb use an alternative format of the URLs which can be
				389	# more readable and natural-looking: project name is embedded
				390	# directly in the path and the query string contains other
				391	# auxiliary information. All gitweb installations recognize
				392	# URL in either format; this configures in which formats gitweb
				393	# generates links.
				394
				395	# To enable system wide have in $GITWEB_CONFIG
				396	# $feature{'pathinfo'}{'default'} = [1];
				397	# Project specific override is not supported.
				398
				399	# Note that you will need to change the default location of CSS,
				400	# favicon, logo and possibly other files to an absolute URL. Also,
				401	# if gitweb.cgi serves as your indexfile, you will need to force
				402	# $my_uri to contain the script name in your $GITWEB_CONFIG.
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	403	'pathinfo' => {
				404	'override' => 0,
				405	'default' => [0]},
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	406
				407	# Make gitweb consider projects in project root subdirectories
				408	# to be forks of existing projects. Given project $projname.git,
				409	# projects matching $projname/*.git will not be shown in the main
				410	# projects list, instead a '+' mark will be added to $projname
				411	# there and a 'forks' view will be enabled for the project, listing
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	412	# all the forks. If project list is taken from a file, forks have
				413	# to be listed after the main project.
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	414
				415	# To enable system wide have in $GITWEB_CONFIG
				416	# $feature{'forks'}{'default'} = [1];
				417	# Project specific override is not supported.
				418	'forks' => {
				419	'override' => 0,
				420	'default' => [0]},
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	421
				422	# Insert custom links to the action bar of all project pages.
				423	# This enables you mainly to link to third-party scripts integrating
				424	# into gitweb; e.g. git-browser for graphical history representation
				425	# or custom web-based repository administration interface.
				426
				427	# The 'default' value consists of a list of triplets in the form
				428	# (label, link, position) where position is the label after which
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	429	# 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]	430	# to the project name, %f to the project path within the filesystem,
				431	# %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]	432	# hash base (hb gitweb parameter); %% expands to %.
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	433
				434	# To enable system wide have in $GITWEB_CONFIG e.g.
				435	# $feature{'actions'}{'default'} = [('graphiclog',
				436	# '/git-browser/by-commit.html?r=%n', 'summary')];
				437	# Project specific override is not supported.
				438	'actions' => {
				439	'override' => 0,
				440	'default' => []},
Shawn O. Pearce	3e3d4ee	2008-10-03 07:41:25 -0700	[diff] [blame]	441
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	442	# Allow gitweb scan project content tags of project repository,
				443	# and display the popular Web 2.0-ish "tag cloud" near the projects
				444	# list. Note that this is something COMPLETELY different from the
				445	# normal Git tags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	446
				447	# gitweb by itself can show existing tags, but it does not handle
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	448	# tagging itself; you need to do it externally, outside gitweb.
				449	# The format is described in git_get_project_ctags() subroutine.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	450	# You may want to install the HTML::TagCloud Perl module to get
				451	# a pretty tag cloud instead of just a list of tags.
				452
				453	# To enable system wide have in $GITWEB_CONFIG
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	454	# $feature{'ctags'}{'default'} = [1];
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	455	# Project specific override is not supported.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	456
				457	# In the future whether ctags editing is enabled might depend
				458	# 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]	459	'ctags' => {
				460	'override' => 0,
				461	'default' => [0]},
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	462
				463	# The maximum number of patches in a patchset generated in patch
				464	# view. Set this to 0 or undef to disable patch view, or to a
				465	# negative number to remove any limit.
				466
				467	# To disable system wide have in $GITWEB_CONFIG
				468	# $feature{'patches'}{'default'} = [0];
				469	# To have project specific config enable override in $GITWEB_CONFIG
				470	# $feature{'patches'}{'override'} = 1;
				471	# and in project config gitweb.patches = 0\|n;
				472	# where n is the maximum number of patches allowed in a patchset.
				473	'patches' => {
				474	'sub' => \&feature_patches,
				475	'override' => 0,
				476	'default' => [16]},
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	477
				478	# Avatar support. When this feature is enabled, views such as
				479	# shortlog or commit will display an avatar associated with
				480	# the email of the committer(s) and/or author(s).
				481
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	482	# Currently available providers are gravatar and picon.
				483	# If an unknown provider is specified, the feature is disabled.
				484
				485	# Gravatar depends on Digest::MD5.
				486	# Picon currently relies on the indiana.edu database.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	487
				488	# To enable system wide have in $GITWEB_CONFIG
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	489	# $feature{'avatar'}{'default'} = ['<provider>'];
				490	# where <provider> is either gravatar or picon.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	491	# To have project specific config enable override in $GITWEB_CONFIG
				492	# $feature{'avatar'}{'override'} = 1;
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	493	# and in project config gitweb.avatar = <provider>;
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	494	'avatar' => {
				495	'sub' => \&feature_avatar,
				496	'override' => 0,
				497	'default' => ['']},
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	498
				499	# Enable displaying how much time and how many git commands
				500	# it took to generate and display page. Disabled by default.
				501	# Project specific override is not supported.
				502	'timed' => {
				503	'override' => 0,
				504	'default' => [0]},
Jakub Narebski	e627e50	2009-11-26 21:12:15 +0100	[diff] [blame]	505
				506	# Enable turning some links into links to actions which require
				507	# JavaScript to run (like 'blame_incremental'). Not enabled by
				508	# default. Project specific override is currently not supported.
				509	'javascript-actions' => {
				510	'override' => 0,
				511	'default' => [0]},
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	512
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	513	# Enable and configure ability to change common timezone for dates
				514	# in gitweb output via JavaScript. Enabled by default.
				515	# Project specific override is not supported.
				516	'javascript-timezone' => {
				517	'override' => 0,
				518	'default' => [
				519	'local', # default timezone: 'utc', 'local', or '(-\|+)HHMM' format,
				520	# or undef to turn off this feature
				521	'gitweb_tz', # name of cookie where to store selected timezone
				522	'datetime', # CSS class used to mark up dates for manipulation
				523	]},
				524
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	525	# Syntax highlighting support. This is based on Daniel Svensson's
				526	# and Sham Chukoury's work in gitweb-xmms2.git.
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	527	# It requires the 'highlight' program present in $PATH,
				528	# and therefore is disabled by default.
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	529
				530	# To enable system wide have in $GITWEB_CONFIG
				531	# $feature{'highlight'}{'default'} = [1];
				532
				533	'highlight' => {
				534	'sub' => sub { feature_bool('highlight', @_) },
				535	'override' => 0,
				536	'default' => [0]},
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	537
				538	# Enable displaying of remote heads in the heads list
				539
				540	# To enable system wide have in $GITWEB_CONFIG
				541	# $feature{'remote_heads'}{'default'} = [1];
				542	# To have project specific config enable override in $GITWEB_CONFIG
				543	# $feature{'remote_heads'}{'override'} = 1;
				544	# and in project config gitweb.remote_heads = 0\|1;
				545	'remote_heads' => {
				546	'sub' => sub { feature_bool('remote_heads', @_) },
				547	'override' => 0,
				548	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	549	);
				550
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	551	sub gitweb_get_feature {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	552	my ($name) = @_;
Jakub Narebski	dd1ad5f	2006-09-26 01:56:17 +0200	[diff] [blame]	553	return unless exists $feature{$name};
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	554	my ($sub, $override, @defaults) = (
				555	$feature{$name}{'sub'},
				556	$feature{$name}{'override'},
				557	@{$feature{$name}{'default'}});
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	558	# project specific override is possible only if we have project
				559	our $git_dir; # global variable, declared later
				560	if (!$override \|\| !defined $git_dir) {
				561	return @defaults;
				562	}
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	563	if (!defined $sub) {
Nanako Shiraishi	9319789	2009-08-28 12:18:49 +0900	[diff] [blame]	564	warn "feature $name is not overridable";
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	565	return @defaults;
				566	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	567	return $sub->(@defaults);
				568	}
				569
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	570	# A wrapper to check if a given feature is enabled.
				571	# With this, you can say
				572	#
				573	# my $bool_feat = gitweb_check_feature('bool_feat');
				574	# gitweb_check_feature('bool_feat') or somecode;
				575	#
				576	# instead of
				577	#
				578	# my ($bool_feat) = gitweb_get_feature('bool_feat');
				579	# (gitweb_get_feature('bool_feat'))[0] or somecode;
				580	#
				581	sub gitweb_check_feature {
				582	return (gitweb_get_feature(@_))[0];
				583	}
				584
				585
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	586	sub feature_bool {
				587	my $key = shift;
				588	my ($val) = git_get_project_config($key, '--bool');
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	589
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	590	if (!defined $val) {
				591	return ($_[0]);
				592	} elsif ($val eq 'true') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	593	return (1);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	594	} elsif ($val eq 'false') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	595	return (0);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	596	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	597	}
				598
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	599	sub feature_snapshot {
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	600	my (@fmts) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	601
				602	my ($val) = git_get_project_config('snapshot');
				603
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	604	if ($val) {
				605	@fmts = ($val eq 'none' ? () : split /\s[,\s]\s/, $val);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	606	}
				607
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	608	return @fmts;
Luben Tuikov	de9272f	2006-09-28 16:49:21 -0700	[diff] [blame]	609	}
				610
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	611	sub feature_patches {
				612	my @val = (git_get_project_config('patches', '--int'));
				613
				614	if (@val) {
				615	return @val;
				616	}
				617
				618	return ($_[0]);
				619	}
				620
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	621	sub feature_avatar {
				622	my @val = (git_get_project_config('avatar'));
				623
				624	return @val ? @val : @_;
				625	}
				626
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	627	# checking HEAD file with -e is fragile if the repository was
				628	# initialized long time ago (i.e. symlink HEAD) and was pack-ref'ed
				629	# and then pruned.
				630	sub check_head_link {
				631	my ($dir) = @_;
				632	my $headfile = "$dir/HEAD";
				633	return ((-e $headfile) \|\|
				634	(-l $headfile && readlink($headfile) =~ /^refs\/heads\//));
				635	}
				636
				637	sub check_export_ok {
				638	my ($dir) = @_;
				639	return (check_head_link($dir) &&
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	640	(!$export_ok \|\| -e "$dir/$export_ok") &&
				641	(!$export_auth_hook \|\| $export_auth_hook->($dir)));
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	642	}
				643
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	644	# process alternate names for backward compatibility
				645	# filter out unsupported (unknown) snapshot formats
				646	sub filter_snapshot_fmts {
				647	my @fmts = @_;
				648
				649	@fmts = map {
				650	exists $known_snapshot_format_aliases{$_} ?
				651	$known_snapshot_format_aliases{$_} : $_} @fmts;
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	652	@fmts = grep {
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	653	exists $known_snapshot_formats{$_} &&
				654	!$known_snapshot_formats{$_}{'disabled'}} @fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	655	}
				656
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	657	# If it is set to code reference, it is code that it is to be run once per
				658	# request, allowing updating configurations that change with each request,
				659	# while running other code in config file only once.
				660	#
				661	# Otherwise, if it is false then gitweb would process config file only once;
				662	# if it is true then gitweb config would be run for each request.
				663	our $per_request_config = 1;
				664
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	665	# read and parse gitweb config file given by its parameter.
				666	# returns true on success, false on recoverable error, allowing
				667	# to chain this subroutine, using first file that exists.
				668	# dies on errors during parsing config file, as it is unrecoverable.
				669	sub read_config_file {
				670	my $filename = shift;
				671	return unless defined $filename;
				672	# die if there are errors parsing config file
				673	if (-e $filename) {
				674	do $filename;
				675	die $@ if $@;
				676	return 1;
				677	}
				678	return;
				679	}
				680
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	681	our ($GITWEB_CONFIG, $GITWEB_CONFIG_SYSTEM, $GITWEB_CONFIG_COMMON);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	682	sub evaluate_gitweb_config {
				683	our $GITWEB_CONFIG = $ENV{'GITWEB_CONFIG'} \|\| "++GITWEB_CONFIG++";
				684	our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} \|\| "++GITWEB_CONFIG_SYSTEM++";
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	685	our $GITWEB_CONFIG_COMMON = $ENV{'GITWEB_CONFIG_COMMON'} \|\| "++GITWEB_CONFIG_COMMON++";
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	686
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	687	# Protect agains duplications of file names, to not read config twice.
				688	# Only one of $GITWEB_CONFIG and $GITWEB_CONFIG_SYSTEM is used, so
				689	# there possibility of duplication of filename there doesn't matter.
				690	$GITWEB_CONFIG = "" if ($GITWEB_CONFIG eq $GITWEB_CONFIG_COMMON);
				691	$GITWEB_CONFIG_SYSTEM = "" if ($GITWEB_CONFIG_SYSTEM eq $GITWEB_CONFIG_COMMON);
				692
				693	# Common system-wide settings for convenience.
				694	# Those settings can be ovverriden by GITWEB_CONFIG or GITWEB_CONFIG_SYSTEM.
				695	read_config_file($GITWEB_CONFIG_COMMON);
				696
				697	# Use first config file that exists. This means use the per-instance
				698	# GITWEB_CONFIG if exists, otherwise use GITWEB_SYSTEM_CONFIG.
				699	read_config_file($GITWEB_CONFIG) and return;
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	700	read_config_file($GITWEB_CONFIG_SYSTEM);
Gerrit Pape	17a8b25	2008-03-26 18:11:19 +0000	[diff] [blame]	701	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	702
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	703	# Get loadavg of system, to compare against $maxload.
				704	# Currently it requires '/proc/loadavg' present to get loadavg;
				705	# if it is not present it returns 0, which means no load checking.
				706	sub get_loadavg {
				707	if( -e '/proc/loadavg' ){
				708	open my $fd, '<', '/proc/loadavg'
				709	or return 0;
				710	my @load = split(/\s+/, scalar <$fd>);
				711	close $fd;
				712
				713	# The first three columns measure CPU and IO utilization of the last one,
				714	# five, and 10 minute periods. The fourth column shows the number of
				715	# currently running processes and the total number of processes in the m/n
				716	# format. The last column displays the last process ID used.
				717	return $load[0] \|\| 0;
				718	}
				719	# additional checks for load average should go here for things that don't export
				720	# /proc/loadavg
				721
				722	return 0;
				723	}
				724
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	725	# version of the core git binary
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	726	our $git_version;
				727	sub evaluate_git_version {
				728	our $git_version = qx("$GIT" --version) =~ m/git version (.*)$/ ? $1 : "unknown";
				729	$number_of_git_cmds++;
				730	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	731
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	732	sub check_loadavg {
				733	if (defined $maxload && get_loadavg() > $maxload) {
				734	die_error(503, "The load average on the server is too high");
				735	}
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	736	}
				737
Jakub Narebski	154b4d7	2006-08-05 12:55:20 +0200	[diff] [blame]	738	# ======================================================================
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	739	# input validation and dispatch
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	740
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	741	# input parameters can be collected from a variety of sources (presently, CGI
				742	# and PATH_INFO), so we define an %input_params hash that collects them all
				743	# together during validation: this allows subsequent uses (e.g. href()) to be
				744	# agnostic of the parameter origin
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	745
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	746	our %input_params = ();
Martin Waitz	5c95fab	2006-08-17 00:28:38 +0200	[diff] [blame]	747
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	748	# input parameters are stored with the long parameter name as key. This will
				749	# also be used in the href subroutine to convert parameters to their CGI
				750	# equivalent, and since the href() usage is the most frequent one, we store
				751	# the name -> CGI key mapping here, instead of the reverse.
				752	#
				753	# XXX: Warning: If you touch this, check the search form for updating,
				754	# too.
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	755
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	756	our @cgi_param_mapping = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	757	project => "p",
				758	action => "a",
				759	file_name => "f",
				760	file_parent => "fp",
				761	hash => "h",
				762	hash_parent => "hp",
				763	hash_base => "hb",
				764	hash_parent_base => "hpb",
				765	page => "pg",
				766	order => "o",
				767	searchtext => "s",
				768	searchtype => "st",
				769	snapshot_format => "sf",
				770	extra_options => "opt",
				771	search_use_regexp => "sr",
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	772	ctag => "by_tag",
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	773	diff_style => "ds",
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	774	project_filter => "pf",
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	775	# this must be last entry (for manipulation from JavaScript)
				776	javascript => "js"
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	777	);
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	778	our %cgi_param_mapping = @cgi_param_mapping;
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	779
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	780	# we will also need to know the possible actions, for validation
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	781	our %actions = (
Rafael Garcia-Suarez	3a5b919	2008-06-06 09:53:32 +0200	[diff] [blame]	782	"blame" => \&git_blame,
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	783	"blame_incremental" => \&git_blame_incremental,
				784	"blame_data" => \&git_blame_data,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	785	"blobdiff" => \&git_blobdiff,
				786	"blobdiff_plain" => \&git_blobdiff_plain,
				787	"blob" => \&git_blob,
				788	"blob_plain" => \&git_blob_plain,
				789	"commitdiff" => \&git_commitdiff,
				790	"commitdiff_plain" => \&git_commitdiff_plain,
				791	"commit" => \&git_commit,
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	792	"forks" => \&git_forks,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	793	"heads" => \&git_heads,
				794	"history" => \&git_history,
				795	"log" => \&git_log,
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	796	"patch" => \&git_patch,
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	797	"patches" => \&git_patches,
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	798	"remotes" => \&git_remotes,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	799	"rss" => \&git_rss,
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	800	"atom" => \&git_atom,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	801	"search" => \&git_search,
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	802	"search_help" => \&git_search_help,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	803	"shortlog" => \&git_shortlog,
				804	"summary" => \&git_summary,
				805	"tag" => \&git_tag,
				806	"tags" => \&git_tags,
				807	"tree" => \&git_tree,
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	808	"snapshot" => \&git_snapshot,
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	809	"object" => \&git_object,
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	810	# those below don't need $project
				811	"opml" => \&git_opml,
				812	"project_list" => \&git_project_list,
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	813	"project_index" => \&git_project_index,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	814	);
				815
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	816	# finally, we have the hash of allowed extra_options for the commands that
				817	# allow them
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	818	our %allowed_options = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	819	"--no-merges" => [ qw(rss atom log shortlog history) ],
				820	);
				821
				822	# fill %input_params with the CGI parameters. All values except for 'opt'
				823	# should be single values, but opt can be an array. We should probably
				824	# build an array of parameters that can be multi-valued, but since for the time
				825	# being it's only this one, we just single it out
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	826	sub evaluate_query_params {
				827	our $cgi;
				828
				829	while (my ($name, $symbol) = each %cgi_param_mapping) {
				830	if ($symbol eq 'opt') {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	831	$input_params{$name} = [ map { decode_utf8($_) } $cgi->param($symbol) ];
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	832	} else {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	833	$input_params{$name} = decode_utf8($cgi->param($symbol));
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	834	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	835	}
				836	}
				837
				838	# now read PATH_INFO and update the parameter list for missing parameters
				839	sub evaluate_path_info {
				840	return if defined $input_params{'project'};
				841	return if !$path_info;
				842	$path_info =~ s,^/+,,;
				843	return if !$path_info;
				844
				845	# find which part of PATH_INFO is project
				846	my $project = $path_info;
				847	$project =~ s,/+$,,;
				848	while ($project && !check_head_link("$projectroot/$project")) {
				849	$project =~ s,/[^/]$,,;
				850	}
				851	return unless $project;
				852	$input_params{'project'} = $project;
				853
				854	# do not change any parameters if an action is given using the query string
				855	return if $input_params{'action'};
				856	$path_info =~ s,^\Q$project\E/*,,;
				857
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	858	# next, check if we have an action
				859	my $action = $path_info;
				860	$action =~ s,/.*$,,;
				861	if (exists $actions{$action}) {
				862	$path_info =~ s,^$action/*,,;
				863	$input_params{'action'} = $action;
				864	}
				865
				866	# list of actions that want hash_base instead of hash, but can have no
				867	# pathname (f) parameter
				868	my @wants_base = (
				869	'tree',
				870	'history',
				871	);
				872
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	873	# we want to catch, among others
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	874	# [$hash_parent_base[:$file_parent]..]$hash_parent[:$file_name]
				875	my ($parentrefname, $parentpathname, $refname, $pathname) =
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	876	($path_info =~ /^(?:(.+?)(?::(.+))?\.\.)?([^:]+?)?(?::(.+))?$/);
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	877
				878	# first, analyze the 'current' part
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	879	if (defined $pathname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	880	# we got "branch:filename" or "branch:dir/"
				881	# we could use git_get_type(branch:pathname), but:
				882	# - it needs $git_dir
				883	# - it does a git() call
				884	# - the convention of terminating directories with a slash
				885	# makes it superfluous
				886	# - embedding the action in the PATH_INFO would make it even
				887	# more superfluous
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	888	$pathname =~ s,^/+,,;
				889	if (!$pathname \|\| substr($pathname, -1) eq "/") {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	890	$input_params{'action'} \|\|= "tree";
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	891	$pathname =~ s,/$,,;
				892	} else {
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	893	# the default action depends on whether we had parent info
				894	# or not
				895	if ($parentrefname) {
				896	$input_params{'action'} \|\|= "blobdiff_plain";
				897	} else {
				898	$input_params{'action'} \|\|= "blob_plain";
				899	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	900	}
				901	$input_params{'hash_base'} \|\|= $refname;
				902	$input_params{'file_name'} \|\|= $pathname;
				903	} elsif (defined $refname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	904	# we got "branch". In this case we have to choose if we have to
				905	# set hash or hash_base.
				906	#
				907	# Most of the actions without a pathname only want hash to be
				908	# set, except for the ones specified in @wants_base that want
				909	# hash_base instead. It should also be noted that hand-crafted
				910	# links having 'history' as an action and no pathname or hash
				911	# set will fail, but that happens regardless of PATH_INFO.
Jakub Narebski	d0af373	2010-10-13 13:35:20 +0200	[diff] [blame]	912	if (defined $parentrefname) {
				913	# if there is parent let the default be 'shortlog' action
				914	# (for http://git.example.com/repo.git/A..B links); if there
				915	# is no parent, dispatch will detect type of object and set
				916	# action appropriately if required (if action is not set)
				917	$input_params{'action'} \|\|= "shortlog";
				918	}
				919	if ($input_params{'action'} &&
				920	grep { $_ eq $input_params{'action'} } @wants_base) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	921	$input_params{'hash_base'} \|\|= $refname;
				922	} else {
				923	$input_params{'hash'} \|\|= $refname;
				924	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	925	}
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	926
				927	# next, handle the 'parent' part, if present
				928	if (defined $parentrefname) {
				929	# a missing pathspec defaults to the 'current' filename, allowing e.g.
				930	# someproject/blobdiff/oldrev..newrev:/filename
				931	if ($parentpathname) {
				932	$parentpathname =~ s,^/+,,;
				933	$parentpathname =~ s,/$,,;
				934	$input_params{'file_parent'} \|\|= $parentpathname;
				935	} else {
				936	$input_params{'file_parent'} \|\|= $input_params{'file_name'};
				937	}
				938	# we assume that hash_parent_base is wanted if a path was specified,
				939	# or if the action wants hash_base instead of hash
				940	if (defined $input_params{'file_parent'} \|\|
				941	grep { $_ eq $input_params{'action'} } @wants_base) {
				942	$input_params{'hash_parent_base'} \|\|= $parentrefname;
				943	} else {
				944	$input_params{'hash_parent'} \|\|= $parentrefname;
				945	}
				946	}
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	947
				948	# for the snapshot action, we allow URLs in the form
				949	# $project/snapshot/$hash.ext
				950	# where .ext determines the snapshot and gets removed from the
				951	# passed $refname to provide the $hash.
				952	#
				953	# To be able to tell that $refname includes the format extension, we
				954	# require the following two conditions to be satisfied:
				955	# - the hash input parameter MUST have been set from the $refname part
				956	# of the URL (i.e. they must be equal)
				957	# - the snapshot format MUST NOT have been defined already (e.g. from
				958	# CGI parameter sf)
				959	# It's also useless to try any matching unless $refname has a dot,
				960	# so we check for that too
				961	if (defined $input_params{'action'} &&
				962	$input_params{'action'} eq 'snapshot' &&
				963	defined $refname && index($refname, '.') != -1 &&
				964	$refname eq $input_params{'hash'} &&
				965	!defined $input_params{'snapshot_format'}) {
				966	# We loop over the known snapshot formats, checking for
				967	# extensions. Allowed extensions are both the defined suffix
				968	# (which includes the initial dot already) and the snapshot
				969	# format key itself, with a prepended dot
Holger Weiß	ccb4b53	2009-03-31 18:16:36 +0200	[diff] [blame]	970	while (my ($fmt, $opt) = each %known_snapshot_formats) {
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	971	my $hash = $refname;
Jakub Narebski	095e914	2009-05-11 19:42:47 +0200	[diff] [blame]	972	unless ($hash =~ s/(\Q$opt->{'suffix'}\E\|\Q.$fmt\E)$//) {
				973	next;
				974	}
				975	my $sfx = $1;
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	976	# a valid suffix was found, so set the snapshot format
				977	# and reset the hash parameter
				978	$input_params{'snapshot_format'} = $fmt;
				979	$input_params{'hash'} = $hash;
				980	# we also set the format suffix to the one requested
				981	# in the URL: this way a request for e.g. .tgz returns
				982	# a .tgz instead of a .tar.gz
				983	$known_snapshot_formats{$fmt}{'suffix'} = $sfx;
				984	last;
				985	}
				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	our ($action, $project, $file_name, $file_parent, $hash, $hash_parent, $hash_base,
				990	$hash_parent_base, @extra_options, $page, $searchtype, $search_use_regexp,
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	991	$searchtext, $search_regexp, $project_filter);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	992	sub evaluate_and_validate_params {
				993	our $action = $input_params{'action'};
				994	if (defined $action) {
				995	if (!validate_action($action)) {
				996	die_error(400, "Invalid action parameter");
				997	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	998	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	999
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1000	# parameters which are pathnames
				1001	our $project = $input_params{'project'};
				1002	if (defined $project) {
				1003	if (!validate_project($project)) {
				1004	undef $project;
				1005	die_error(404, "No such project");
				1006	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1007	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1008
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	1009	our $project_filter = $input_params{'project_filter'};
				1010	if (defined $project_filter) {
				1011	if (!validate_pathname($project_filter)) {
				1012	die_error(404, "Invalid project_filter parameter");
				1013	}
				1014	}
				1015
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1016	our $file_name = $input_params{'file_name'};
				1017	if (defined $file_name) {
				1018	if (!validate_pathname($file_name)) {
				1019	die_error(400, "Invalid file parameter");
				1020	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1021	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1022
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1023	our $file_parent = $input_params{'file_parent'};
				1024	if (defined $file_parent) {
				1025	if (!validate_pathname($file_parent)) {
				1026	die_error(400, "Invalid file parent parameter");
				1027	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1028	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1029
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1030	# parameters which are refnames
				1031	our $hash = $input_params{'hash'};
				1032	if (defined $hash) {
				1033	if (!validate_refname($hash)) {
				1034	die_error(400, "Invalid hash parameter");
				1035	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1036	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1037
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1038	our $hash_parent = $input_params{'hash_parent'};
				1039	if (defined $hash_parent) {
				1040	if (!validate_refname($hash_parent)) {
				1041	die_error(400, "Invalid hash parent parameter");
				1042	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1043	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1044
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1045	our $hash_base = $input_params{'hash_base'};
				1046	if (defined $hash_base) {
				1047	if (!validate_refname($hash_base)) {
				1048	die_error(400, "Invalid hash base parameter");
				1049	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1050	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1051
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1052	our @extra_options = @{$input_params{'extra_options'}};
				1053	# @extra_options is always defined, since it can only be (currently) set from
				1054	# CGI, and $cgi->param() returns the empty array in array context if the param
				1055	# is not set
				1056	foreach my $opt (@extra_options) {
				1057	if (not exists $allowed_options{$opt}) {
				1058	die_error(400, "Invalid option parameter");
				1059	}
				1060	if (not grep(/^$action$/, @{$allowed_options{$opt}})) {
				1061	die_error(400, "Invalid option parameter for this action");
				1062	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1063	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1064
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1065	our $hash_parent_base = $input_params{'hash_parent_base'};
				1066	if (defined $hash_parent_base) {
				1067	if (!validate_refname($hash_parent_base)) {
				1068	die_error(400, "Invalid hash parent base parameter");
				1069	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1070	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1071
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1072	# other parameters
				1073	our $page = $input_params{'page'};
				1074	if (defined $page) {
				1075	if ($page =~ m/[^0-9]/) {
				1076	die_error(400, "Invalid page parameter");
				1077	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1078	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1079
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1080	our $searchtype = $input_params{'searchtype'};
				1081	if (defined $searchtype) {
				1082	if ($searchtype =~ m/[^a-z]/) {
				1083	die_error(400, "Invalid searchtype parameter");
				1084	}
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
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1087	our $search_use_regexp = $input_params{'search_use_regexp'};
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1088
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1089	our $searchtext = $input_params{'searchtext'};
				1090	our $search_regexp;
				1091	if (defined $searchtext) {
				1092	if (length($searchtext) < 2) {
				1093	die_error(403, "At least two characters are required for search parameter");
				1094	}
Jakub Narebski	36612e4	2012-02-28 19:41:47 +0100	[diff] [blame]	1095	if ($search_use_regexp) {
				1096	$search_regexp = $searchtext;
				1097	if (!eval { qr/$search_regexp/; 1; }) {
				1098	(my $error = $@) =~ s/ at \S+ line \d+.*\n?//;
				1099	die_error(400, "Invalid search regexp '$search_regexp'",
				1100	esc_html($error));
				1101	}
				1102	} else {
				1103	$search_regexp = quotemeta $searchtext;
				1104	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1105	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1106	}
				1107
				1108	# path to the current git repository
				1109	our $git_dir;
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1110	sub evaluate_git_dir {
				1111	our $git_dir = "$projectroot/$project" if $project;
				1112	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1113
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1114	our (@snapshot_fmts, $git_avatar);
				1115	sub configure_gitweb_features {
				1116	# list of supported snapshot formats
				1117	our @snapshot_fmts = gitweb_get_feature('snapshot');
				1118	@snapshot_fmts = filter_snapshot_fmts(@snapshot_fmts);
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	1119
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1120	# check that the avatar feature is set to a known provider name,
				1121	# and for each provider check if the dependencies are satisfied.
				1122	# if the provider name is invalid or the dependencies are not met,
				1123	# reset $git_avatar to the empty string.
				1124	our ($git_avatar) = gitweb_get_feature('avatar');
				1125	if ($git_avatar eq 'gravatar') {
				1126	$git_avatar = '' unless (eval { require Digest::MD5; 1; });
				1127	} elsif ($git_avatar eq 'picon') {
				1128	# no dependencies
				1129	} else {
				1130	$git_avatar = '';
				1131	}
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1132	}
				1133
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	1134	# custom error handler: 'die <message>' is Internal Server Error
				1135	sub handle_errors_html {
				1136	my $msg = shift; # it is already HTML escaped
				1137
				1138	# to avoid infinite loop where error occurs in die_error,
				1139	# change handler to default handler, disabling handle_errors_html
				1140	set_message("Error occured when inside die_error:\n$msg");
				1141
				1142	# you cannot jump out of die_error when called as error handler;
				1143	# the subroutine set via CGI::Carp::set_message is called _after_
				1144	# HTTP headers are already written, so it cannot write them itself
				1145	die_error(undef, undef, $msg, -error_handler => 1, -no_http_header => 1);
				1146	}
				1147	set_message(\&handle_errors_html);
				1148
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1149	# dispatch
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1150	sub dispatch {
				1151	if (!defined $action) {
				1152	if (defined $hash) {
				1153	$action = git_get_type($hash);
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1154	$action or die_error(404, "Object does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1155	} elsif (defined $hash_base && defined $file_name) {
				1156	$action = git_get_type("$hash_base:$file_name");
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1157	$action or die_error(404, "File or directory does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1158	} elsif (defined $project) {
				1159	$action = 'summary';
				1160	} else {
				1161	$action = 'project_list';
				1162	}
Gerrit Pape	7f9778b	2007-05-10 07:32:07 +0000	[diff] [blame]	1163	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1164	if (!defined($actions{$action})) {
				1165	die_error(400, "Unknown action");
				1166	}
				1167	if ($action !~ m/^(?:opml\|project_list\|project_index)$/ &&
				1168	!$project) {
				1169	die_error(400, "Project needed");
				1170	}
				1171	$actions{$action}->();
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	1172	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1173
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1174	sub reset_timer {
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	1175	our $t0 = [ gettimeofday() ]
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1176	if defined $t0;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1177	our $number_of_git_cmds = 0;
				1178	}
				1179
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1180	our $first_request = 1;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1181	sub run_request {
				1182	reset_timer();
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1183
				1184	evaluate_uri();
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1185	if ($first_request) {
				1186	evaluate_gitweb_config();
				1187	evaluate_git_version();
				1188	}
				1189	if ($per_request_config) {
				1190	if (ref($per_request_config) eq 'CODE') {
				1191	$per_request_config->();
				1192	} elsif (!$first_request) {
				1193	evaluate_gitweb_config();
				1194	}
				1195	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1196	check_loadavg();
				1197
Jonathan Nieder	7f425db	2010-07-30 22:01:59 -0500	[diff] [blame]	1198	# $projectroot and $projects_list might be set in gitweb config file
				1199	$projects_list \|\|= $projectroot;
				1200
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1201	evaluate_query_params();
				1202	evaluate_path_info();
				1203	evaluate_and_validate_params();
				1204	evaluate_git_dir();
				1205
				1206	configure_gitweb_features();
				1207
				1208	dispatch();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1209	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1210
				1211	our $is_last_request = sub { 1 };
				1212	our ($pre_dispatch_hook, $post_dispatch_hook, $pre_listen_hook);
				1213	our $CGI = 'CGI';
				1214	our $cgi;
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1215	sub configure_as_fcgi {
				1216	require CGI::Fast;
				1217	our $CGI = 'CGI::Fast';
				1218
				1219	my $request_number = 0;
				1220	# let each child service 100 requests
				1221	our $is_last_request = sub { ++$request_number > 100 };
Jakub Narebski	d04d3d4	2006-09-19 21:53:22 +0200	[diff] [blame]	1222	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1223	sub evaluate_argv {
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1224	my $script_name = $ENV{'SCRIPT_NAME'} \|\| $ENV{'SCRIPT_FILENAME'} \|\| __FILE__;
				1225	configure_as_fcgi()
				1226	if $script_name =~ /\.fcgi$/;
				1227
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1228	return unless (@ARGV);
				1229
				1230	require Getopt::Long;
				1231	Getopt::Long::GetOptions(
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1232	'fastcgi\|fcgi\|f' => \&configure_as_fcgi,
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1233	'nproc\|n=i' => sub {
				1234	my ($arg, $val) = @_;
				1235	return unless eval { require FCGI::ProcManager; 1; };
				1236	my $proc_manager = FCGI::ProcManager->new({
				1237	n_processes => $val,
				1238	});
				1239	our $pre_listen_hook = sub { $proc_manager->pm_manage() };
				1240	our $pre_dispatch_hook = sub { $proc_manager->pm_pre_dispatch() };
				1241	our $post_dispatch_hook = sub { $proc_manager->pm_post_dispatch() };
				1242	},
				1243	);
				1244	}
				1245
				1246	sub run {
				1247	evaluate_argv();
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1248
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1249	$first_request = 1;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1250	$pre_listen_hook->()
				1251	if $pre_listen_hook;
				1252
				1253	REQUEST:
				1254	while ($cgi = $CGI->new()) {
				1255	$pre_dispatch_hook->()
				1256	if $pre_dispatch_hook;
				1257
				1258	run_request();
				1259
Jakub Narebski	0b45010	2010-08-02 22:21:47 +0200	[diff] [blame]	1260	$post_dispatch_hook->()
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1261	if $post_dispatch_hook;
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1262	$first_request = 0;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1263
				1264	last REQUEST if ($is_last_request->());
				1265	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1266
				1267	DONE_GITWEB:
				1268	1;
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1269	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1270
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1271	run();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1272
Jakub Narebski	5ed2ec1	2010-06-13 12:09:32 +0200	[diff] [blame]	1273	if (defined caller) {
				1274	# wrapped in a subroutine processing requests,
				1275	# e.g. mod_perl with ModPerl::Registry, or PSGI with Plack::App::WrapCGI
				1276	return;
				1277	} else {
				1278	# pure CGI script, serving single request
				1279	exit;
				1280	}
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	1281
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1282	## ======================================================================
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1283	## action links
				1284
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1285	# possible values of extra options
				1286	# -full => 0\|1 - use absolute/full URL ($my_uri/$my_url as base)
				1287	# -replay => 1 - start from a current view (replay with modifications)
				1288	# -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]	1289	# -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]	1290	sub href {
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1291	my %params = @_;
Jakub Narebski	bd5d1e4	2006-11-19 15:05:21 +0100	[diff] [blame]	1292	# default is to use -absolute url() i.e. $my_uri
				1293	my $href = $params{-full} ? $my_url : $my_uri;
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1294
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1295	# implicit -replay, must be first of implicit params
				1296	$params{-replay} = 1 if (keys %params == 1 && $params{-anchor});
				1297
Jakub Narebski	afa9b62	2008-02-14 09:22:30 +0100	[diff] [blame]	1298	$params{'project'} = $project unless exists $params{'project'};
				1299
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1300	if ($params{-replay}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1301	while (my ($name, $symbol) = each %cgi_param_mapping) {
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1302	if (!exists $params{$name}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1303	$params{$name} = $input_params{$name};
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1304	}
				1305	}
				1306	}
				1307
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	1308	my $use_pathinfo = gitweb_check_feature('pathinfo');
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1309	if (defined $params{'project'} &&
				1310	(exists $params{-path_info} ? $params{-path_info} : $use_pathinfo)) {
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1311	# try to put as many parameters as possible in PATH_INFO:
				1312	# - project name
				1313	# - action
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1314	# - hash_parent or hash_parent_base:/file_parent
Giuseppe Bilotta	3550ea7	2008-10-21 21:34:52 +0200	[diff] [blame]	1315	# - hash or hash_base:/filename
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1316	# - the snapshot_format as an appropriate suffix
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1317
				1318	# When the script is the root DirectoryIndex for the domain,
				1319	# $href here would be something like http://gitweb.example.com/
				1320	# Thus, we strip any trailing / from $href, to spare us double
				1321	# slashes in the final URL
				1322	$href =~ s,/$,,;
				1323
				1324	# Then add the project name, if present
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1325	$href .= "/".esc_path_info($params{'project'});
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1326	delete $params{'project'};
				1327
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1328	# since we destructively absorb parameters, we keep this
				1329	# boolean that remembers if we're handling a snapshot
				1330	my $is_snapshot = $params{'action'} eq 'snapshot';
				1331
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1332	# Summary just uses the project path URL, any other action is
				1333	# added to the URL
				1334	if (defined $params{'action'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1335	$href .= "/".esc_path_info($params{'action'})
				1336	unless $params{'action'} eq 'summary';
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1337	delete $params{'action'};
				1338	}
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1339
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1340	# Next, we put hash_parent_base:/file_parent..hash_base:/file_name,
				1341	# stripping nonexistent or useless pieces
				1342	$href .= "/" if ($params{'hash_base'} \|\| $params{'hash_parent_base'}
				1343	\|\| $params{'hash_parent'} \|\| $params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1344	if (defined $params{'hash_base'}) {
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1345	if (defined $params{'hash_parent_base'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1346	$href .= esc_path_info($params{'hash_parent_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1347	# 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]	1348	if (defined $params{'file_parent'}) {
				1349	if (defined $params{'file_name'} && $params{'file_parent'} eq $params{'file_name'}) {
				1350	delete $params{'file_parent'};
				1351	} elsif ($params{'file_parent'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1352	$href .= ":/".esc_path_info($params{'file_parent'});
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1353	delete $params{'file_parent'};
				1354	}
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1355	}
				1356	$href .= "..";
				1357	delete $params{'hash_parent'};
				1358	delete $params{'hash_parent_base'};
				1359	} elsif (defined $params{'hash_parent'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1360	$href .= esc_path_info($params{'hash_parent'}). "..";
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1361	delete $params{'hash_parent'};
				1362	}
				1363
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1364	$href .= esc_path_info($params{'hash_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1365	if (defined $params{'file_name'} && $params{'file_name'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1366	$href .= ":/".esc_path_info($params{'file_name'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1367	delete $params{'file_name'};
				1368	}
				1369	delete $params{'hash'};
				1370	delete $params{'hash_base'};
				1371	} elsif (defined $params{'hash'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1372	$href .= esc_path_info($params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1373	delete $params{'hash'};
				1374	}
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1375
				1376	# If the action was a snapshot, we can absorb the
				1377	# snapshot_format parameter too
				1378	if ($is_snapshot) {
				1379	my $fmt = $params{'snapshot_format'};
				1380	# snapshot_format should always be defined when href()
				1381	# is called, but just in case some code forgets, we
				1382	# fall back to the default
				1383	$fmt \|\|= $snapshot_fmts[0];
				1384	$href .= $known_snapshot_formats{$fmt}{'suffix'};
				1385	delete $params{'snapshot_format'};
				1386	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1387	}
				1388
				1389	# now encode the parameters explicitly
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1390	my @result = ();
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1391	for (my $i = 0; $i < @cgi_param_mapping; $i += 2) {
				1392	my ($name, $symbol) = ($cgi_param_mapping[$i], $cgi_param_mapping[$i+1]);
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1393	if (defined $params{$name}) {
Jakub Narebski	f22cca4	2007-07-29 01:04:09 +0200	[diff] [blame]	1394	if (ref($params{$name}) eq "ARRAY") {
				1395	foreach my $par (@{$params{$name}}) {
				1396	push @result, $symbol . "=" . esc_param($par);
				1397	}
				1398	} else {
				1399	push @result, $symbol . "=" . esc_param($params{$name});
				1400	}
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1401	}
				1402	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1403	$href .= "?" . join(';', @result) if scalar @result;
				1404
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1405	# final transformation: trailing spaces must be escaped (URI-encoded)
				1406	$href =~ s/(\s+)$/CGI::escape($1)/e;
				1407
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1408	if ($params{-anchor}) {
				1409	$href .= "#".esc_param($params{-anchor});
				1410	}
				1411
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1412	return $href;
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1413	}
				1414
				1415
				1416	## ======================================================================
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1417	## validation, quoting/unquoting and escaping
				1418
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1419	sub validate_action {
				1420	my $input = shift \|\| return undef;
				1421	return undef unless exists $actions{$input};
				1422	return $input;
				1423	}
				1424
				1425	sub validate_project {
				1426	my $input = shift \|\| return undef;
				1427	if (!validate_pathname($input) \|\|
				1428	!(-d "$projectroot/$input") \|\|
Alexander Gavrilov	ec26f09	2008-11-06 01:15:56 +0300	[diff] [blame]	1429	!check_export_ok("$projectroot/$input") \|\|
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1430	($strict_export && !project_in_list($input))) {
				1431	return undef;
				1432	} else {
				1433	return $input;
				1434	}
				1435	}
				1436
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1437	sub validate_pathname {
				1438	my $input = shift \|\| return undef;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1439
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1440	# no '.' or '..' as elements of path, i.e. no '.' nor '..'
				1441	# at the beginning, at the end, and between slashes.
				1442	# also this catches doubled slashes
				1443	if ($input =~ m!(^\|/)(\|\.\|\.\.)(/\|$)!) {
				1444	return undef;
				1445	}
				1446	# no null characters
				1447	if ($input =~ m!\0!) {
				1448	return undef;
				1449	}
				1450	return $input;
				1451	}
				1452
				1453	sub validate_refname {
				1454	my $input = shift \|\| return undef;
				1455
				1456	# textual hashes are O.K.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1457	if ($input =~ m/^[0-9a-fA-F]{40}$/) {
				1458	return $input;
				1459	}
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1460	# it must be correct pathname
				1461	$input = validate_pathname($input)
				1462	or return undef;
				1463	# restrictions on ref name according to git-check-ref-format
				1464	if ($input =~ m!(/\.\|\.\.\|[\000-\040\177 ~^:?*\[]\|/$)!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1465	return undef;
				1466	}
				1467	return $input;
				1468	}
				1469
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1470	# decode sequences of octets in utf8 into Perl's internal form,
				1471	# which is utf-8 with utf8 flag set if needed. gitweb writes out
				1472	# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
				1473	sub to_utf8 {
				1474	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1475	return undef unless defined $str;
Jakub Narebski	b13e3ea	2011-12-18 23:00:58 +0100	[diff] [blame]	1476
				1477	if (utf8::is_utf8($str) \|\| utf8::decode($str)) {
İsmail Dönmez	e5d3de5	2007-12-04 10:55:41 +0200	[diff] [blame]	1478	return $str;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1479	} else {
				1480	return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
				1481	}
				1482	}
				1483
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1484	# quote unsafe chars, but keep the slash, even when it's not
				1485	# correct, but quoted slashes look too horrible in bookmarks
				1486	sub esc_param {
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1487	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1488	return undef unless defined $str;
Giuseppe Bilotta	452e225	2009-10-13 21:51:36 +0200	[diff] [blame]	1489	$str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
Kay Sievers	a9e60b7	2005-11-14 15:15:12 +0100	[diff] [blame]	1490	$str =~ s/ /\+/g;
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1491	return $str;
				1492	}
				1493
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1494	# the quoting rules for path_info fragment are slightly different
				1495	sub esc_path_info {
				1496	my $str = shift;
				1497	return undef unless defined $str;
				1498
				1499	# path_info doesn't treat '+' as space (specially), but '?' must be escaped
				1500	$str =~ s/([^A-Za-z0-9\-_.~();\/;:@&= +]+)/CGI::escape($1)/eg;
				1501
				1502	return $str;
				1503	}
				1504
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	1505	# quote unsafe chars in whole URL, so some characters cannot be quoted
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1506	sub esc_url {
				1507	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1508	return undef unless defined $str;
Pavan Kumar Sunkara	109988f	2010-07-15 12:59:01 +0530	[diff] [blame]	1509	$str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&= ]+)/CGI::escape($1)/eg;
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1510	$str =~ s/ /\+/g;
				1511	return $str;
				1512	}
				1513
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1514	# quote unsafe characters in HTML attributes
				1515	sub esc_attr {
				1516
				1517	# for XHTML conformance escaping '"' to '"' is not enough
				1518	return esc_html(@_);
				1519	}
				1520
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1521	# replace invalid utf8 character with SUBSTITUTION sequence
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1522	sub esc_html {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1523	my $str = shift;
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1524	my %opts = @_;
				1525
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1526	return undef unless defined $str;
				1527
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1528	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1529	$str = $cgi->escapeHTML($str);
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1530	if ($opts{'-nbsp'}) {
				1531	$str =~ s/ / /g;
				1532	}
Junio C Hamano	25ffbb2	2006-11-08 15:11:10 -0800	[diff] [blame]	1533	$str =~ s\|([[:cntrl:]])\|(($1 ne "\t") ? quot_cec($1) : $1)\|eg;
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1534	return $str;
				1535	}
				1536
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1537	# quote control characters and escape filename to HTML
				1538	sub esc_path {
				1539	my $str = shift;
				1540	my %opts = @_;
				1541
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1542	return undef unless defined $str;
				1543
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1544	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1545	$str = $cgi->escapeHTML($str);
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1546	if ($opts{'-nbsp'}) {
				1547	$str =~ s/ / /g;
				1548	}
				1549	$str =~ s\|([[:cntrl:]])\|quot_cec($1)\|eg;
				1550	return $str;
				1551	}
				1552
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	1553	# Sanitize for use in XHTML + application/xml+xhtm (valid XML 1.0)
				1554	sub sanitize {
				1555	my $str = shift;
				1556
				1557	return undef unless defined $str;
				1558
				1559	$str = to_utf8($str);
				1560	$str =~ s\|([[:cntrl:]])\|($1 =~ /[\t\n\r]/ ? $1 : quot_cec($1))\|eg;
				1561	return $str;
				1562	}
				1563
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1564	# Make control characters "printable", using character escape codes (CEC)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1565	sub quot_cec {
				1566	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1567	my %opts = @_;
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1568	my %es = ( # character escape codes, aka escape sequences
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1569	"\t" => '\t', # tab (HT)
				1570	"\n" => '\n', # line feed (LF)
				1571	"\r" => '\r', # carrige return (CR)
				1572	"\f" => '\f', # form feed (FF)
				1573	"\b" => '\b', # backspace (BS)
				1574	"\a" => '\a', # alarm (bell) (BEL)
				1575	"\e" => '\e', # escape (ESC)
				1576	"\013" => '\v', # vertical tab (VT)
				1577	"\000" => '\0', # nul character (NUL)
				1578	);
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1579	my $chr = ( (exists $es{$cntrl})
				1580	? $es{$cntrl}
Petr Baudis	25dfd17	2008-10-01 22:11:54 +0200	[diff] [blame]	1581	: sprintf('\%2x', ord($cntrl)) );
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1582	if ($opts{-nohtml}) {
				1583	return $chr;
				1584	} else {
				1585	return "<span class=\"cntrl\">$chr</span>";
				1586	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1587	}
				1588
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1589	# Alternatively use unicode control pictures codepoints,
				1590	# Unicode "printable representation" (PR)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1591	sub quot_upr {
				1592	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1593	my %opts = @_;
				1594
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1595	my $chr = sprintf('&#%04d;', 0x2400+ord($cntrl));
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1596	if ($opts{-nohtml}) {
				1597	return $chr;
				1598	} else {
				1599	return "<span class=\"cntrl\">$chr</span>";
				1600	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1601	}
				1602
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1603	# git may return quoted and escaped filenames
				1604	sub unquote {
				1605	my $str = shift;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1606
				1607	sub unq {
				1608	my $seq = shift;
				1609	my %es = ( # character escape codes, aka escape sequences
				1610	't' => "\t", # tab (HT, TAB)
				1611	'n' => "\n", # newline (NL)
				1612	'r' => "\r", # return (CR)
				1613	'f' => "\f", # form feed (FF)
				1614	'b' => "\b", # backspace (BS)
				1615	'a' => "\a", # alarm (bell) (BEL)
				1616	'e' => "\e", # escape (ESC)
				1617	'v' => "\013", # vertical tab (VT)
				1618	);
				1619
				1620	if ($seq =~ m/^[0-7]{1,3}$/) {
				1621	# octal char sequence
				1622	return chr(oct($seq));
				1623	} elsif (exists $es{$seq}) {
				1624	# C escape sequence, aka character escape code
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1625	return $es{$seq};
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1626	}
				1627	# quoted ordinary character
				1628	return $seq;
				1629	}
				1630
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1631	if ($str =~ m/^"(.*)"$/) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1632	# needs unquoting
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1633	$str = $1;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1634	$str =~ s/\\([^0-7]\|[0-7]{1,3})/unq($1)/eg;
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1635	}
				1636	return $str;
				1637	}
				1638
Jakub Narebski	f16db17	2006-08-06 02:08:31 +0200	[diff] [blame]	1639	# escape tabs (convert tabs to spaces)
				1640	sub untabify {
				1641	my $line = shift;
				1642
				1643	while ((my $pos = index($line, "\t")) != -1) {
				1644	if (my $count = (8 - ($pos % 8))) {
				1645	my $spaces = ' ' x $count;
				1646	$line =~ s/\t/$spaces/;
				1647	}
				1648	}
				1649
				1650	return $line;
				1651	}
				1652
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	1653	sub project_in_list {
				1654	my $project = shift;
				1655	my @list = git_get_projects_list();
				1656	return @list && scalar(grep { $_->{'path'} eq $project } @list);
				1657	}
				1658
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1659	## ----------------------------------------------------------------------
				1660	## HTML aware string manipulation
				1661
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1662	# Try to chop given string on a word boundary between position
				1663	# $len and $len+$add_len. If there is no word boundary there,
				1664	# chop at $len+$add_len. Do not chop if chopped part plus ellipsis
				1665	# (marking chopped part) would be longer than given string.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1666	sub chop_str {
				1667	my $str = shift;
				1668	my $len = shift;
				1669	my $add_len = shift \|\| 10;
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1670	my $where = shift \|\| 'right'; # 'left' \| 'center' \| 'right'
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1671
Anders Waldenborg	dee2775	2008-05-21 13:44:43 +0200	[diff] [blame]	1672	# Make sure perl knows it is utf8 encoded so we don't
				1673	# cut in the middle of a utf8 multibyte char.
				1674	$str = to_utf8($str);
				1675
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1676	# allow only $len chars, but don't cut a word if it would fit in $add_len
				1677	# 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]	1678	# remove chopped character entities entirely
				1679
				1680	# when chopping in the middle, distribute $len into left and right part
				1681	# return early if chopping wouldn't make string shorter
				1682	if ($where eq 'center') {
				1683	return $str if ($len + 5 >= length($str)); # filler is length 5
				1684	$len = int($len/2);
				1685	} else {
				1686	return $str if ($len + 4 >= length($str)); # filler is length 4
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1687	}
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1688
				1689	# regexps: ending and beginning with word part up to $add_len
				1690	my $endre = qr/.{$len}\w{0,$add_len}/;
				1691	my $begre = qr/\w{0,$add_len}.{$len}/;
				1692
				1693	if ($where eq 'left') {
				1694	$str =~ m/^(.*?)($begre)$/;
				1695	my ($lead, $body) = ($1, $2);
				1696	if (length($lead) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1697	$lead = " ...";
				1698	}
				1699	return "$lead$body";
				1700
				1701	} elsif ($where eq 'center') {
				1702	$str =~ m/^($endre)(.*)$/;
				1703	my ($left, $str) = ($1, $2);
				1704	$str =~ m/^(.*?)($begre)$/;
				1705	my ($mid, $right) = ($1, $2);
				1706	if (length($mid) > 5) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1707	$mid = " ... ";
				1708	}
				1709	return "$left$mid$right";
				1710
				1711	} else {
				1712	$str =~ m/^($endre)(.*)$/;
				1713	my $body = $1;
				1714	my $tail = $2;
				1715	if (length($tail) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1716	$tail = "... ";
				1717	}
				1718	return "$body$tail";
				1719	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1720	}
				1721
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1722	# takes the same arguments as chop_str, but also wraps a <span> around the
				1723	# result with a title attribute if it does get chopped. Additionally, the
				1724	# string is HTML-escaped.
				1725	sub chop_and_escape_str {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1726	my ($str) = @_;
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1727
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1728	my $chopped = chop_str(@_);
Jürgen Kreileder	168c1e0	2011-12-17 10:22:21 +0100	[diff] [blame]	1729	$str = to_utf8($str);
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1730	if ($chopped eq $str) {
				1731	return esc_html($chopped);
				1732	} else {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1733	$str =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	850b90a	2008-02-16 23:07:46 +0100	[diff] [blame]	1734	return $cgi->span({-title=>$str}, esc_html($chopped));
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1735	}
				1736	}
				1737
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1738	# Highlight selected fragments of string, using given CSS class,
				1739	# and escape HTML. It is assumed that fragments do not overlap.
				1740	# Regions are passed as list of pairs (array references).
				1741	#
				1742	# Example: esc_html_hl_regions("foobar", "mark", [ 0, 3 ]) returns
				1743	# '<span class="mark">foo</span>bar'
				1744	sub esc_html_hl_regions {
				1745	my ($str, $css_class, @sel) = @_;
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1746	my %opts = grep { ref($_) ne 'ARRAY' } @sel;
				1747	@sel = grep { ref($_) eq 'ARRAY' } @sel;
				1748	return esc_html($str, %opts) unless @sel;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1749
				1750	my $out = '';
				1751	my $pos = 0;
				1752
				1753	for my $s (@sel) {
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1754	my ($begin, $end) = @$s;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1755
Michał Kiedrowicz	cbbea3d	2012-04-11 23:18:38 +0200	[diff] [blame]	1756	# Don't create empty <span> elements.
				1757	next if $end <= $begin;
				1758
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1759	my $escaped = esc_html(substr($str, $begin, $end - $begin),
				1760	%opts);
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1761
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1762	$out .= esc_html(substr($str, $pos, $begin - $pos), %opts)
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1763	if ($begin - $pos > 0);
				1764	$out .= $cgi->span({-class => $css_class}, $escaped);
				1765
				1766	$pos = $end;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1767	}
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1768	$out .= esc_html(substr($str, $pos), %opts)
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1769	if ($pos < length($str));
				1770
				1771	return $out;
				1772	}
				1773
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1774	# return positions of beginning and end of each match
				1775	sub matchpos_list {
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1776	my ($str, $regexp) = @_;
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1777	return unless (defined $str && defined $regexp);
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1778
				1779	my @matches;
				1780	while ($str =~ /$regexp/g) {
				1781	push @matches, [$-[0], $+[0]];
				1782	}
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1783	return @matches;
				1784	}
				1785
				1786	# highlight match (if any), and escape HTML
				1787	sub esc_html_match_hl {
				1788	my ($str, $regexp) = @_;
				1789	return esc_html($str) unless defined $regexp;
				1790
				1791	my @matches = matchpos_list($str, $regexp);
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1792	return esc_html($str) unless @matches;
				1793
				1794	return esc_html_hl_regions($str, 'match', @matches);
				1795	}
				1796
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1797
				1798	# highlight match (if any) of shortened string, and escape HTML
				1799	sub esc_html_match_hl_chopped {
				1800	my ($str, $chopped, $regexp) = @_;
				1801	return esc_html_match_hl($str, $regexp) unless defined $chopped;
				1802
				1803	my @matches = matchpos_list($str, $regexp);
				1804	return esc_html($chopped) unless @matches;
				1805
				1806	# filter matches so that we mark chopped string
				1807	my $tail = "... "; # see chop_str
				1808	unless ($chopped =~ s/\Q$tail\E$//) {
				1809	$tail = '';
				1810	}
				1811	my $chop_len = length($chopped);
				1812	my $tail_len = length($tail);
				1813	my @filtered;
				1814
				1815	for my $m (@matches) {
				1816	if ($m->[0] > $chop_len) {
				1817	push @filtered, [ $chop_len, $chop_len + $tail_len ] if ($tail_len > 0);
				1818	last;
				1819	} elsif ($m->[1] > $chop_len) {
				1820	push @filtered, [ $m->[0], $chop_len + $tail_len ];
				1821	last;
				1822	}
				1823	push @filtered, $m;
				1824	}
				1825
				1826	return esc_html_hl_regions($chopped . $tail, 'match', @filtered);
				1827	}
				1828
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1829	## ----------------------------------------------------------------------
				1830	## functions returning short strings
				1831
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1832	# CSS class for given age value (in seconds)
				1833	sub age_class {
				1834	my $age = shift;
				1835
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	1836	if (!defined $age) {
				1837	return "noage";
				1838	} elsif ($age < 60602) {
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1839	return "age0";
				1840	} elsif ($age < 606024*2) {
				1841	return "age1";
				1842	} else {
				1843	return "age2";
				1844	}
				1845	}
				1846
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1847	# convert age in seconds to "nn units ago" string
				1848	sub age_string {
				1849	my $age = shift;
				1850	my $age_str;
				1851
				1852	if ($age > 6060243652) {
				1853	$age_str = (int $age/60/60/24/365);
				1854	$age_str .= " years ago";
				1855	} elsif ($age > 606024(365/12)2) {
				1856	$age_str = int $age/60/60/24/(365/12);
				1857	$age_str .= " months ago";
				1858	} elsif ($age > 60602472) {
				1859	$age_str = int $age/60/60/24/7;
				1860	$age_str .= " weeks ago";
				1861	} elsif ($age > 606024*2) {
				1862	$age_str = int $age/60/60/24;
				1863	$age_str .= " days ago";
				1864	} elsif ($age > 60602) {
				1865	$age_str = int $age/60/60;
				1866	$age_str .= " hours ago";
				1867	} elsif ($age > 60*2) {
				1868	$age_str = int $age/60;
				1869	$age_str .= " min ago";
				1870	} elsif ($age > 2) {
				1871	$age_str = int $age;
				1872	$age_str .= " sec ago";
				1873	} else {
				1874	$age_str .= " right now";
				1875	}
				1876	return $age_str;
				1877	}
				1878
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1879	use constant {
				1880	S_IFINVALID => 0030000,
				1881	S_IFGITLINK => 0160000,
				1882	};
				1883
				1884	# submodule/subproject, a commit object reference
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1885	sub S_ISGITLINK {
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1886	my $mode = shift;
				1887
				1888	return (($mode & S_IFMT) == S_IFGITLINK)
				1889	}
				1890
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1891	# convert file mode in octal to symbolic file mode string
				1892	sub mode_str {
				1893	my $mode = oct shift;
				1894
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1895	if (S_ISGITLINK($mode)) {
				1896	return 'm---------';
				1897	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1898	return 'drwxr-xr-x';
				1899	} elsif (S_ISLNK($mode)) {
				1900	return 'lrwxrwxrwx';
				1901	} elsif (S_ISREG($mode)) {
				1902	# git cares only about the executable bit
				1903	if ($mode & S_IXUSR) {
				1904	return '-rwxr-xr-x';
				1905	} else {
				1906	return '-rw-r--r--';
				1907	};
				1908	} else {
				1909	return '----------';
				1910	}
				1911	}
				1912
				1913	# convert file mode in octal to file type string
				1914	sub file_type {
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	1915	my $mode = shift;
				1916
				1917	if ($mode !~ m/^[0-7]+$/) {
				1918	return $mode;
				1919	} else {
				1920	$mode = oct $mode;
				1921	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1922
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1923	if (S_ISGITLINK($mode)) {
				1924	return "submodule";
				1925	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1926	return "directory";
				1927	} elsif (S_ISLNK($mode)) {
				1928	return "symlink";
				1929	} elsif (S_ISREG($mode)) {
				1930	return "file";
				1931	} else {
				1932	return "unknown";
				1933	}
				1934	}
				1935
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1936	# convert file mode in octal to file type description string
				1937	sub file_type_long {
				1938	my $mode = shift;
				1939
				1940	if ($mode !~ m/^[0-7]+$/) {
				1941	return $mode;
				1942	} else {
				1943	$mode = oct $mode;
				1944	}
				1945
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1946	if (S_ISGITLINK($mode)) {
				1947	return "submodule";
				1948	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1949	return "directory";
				1950	} elsif (S_ISLNK($mode)) {
				1951	return "symlink";
				1952	} elsif (S_ISREG($mode)) {
				1953	if ($mode & S_IXUSR) {
				1954	return "executable";
				1955	} else {
				1956	return "file";
				1957	};
				1958	} else {
				1959	return "unknown";
				1960	}
				1961	}
				1962
				1963
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1964	## ----------------------------------------------------------------------
				1965	## functions returning short HTML fragments, or transforming HTML fragments
Pavel Roskin	3dff537	2007-02-03 23:49:16 -0500	[diff] [blame]	1966	## which don't belong to other sections
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1967
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1968	# format line of commit message.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1969	sub format_log_line_html {
				1970	my $line = shift;
				1971
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1972	$line = esc_html($line, -nbsp=>1);
Marcel M. Cary	7d233de	2009-02-17 19:00:43 -0800	[diff] [blame]	1973	$line =~ s{\b([0-9a-fA-F]{8,40})\b}{
				1974	$cgi->a({-href => href(action=>"object", hash=>$1),
				1975	-class => "text"}, $1);
				1976	}eg;
				1977
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1978	return $line;
				1979	}
				1980
				1981	# format marker of refs pointing to given object
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1982
				1983	# the destination action is chosen based on object type and current context:
				1984	# - for annotated tags, we choose the tag view unless it's the current view
				1985	# already, in which case we go to shortlog view
				1986	# - for other refs, we keep the current view if we're in history, shortlog or
				1987	# log view, and select shortlog otherwise
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	1988	sub format_ref_marker {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1989	my ($refs, $id) = @_;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1990	my $markers = '';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1991
				1992	if (defined $refs->{$id}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1993	foreach my $ref (@{$refs->{$id}}) {
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1994	# this code exploits the fact that non-lightweight tags are the
				1995	# only indirect objects, and that they are the only objects for which
				1996	# we want to use tag instead of shortlog as action
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1997	my ($type, $name) = qw();
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1998	my $indirect = ($ref =~ s/\^\{\}$//);
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1999	# e.g. tags/v2.6.11 or heads/next
				2000	if ($ref =~ m!^(.?)s?/(.)$!) {
				2001	$type = $1;
				2002	$name = $2;
				2003	} else {
				2004	$type = "ref";
				2005	$name = $ref;
				2006	}
				2007
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2008	my $class = $type;
				2009	$class .= " indirect" if $indirect;
				2010
				2011	my $dest_action = "shortlog";
				2012
				2013	if ($indirect) {
				2014	$dest_action = "tag" unless $action eq "tag";
				2015	} elsif ($action =~ /^(history\|(short)?log)$/) {
				2016	$dest_action = $action;
				2017	}
				2018
				2019	my $dest = "";
				2020	$dest .= "refs/" unless $ref =~ m!^refs/!;
				2021	$dest .= $ref;
				2022
				2023	my $link = $cgi->a({
				2024	-href => href(
				2025	action=>$dest_action,
				2026	hash=>$dest
				2027	)}, $name);
				2028
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2029	$markers .= " <span class=\"".esc_attr($class)."\" title=\"".esc_attr($ref)."\">" .
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2030	$link . "</span>";
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2031	}
				2032	}
				2033
				2034	if ($markers) {
				2035	return ' <span class="refs">'. $markers . '</span>';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2036	} else {
				2037	return "";
				2038	}
				2039	}
				2040
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2041	# format, perhaps shortened and with markers, title line
				2042	sub format_subject_html {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	2043	my ($long, $short, $href, $extra) = @_;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2044	$extra = '' unless defined($extra);
				2045
				2046	if (length($short) < length($long)) {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	2047	$long =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	2048	return $cgi->a({-href => $href, -class => "list subject",
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	2049	-title => to_utf8($long)},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	2050	esc_html($short)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2051	} else {
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	2052	return $cgi->a({-href => $href, -class => "list subject"},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	2053	esc_html($long)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2054	}
				2055	}
				2056
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2057	# Rather than recomputing the url for an email multiple times, we cache it
				2058	# after the first hit. This gives a visible benefit in views where the avatar
				2059	# for the same email is used repeatedly (e.g. shortlog).
				2060	# The cache is shared by all avatar engines (currently gravatar only), which
				2061	# are free to use it as preferred. Since only one avatar engine is used for any
				2062	# given page, there's no risk for cache conflicts.
				2063	our %avatar_cache = ();
				2064
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2065	# Compute the picon url for a given email, by using the picon search service over at
				2066	# http://www.cs.indiana.edu/picons/search.html
				2067	sub picon_url {
				2068	my $email = lc shift;
				2069	if (!$avatar_cache{$email}) {
				2070	my ($user, $domain) = split('@', $email);
				2071	$avatar_cache{$email} =
				2072	"http://www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
				2073	"$domain/$user/" .
				2074	"users+domains+unknown/up/single";
				2075	}
				2076	return $avatar_cache{$email};
				2077	}
				2078
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2079	# Compute the gravatar url for a given email, if it's not in the cache already.
				2080	# Gravatar stores only the part of the URL before the size, since that's the
				2081	# one computationally more expensive. This also allows reuse of the cache for
				2082	# different sizes (for this particular engine).
				2083	sub gravatar_url {
				2084	my $email = lc shift;
				2085	my $size = shift;
				2086	$avatar_cache{$email} \|\|=
				2087	"http://www.gravatar.com/avatar/" .
				2088	Digest::MD5::md5_hex($email) . "?s=";
				2089	return $avatar_cache{$email} . $size;
				2090	}
				2091
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2092	# Insert an avatar for the given $email at the given $size if the feature
				2093	# is enabled.
				2094	sub git_get_avatar {
				2095	my ($email, %opts) = @_;
				2096	my $pre_white = ($opts{-pad_before} ? " " : "");
				2097	my $post_white = ($opts{-pad_after} ? " " : "");
				2098	$opts{-size} \|\|= 'default';
				2099	my $size = $avatar_size{$opts{-size}} \|\| $avatar_size{'default'};
				2100	my $url = "";
				2101	if ($git_avatar eq 'gravatar') {
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2102	$url = gravatar_url($email, $size);
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2103	} elsif ($git_avatar eq 'picon') {
				2104	$url = picon_url($email);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2105	}
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2106	# Other providers can be added by extending the if chain, defining $url
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2107	# as needed. If no variant puts something in $url, we assume avatars
				2108	# are completely disabled/unavailable.
				2109	if ($url) {
				2110	return $pre_white .
				2111	"<img width=\"$size\" " .
				2112	"class=\"avatar\" " .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2113	"src=\"".esc_url($url)."\" " .
Giuseppe Bilotta	7d25ef4	2009-06-30 00:00:54 +0200	[diff] [blame]	2114	"alt=\"\" " .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2115	"/>" . $post_white;
				2116	} else {
				2117	return "";
				2118	}
				2119	}
				2120
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2121	sub format_search_author {
				2122	my ($author, $searchtype, $displaytext) = @_;
				2123	my $have_search = gitweb_check_feature('search');
				2124
				2125	if ($have_search) {
				2126	my $performed = "";
				2127	if ($searchtype eq 'author') {
				2128	$performed = "authored";
				2129	} elsif ($searchtype eq 'committer') {
				2130	$performed = "committed";
				2131	}
				2132
				2133	return $cgi->a({-href => href(action=>"search", hash=>$hash,
				2134	searchtext=>$author,
				2135	searchtype=>$searchtype), class=>"list",
				2136	title=>"Search for commits $performed by $author"},
				2137	$displaytext);
				2138
				2139	} else {
				2140	return $displaytext;
				2141	}
				2142	}
				2143
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2144	# format the author name of the given commit with the given tag
				2145	# the author name is chopped and escaped according to the other
				2146	# optional parameters (see chop_str).
				2147	sub format_author_html {
				2148	my $tag = shift;
				2149	my $co = shift;
				2150	my $author = chop_and_escape_str($co->{'author_name'}, @_);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2151	return "<$tag class=\"author\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2152	format_search_author($co->{'author_name'}, "author",
				2153	git_get_avatar($co->{'author_email'}, -pad_after => 1) .
				2154	$author) .
				2155	"</$tag>";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2156	}
				2157
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2158	# format git diff header line, i.e. "diff --(git\|combined\|cc) ..."
				2159	sub format_git_diff_header_line {
				2160	my $line = shift;
				2161	my $diffinfo = shift;
				2162	my ($from, $to) = @_;
				2163
				2164	if ($diffinfo->{'nparents'}) {
				2165	# combined diff
				2166	$line =~ s!^(diff (.?) )"?.$!$1!;
				2167	if ($to->{'href'}) {
				2168	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2169	esc_path($to->{'file'}));
				2170	} else { # file was deleted (no href)
				2171	$line .= esc_path($to->{'file'});
				2172	}
				2173	} else {
				2174	# "ordinary" diff
				2175	$line =~ s!^(diff (.?) )"?a/.$!$1!;
				2176	if ($from->{'href'}) {
				2177	$line .= $cgi->a({-href => $from->{'href'}, -class => "path"},
				2178	'a/' . esc_path($from->{'file'}));
				2179	} else { # file was added (no href)
				2180	$line .= 'a/' . esc_path($from->{'file'});
				2181	}
				2182	$line .= ' ';
				2183	if ($to->{'href'}) {
				2184	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2185	'b/' . esc_path($to->{'file'}));
				2186	} else { # file was deleted
				2187	$line .= 'b/' . esc_path($to->{'file'});
				2188	}
				2189	}
				2190
				2191	return "<div class=\"diff header\">$line</div>\n";
				2192	}
				2193
				2194	# format extended diff header line, before patch itself
				2195	sub format_extended_diff_header_line {
				2196	my $line = shift;
				2197	my $diffinfo = shift;
				2198	my ($from, $to) = @_;
				2199
				2200	# match <path>
				2201	if ($line =~ s!^((copy\|rename) from ).*$!$1! && $from->{'href'}) {
				2202	$line .= $cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2203	esc_path($from->{'file'}));
				2204	}
				2205	if ($line =~ s!^((copy\|rename) to ).*$!$1! && $to->{'href'}) {
				2206	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2207	esc_path($to->{'file'}));
				2208	}
				2209	# match single <mode>
				2210	if ($line =~ m/\s(\d{6})$/) {
				2211	$line .= '<span class="info"> (' .
				2212	file_type_long($1) .
				2213	')</span>';
				2214	}
				2215	# match <hash>
				2216	if ($line =~ m/^index [0-9a-fA-F]{40},[0-9a-fA-F]{40}/) {
				2217	# can match only for combined diff
				2218	$line = 'index ';
				2219	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2220	if ($from->{'href'}[$i]) {
				2221	$line .= $cgi->a({-href=>$from->{'href'}[$i],
				2222	-class=>"hash"},
				2223	substr($diffinfo->{'from_id'}[$i],0,7));
				2224	} else {
				2225	$line .= '0' x 7;
				2226	}
				2227	# separator
				2228	$line .= ',' if ($i < $diffinfo->{'nparents'} - 1);
				2229	}
				2230	$line .= '..';
				2231	if ($to->{'href'}) {
				2232	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2233	substr($diffinfo->{'to_id'},0,7));
				2234	} else {
				2235	$line .= '0' x 7;
				2236	}
				2237
				2238	} elsif ($line =~ m/^index [0-9a-fA-F]{40}..[0-9a-fA-F]{40}/) {
				2239	# can match only for ordinary diff
				2240	my ($from_link, $to_link);
				2241	if ($from->{'href'}) {
				2242	$from_link = $cgi->a({-href=>$from->{'href'}, -class=>"hash"},
				2243	substr($diffinfo->{'from_id'},0,7));
				2244	} else {
				2245	$from_link = '0' x 7;
				2246	}
				2247	if ($to->{'href'}) {
				2248	$to_link = $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2249	substr($diffinfo->{'to_id'},0,7));
				2250	} else {
				2251	$to_link = '0' x 7;
				2252	}
				2253	my ($from_id, $to_id) = ($diffinfo->{'from_id'}, $diffinfo->{'to_id'});
				2254	$line =~ s!$from_id\.\.$to_id!$from_link..$to_link!;
				2255	}
				2256
				2257	return $line . "<br/>\n";
				2258	}
				2259
				2260	# format from-file/to-file diff header
				2261	sub format_diff_from_to_header {
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2262	my ($from_line, $to_line, $diffinfo, $from, $to, @parents) = @_;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2263	my $line;
				2264	my $result = '';
				2265
				2266	$line = $from_line;
				2267	#assert($line =~ m/^---/) if DEBUG;
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2268	# no extra formatting for "^--- /dev/null"
				2269	if (! $diffinfo->{'nparents'}) {
				2270	# ordinary (single parent) diff
				2271	if ($line =~ m!^--- "?a/!) {
				2272	if ($from->{'href'}) {
				2273	$line = '--- a/' .
				2274	$cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2275	esc_path($from->{'file'}));
				2276	} else {
				2277	$line = '--- a/' .
				2278	esc_path($from->{'file'});
				2279	}
				2280	}
				2281	$result .= qq!<div class="diff from_file">$line</div>\n!;
				2282
				2283	} else {
				2284	# combined diff (merge commit)
				2285	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2286	if ($from->{'href'}[$i]) {
				2287	$line = '--- ' .
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2288	$cgi->a({-href=>href(action=>"blobdiff",
				2289	hash_parent=>$diffinfo->{'from_id'}[$i],
				2290	hash_parent_base=>$parents[$i],
				2291	file_parent=>$from->{'file'}[$i],
				2292	hash=>$diffinfo->{'to_id'},
				2293	hash_base=>$hash,
				2294	file_name=>$to->{'file'}),
				2295	-class=>"path",
				2296	-title=>"diff" . ($i+1)},
				2297	$i+1) .
				2298	'/' .
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2299	$cgi->a({-href=>$from->{'href'}[$i], -class=>"path"},
				2300	esc_path($from->{'file'}[$i]));
				2301	} else {
				2302	$line = '--- /dev/null';
				2303	}
				2304	$result .= qq!<div class="diff from_file">$line</div>\n!;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2305	}
				2306	}
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2307
				2308	$line = $to_line;
				2309	#assert($line =~ m/^\+\+\+/) if DEBUG;
				2310	# no extra formatting for "^+++ /dev/null"
				2311	if ($line =~ m!^\+\+\+ "?b/!) {
				2312	if ($to->{'href'}) {
				2313	$line = '+++ b/' .
				2314	$cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2315	esc_path($to->{'file'}));
				2316	} else {
				2317	$line = '+++ b/' .
				2318	esc_path($to->{'file'});
				2319	}
				2320	}
				2321	$result .= qq!<div class="diff to_file">$line</div>\n!;
				2322
				2323	return $result;
				2324	}
				2325
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	2326	# create note for patch simplified by combined diff
				2327	sub format_diff_cc_simplified {
				2328	my ($diffinfo, @parents) = @_;
				2329	my $result = '';
				2330
				2331	$result .= "<div class=\"diff header\">" .
				2332	"diff --cc ";
				2333	if (!is_deleted($diffinfo)) {
				2334	$result .= $cgi->a({-href => href(action=>"blob",
				2335	hash_base=>$hash,
				2336	hash=>$diffinfo->{'to_id'},
				2337	file_name=>$diffinfo->{'to_file'}),
				2338	-class => "path"},
				2339	esc_path($diffinfo->{'to_file'}));
				2340	} else {
				2341	$result .= esc_path($diffinfo->{'to_file'});
				2342	}
				2343	$result .= "</div>\n" . # class="diff header"
				2344	"<div class=\"diff nodifferences\">" .
				2345	"Simple merge" .
				2346	"</div>\n"; # class="diff nodifferences"
				2347
				2348	return $result;
				2349	}
				2350
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2351	sub diff_line_class {
				2352	my ($line, $from, $to) = @_;
				2353
				2354	# ordinary diff
				2355	my $num_sign = 1;
				2356	# combined diff
				2357	if ($from && $to && ref($from->{'href'}) eq "ARRAY") {
				2358	$num_sign = scalar @{$from->{'href'}};
				2359	}
				2360
				2361	my @diff_line_classifier = (
				2362	{ regexp => qr/^\@\@{$num_sign} /, class => "chunk_header"},
				2363	{ regexp => qr/^\\/, class => "incomplete" },
				2364	{ regexp => qr/^ {$num_sign}/, class => "ctx" },
				2365	# classifier for context must come before classifier add/rem,
				2366	# or we would have to use more complicated regexp, for example
				2367	# qr/(?= {0,$m}\+)[+ ]{$num_sign}/, where $m = $num_sign - 1;
				2368	{ regexp => qr/^[+ ]{$num_sign}/, class => "add" },
				2369	{ regexp => qr/^[- ]{$num_sign}/, class => "rem" },
				2370	);
				2371	for my $clsfy (@diff_line_classifier) {
				2372	return $clsfy->{'class'}
				2373	if ($line =~ $clsfy->{'regexp'});
				2374	}
				2375
				2376	# fallback
				2377	return "";
				2378	}
				2379
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2380	# assumes that $from and $to are defined and correctly filled,
				2381	# and that $line holds a line of chunk header for unified diff
				2382	sub format_unidiff_chunk_header {
				2383	my ($line, $from, $to) = @_;
				2384
				2385	my ($from_text, $from_start, $from_lines, $to_text, $to_start, $to_lines, $section) =
				2386	$line =~ m/^\@{2} (-(\d+)(?:,(\d+))?) (\+(\d+)(?:,(\d+))?) \@{2}(.*)$/;
				2387
				2388	$from_lines = 0 unless defined $from_lines;
				2389	$to_lines = 0 unless defined $to_lines;
				2390
				2391	if ($from->{'href'}) {
				2392	$from_text = $cgi->a({-href=>"$from->{'href'}#l$from_start",
				2393	-class=>"list"}, $from_text);
				2394	}
				2395	if ($to->{'href'}) {
				2396	$to_text = $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2397	-class=>"list"}, $to_text);
				2398	}
				2399	$line = "<span class=\"chunk_info\">@@ $from_text $to_text @@</span>" .
				2400	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2401	return $line;
				2402	}
				2403
				2404	# assumes that $from and $to are defined and correctly filled,
				2405	# and that $line holds a line of chunk header for combined diff
				2406	sub format_cc_diff_chunk_header {
				2407	my ($line, $from, $to) = @_;
				2408
				2409	my ($prefix, $ranges, $section) = $line =~ m/^(\@+) (.?) \@+(.)$/;
				2410	my (@from_text, @from_start, @from_nlines, $to_text, $to_start, $to_nlines);
				2411
				2412	@from_text = split(' ', $ranges);
				2413	for (my $i = 0; $i < @from_text; ++$i) {
				2414	($from_start[$i], $from_nlines[$i]) =
				2415	(split(',', substr($from_text[$i], 1)), 0);
				2416	}
				2417
				2418	$to_text = pop @from_text;
				2419	$to_start = pop @from_start;
				2420	$to_nlines = pop @from_nlines;
				2421
				2422	$line = "<span class=\"chunk_info\">$prefix ";
				2423	for (my $i = 0; $i < @from_text; ++$i) {
				2424	if ($from->{'href'}[$i]) {
				2425	$line .= $cgi->a({-href=>"$from->{'href'}[$i]#l$from_start[$i]",
				2426	-class=>"list"}, $from_text[$i]);
				2427	} else {
				2428	$line .= $from_text[$i];
				2429	}
				2430	$line .= " ";
				2431	}
				2432	if ($to->{'href'}) {
				2433	$line .= $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2434	-class=>"list"}, $to_text);
				2435	} else {
				2436	$line .= $to_text;
				2437	}
				2438	$line .= " $prefix</span>" .
				2439	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2440	return $line;
				2441	}
				2442
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2443	# process patch (diff) line (not to be used for diff headers),
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2444	# returning HTML-formatted (but not wrapped) line.
				2445	# If the line is passed as a reference, it is treated as HTML and not
				2446	# esc_html()'ed.
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2447	sub format_diff_line {
				2448	my ($line, $diff_class, $from, $to) = @_;
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2449
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2450	if (ref($line)) {
				2451	$line = $$line;
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2452	} else {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2453	chomp $line;
				2454	$line = untabify($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2455
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2456	if ($from && $to && $line =~ m/^\@{2} /) {
				2457	$line = format_unidiff_chunk_header($line, $from, $to);
				2458	} elsif ($from && $to && $line =~ m/^\@{3}/) {
				2459	$line = format_cc_diff_chunk_header($line, $from, $to);
				2460	} else {
				2461	$line = esc_html($line, -nbsp=>1);
				2462	}
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2463	}
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2464
				2465	my $diff_classes = "diff";
				2466	$diff_classes .= " $diff_class" if ($diff_class);
				2467	$line = "<div class=\"$diff_classes\">$line</div>\n";
				2468
				2469	return $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2470	}
				2471
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2472	# Generates undef or something like "_snapshot_" or "snapshot (_tbz2_ _zip_)",
				2473	# linked. Pass the hash of the tree/commit to snapshot.
				2474	sub format_snapshot_links {
				2475	my ($hash) = @_;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2476	my $num_fmts = @snapshot_fmts;
				2477	if ($num_fmts > 1) {
				2478	# A parenthesized list of links bearing format names.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2479	# e.g. "snapshot (_tar.gz_ _zip_)"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2480	return "snapshot (" . join(' ', map
				2481	$cgi->a({
				2482	-href => href(
				2483	action=>"snapshot",
				2484	hash=>$hash,
				2485	snapshot_format=>$_
				2486	)
				2487	}, $known_snapshot_formats{$_}{'display'})
				2488	, @snapshot_fmts) . ")";
				2489	} elsif ($num_fmts == 1) {
				2490	# A single "snapshot" link whose tooltip bears the format name.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2491	# i.e. "_snapshot_"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2492	my ($fmt) = @snapshot_fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2493	return
				2494	$cgi->a({
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2495	-href => href(
				2496	action=>"snapshot",
				2497	hash=>$hash,
				2498	snapshot_format=>$fmt
				2499	),
				2500	-title => "in format: $known_snapshot_formats{$fmt}{'display'}"
				2501	}, "snapshot");
				2502	} else { # $num_fmts == 0
				2503	return undef;
				2504	}
				2505	}
				2506
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2507	## ......................................................................
				2508	## functions returning values to be passed, perhaps after some
				2509	## transformation, to other functions; e.g. returning arguments to href()
				2510
				2511	# returns hash to be passed to href to generate gitweb URL
				2512	# in -title key it returns description of link
				2513	sub get_feed_info {
				2514	my $format = shift \|\| 'Atom';
				2515	my %res = (action => lc($format));
				2516
				2517	# feed links are possible only for project views
				2518	return unless (defined $project);
				2519	# some views should link to OPML, or to generic project feed,
				2520	# or don't have specific feed yet (so they should use generic)
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	2521	return if (!$action \|\| $action =~ /^(?:tags\|heads\|forks\|tag\|search)$/x);
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2522
				2523	my $branch;
				2524	# branches refs uses 'refs/heads/' prefix (fullname) to differentiate
				2525	# from tag links; this also makes possible to detect branch links
				2526	if ((defined $hash_base && $hash_base =~ m!^refs/heads/(.*)$!) \|\|
				2527	(defined $hash && $hash =~ m!^refs/heads/(.*)$!)) {
				2528	$branch = $1;
				2529	}
				2530	# find log type for feed description (title)
				2531	my $type = 'log';
				2532	if (defined $file_name) {
				2533	$type = "history of $file_name";
				2534	$type .= "/" if ($action eq 'tree');
				2535	$type .= " on '$branch'" if (defined $branch);
				2536	} else {
				2537	$type = "log of $branch" if (defined $branch);
				2538	}
				2539
				2540	$res{-title} = $type;
				2541	$res{'hash'} = (defined $branch ? "refs/heads/$branch" : undef);
				2542	$res{'file_name'} = $file_name;
				2543
				2544	return %res;
				2545	}
				2546
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2547	## ----------------------------------------------------------------------
				2548	## git utility subroutines, invoking git commands
				2549
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2550	# returns path to the core git executable and the --git-dir parameter as list
				2551	sub git_cmd {
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	2552	$number_of_git_cmds++;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2553	return $GIT, '--git-dir='.$git_dir;
				2554	}
				2555
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	2556	# quote the given arguments for passing them to the shell
				2557	# quote_command("command", "arg 1", "arg with ' and ! characters")
				2558	# => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"
				2559	# Try to avoid using this function wherever possible.
				2560	sub quote_command {
				2561	return join(' ',
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	2562	map { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ );
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2563	}
				2564
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2565	# get HEAD ref of given project as hash
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2566	sub git_get_head_hash {
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2567	return git_get_full_hash(shift, 'HEAD');
				2568	}
				2569
				2570	sub git_get_full_hash {
				2571	return git_get_hash(@_);
				2572	}
				2573
				2574	sub git_get_short_hash {
				2575	return git_get_hash(@_, '--short=7');
				2576	}
				2577
				2578	sub git_get_hash {
				2579	my ($project, $hash, @options) = @_;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2580	my $o_git_dir = $git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2581	my $retval = undef;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2582	$git_dir = "$projectroot/$project";
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2583	if (open my $fd, '-\|', git_cmd(), 'rev-parse',
				2584	'--verify', '-q', @options, $hash) {
				2585	$retval = <$fd>;
				2586	chomp $retval if defined $retval;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2587	close $fd;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2588	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2589	if (defined $o_git_dir) {
				2590	$git_dir = $o_git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2591	}
				2592	return $retval;
				2593	}
				2594
				2595	# get type of given object
				2596	sub git_get_type {
				2597	my $hash = shift;
				2598
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2599	open my $fd, "-\|", git_cmd(), "cat-file", '-t', $hash or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2600	my $type = <$fd>;
				2601	close $fd or return;
				2602	chomp $type;
				2603	return $type;
				2604	}
				2605
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2606	# repository configuration
				2607	our $config_file = '';
				2608	our %config;
				2609
				2610	# store multiple values for single key as anonymous array reference
				2611	# single values stored directly in the hash, not as [ <value> ]
				2612	sub hash_set_multi {
				2613	my ($hash, $key, $value) = @_;
				2614
				2615	if (!exists $hash->{$key}) {
				2616	$hash->{$key} = $value;
				2617	} elsif (!ref $hash->{$key}) {
				2618	$hash->{$key} = [ $hash->{$key}, $value ];
				2619	} else {
				2620	push @{$hash->{$key}}, $value;
				2621	}
				2622	}
				2623
				2624	# return hash of git project configuration
				2625	# optionally limited to some section, e.g. 'gitweb'
				2626	sub git_parse_project_config {
				2627	my $section_regexp = shift;
				2628	my %config;
				2629
				2630	local $/ = "\0";
				2631
				2632	open my $fh, "-\|", git_cmd(), "config", '-z', '-l',
				2633	or return;
				2634
				2635	while (my $keyval = <$fh>) {
				2636	chomp $keyval;
				2637	my ($key, $value) = split(/\n/, $keyval, 2);
				2638
				2639	hash_set_multi(\%config, $key, $value)
				2640	if (!defined $section_regexp \|\| $key =~ /^(?:$section_regexp)\./o);
				2641	}
				2642	close $fh;
				2643
				2644	return %config;
				2645	}
				2646
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2647	# convert config value to boolean: 'true' or 'false'
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2648	# no value, number > 0, 'true' and 'yes' values are true
				2649	# rest of values are treated as false (never as error)
				2650	sub config_to_bool {
				2651	my $val = shift;
				2652
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2653	return 1 if !defined $val; # section.key
				2654
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2655	# strip leading and trailing whitespace
				2656	$val =~ s/^\s+//;
				2657	$val =~ s/\s+$//;
				2658
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2659	return (($val =~ /^\d+$/ && $val) \|\| # section.key = 1
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2660	($val =~ /^(?:true\|yes)$/i)); # section.key = true
				2661	}
				2662
				2663	# convert config value to simple decimal number
				2664	# an optional value suffix of 'k', 'm', or 'g' will cause the value
				2665	# to be multiplied by 1024, 1048576, or 1073741824
				2666	sub config_to_int {
				2667	my $val = shift;
				2668
				2669	# strip leading and trailing whitespace
				2670	$val =~ s/^\s+//;
				2671	$val =~ s/\s+$//;
				2672
				2673	if (my ($num, $unit) = ($val =~ /^([0-9]*)([kmg])$/i)) {
				2674	$unit = lc($unit);
				2675	# unknown unit is treated as 1
				2676	return $num * ($unit eq 'g' ? 1073741824 :
				2677	$unit eq 'm' ? 1048576 :
				2678	$unit eq 'k' ? 1024 : 1);
				2679	}
				2680	return $val;
				2681	}
				2682
				2683	# convert config value to array reference, if needed
				2684	sub config_to_multi {
				2685	my $val = shift;
				2686
Jakub Narebski	d76a585	2007-12-20 10:48:09 +0100	[diff] [blame]	2687	return ref($val) ? $val : (defined($val) ? [ $val ] : []);
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2688	}
				2689
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2690	sub git_get_project_config {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	2691	my ($key, $type) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2692
Jakub Narebski	7a49c25	2010-03-27 20:26:59 +0100	[diff] [blame]	2693	return unless defined $git_dir;
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	2694
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2695	# key sanity check
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2696	return unless ($key);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2697	# only subsection, if exists, is case sensitive,
				2698	# and not lowercased by 'git config -z -l'
				2699	if (my ($hi, $mi, $lo) = ($key =~ /^([^.])\.(.)\.([^.]*)$/)) {
				2700	$key = join(".", lc($hi), $mi, lc($lo));
				2701	} else {
				2702	$key = lc($key);
				2703	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2704	$key =~ s/^gitweb\.//;
				2705	return if ($key =~ m/\W/);
				2706
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2707	# type sanity check
				2708	if (defined $type) {
				2709	$type =~ s/^--//;
				2710	$type = undef
				2711	unless ($type eq 'bool' \|\| $type eq 'int');
				2712	}
				2713
				2714	# get config
				2715	if (!defined $config_file \|\|
				2716	$config_file ne "$git_dir/config") {
				2717	%config = git_parse_project_config('gitweb');
				2718	$config_file = "$git_dir/config";
				2719	}
				2720
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2721	# check if config variable (key) exists
				2722	return unless exists $config{"gitweb.$key"};
				2723
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2724	# ensure given type
				2725	if (!defined $type) {
				2726	return $config{"gitweb.$key"};
				2727	} elsif ($type eq 'bool') {
				2728	# backward compatibility: 'git config --bool' returns true/false
				2729	return config_to_bool($config{"gitweb.$key"}) ? 'true' : 'false';
				2730	} elsif ($type eq 'int') {
				2731	return config_to_int($config{"gitweb.$key"});
				2732	}
				2733	return $config{"gitweb.$key"};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2734	}
				2735
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2736	# get hash of given path at given ref
				2737	sub git_get_hash_by_path {
				2738	my $base = shift;
				2739	my $path = shift \|\| return undef;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2740	my $type = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2741
Jakub Narebski	4b02f48	2006-09-26 01:54:24 +0200	[diff] [blame]	2742	$path =~ s,/+$,,;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2743
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2744	open my $fd, "-\|", git_cmd(), "ls-tree", $base, "--", $path
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	2745	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2746	my $line = <$fd>;
				2747	close $fd or return undef;
				2748
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	2749	if (!defined $line) {
				2750	# there is no tree or hash given by $path at $base
				2751	return undef;
				2752	}
				2753
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2754	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Jakub Narebski	8b4b94c	2006-10-30 22:25:11 +0100	[diff] [blame]	2755	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2756	if (defined $type && $type ne $2) {
				2757	# type doesn't match
				2758	return undef;
				2759	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2760	return $3;
				2761	}
				2762
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	2763	# get path of entry with given hash at given tree-ish (ref)
				2764	# used to get 'from' filename for combined diff (merge commit) for renames
				2765	sub git_get_path_by_hash {
				2766	my $base = shift \|\| return;
				2767	my $hash = shift \|\| return;
				2768
				2769	local $/ = "\0";
				2770
				2771	open my $fd, "-\|", git_cmd(), "ls-tree", '-r', '-t', '-z', $base
				2772	or return undef;
				2773	while (my $line = <$fd>) {
				2774	chomp $line;
				2775
				2776	#'040000 tree 595596a6a9117ddba9fe379b6b012b558bac8423 gitweb'
				2777	#'100644 blob e02e90f0429be0d2a69b76571101f20b8f75530f gitweb/README'
				2778	if ($line =~ m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {
				2779	close $fd;
				2780	return $1;
				2781	}
				2782	}
				2783	close $fd;
				2784	return undef;
				2785	}
				2786
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2787	## ......................................................................
				2788	## git utility functions, directly accessing git repository
				2789
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2790	# get the value of config variable either from file named as the variable
				2791	# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name
				2792	# configuration variable in the repository config file.
				2793	sub git_get_file_or_project_config {
				2794	my ($path, $name) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2795
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2796	$git_dir = "$projectroot/$path";
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2797	open my $fd, '<', "$git_dir/$name"
				2798	or return git_get_project_config($name);
				2799	my $conf = <$fd>;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2800	close $fd;
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2801	if (defined $conf) {
				2802	chomp $conf;
Junio C Hamano	2eb54ef	2007-05-16 21:04:16 -0700	[diff] [blame]	2803	}
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2804	return $conf;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2805	}
				2806
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2807	sub git_get_project_description {
				2808	my $path = shift;
				2809	return git_get_file_or_project_config($path, 'description');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2810	}
				2811
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	2812	sub git_get_project_category {
				2813	my $path = shift;
				2814	return git_get_file_or_project_config($path, 'category');
				2815	}
				2816
				2817
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2818	# supported formats:
				2819	# * $GIT_DIR/ctags/<tagname> file (in 'ctags' subdirectory)
				2820	# - if its contents is a number, use it as tag weight,
				2821	# - otherwise add a tag with weight 1
				2822	# * $GIT_DIR/ctags file, each line is a tag (with weight 1)
				2823	# the same value multiple times increases tag weight
				2824	# * `gitweb.ctag' multi-valued repo config variable
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2825	sub git_get_project_ctags {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2826	my $project = shift;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2827	my $ctags = {};
				2828
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2829	$git_dir = "$projectroot/$project";
				2830	if (opendir my $dh, "$git_dir/ctags") {
				2831	my @files = grep { -f $_ } map { "$git_dir/ctags/$_" } readdir($dh);
				2832	foreach my $tagfile (@files) {
				2833	open my $ct, '<', $tagfile
				2834	or next;
				2835	my $val = <$ct>;
				2836	chomp $val if $val;
				2837	close $ct;
				2838
				2839	(my $ctag = $tagfile) =~ s#.*/##;
Jonathan Nieder	2c162b5	2011-06-09 02:08:57 -0500	[diff] [blame]	2840	if ($val =~ /^\d+$/) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2841	$ctags->{$ctag} = $val;
				2842	} else {
				2843	$ctags->{$ctag} = 1;
				2844	}
				2845	}
				2846	closedir $dh;
				2847
				2848	} elsif (open my $fh, '<', "$git_dir/ctags") {
				2849	while (my $line = <$fh>) {
				2850	chomp $line;
				2851	$ctags->{$line}++ if $line;
				2852	}
				2853	close $fh;
				2854
				2855	} else {
				2856	my $taglist = config_to_multi(git_get_project_config('ctag'));
				2857	foreach my $tag (@$taglist) {
				2858	$ctags->{$tag}++;
				2859	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2860	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2861
				2862	return $ctags;
				2863	}
				2864
				2865	# return hash, where keys are content tags ('ctags'),
				2866	# and values are sum of weights of given tag in every project
				2867	sub git_gather_all_ctags {
				2868	my $projects = shift;
				2869	my $ctags = {};
				2870
				2871	foreach my $p (@$projects) {
				2872	foreach my $ct (keys %{$p->{'ctags'}}) {
				2873	$ctags->{$ct} += $p->{'ctags'}->{$ct};
				2874	}
				2875	}
				2876
				2877	return $ctags;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2878	}
				2879
				2880	sub git_populate_project_tagcloud {
				2881	my $ctags = shift;
				2882
				2883	# First, merge different-cased tags; tags vote on casing
				2884	my %ctags_lc;
				2885	foreach (keys %$ctags) {
				2886	$ctags_lc{lc $_}->{count} += $ctags->{$_};
				2887	if (not $ctags_lc{lc $_}->{topcount}
				2888	or $ctags_lc{lc $_}->{topcount} < $ctags->{$_}) {
				2889	$ctags_lc{lc $_}->{topcount} = $ctags->{$_};
				2890	$ctags_lc{lc $_}->{topname} = $_;
				2891	}
				2892	}
				2893
				2894	my $cloud;
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	2895	my $matched = $input_params{'ctag'};
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2896	if (eval { require HTML::TagCloud; 1; }) {
				2897	$cloud = HTML::TagCloud->new;
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2898	foreach my $ctag (sort keys %ctags_lc) {
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2899	# Pad the title with spaces so that the cloud looks
				2900	# less crammed.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2901	my $title = esc_html($ctags_lc{$ctag}->{topname});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2902	$title =~ s/ / /g;
				2903	$title =~ s/^/ /g;
				2904	$title =~ s/$/ /g;
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2905	if (defined $matched && $matched eq $ctag) {
				2906	$title = qq(<span class="match">$title</span>);
				2907	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2908	$cloud->add($title, href(project=>undef, ctag=>$ctag),
				2909	$ctags_lc{$ctag}->{count});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2910	}
				2911	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2912	$cloud = {};
				2913	foreach my $ctag (keys %ctags_lc) {
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2914	my $title = esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);
				2915	if (defined $matched && $matched eq $ctag) {
				2916	$title = qq(<span class="match">$title</span>);
				2917	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2918	$cloud->{$ctag}{count} = $ctags_lc{$ctag}->{count};
				2919	$cloud->{$ctag}{ctag} =
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2920	$cgi->a({-href=>href(project=>undef, ctag=>$ctag)}, $title);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2921	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2922	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2923	return $cloud;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2924	}
				2925
				2926	sub git_show_project_tagcloud {
				2927	my ($cloud, $count) = @_;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2928	if (ref $cloud eq 'HTML::TagCloud') {
				2929	return $cloud->html_and_css($count);
				2930	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2931	my @tags = sort { $cloud->{$a}->{'count'} <=> $cloud->{$b}->{'count'} } keys %$cloud;
				2932	return
				2933	'<div id="htmltagcloud"'.($project ? '' : ' align="center"').'>' .
				2934	join (', ', map {
				2935	$cloud->{$_}->{'ctag'}
				2936	} splice(@tags, 0, $count)) .
				2937	'</div>';
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2938	}
				2939	}
				2940
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2941	sub git_get_project_url_list {
				2942	my $path = shift;
				2943
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2944	$git_dir = "$projectroot/$path";
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	2945	open my $fd, '<', "$git_dir/cloneurl"
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2946	or return wantarray ?
				2947	@{ config_to_multi(git_get_project_config('url')) } :
				2948	config_to_multi(git_get_project_config('url'));
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2949	my @git_project_url_list = map { chomp; $_ } <$fd>;
				2950	close $fd;
				2951
				2952	return wantarray ? @git_project_url_list : \@git_project_url_list;
				2953	}
				2954
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2955	sub git_get_projects_list {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2956	my $filter = shift \|\| '';
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2957	my $paranoid = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2958	my @list;
				2959
				2960	if (-d $projects_list) {
				2961	# search in directory
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2962	my $dir = $projects_list;
Aneesh Kumar K.V	6768d6b	2006-11-03 10:41:45 +0530	[diff] [blame]	2963	# remove the trailing "/"
				2964	$dir =~ s!/+$!!;
Matthieu Moy	ac593b7	2012-01-04 11:07:45 +0100	[diff] [blame]	2965	my $pfxlen = length("$dir");
				2966	my $pfxdepth = ($dir =~ tr!/!!);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2967	# when filtering, search only given subdirectory
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2968	if ($filter && !$paranoid) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2969	$dir .= "/$filter";
				2970	$dir =~ s!/+$!!;
				2971	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2972
				2973	File::Find::find({
				2974	follow_fast => 1, # follow symbolic links
Junio C Hamano	d20602e	2007-07-27 01:23:03 -0700	[diff] [blame]	2975	follow_skip => 2, # ignore duplicates
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2976	dangling_symlinks => 0, # ignore dangling symlinks, silently
				2977	wanted => sub {
Jakub Narebski	ee1d8ee	2010-04-30 18:30:31 +0200	[diff] [blame]	2978	# global variables
				2979	our $project_maxdepth;
				2980	our $projectroot;
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2981	# skip project-list toplevel, if we get it.
				2982	return if (m!^[/.]$!);
				2983	# only directories can be git repositories
				2984	return unless (-d $_);
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2985	# don't traverse too deep (Find is super slow on os x)
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2986	# $project_maxdepth excludes depth of $projectroot
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2987	if (($File::Find::name =~ tr!/!!) - $pfxdepth > $project_maxdepth) {
				2988	$File::Find::prune = 1;
				2989	return;
				2990	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2991
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2992	my $path = substr($File::Find::name, $pfxlen + 1);
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2993	# paranoidly only filter here
				2994	if ($paranoid && $filter && $path !~ m!^\Q$filter\E/!) {
				2995	next;
				2996	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2997	# we check related file in $projectroot
Devin Doucette	fb3bb3d	2008-12-27 02:39:31 -0700	[diff] [blame]	2998	if (check_export_ok("$projectroot/$path")) {
				2999	push @list, { path => $path };
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3000	$File::Find::prune = 1;
				3001	}
				3002	},
				3003	}, "$dir");
				3004
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3005	} elsif (-f $projects_list) {
				3006	# read from file(url-encoded):
				3007	# 'git%2Fgit.git Linus+Torvalds'
				3008	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3009	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3010	open my $fd, '<', $projects_list or return;
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	3011	PROJECT:
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3012	while (my $line = <$fd>) {
				3013	chomp $line;
				3014	my ($path, $owner) = split ' ', $line;
				3015	$path = unescape($path);
				3016	$owner = unescape($owner);
				3017	if (!defined $path) {
				3018	next;
				3019	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3020	# if $filter is rpovided, check if $path begins with $filter
				3021	if ($filter && $path !~ m!^\Q$filter\E/!) {
				3022	next;
Junio C Hamano	83ee94c	2006-11-07 22:37:17 -0800	[diff] [blame]	3023	}
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	3024	if (check_export_ok("$projectroot/$path")) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3025	my $pr = {
Kacper Kornet	75e0dff	2012-04-24 19:50:05 +0200	[diff] [blame]	3026	path => $path
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3027	};
Kacper Kornet	75e0dff	2012-04-24 19:50:05 +0200	[diff] [blame]	3028	if ($owner) {
				3029	$pr->{'owner'} = to_utf8($owner);
				3030	}
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	3031	push @list, $pr;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3032	}
				3033	}
				3034	close $fd;
				3035	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3036	return @list;
				3037	}
				3038
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3039	# written with help of Tree::Trie module (Perl Artistic License, GPL compatibile)
				3040	# as side effects it sets 'forks' field to list of forks for forked projects
				3041	sub filter_forks_from_projects_list {
				3042	my $projects = shift;
				3043
				3044	my %trie; # prefix tree of directories (path components)
				3045	# generate trie out of those directories that might contain forks
				3046	foreach my $pr (@$projects) {
				3047	my $path = $pr->{'path'};
				3048	$path =~ s/\.git$//; # forks of 'repo.git' are in 'repo/' directory
				3049	next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
				3050	next unless ($path); # skip '.git' repository: tests, git-instaweb
Julien Muchembled	53c632f	2011-10-21 21:04:21 +0200	[diff] [blame]	3051	next unless (-d "$projectroot/$path"); # containing directory exists
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3052	$pr->{'forks'} = []; # there can be 0 or more forks of project
				3053
				3054	# add to trie
				3055	my @dirs = split('/', $path);
				3056	# walk the trie, until either runs out of components or out of trie
				3057	my $ref = \%trie;
				3058	while (scalar @dirs &&
				3059	exists($ref->{$dirs[0]})) {
				3060	$ref = $ref->{shift @dirs};
				3061	}
				3062	# create rest of trie structure from rest of components
				3063	foreach my $dir (@dirs) {
				3064	$ref = $ref->{$dir} = {};
				3065	}
				3066	# create end marker, store $pr as a data
				3067	$ref->{''} = $pr if (!exists $ref->{''});
				3068	}
				3069
				3070	# filter out forks, by finding shortest prefix match for paths
				3071	my @filtered;
				3072	PROJECT:
				3073	foreach my $pr (@$projects) {
				3074	# trie lookup
				3075	my $ref = \%trie;
				3076	DIR:
				3077	foreach my $dir (split('/', $pr->{'path'})) {
				3078	if (exists $ref->{''}) {
				3079	# found [shortest] prefix, is a fork - skip it
				3080	push @{$ref->{''}{'forks'}}, $pr;
				3081	next PROJECT;
				3082	}
				3083	if (!exists $ref->{$dir}) {
				3084	# not in trie, cannot have prefix, not a fork
				3085	push @filtered, $pr;
				3086	next PROJECT;
				3087	}
				3088	# If the dir is there, we just walk one step down the trie.
				3089	$ref = $ref->{$dir};
				3090	}
				3091	# we ran out of trie
				3092	# (shouldn't happen: it's either no match, or end marker)
				3093	push @filtered, $pr;
				3094	}
				3095
				3096	return @filtered;
				3097	}
				3098
				3099	# note: fill_project_list_info must be run first,
				3100	# for 'descr_long' and 'ctags' to be filled
				3101	sub search_projects_list {
				3102	my ($projlist, %opts) = @_;
				3103	my $tagfilter = $opts{'tagfilter'};
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3104	my $search_re = $opts{'search_regexp'};
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3105
				3106	return @$projlist
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3107	unless ($tagfilter \|\| $search_re);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3108
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	3109	# searching projects require filling to be run before it;
				3110	fill_project_list_info($projlist,
				3111	$tagfilter ? 'ctags' : (),
Junio C Hamano	aa145bf	2012-03-08 13:04:49 -0800	[diff] [blame]	3112	$search_re ? ('path', 'descr') : ());
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3113	my @projects;
				3114	PROJECT:
				3115	foreach my $pr (@$projlist) {
				3116
				3117	if ($tagfilter) {
				3118	next unless ref($pr->{'ctags'}) eq 'HASH';
				3119	next unless
				3120	grep { lc($_) eq lc($tagfilter) } keys %{$pr->{'ctags'}};
				3121	}
				3122
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3123	if ($search_re) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3124	next unless
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3125	$pr->{'path'} =~ /$search_re/ \|\|
				3126	$pr->{'descr_long'} =~ /$search_re/;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3127	}
				3128
				3129	push @projects, $pr;
				3130	}
				3131
				3132	return @projects;
				3133	}
				3134
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3135	our $gitweb_project_owner = undef;
				3136	sub git_get_project_list_from_file {
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3137
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3138	return if (defined $gitweb_project_owner);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3139
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3140	$gitweb_project_owner = {};
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3141	# read from file (url-encoded):
				3142	# 'git%2Fgit.git Linus+Torvalds'
				3143	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3144	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
				3145	if (-f $projects_list) {
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3146	open(my $fd, '<', $projects_list);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3147	while (my $line = <$fd>) {
				3148	chomp $line;
				3149	my ($pr, $ow) = split ' ', $line;
				3150	$pr = unescape($pr);
				3151	$ow = unescape($ow);
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3152	$gitweb_project_owner->{$pr} = to_utf8($ow);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3153	}
				3154	close $fd;
				3155	}
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3156	}
				3157
				3158	sub git_get_project_owner {
				3159	my $project = shift;
				3160	my $owner;
				3161
				3162	return undef unless $project;
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3163	$git_dir = "$projectroot/$project";
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3164
				3165	if (!defined $gitweb_project_owner) {
				3166	git_get_project_list_from_file();
				3167	}
				3168
				3169	if (exists $gitweb_project_owner->{$project}) {
				3170	$owner = $gitweb_project_owner->{$project};
				3171	}
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3172	if (!defined $owner){
				3173	$owner = git_get_project_config('owner');
				3174	}
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3175	if (!defined $owner) {
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3176	$owner = get_file_owner("$git_dir");
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3177	}
				3178
				3179	return $owner;
				3180	}
				3181
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3182	sub git_get_last_activity {
				3183	my ($path) = @_;
				3184	my $fd;
				3185
				3186	$git_dir = "$projectroot/$path";
				3187	open($fd, "-\|", git_cmd(), 'for-each-ref',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3188	'--format=%(committer)',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3189	'--sort=-committerdate',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3190	'--count=1',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3191	'refs/heads') or return;
				3192	my $most_recent = <$fd>;
				3193	close $fd or return;
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	3194	if (defined $most_recent &&
				3195	$most_recent =~ / (\d+) [-+][01]\d\d\d$/) {
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3196	my $timestamp = $1;
				3197	my $age = time - $timestamp;
				3198	return ($age, age_string($age));
				3199	}
Matt McCutchen	c956395	2007-06-28 18:15:22 -0400	[diff] [blame]	3200	return (undef, undef);
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3201	}
				3202
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	3203	# Implementation note: when a single remote is wanted, we cannot use 'git
				3204	# remote show -n' because that command always work (assuming it's a remote URL
				3205	# if it's not defined), and we cannot use 'git remote show' because that would
				3206	# try to make a network roundtrip. So the only way to find if that particular
				3207	# remote is defined is to walk the list provided by 'git remote -v' and stop if
				3208	# and when we find what we want.
				3209	sub git_get_remotes_list {
				3210	my $wanted = shift;
				3211	my %remotes = ();
				3212
				3213	open my $fd, '-\|' , git_cmd(), 'remote', '-v';
				3214	return unless $fd;
				3215	while (my $remote = <$fd>) {
				3216	chomp $remote;
				3217	$remote =~ s!\t(.*?)\s+$(\w+)$$!!;
				3218	next if $wanted and not $remote eq $wanted;
				3219	my ($url, $key) = ($1, $2);
				3220
				3221	$remotes{$remote} \|\|= { 'heads' => () };
				3222	$remotes{$remote}{$key} = $url;
				3223	}
				3224	close $fd or return;
				3225	return wantarray ? %remotes : \%remotes;
				3226	}
				3227
				3228	# Takes a hash of remotes as first parameter and fills it by adding the
				3229	# available remote heads for each of the indicated remotes.
				3230	sub fill_remote_heads {
				3231	my $remotes = shift;
				3232	my @heads = map { "remotes/$_" } keys %$remotes;
				3233	my @remoteheads = git_get_heads_list(undef, @heads);
				3234	foreach my $remote (keys %$remotes) {
				3235	$remotes->{$remote}{'heads'} = [ grep {
				3236	$_->{'name'} =~ s!^$remote/!!
				3237	} @remoteheads ];
				3238	}
				3239	}
				3240
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3241	sub git_get_references {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3242	my $type = shift \|\| "";
				3243	my %refs;
Jakub Narebski	28b9d9f	2006-11-25 11:32:08 +0100	[diff] [blame]	3244	# 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11
				3245	# c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}
				3246	open my $fd, "-\|", git_cmd(), "show-ref", "--dereference",
				3247	($type ? ("--", "refs/$type") : ()) # use -- <pattern> if $type
Jakub Narebski	9704d75	2006-09-19 14:31:49 +0200	[diff] [blame]	3248	or return;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3249
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3250	while (my $line = <$fd>) {
				3251	chomp $line;
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	3252	if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3253	if (defined $refs{$1}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3254	push @{$refs{$1}}, $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3255	} else {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3256	$refs{$1} = [ $2 ];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3257	}
				3258	}
				3259	}
				3260	close $fd or return;
				3261	return \%refs;
				3262	}
				3263
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3264	sub git_get_rev_name_tags {
				3265	my $hash = shift \|\| return undef;
				3266
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3267	open my $fd, "-\|", git_cmd(), "name-rev", "--tags", $hash
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3268	or return;
				3269	my $name_rev = <$fd>;
				3270	close $fd;
				3271
				3272	if ($name_rev =~ m\|^$hash tags/(.*)$\|) {
				3273	return $1;
				3274	} else {
				3275	# catches also '$hash undefined' output
				3276	return undef;
				3277	}
				3278	}
				3279
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3280	## ----------------------------------------------------------------------
				3281	## parse to hash functions
				3282
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3283	sub parse_date {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3284	my $epoch = shift;
				3285	my $tz = shift \|\| "-0000";
				3286
				3287	my %date;
				3288	my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
				3289	my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
				3290	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
				3291	$date{'hour'} = $hour;
				3292	$date{'minute'} = $min;
				3293	$date{'mday'} = $mday;
				3294	$date{'day'} = $days[$wday];
				3295	$date{'month'} = $months[$mon];
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3296	$date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000",
				3297	$days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3298	$date{'mday-time'} = sprintf "%d %s %02d:%02d",
				3299	$mday, $months[$mon], $hour ,$min;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3300	$date{'iso-8601'} = sprintf "%04d-%02d-%02dT%02d:%02d:%02dZ",
Vincent Zanotti	a62d6d8	2007-11-10 19:55:27 +0100	[diff] [blame]	3301	1900+$year, 1+$mon, $mday, $hour ,$min, $sec;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3302
Jakub Narebski	2b1e172	2011-03-25 20:20:49 +0100	[diff] [blame]	3303	my ($tz_sign, $tz_hour, $tz_min) =
				3304	($tz =~ m/^([-+])(\d\d)(\d\d)$/);
				3305	$tz_sign = ($tz_sign eq '-' ? -1 : +1);
				3306	my $local = $epoch + $tz_sign((($tz_hour60) + $tz_min)*60);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3307	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local);
				3308	$date{'hour_local'} = $hour;
				3309	$date{'minute_local'} = $min;
				3310	$date{'tz_local'} = $tz;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3311	$date{'iso-tz'} = sprintf("%04d-%02d-%02d %02d:%02d:%02d %s",
				3312	1900+$year, $mon+1, $mday,
				3313	$hour, $min, $sec, $tz);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3314	return %date;
				3315	}
				3316
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3317	sub parse_tag {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3318	my $tag_id = shift;
				3319	my %tag;
				3320	my @comment;
				3321
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3322	open my $fd, "-\|", git_cmd(), "cat-file", "tag", $tag_id or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3323	$tag{'id'} = $tag_id;
				3324	while (my $line = <$fd>) {
				3325	chomp $line;
				3326	if ($line =~ m/^object ([0-9a-fA-F]{40})$/) {
				3327	$tag{'object'} = $1;
				3328	} elsif ($line =~ m/^type (.+)$/) {
				3329	$tag{'type'} = $1;
				3330	} elsif ($line =~ m/^tag (.+)$/) {
				3331	$tag{'name'} = $1;
				3332	} elsif ($line =~ m/^tagger (.) ([0-9]+) (.)$/) {
				3333	$tag{'author'} = $1;
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	3334	$tag{'author_epoch'} = $2;
				3335	$tag{'author_tz'} = $3;
				3336	if ($tag{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3337	$tag{'author_name'} = $1;
				3338	$tag{'author_email'} = $2;
				3339	} else {
				3340	$tag{'author_name'} = $tag{'author'};
				3341	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3342	} elsif ($line =~ m/--BEGIN/) {
				3343	push @comment, $line;
				3344	last;
				3345	} elsif ($line eq "") {
				3346	last;
				3347	}
				3348	}
				3349	push @comment, <$fd>;
				3350	$tag{'comment'} = \@comment;
				3351	close $fd or return;
				3352	if (!defined $tag{'name'}) {
				3353	return
				3354	};
				3355	return %tag
				3356	}
				3357
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3358	sub parse_commit_text {
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3359	my ($commit_text, $withparents) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3360	my @commit_lines = split '\n', $commit_text;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3361	my %co;
				3362
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3363	pop @commit_lines; # Remove '\0'
				3364
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3365	if (! @commit_lines) {
				3366	return;
				3367	}
				3368
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3369	my $header = shift @commit_lines;
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3370	if ($header !~ m/^[0-9a-fA-F]{40}/) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3371	return;
				3372	}
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3373	($co{'id'}, my @parents) = split ' ', $header;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3374	while (my $line = shift @commit_lines) {
				3375	last if $line eq "\n";
				3376	if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) {
				3377	$co{'tree'} = $1;
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3378	} elsif ((!defined $withparents) && ($line =~ m/^parent ([0-9a-fA-F]{40})$/)) {
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3379	push @parents, $1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3380	} elsif ($line =~ m/^author (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3381	$co{'author'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3382	$co{'author_epoch'} = $2;
				3383	$co{'author_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3384	if ($co{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3385	$co{'author_name'} = $1;
				3386	$co{'author_email'} = $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3387	} else {
				3388	$co{'author_name'} = $co{'author'};
				3389	}
				3390	} elsif ($line =~ m/^committer (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3391	$co{'committer'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3392	$co{'committer_epoch'} = $2;
				3393	$co{'committer_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3394	if ($co{'committer'} =~ m/^([^<]+) <([^>]*)>/) {
				3395	$co{'committer_name'} = $1;
				3396	$co{'committer_email'} = $2;
				3397	} else {
				3398	$co{'committer_name'} = $co{'committer'};
				3399	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3400	}
				3401	}
				3402	if (!defined $co{'tree'}) {
				3403	return;
				3404	};
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3405	$co{'parents'} = \@parents;
				3406	$co{'parent'} = $parents[0];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3407
				3408	foreach my $title (@commit_lines) {
				3409	$title =~ s/^ //;
				3410	if ($title ne "") {
				3411	$co{'title'} = chop_str($title, 80, 5);
				3412	# remove leading stuff of merges to make the interesting part visible
				3413	if (length($title) > 50) {
				3414	$title =~ s/^Automatic //;
				3415	$title =~ s/^merge (of\|with) /Merge ... /i;
				3416	if (length($title) > 50) {
				3417	$title =~ s/(http\|rsync):\/\///;
				3418	}
				3419	if (length($title) > 50) {
				3420	$title =~ s/(master\|www\|rsync)\.//;
				3421	}
				3422	if (length($title) > 50) {
				3423	$title =~ s/kernel.org:?//;
				3424	}
				3425	if (length($title) > 50) {
				3426	$title =~ s/\/pub\/scm//;
				3427	}
				3428	}
				3429	$co{'title_short'} = chop_str($title, 50, 5);
				3430	last;
				3431	}
				3432	}
Joey Hess	53c3967	2008-09-05 14:26:29 -0400	[diff] [blame]	3433	if (! defined $co{'title'} \|\| $co{'title'} eq "") {
Petr Baudis	7e0fe5c	2006-10-06 18:55:04 +0200	[diff] [blame]	3434	$co{'title'} = $co{'title_short'} = '(no commit message)';
				3435	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3436	# remove added spaces
				3437	foreach my $line (@commit_lines) {
				3438	$line =~ s/^ //;
				3439	}
				3440	$co{'comment'} = \@commit_lines;
				3441
				3442	my $age = time - $co{'committer_epoch'};
				3443	$co{'age'} = $age;
				3444	$co{'age_string'} = age_string($age);
				3445	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'});
				3446	if ($age > 60602472) {
				3447	$co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3448	$co{'age_string_age'} = $co{'age_string'};
				3449	} else {
				3450	$co{'age_string_date'} = $co{'age_string'};
				3451	$co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3452	}
				3453	return %co;
				3454	}
				3455
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3456	sub parse_commit {
				3457	my ($commit_id) = @_;
				3458	my %co;
				3459
				3460	local $/ = "\0";
				3461
				3462	open my $fd, "-\|", git_cmd(), "rev-list",
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3463	"--parents",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3464	"--header",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3465	"--max-count=1",
				3466	$commit_id,
				3467	"--",
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3468	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3469	%co = parse_commit_text(<$fd>, 1);
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3470	close $fd;
				3471
				3472	return %co;
				3473	}
				3474
				3475	sub parse_commits {
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3476	my ($commit_id, $maxcount, $skip, $filename, @args) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3477	my @cos;
				3478
				3479	$maxcount \|\|= 1;
				3480	$skip \|\|= 0;
				3481
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3482	local $/ = "\0";
				3483
				3484	open my $fd, "-\|", git_cmd(), "rev-list",
				3485	"--header",
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3486	@args,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3487	("--max-count=" . $maxcount),
Robert Fitzsimons	f47efbb	2006-12-24 14:31:49 +0000	[diff] [blame]	3488	("--skip=" . $skip),
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	3489	@extra_options,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3490	$commit_id,
				3491	"--",
				3492	($filename ? ($filename) : ())
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3493	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3494	while (my $line = <$fd>) {
				3495	my %co = parse_commit_text($line);
				3496	push @cos, \%co;
				3497	}
				3498	close $fd;
				3499
				3500	return wantarray ? @cos : \@cos;
				3501	}
				3502
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3503	# parse line of git-diff-tree "raw" output
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3504	sub parse_difftree_raw_line {
				3505	my $line = shift;
				3506	my %res;
				3507
				3508	# ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
				3509	# ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
				3510	if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/) {
				3511	$res{'from_mode'} = $1;
				3512	$res{'to_mode'} = $2;
				3513	$res{'from_id'} = $3;
				3514	$res{'to_id'} = $4;
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	3515	$res{'status'} = $5;
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3516	$res{'similarity'} = $6;
				3517	if ($res{'status'} eq 'R' \|\| $res{'status'} eq 'C') { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3518	($res{'from_file'}, $res{'to_file'}) = map { unquote($_) } split("\t", $7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3519	} else {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3520	$res{'from_file'} = $res{'to_file'} = $res{'file'} = unquote($7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3521	}
				3522	}
Jakub Narebski	78bc403	2007-05-07 01:10:03 +0200	[diff] [blame]	3523	# '::100755 100755 100755 60e79ca1b01bc8b057abe17ddab484699a7f5fdb 94067cc5f73388f33722d52ae02f44692bc07490 94067cc5f73388f33722d52ae02f44692bc07490 MR git-gui/git-gui.sh'
				3524	# combined diff (for merge commit)
				3525	elsif ($line =~ s/^(::+)((?:[0-7]{6} )+)((?:[0-9a-fA-F]{40} )+)([a-zA-Z]+)\t(.*)$//) {
				3526	$res{'nparents'} = length($1);
				3527	$res{'from_mode'} = [ split(' ', $2) ];
				3528	$res{'to_mode'} = pop @{$res{'from_mode'}};
				3529	$res{'from_id'} = [ split(' ', $3) ];
				3530	$res{'to_id'} = pop @{$res{'from_id'}};
				3531	$res{'status'} = [ split('', $4) ];
				3532	$res{'to_file'} = unquote($5);
				3533	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3534	# 'c512b523472485aef4fff9e57b229d9d243c967f'
Jakub Narebski	0edcb37	2006-08-31 00:36:04 +0200	[diff] [blame]	3535	elsif ($line =~ m/^([0-9a-fA-F]{40})$/) {
				3536	$res{'commit'} = $1;
				3537	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3538
				3539	return wantarray ? %res : \%res;
				3540	}
				3541
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3542	# wrapper: return parsed line of git-diff-tree "raw" output
				3543	# (the argument might be raw line, or parsed info)
				3544	sub parsed_difftree_line {
				3545	my $line_or_ref = shift;
				3546
				3547	if (ref($line_or_ref) eq "HASH") {
				3548	# pre-parsed (or generated by hand)
				3549	return $line_or_ref;
				3550	} else {
				3551	return parse_difftree_raw_line($line_or_ref);
				3552	}
				3553	}
				3554
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3555	# parse line of git-ls-tree output
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	3556	sub parse_ls_tree_line {
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3557	my $line = shift;
				3558	my %opts = @_;
				3559	my %res;
				3560
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3561	if ($opts{'-l'}) {
				3562	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa 16717 panic.c'
				3563	$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]	3564
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3565	$res{'mode'} = $1;
				3566	$res{'type'} = $2;
				3567	$res{'hash'} = $3;
				3568	$res{'size'} = $4;
				3569	if ($opts{'-z'}) {
				3570	$res{'name'} = $5;
				3571	} else {
				3572	$res{'name'} = unquote($5);
				3573	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3574	} else {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3575	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				3576	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/s;
				3577
				3578	$res{'mode'} = $1;
				3579	$res{'type'} = $2;
				3580	$res{'hash'} = $3;
				3581	if ($opts{'-z'}) {
				3582	$res{'name'} = $4;
				3583	} else {
				3584	$res{'name'} = unquote($4);
				3585	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3586	}
				3587
				3588	return wantarray ? %res : \%res;
				3589	}
				3590
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3591	# generates _two_ hashes, references to which are passed as 2 and 3 argument
				3592	sub parse_from_to_diffinfo {
				3593	my ($diffinfo, $from, $to, @parents) = @_;
				3594
				3595	if ($diffinfo->{'nparents'}) {
				3596	# combined diff
				3597	$from->{'file'} = [];
				3598	$from->{'href'} = [];
				3599	fill_from_file_info($diffinfo, @parents)
				3600	unless exists $diffinfo->{'from_file'};
				3601	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3602	$from->{'file'}[$i] =
				3603	defined $diffinfo->{'from_file'}[$i] ?
				3604	$diffinfo->{'from_file'}[$i] :
				3605	$diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3606	if ($diffinfo->{'status'}[$i] ne "A") { # not new (added) file
				3607	$from->{'href'}[$i] = href(action=>"blob",
				3608	hash_base=>$parents[$i],
				3609	hash=>$diffinfo->{'from_id'}[$i],
				3610	file_name=>$from->{'file'}[$i]);
				3611	} else {
				3612	$from->{'href'}[$i] = undef;
				3613	}
				3614	}
				3615	} else {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3616	# ordinary (not combined) diff
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3617	$from->{'file'} = $diffinfo->{'from_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3618	if ($diffinfo->{'status'} ne "A") { # not new (added) file
				3619	$from->{'href'} = href(action=>"blob", hash_base=>$hash_parent,
				3620	hash=>$diffinfo->{'from_id'},
				3621	file_name=>$from->{'file'});
				3622	} else {
				3623	delete $from->{'href'};
				3624	}
				3625	}
				3626
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3627	$to->{'file'} = $diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3628	if (!is_deleted($diffinfo)) { # file exists in result
				3629	$to->{'href'} = href(action=>"blob", hash_base=>$hash,
				3630	hash=>$diffinfo->{'to_id'},
				3631	file_name=>$to->{'file'});
				3632	} else {
				3633	delete $to->{'href'};
				3634	}
				3635	}
				3636
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3637	## ......................................................................
				3638	## parse to array of hashes functions
				3639
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3640	sub git_get_heads_list {
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3641	my ($limit, @classes) = @_;
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	3642	@classes = ('heads') unless @classes;
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3643	my @patterns = map { "refs/$_" } @classes;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3644	my @headslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3645
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3646	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3647	($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate',
				3648	'--format=%(objectname) %(refname) %(subject)%00%(committer)',
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3649	@patterns
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3650	or return;
				3651	while (my $line = <$fd>) {
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3652	my %ref_item;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	3653
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3654	chomp $line;
				3655	my ($refinfo, $committerinfo) = split(/\0/, $line);
				3656	my ($hash, $name, $title) = split(' ', $refinfo, 3);
				3657	my ($committer, $epoch, $tz) =
				3658	($committerinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3659	$ref_item{'fullname'} = $name;
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	3660	$name =~ s!^refs/(?:head\|remote)s/!!;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3661
				3662	$ref_item{'name'} = $name;
				3663	$ref_item{'id'} = $hash;
				3664	$ref_item{'title'} = $title \|\| '(no commit message)';
				3665	$ref_item{'epoch'} = $epoch;
				3666	if ($epoch) {
				3667	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3668	} else {
				3669	$ref_item{'age'} = "unknown";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3670	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3671
				3672	push @headslist, \%ref_item;
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3673	}
				3674	close $fd;
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	3675
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3676	return wantarray ? @headslist : \@headslist;
				3677	}
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3678
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3679	sub git_get_tags_list {
				3680	my $limit = shift;
				3681	my @tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3682
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3683	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3684	($limit ? '--count='.($limit+1) : ()), '--sort=-creatordate',
				3685	'--format=%(objectname) %(objecttype) %(refname) '.
				3686	'%(objectname) %(objecttype) %(subject)%00%(creator)',
				3687	'refs/tags'
				3688	or return;
				3689	while (my $line = <$fd>) {
				3690	my %ref_item;
				3691
				3692	chomp $line;
				3693	my ($refinfo, $creatorinfo) = split(/\0/, $line);
				3694	my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);
				3695	my ($creator, $epoch, $tz) =
				3696	($creatorinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3697	$ref_item{'fullname'} = $name;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3698	$name =~ s!^refs/tags/!!;
				3699
				3700	$ref_item{'type'} = $type;
				3701	$ref_item{'id'} = $id;
				3702	$ref_item{'name'} = $name;
				3703	if ($type eq "tag") {
				3704	$ref_item{'subject'} = $title;
				3705	$ref_item{'reftype'} = $reftype;
				3706	$ref_item{'refid'} = $refid;
				3707	} else {
				3708	$ref_item{'reftype'} = $type;
				3709	$ref_item{'refid'} = $id;
				3710	}
				3711
				3712	if ($type eq "tag" \|\| $type eq "commit") {
				3713	$ref_item{'epoch'} = $epoch;
				3714	if ($epoch) {
				3715	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3716	} else {
				3717	$ref_item{'age'} = "unknown";
				3718	}
				3719	}
				3720
				3721	push @tagslist, \%ref_item;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3722	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3723	close $fd;
				3724
				3725	return wantarray ? @tagslist : \@tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3726	}
				3727
				3728	## ----------------------------------------------------------------------
				3729	## filesystem-related functions
				3730
				3731	sub get_file_owner {
				3732	my $path = shift;
				3733
				3734	my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path);
				3735	my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid);
				3736	if (!defined $gcos) {
				3737	return undef;
				3738	}
				3739	my $owner = $gcos;
				3740	$owner =~ s/[,;].*$//;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	3741	return to_utf8($owner);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3742	}
				3743
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3744	# assume that file exists
				3745	sub insert_file {
				3746	my $filename = shift;
				3747
				3748	open my $fd, '<', $filename;
Jakub Narebski	4586864	2008-12-08 14:13:21 +0100	[diff] [blame]	3749	print map { to_utf8($_) } <$fd>;
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3750	close $fd;
				3751	}
				3752
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3753	## ......................................................................
				3754	## mimetype related functions
				3755
				3756	sub mimetype_guess_file {
				3757	my $filename = shift;
				3758	my $mimemap = shift;
				3759	-r $mimemap or return undef;
				3760
				3761	my %mimemap;
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3762	open(my $mh, '<', $mimemap) or return undef;
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3763	while (<$mh>) {
Jakub Narebski	618918e	2006-08-14 02:15:22 +0200	[diff] [blame]	3764	next if m/^#/; # skip comments
Ludwig Nussel	93a6ad1	2011-06-15 08:10:08 +0200	[diff] [blame]	3765	my ($mimetype, @exts) = split(/\s+/);
				3766	foreach my $ext (@exts) {
				3767	$mimemap{$ext} = $mimetype;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3768	}
				3769	}
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3770	close($mh);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3771
Jakub Narebski	8059319	2006-09-19 13:57:03 +0200	[diff] [blame]	3772	$filename =~ /\.([^.]*)$/;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3773	return $mimemap{$1};
				3774	}
				3775
				3776	sub mimetype_guess {
				3777	my $filename = shift;
				3778	my $mime;
				3779	$filename =~ /\./ or return undef;
				3780
				3781	if ($mimetypes_file) {
				3782	my $file = $mimetypes_file;
Jakub Narebski	d5aa50d	2006-08-14 02:16:33 +0200	[diff] [blame]	3783	if ($file !~ m!^/!) { # if it is relative path
				3784	# it is relative to project
				3785	$file = "$projectroot/$project/$file";
				3786	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3787	$mime = mimetype_guess_file($filename, $file);
				3788	}
				3789	$mime \|\|= mimetype_guess_file($filename, '/etc/mime.types');
				3790	return $mime;
				3791	}
				3792
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3793	sub blob_mimetype {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3794	my $fd = shift;
				3795	my $filename = shift;
				3796
				3797	if ($filename) {
				3798	my $mime = mimetype_guess($filename);
				3799	$mime and return $mime;
				3800	}
				3801
				3802	# just in case
				3803	return $default_blob_plain_mimetype unless $fd;
				3804
				3805	if (-T $fd) {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3806	return 'text/plain';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3807	} elsif (! $filename) {
				3808	return 'application/octet-stream';
				3809	} elsif ($filename =~ m/\.png$/i) {
				3810	return 'image/png';
				3811	} elsif ($filename =~ m/\.gif$/i) {
				3812	return 'image/gif';
				3813	} elsif ($filename =~ m/\.jpe?g$/i) {
				3814	return 'image/jpeg';
				3815	} else {
				3816	return 'application/octet-stream';
				3817	}
				3818	}
				3819
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3820	sub blob_contenttype {
				3821	my ($fd, $file_name, $type) = @_;
				3822
				3823	$type \|\|= blob_mimetype($fd, $file_name);
				3824	if ($type eq 'text/plain' && defined $default_text_plain_charset) {
				3825	$type .= "; charset=$default_text_plain_charset";
				3826	}
				3827
				3828	return $type;
				3829	}
				3830
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3831	# guess file syntax for syntax highlighting; return undef if no highlighting
				3832	# the name of syntax can (in the future) depend on syntax highlighter used
				3833	sub guess_file_syntax {
				3834	my ($highlight, $mimetype, $file_name) = @_;
				3835	return undef unless ($highlight && defined $file_name);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3836	my $basename = basename($file_name, '.in');
				3837	return $highlight_basename{$basename}
				3838	if exists $highlight_basename{$basename};
				3839
				3840	$basename =~ /\.([^.]*)$/;
				3841	my $ext = $1 or return undef;
				3842	return $highlight_ext{$ext}
				3843	if exists $highlight_ext{$ext};
				3844
				3845	return undef;
				3846	}
				3847
				3848	# run highlighter and return FD of its output,
				3849	# or return original FD if no highlighting
				3850	sub run_highlighter {
				3851	my ($fd, $highlight, $syntax) = @_;
				3852	return $fd unless ($highlight && defined $syntax);
				3853
Sylvain Rabot	3ca7353	2010-12-30 22:20:29 +0100	[diff] [blame]	3854	close $fd;
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3855	open $fd, quote_command(git_cmd(), "cat-file", "blob", $hash)." \| ".
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	3856	quote_command($highlight_bin).
Kevin Cernekee	6affdbe	2011-03-16 15:34:13 -0700	[diff] [blame]	3857	" --replace-tabs=8 --fragment --syntax $syntax \|"
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3858	or die_error(500, "Couldn't open file or run syntax highlighter");
				3859	return $fd;
				3860	}
				3861
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3862	## ======================================================================
				3863	## functions printing HTML: header, footer, error page
				3864
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3865	sub get_page_title {
				3866	my $title = to_utf8($site_name);
				3867
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3868	unless (defined $project) {
				3869	if (defined $project_filter) {
Jakub Narebski	f421208	2012-02-12 16:21:30 +0100	[diff] [blame]	3870	$title .= " - projects in '" . esc_path($project_filter) . "'";
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3871	}
				3872	return $title;
				3873	}
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3874	$title .= " - " . to_utf8($project);
				3875
				3876	return $title unless (defined $action);
				3877	$title .= "/$action"; # $action is US-ASCII (7bit ASCII)
				3878
				3879	return $title unless (defined $file_name);
				3880	$title .= " - " . esc_path($file_name);
				3881	if ($action eq "tree" && $file_name !~ m\|/$\|) {
				3882	$title .= "/";
				3883	}
				3884
				3885	return $title;
				3886	}
				3887
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3888	sub get_content_type_html {
				3889	# require explicit support from the UA if we are to send the page as
				3890	# 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
				3891	# we have to do this because MSIE sometimes globs '/', pretending to
				3892	# support xhtml+xml but choking when it gets what it asked for.
				3893	if (defined $cgi->http('HTTP_ACCEPT') &&
				3894	$cgi->http('HTTP_ACCEPT') =~ m/(,\|;\|\s\|^)application\/xhtml\+xml(,\|;\|\s\|$)/ &&
				3895	$cgi->Accept('application/xhtml+xml') != 0) {
				3896	return 'application/xhtml+xml';
				3897	} else {
				3898	return 'text/html';
				3899	}
				3900	}
				3901
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3902	sub print_feed_meta {
				3903	if (defined $project) {
				3904	my %href_params = get_feed_info();
				3905	if (!exists $href_params{'-title'}) {
				3906	$href_params{'-title'} = 'log';
				3907	}
				3908
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	3909	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3910	my $type = lc($format);
				3911	my %link_attr = (
				3912	'-rel' => 'alternate',
				3913	'-title' => esc_attr("$project - $href_params{'-title'} - $format feed"),
				3914	'-type' => "application/$type+xml"
				3915	);
				3916
Sebastian Pipping	cc999a3	2012-04-04 14:25:44 +0200	[diff] [blame]	3917	$href_params{'extra_options'} = undef;
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3918	$href_params{'action'} = $type;
				3919	$link_attr{'-href'} = href(%href_params);
				3920	print "<link ".
				3921	"rel=\"$link_attr{'-rel'}\" ".
				3922	"title=\"$link_attr{'-title'}\" ".
				3923	"href=\"$link_attr{'-href'}\" ".
				3924	"type=\"$link_attr{'-type'}\" ".
				3925	"/>\n";
				3926
				3927	$href_params{'extra_options'} = '--no-merges';
				3928	$link_attr{'-href'} = href(%href_params);
				3929	$link_attr{'-title'} .= ' (no merges)';
				3930	print "<link ".
				3931	"rel=\"$link_attr{'-rel'}\" ".
				3932	"title=\"$link_attr{'-title'}\" ".
				3933	"href=\"$link_attr{'-href'}\" ".
				3934	"type=\"$link_attr{'-type'}\" ".
				3935	"/>\n";
				3936	}
				3937
				3938	} else {
				3939	printf('<link rel="alternate" title="%s projects list" '.
				3940	'href="%s" type="text/plain; charset=utf-8" />'."\n",
				3941	esc_attr($site_name), href(project=>undef, action=>"project_index"));
				3942	printf('<link rel="alternate" title="%s projects feeds" '.
				3943	'href="%s" type="text/x-opml" />'."\n",
				3944	esc_attr($site_name), href(project=>undef, action=>"opml"));
				3945	}
				3946	}
				3947
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3948	sub print_header_links {
				3949	my $status = shift;
				3950
				3951	# print out each stylesheet that exist, providing backwards capability
				3952	# for those people who defined $stylesheet in a config file
				3953	if (defined $stylesheet) {
				3954	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3955	} else {
				3956	foreach my $stylesheet (@stylesheets) {
				3957	next unless $stylesheet;
				3958	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3959	}
				3960	}
				3961	print_feed_meta()
				3962	if ($status eq '200 OK');
				3963	if (defined $favicon) {
				3964	print qq(<link rel="shortcut icon" href=").esc_url($favicon).qq(" type="image/png" />\n);
				3965	}
				3966	}
				3967
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	3968	sub print_nav_breadcrumbs_path {
				3969	my $dirprefix = undef;
				3970	while (my $part = shift) {
				3971	$dirprefix .= "/" if defined $dirprefix;
				3972	$dirprefix .= $part;
				3973	print $cgi->a({-href => href(project => undef,
				3974	project_filter => $dirprefix,
				3975	action => "project_list")},
				3976	esc_html($part)) . " / ";
				3977	}
				3978	}
				3979
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3980	sub print_nav_breadcrumbs {
				3981	my %opts = @_;
				3982
				3983	print $cgi->a({-href => esc_url($home_link)}, $home_link_str) . " / ";
				3984	if (defined $project) {
Bernhard R. Link	4426ba2	2012-01-30 21:10:23 +0100	[diff] [blame]	3985	my @dirname = split '/', $project;
				3986	my $projectbasename = pop @dirname;
				3987	print_nav_breadcrumbs_path(@dirname);
				3988	print $cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3989	if (defined $action) {
				3990	my $action_print = $action ;
				3991	if (defined $opts{-action_extra}) {
				3992	$action_print = $cgi->a({-href => href(action=>$action)},
				3993	$action);
				3994	}
				3995	print " / $action_print";
				3996	}
				3997	if (defined $opts{-action_extra}) {
				3998	print " / $opts{-action_extra}";
				3999	}
				4000	print "\n";
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	4001	} elsif (defined $project_filter) {
				4002	print_nav_breadcrumbs_path(split '/', $project_filter);
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4003	}
				4004	}
				4005
				4006	sub print_search_form {
				4007	if (!defined $searchtext) {
				4008	$searchtext = "";
				4009	}
				4010	my $search_hash;
				4011	if (defined $hash_base) {
				4012	$search_hash = $hash_base;
				4013	} elsif (defined $hash) {
				4014	$search_hash = $hash;
				4015	} else {
				4016	$search_hash = "HEAD";
				4017	}
				4018	my $action = $my_uri;
				4019	my $use_pathinfo = gitweb_check_feature('pathinfo');
				4020	if ($use_pathinfo) {
				4021	$action .= "/".esc_url($project);
				4022	}
				4023	print $cgi->startform(-method => "get", -action => $action) .
				4024	"<div class=\"search\">\n" .
				4025	(!$use_pathinfo &&
				4026	$cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) . "\n") .
				4027	$cgi->input({-name=>"a", -value=>"search", -type=>"hidden"}) . "\n" .
				4028	$cgi->input({-name=>"h", -value=>$search_hash, -type=>"hidden"}) . "\n" .
				4029	$cgi->popup_menu(-name => 'st', -default => 'commit',
				4030	-values => ['commit', 'grep', 'author', 'committer', 'pickaxe']) .
				4031	$cgi->sup($cgi->a({-href => href(action=>"search_help")}, "?")) .
				4032	" search:\n",
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	4033	$cgi->textfield(-name => "s", -value => $searchtext, -override => 1) . "\n" .
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4034	"<span title=\"Extended regular expression\">" .
				4035	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				4036	-checked => $search_use_regexp) .
				4037	"</span>" .
				4038	"</div>" .
				4039	$cgi->end_form() . "\n";
				4040	}
				4041
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	4042	sub git_header_html {
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4043	my $status = shift \|\| "200 OK";
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	4044	my $expires = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4045	my %opts = @_;
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4046
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	4047	my $title = get_page_title();
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4048	my $content_type = get_content_type_html();
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4049	print $cgi->header(-type=>$content_type, -charset => 'utf-8',
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4050	-status=> $status, -expires => $expires)
Jakub Narebski	ad709ea	2010-06-13 00:35:59 +0200	[diff] [blame]	4051	unless ($opts{'-no_http_header'});
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	4052	my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4053	print <<EOF;
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4054	<?xml version="1.0" encoding="utf-8"?>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4055	<!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]	4056	<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]	4057	<!-- 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]	4058	<!-- git core binaries version $git_version -->
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4059	<head>
Alp Toker	f6801d6	2006-07-11 11:19:34 +0100	[diff] [blame]	4060	<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	4061	<meta name="generator" content="gitweb/$version git/$git_version$mod_perl_version"/>
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4062	<meta name="robots" content="index, nofollow"/>
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4063	<title>$title</title>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4064	EOF
Giuseppe Bilotta	41a4d16	2009-01-31 02:31:52 +0100	[diff] [blame]	4065	# the stylesheet, favicon etc urls won't work correctly with path_info
				4066	# unless we set the appropriate base URL
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	4067	if ($ENV{'PATH_INFO'}) {
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	4068	print "<base href=\"".esc_url($base_url)."\" />\n";
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	4069	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4070	print_header_links($status);
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	4071
				4072	if (defined $site_html_head_string) {
				4073	print to_utf8($site_html_head_string);
				4074	}
				4075
Matthias Lederhofer	dd04c42	2006-08-06 13:25:41 +0200	[diff] [blame]	4076	print "</head>\n" .
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4077	"<body>\n";
				4078
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4079	if (defined $site_header && -f $site_header) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4080	insert_file($site_header);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4081	}
				4082
Jonathan Nieder	6822052	2010-09-03 19:45:09 -0500	[diff] [blame]	4083	print "<div class=\"page_header\">\n";
				4084	if (defined $logo) {
				4085	print $cgi->a({-href => esc_url($logo_url),
				4086	-title => $logo_label},
				4087	$cgi->img({-src => esc_url($logo),
				4088	-width => 72, -height => 27,
				4089	-alt => "git",
				4090	-class => "logo"}));
				4091	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4092	print_nav_breadcrumbs(%opts);
Petr Baudis	d77b567	2007-05-17 04:24:19 +0200	[diff] [blame]	4093	print "</div>\n";
				4094
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4095	my $have_search = gitweb_check_feature('search');
Jakub Narebski	f70dda2	2008-06-02 11:54:41 +0200	[diff] [blame]	4096	if (defined $project && $have_search) {
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4097	print_search_form();
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4098	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4099	}
				4100
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	4101	sub git_footer_html {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4102	my $feed_class = 'rss_logo';
				4103
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4104	print "<div class=\"page_footer\">\n";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4105	if (defined $project) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4106	my $descr = git_get_project_description($project);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4107	if (defined $descr) {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	4108	print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4109	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4110
				4111	my %href_params = get_feed_info();
				4112	if (!%href_params) {
				4113	$feed_class .= ' generic';
				4114	}
				4115	$href_params{'-title'} \|\|= 'log';
				4116
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	4117	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4118	$href_params{'action'} = lc($format);
				4119	print $cgi->a({-href => href(%href_params),
				4120	-title => "$href_params{'-title'} $format feed",
				4121	-class => $feed_class}, $format)."\n";
				4122	}
				4123
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4124	} else {
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4125	print $cgi->a({-href => href(project=>undef, action=>"opml",
				4126	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4127	-class => $feed_class}, "OPML") . " ";
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4128	print $cgi->a({-href => href(project=>undef, action=>"project_index",
				4129	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4130	-class => $feed_class}, "TXT") . "\n";
Kay Sievers	ff7669a	2005-08-07 20:13:02 +0200	[diff] [blame]	4131	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4132	print "</div>\n"; # class="page_footer"
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4133
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4134	if (defined $t0 && gitweb_check_feature('timed')) {
				4135	print "<div id=\"generating_info\">\n";
				4136	print 'This page took '.
				4137	'<span id="generating_time" class="time_span">'.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	4138	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4139	' seconds </span>'.
				4140	' and '.
				4141	'<span id="generating_cmd">'.
				4142	$number_of_git_cmds.
				4143	'</span> git commands '.
				4144	" to generate.\n";
				4145	print "</div>\n"; # class="page_footer"
				4146	}
				4147
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4148	if (defined $site_footer && -f $site_footer) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4149	insert_file($site_footer);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4150	}
				4151
Junio C Hamano	abf411e	2010-12-15 11:32:57 -0800	[diff] [blame]	4152	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]	4153	if (defined $action &&
				4154	$action eq 'blame_incremental') {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4155	print qq!<script type="text/javascript">\n!.
				4156	qq!startBlame("!. href(action=>"blame_data", -replay=>1) .qq!",\n!.
				4157	qq! "!. href() .qq!");\n!.
				4158	qq!</script>\n!;
John 'Warthog9' Hawley	291e52b	2011-04-28 21:04:09 +0200	[diff] [blame]	4159	} else {
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4160	my ($jstimezone, $tz_cookie, $datetime_class) =
				4161	gitweb_get_feature('javascript-timezone');
				4162
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4163	print qq!<script type="text/javascript">\n!.
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4164	qq!window.onload = function () {\n!;
				4165	if (gitweb_check_feature('javascript-actions')) {
				4166	print qq! fixLinks();\n!;
				4167	}
				4168	if ($jstimezone && $tz_cookie && $datetime_class) {
				4169	print qq! var tz_cookie = { name: '$tz_cookie', expires: 14, path: '/' };\n!. # in days
				4170	qq! onloadTZSetup('$jstimezone', tz_cookie, '$datetime_class');\n!;
				4171	}
				4172	print qq!};\n!.
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4173	qq!</script>\n!;
				4174	}
				4175
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4176	print "</body>\n" .
Kay Sievers	9cd3d98	2005-08-07 20:17:42 +0200	[diff] [blame]	4177	"</html>";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4178	}
				4179
Jakub Narebski	453541f	2010-02-07 21:51:18 +0100	[diff] [blame]	4180	# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4181	# Example: die_error(404, 'Hash not found')
				4182	# By convention, use the following status codes (as defined in RFC 2616):
				4183	# 400: Invalid or missing CGI parameters, or
				4184	# requested object exists but has wrong type.
				4185	# 403: Requested feature (like "pickaxe" or "snapshot") not enabled on
				4186	# this server or project.
				4187	# 404: Requested object/revision/project doesn't exist.
				4188	# 500: The server isn't configured properly, or
				4189	# an internal error occurred (e.g. failed assertions caused by bugs), or
				4190	# an unknown error occurred (e.g. the git binary died unexpectedly).
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4191	# 503: The server is currently unavailable (because it is overloaded,
				4192	# or down for maintenance). Generally, this is a temporary state.
Kay Sievers	061cc7c	2005-08-07 20:15:57 +0200	[diff] [blame]	4193	sub die_error {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4194	my $status = shift \|\| 500;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	4195	my $error = esc_html(shift) \|\| "Internal Server Error";
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4196	my $extra = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4197	my %opts = @_;
Kay Sievers	664f4cc	2005-08-07 20:17:19 +0200	[diff] [blame]	4198
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4199	my %http_responses = (
				4200	400 => '400 Bad Request',
				4201	403 => '403 Forbidden',
				4202	404 => '404 Not Found',
				4203	500 => '500 Internal Server Error',
				4204	503 => '503 Service Unavailable',
				4205	);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4206	git_header_html($http_responses{$status}, undef, %opts);
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4207	print <<EOF;
				4208	<div class="page_body">
				4209	<br /><br />
				4210	$status - $error
				4211	<br />
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4212	EOF
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4213	if (defined $extra) {
				4214	print "<hr />\n" .
				4215	"$extra\n";
				4216	}
				4217	print "</div>\n";
				4218
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4219	git_footer_html();
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4220	goto DONE_GITWEB
				4221	unless ($opts{'-error_handler'});
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4222	}
				4223
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4224	## ----------------------------------------------------------------------
				4225	## functions printing or outputting HTML: navigation
				4226
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4227	sub git_print_page_nav {
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4228	my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
				4229	$extra = '' if !defined $extra; # pager or formats
				4230
				4231	my @navs = qw(summary shortlog log commit commitdiff tree);
				4232	if ($suppress) {
				4233	@navs = grep { $_ ne $suppress } @navs;
				4234	}
				4235
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4236	my %arg = map { $_ => {action=>$_} } @navs;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4237	if (defined $head) {
				4238	for (qw(commit commitdiff)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4239	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4240	}
				4241	if ($current =~ m/^(tree \| log \| shortlog \| commit \| commitdiff \| search)$/x) {
				4242	for (qw(shortlog log)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4243	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4244	}
				4245	}
				4246	}
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4247
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4248	$arg{'tree'}{'hash'} = $treehead if defined $treehead;
				4249	$arg{'tree'}{'hash_base'} = $treebase if defined $treebase;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4250
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	4251	my @actions = gitweb_get_feature('actions');
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4252	my %repl = (
				4253	'%' => '%',
				4254	'n' => $project, # project name
				4255	'f' => $git_dir, # project path within filesystem
				4256	'h' => $treehead \|\| '', # current hash ('h' parameter)
				4257	'b' => $treebase \|\| '', # hash base ('hb' parameter)
				4258	);
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4259	while (@actions) {
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4260	my ($label, $link, $pos) = splice(@actions,0,3);
				4261	# insert
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4262	@navs = map { $_ eq $pos ? ($_, $label) : $_ } @navs;
				4263	# munch munch
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4264	$link =~ s/%([%nfhb])/$repl{$1}/g;
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4265	$arg{$label}{'_href'} = $link;
				4266	}
				4267
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4268	print "<div class=\"page_nav\">\n" .
				4269	(join " \| ",
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4270	map { $_ eq $current ?
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4271	$_ : $cgi->a({-href => ($arg{$_}{_href} ? $arg{$_}{_href} : href(%{$arg{$_}}))}, "$_")
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4272	} @navs);
Jakub Narebski	898a893	2006-07-30 16:14:43 +0200	[diff] [blame]	4273	print "<br/>\n$extra<br/>\n" .
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4274	"</div>\n";
				4275	}
				4276
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	4277	# returns a submenu for the nagivation of the refs views (tags, heads,
				4278	# remotes) with the current view disabled and the remotes view only
				4279	# available if the feature is enabled
				4280	sub format_ref_views {
				4281	my ($current) = @_;
				4282	my @ref_views = qw{tags heads};
				4283	push @ref_views, 'remotes' if gitweb_check_feature('remote_heads');
				4284	return join " \| ", map {
				4285	$_ eq $current ? $_ :
				4286	$cgi->a({-href => href(action=>$_)}, $_)
				4287	} @ref_views
				4288	}
				4289
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4290	sub format_paging_nav {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4291	my ($action, $page, $has_next_link) = @_;
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4292	my $paging_nav;
				4293
				4294
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4295	if ($page > 0) {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4296	$paging_nav .=
				4297	$cgi->a({-href => href(-replay=>1, page=>undef)}, "first") .
				4298	" ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4299	$cgi->a({-href => href(-replay=>1, page=>$page-1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4300	-accesskey => "p", -title => "Alt-p"}, "prev");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4301	} else {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4302	$paging_nav .= "first ⋅ prev";
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4303	}
				4304
Lea Wiemann	1f684dc	2008-05-28 01:25:42 +0200	[diff] [blame]	4305	if ($has_next_link) {
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4306	$paging_nav .= " ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4307	$cgi->a({-href => href(-replay=>1, page=>$page+1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4308	-accesskey => "n", -title => "Alt-n"}, "next");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4309	} else {
				4310	$paging_nav .= " ⋅ next";
				4311	}
				4312
				4313	return $paging_nav;
				4314	}
				4315
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4316	## ......................................................................
				4317	## functions printing or outputting HTML: div
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4318
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4319	sub git_print_header_div {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4320	my ($action, $title, $hash, $hash_base) = @_;
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4321	my %args = ();
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4322
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4323	$args{'action'} = $action;
				4324	$args{'hash'} = $hash if $hash;
				4325	$args{'hash_base'} = $hash_base if $hash_base;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4326
				4327	print "<div class=\"header\">\n" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4328	$cgi->a({-href => href(%args), -class => "title"},
				4329	$title ? $title : $action) .
				4330	"\n</div>\n";
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4331	}
				4332
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	4333	sub format_repo_url {
				4334	my ($name, $url) = @_;
				4335	return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
				4336	}
				4337
Giuseppe Bilotta	b891d52	2010-11-11 13:26:16 +0100	[diff] [blame]	4338	# Group output by placing it in a DIV element and adding a header.
				4339	# Options for start_div() can be provided by passing a hash reference as the
				4340	# first parameter to the function.
				4341	# Options to git_print_header_div() can be provided by passing an array
				4342	# reference. This must follow the options to start_div if they are present.
				4343	# The content can be a scalar, which is output as-is, a scalar reference, which
				4344	# is output after html escaping, an IO handle passed either as *handle or
				4345	# *handle{IO}, or a function reference. In the latter case all following
				4346	# parameters will be taken as argument to the content function call.
				4347	sub git_print_section {
				4348	my ($div_args, $header_args, $content);
				4349	my $arg = shift;
				4350	if (ref($arg) eq 'HASH') {
				4351	$div_args = $arg;
				4352	$arg = shift;
				4353	}
				4354	if (ref($arg) eq 'ARRAY') {
				4355	$header_args = $arg;
				4356	$arg = shift;
				4357	}
				4358	$content = $arg;
				4359
				4360	print $cgi->start_div($div_args);
				4361	git_print_header_div(@$header_args);
				4362
				4363	if (ref($content) eq 'CODE') {
				4364	$content->(@_);
				4365	} elsif (ref($content) eq 'SCALAR') {
				4366	print esc_html($$content);
				4367	} elsif (ref($content) eq 'GLOB' or ref($content) eq 'IO::Handle') {
				4368	print <$content>;
				4369	} elsif (!ref($content) && defined($content)) {
				4370	print $content;
				4371	}
				4372
				4373	print $cgi->end_div;
				4374	}
				4375
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4376	sub format_timestamp_html {
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4377	my $date = shift;
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4378	my $strtime = $date->{'rfc2822'};
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4379
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4380	my (undef, undef, $datetime_class) =
				4381	gitweb_get_feature('javascript-timezone');
				4382	if ($datetime_class) {
				4383	$strtime = qq!<span class="$datetime_class">$strtime</span>!;
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4384	}
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4385
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4386	my $localtime_format = '(%02d:%02d %s)';
				4387	if ($date->{'hour_local'} < 6) {
				4388	$localtime_format = '(<span class="atnight">%02d:%02d</span> %s)';
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4389	}
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4390	$strtime .= ' ' .
				4391	sprintf($localtime_format,
				4392	$date->{'hour_local'}, $date->{'minute_local'}, $date->{'tz_local'});
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4393
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4394	return $strtime;
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4395	}
				4396
				4397	# Outputs the author name and date in long form
				4398	sub git_print_authorship {
				4399	my $co = shift;
				4400	my %opts = @_;
				4401	my $tag = $opts{-tag} \|\| 'div';
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4402	my $author = $co->{'author_name'};
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4403
				4404	my %ad = parse_date($co->{'author_epoch'}, $co->{'author_tz'});
				4405	print "<$tag class=\"author_date\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4406	format_search_author($author, "author", esc_html($author)) .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4407	" [".format_timestamp_html(\%ad)."]".
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4408	git_get_avatar($co->{'author_email'}, -pad_before => 1) .
				4409	"</$tag>\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4410	}
				4411
				4412	# Outputs table rows containing the full author or committer information,
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4413	# in the format expected for 'commit' view (& similar).
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4414	# Parameters are a commit hash reference, followed by the list of people
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4415	# 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]	4416	# author and committer.
				4417	sub git_print_authorship_rows {
				4418	my $co = shift;
				4419	# too bad we can't use @people = @_ \|\| ('author', 'committer')
				4420	my @people = @_;
				4421	@people = ('author', 'committer') unless @people;
				4422	foreach my $who (@people) {
				4423	my %wd = parse_date($co->{"${who}_epoch"}, $co->{"${who}_tz"});
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4424	print "<tr><td>$who</td><td>" .
				4425	format_search_author($co->{"${who}_name"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4426	esc_html($co->{"${who}_name"})) . " " .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4427	format_search_author($co->{"${who}_email"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4428	esc_html("<" . $co->{"${who}_email"} . ">")) .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4429	"</td><td rowspan=\"2\">" .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	4430	git_get_avatar($co->{"${who}_email"}, -size => 'double') .
				4431	"</td></tr>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4432	"<tr>" .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4433	"<td></td><td>" .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4434	format_timestamp_html(\%wd) .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4435	"</td>" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4436	"</tr>\n";
				4437	}
Jakub Narebski	6fd92a2	2006-08-28 14:48:12 +0200	[diff] [blame]	4438	}
				4439
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4440	sub git_print_page_path {
				4441	my $name = shift;
				4442	my $type = shift;
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4443	my $hb = shift;
Junio C Hamano	df2c37a	2006-01-09 13:13:39 +0100	[diff] [blame]	4444
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4445
				4446	print "<div class=\"page_path\">";
				4447	print $cgi->a({-href => href(action=>"tree", hash_base=>$hb),
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	4448	-title => 'tree root'}, to_utf8("[$project]"));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4449	print " / ";
				4450	if (defined $name) {
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4451	my @dirname = split '/', $name;
				4452	my $basename = pop @dirname;
				4453	my $fullname = '';
				4454
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4455	foreach my $dir (@dirname) {
Petr Baudis	16fdb48	2006-09-21 02:05:50 +0200	[diff] [blame]	4456	$fullname .= ($fullname ? '/' : '') . $dir;
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4457	print $cgi->a({-href => href(action=>"tree", file_name=>$fullname,
				4458	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4459	-title => $fullname}, esc_path($dir));
Petr Baudis	26d0a97	2006-09-23 01:00:12 +0200	[diff] [blame]	4460	print " / ";
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4461	}
				4462	if (defined $type && $type eq 'blob') {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4463	print $cgi->a({-href => href(action=>"blob_plain", file_name=>$file_name,
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4464	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4465	-title => $name}, esc_path($basename));
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4466	} elsif (defined $type && $type eq 'tree') {
				4467	print $cgi->a({-href => href(action=>"tree", file_name=>$file_name,
				4468	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4469	-title => $name}, esc_path($basename));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4470	print " / ";
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4471	} else {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4472	print esc_path($basename);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4473	}
Kay Sievers	8ed23e1	2005-08-07 20:05:44 +0200	[diff] [blame]	4474	}
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4475	print "<br/></div>\n";
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4476	}
				4477
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	4478	sub git_print_log {
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4479	my $log = shift;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4480	my %opts = @_;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4481
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4482	if ($opts{'-remove_title'}) {
				4483	# remove title, i.e. first line of log
				4484	shift @$log;
				4485	}
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4486	# remove leading empty lines
				4487	while (defined $log->[0] && $log->[0] eq "") {
				4488	shift @$log;
				4489	}
				4490
				4491	# print log
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4492	my $skip_blank_line = 0;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4493	foreach my $line (@$log) {
Namhyung Kim	3d1110a	2012-07-04 11:47:25 +0900	[diff] [blame]	4494	if ($line =~ m/^\s([A-Z][-A-Za-z]-[Bb]y\|C[Cc]): /) {
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4495	if (! $opts{'-remove_signoff'}) {
				4496	print "<span class=\"signoff\">" . esc_html($line) . "</span><br/>\n";
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4497	$skip_blank_line = 1;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4498	}
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4499	next;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4500	}
				4501
Namhyung Kim	66c857e	2012-07-04 11:47:26 +0900	[diff] [blame]	4502	if ($line =~ m,\s([a-z]link): (https?://\S+),i) {
				4503	if (! $opts{'-remove_signoff'}) {
				4504	print "<span class=\"signoff\">" . esc_html($1) . ": " .
				4505	"<a href=\"" . esc_html($2) . "\">" . esc_html($2) . "</a>" .
				4506	"</span><br/>\n";
				4507	$skip_blank_line = 1;
				4508	}
				4509	next;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4510	}
				4511
				4512	# print only one empty line
				4513	# do not print empty line after signoff
				4514	if ($line eq "") {
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4515	next if ($skip_blank_line);
				4516	$skip_blank_line = 1;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4517	} else {
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4518	$skip_blank_line = 0;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4519	}
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4520
				4521	print format_log_line_html($line) . "<br/>\n";
				4522	}
				4523
				4524	if ($opts{'-final_empty_line'}) {
				4525	# end with single empty line
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4526	print "<br/>\n" unless $skip_blank_line;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4527	}
				4528	}
				4529
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4530	# return link target (what link points to)
				4531	sub git_get_link_target {
				4532	my $hash = shift;
				4533	my $link_target;
				4534
				4535	# read link
				4536	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
				4537	or return;
				4538	{
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	4539	local $/ = undef;
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4540	$link_target = <$fd>;
				4541	}
				4542	close $fd
				4543	or return;
				4544
				4545	return $link_target;
				4546	}
				4547
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4548	# given link target, and the directory (basedir) the link is in,
				4549	# return target of link relative to top directory (top tree);
				4550	# return undef if it is not possible (including absolute links).
				4551	sub normalize_link_target {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4552	my ($link_target, $basedir) = @_;
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4553
				4554	# absolute symlinks (beginning with '/') cannot be normalized
				4555	return if (substr($link_target, 0, 1) eq '/');
				4556
				4557	# normalize link target to path from top (root) tree (dir)
				4558	my $path;
				4559	if ($basedir) {
				4560	$path = $basedir . '/' . $link_target;
				4561	} else {
				4562	# we are in top (root) tree (dir)
				4563	$path = $link_target;
				4564	}
				4565
				4566	# remove //, /./, and /../
				4567	my @path_parts;
				4568	foreach my $part (split('/', $path)) {
				4569	# discard '.' and ''
				4570	next if (!$part \|\| $part eq '.');
				4571	# handle '..'
				4572	if ($part eq '..') {
				4573	if (@path_parts) {
				4574	pop @path_parts;
				4575	} else {
				4576	# link leads outside repository (outside top dir)
				4577	return;
				4578	}
				4579	} else {
				4580	push @path_parts, $part;
				4581	}
				4582	}
				4583	$path = join('/', @path_parts);
				4584
				4585	return $path;
				4586	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4587
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4588	# print tree entry (row of git_tree), but without encompassing <tr> element
				4589	sub git_print_tree_entry {
				4590	my ($t, $basedir, $hash_base, $have_blame) = @_;
				4591
				4592	my %base_key = ();
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4593	$base_key{'hash_base'} = $hash_base if defined $hash_base;
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4594
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4595	# The format of a table row is: mode list link. Where mode is
				4596	# the mode of the entry, list is the name of the entry, an href,
				4597	# and link is the action links of the entry.
				4598
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4599	print "<td class=\"mode\">" . mode_str($t->{'mode'}) . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4600	if (exists $t->{'size'}) {
				4601	print "<td class=\"size\">$t->{'size'}</td>\n";
				4602	}
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4603	if ($t->{'type'} eq "blob") {
				4604	print "<td class=\"list\">" .
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4605	$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4606	file_name=>"$basedir$t->{'name'}", %base_key),
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4607	-class => "list"}, esc_path($t->{'name'}));
				4608	if (S_ISLNK(oct $t->{'mode'})) {
				4609	my $link_target = git_get_link_target($t->{'hash'});
				4610	if ($link_target) {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4611	my $norm_target = normalize_link_target($link_target, $basedir);
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4612	if (defined $norm_target) {
				4613	print " -> " .
				4614	$cgi->a({-href => href(action=>"object", hash_base=>$hash_base,
				4615	file_name=>$norm_target),
				4616	-title => $norm_target}, esc_path($link_target));
				4617	} else {
				4618	print " -> " . esc_path($link_target);
				4619	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4620	}
				4621	}
				4622	print "</td>\n";
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4623	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4624	print $cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4625	file_name=>"$basedir$t->{'name'}", %base_key)},
				4626	"blob");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4627	if ($have_blame) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4628	print " \| " .
				4629	$cgi->a({-href => href(action=>"blame", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4630	file_name=>"$basedir$t->{'name'}", %base_key)},
				4631	"blame");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4632	}
				4633	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4634	print " \| " .
				4635	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4636	hash=>$t->{'hash'}, file_name=>"$basedir$t->{'name'}")},
				4637	"history");
				4638	}
				4639	print " \| " .
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	4640	$cgi->a({-href => href(action=>"blob_plain", hash_base=>$hash_base,
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4641	file_name=>"$basedir$t->{'name'}")},
				4642	"raw");
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4643	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4644
				4645	} elsif ($t->{'type'} eq "tree") {
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4646	print "<td class=\"list\">";
				4647	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4648	file_name=>"$basedir$t->{'name'}",
				4649	%base_key)},
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4650	esc_path($t->{'name'}));
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4651	print "</td>\n";
				4652	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4653	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4654	file_name=>"$basedir$t->{'name'}",
				4655	%base_key)},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4656	"tree");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4657	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4658	print " \| " .
				4659	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4660	file_name=>"$basedir$t->{'name'}")},
				4661	"history");
				4662	}
				4663	print "</td>\n";
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	4664	} else {
				4665	# unknown object: we can only present history for it
				4666	# (this includes 'commit' object, i.e. submodule support)
				4667	print "<td class=\"list\">" .
				4668	esc_path($t->{'name'}) .
				4669	"</td>\n";
				4670	print "<td class=\"link\">";
				4671	if (defined $hash_base) {
				4672	print $cgi->a({-href => href(action=>"history",
				4673	hash_base=>$hash_base,
				4674	file_name=>"$basedir$t->{'name'}")},
				4675	"history");
				4676	}
				4677	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4678	}
				4679	}
				4680
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4681	## ......................................................................
				4682	## functions printing large fragments of HTML
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	4683
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4684	# get pre-image filenames for merge (combined) diff
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4685	sub fill_from_file_info {
				4686	my ($diff, @parents) = @_;
				4687
				4688	$diff->{'from_file'} = [ ];
				4689	$diff->{'from_file'}[$diff->{'nparents'} - 1] = undef;
				4690	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
				4691	if ($diff->{'status'}[$i] eq 'R' \|\|
				4692	$diff->{'status'}[$i] eq 'C') {
				4693	$diff->{'from_file'}[$i] =
				4694	git_get_path_by_hash($parents[$i], $diff->{'from_id'}[$i]);
				4695	}
				4696	}
				4697
				4698	return $diff;
				4699	}
				4700
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4701	# is current raw difftree line of file deletion
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4702	sub is_deleted {
				4703	my $diffinfo = shift;
				4704
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	4705	return $diffinfo->{'to_id'} eq ('0' x 40);
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4706	}
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4707
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4708	# does patch correspond to [previous] difftree raw line
				4709	# $diffinfo - hashref of parsed raw diff format
				4710	# $patchinfo - hashref of parsed patch diff format
				4711	# (the same keys as in $diffinfo)
				4712	sub is_patch_split {
				4713	my ($diffinfo, $patchinfo) = @_;
				4714
				4715	return defined $diffinfo && defined $patchinfo
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	4716	&& $diffinfo->{'to_file'} eq $patchinfo->{'to_file'};
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4717	}
				4718
				4719
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4720	sub git_difftree_body {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4721	my ($difftree, $hash, @parents) = @_;
				4722	my ($parent) = $parents[0];
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4723	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4724	print "<div class=\"list_head\">\n";
				4725	if ($#{$difftree} > 10) {
				4726	print(($#{$difftree} + 1) . " files changed:\n");
				4727	}
				4728	print "</div>\n";
				4729
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4730	print "<table class=\"" .
				4731	(@parents > 1 ? "combined " : "") .
				4732	"diff_tree\">\n";
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4733
				4734	# header only for combined diff in 'commitdiff' view
Jakub Narebski	3ef408a	2007-09-08 21:54:28 +0200	[diff] [blame]	4735	my $has_header = @$difftree && @parents > 1 && $action eq 'commitdiff';
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4736	if ($has_header) {
				4737	# table header
				4738	print "<thead><tr>\n" .
				4739	"<th></th><th></th>\n"; # filename, patchN link
				4740	for (my $i = 0; $i < @parents; $i++) {
				4741	my $par = $parents[$i];
				4742	print "<th>" .
				4743	$cgi->a({-href => href(action=>"commitdiff",
				4744	hash=>$hash, hash_parent=>$par),
				4745	-title => 'commitdiff to parent number ' .
				4746	($i+1) . ': ' . substr($par,0,7)},
				4747	$i+1) .
				4748	" </th>\n";
				4749	}
				4750	print "</tr></thead>\n<tbody>\n";
				4751	}
				4752
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	4753	my $alternate = 1;
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4754	my $patchno = 0;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4755	foreach my $line (@{$difftree}) {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4756	my $diff = parsed_difftree_line($line);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4757
				4758	if ($alternate) {
				4759	print "<tr class=\"dark\">\n";
				4760	} else {
				4761	print "<tr class=\"light\">\n";
				4762	}
				4763	$alternate ^= 1;
				4764
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4765	if (exists $diff->{'nparents'}) { # combined diff
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4766
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4767	fill_from_file_info($diff, @parents)
				4768	unless exists $diff->{'from_file'};
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4769
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4770	if (!is_deleted($diff)) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4771	# file exists in the result (child) commit
				4772	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4773	$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4774	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4775	hash_base=>$hash),
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4776	-class => "list"}, esc_path($diff->{'to_file'})) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4777	"</td>\n";
				4778	} else {
				4779	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4780	esc_path($diff->{'to_file'}) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4781	"</td>\n";
				4782	}
				4783
				4784	if ($action eq 'commitdiff') {
				4785	# link to patch
				4786	$patchno++;
				4787	print "<td class=\"link\">" .
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4788	$cgi->a({-href => href(-anchor=>"patch$patchno")},
				4789	"patch") .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4790	" \| " .
				4791	"</td>\n";
				4792	}
				4793
				4794	my $has_history = 0;
				4795	my $not_deleted = 0;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4796	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4797	my $hash_parent = $parents[$i];
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4798	my $from_hash = $diff->{'from_id'}[$i];
				4799	my $from_path = $diff->{'from_file'}[$i];
				4800	my $status = $diff->{'status'}[$i];
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4801
				4802	$has_history \|\|= ($status ne 'A');
				4803	$not_deleted \|\|= ($status ne 'D');
				4804
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4805	if ($status eq 'A') {
				4806	print "<td class=\"link\" align=\"right\"> \| </td>\n";
				4807	} elsif ($status eq 'D') {
				4808	print "<td class=\"link\">" .
				4809	$cgi->a({-href => href(action=>"blob",
				4810	hash_base=>$hash,
				4811	hash=>$from_hash,
				4812	file_name=>$from_path)},
				4813	"blob" . ($i+1)) .
				4814	" \| </td>\n";
				4815	} else {
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4816	if ($diff->{'to_id'} eq $from_hash) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4817	print "<td class=\"link nochange\">";
				4818	} else {
				4819	print "<td class=\"link\">";
				4820	}
				4821	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4822	hash=>$diff->{'to_id'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4823	hash_parent=>$from_hash,
				4824	hash_base=>$hash,
				4825	hash_parent_base=>$hash_parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4826	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4827	file_parent=>$from_path)},
				4828	"diff" . ($i+1)) .
				4829	" \| </td>\n";
				4830	}
				4831	}
				4832
				4833	print "<td class=\"link\">";
				4834	if ($not_deleted) {
				4835	print $cgi->a({-href => href(action=>"blob",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4836	hash=>$diff->{'to_id'},
				4837	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4838	hash_base=>$hash)},
				4839	"blob");
				4840	print " \| " if ($has_history);
				4841	}
				4842	if ($has_history) {
				4843	print $cgi->a({-href => href(action=>"history",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4844	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4845	hash_base=>$hash)},
				4846	"history");
				4847	}
				4848	print "</td>\n";
				4849
				4850	print "</tr>\n";
				4851	next; # instead of 'else' clause, to avoid extra indent
				4852	}
				4853	# else ordinary diff
				4854
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4855	my ($to_mode_oct, $to_mode_str, $to_file_type);
				4856	my ($from_mode_oct, $from_mode_str, $from_file_type);
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4857	if ($diff->{'to_mode'} ne ('0' x 6)) {
				4858	$to_mode_oct = oct $diff->{'to_mode'};
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4859	if (S_ISREG($to_mode_oct)) { # only for regular file
				4860	$to_mode_str = sprintf("%04o", $to_mode_oct & 0777); # permission bits
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4861	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4862	$to_file_type = file_type($diff->{'to_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4863	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4864	if ($diff->{'from_mode'} ne ('0' x 6)) {
				4865	$from_mode_oct = oct $diff->{'from_mode'};
Ævar Arnfjörð Bjarmason	98885c2	2011-02-19 15:27:42 +0000	[diff] [blame]	4866	if (S_ISREG($from_mode_oct)) { # only for regular file
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4867	$from_mode_str = sprintf("%04o", $from_mode_oct & 0777); # permission bits
				4868	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4869	$from_file_type = file_type($diff->{'from_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4870	}
				4871
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4872	if ($diff->{'status'} eq "A") { # created
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4873	my $mode_chng = "<span class=\"file_status new\">[new $to_file_type";
				4874	$mode_chng .= " with mode: $to_mode_str" if $to_mode_str;
				4875	$mode_chng .= "]</span>";
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4876	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4877	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4878	hash_base=>$hash, file_name=>$diff->{'file'}),
				4879	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4880	print "</td>\n";
				4881	print "<td>$mode_chng</td>\n";
				4882	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4883	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4884	# link to patch
				4885	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4886	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4887	"patch") .
				4888	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4889	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4890	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4891	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	3faa541	2007-01-08 02:10:42 +0100	[diff] [blame]	4892	"blob");
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4893	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4894
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4895	} elsif ($diff->{'status'} eq "D") { # deleted
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4896	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]	4897	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4898	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4899	hash_base=>$parent, file_name=>$diff->{'file'}),
				4900	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4901	print "</td>\n";
				4902	print "<td>$mode_chng</td>\n";
				4903	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4904	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4905	# link to patch
				4906	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4907	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4908	"patch") .
				4909	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4910	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4911	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4912	hash_base=>$parent, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4913	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4914	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4915	print $cgi->a({-href => href(action=>"blame", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4916	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4917	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4918	}
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4919	print $cgi->a({-href => href(action=>"history", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4920	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4921	"history");
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4922	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4923
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4924	} 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]	4925	my $mode_chnge = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4926	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4927	$mode_chnge = "<span class=\"file_status mode_chnge\">[changed";
Jakub Narebski	6e72cf4	2007-01-03 20:47:24 +0100	[diff] [blame]	4928	if ($from_file_type ne $to_file_type) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4929	$mode_chnge .= " from $from_file_type to $to_file_type";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4930	}
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4931	if (($from_mode_oct & 0777) != ($to_mode_oct & 0777)) {
				4932	if ($from_mode_str && $to_mode_str) {
				4933	$mode_chnge .= " mode: $from_mode_str->$to_mode_str";
				4934	} elsif ($to_mode_str) {
				4935	$mode_chnge .= " mode: $to_mode_str";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4936	}
				4937	}
				4938	$mode_chnge .= "]</span>\n";
				4939	}
				4940	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4941	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4942	hash_base=>$hash, file_name=>$diff->{'file'}),
				4943	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4944	print "</td>\n";
				4945	print "<td>$mode_chnge</td>\n";
				4946	print "<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4947	if ($action eq 'commitdiff') {
				4948	# link to patch
				4949	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4950	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4951	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4952	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4953	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4954	# "commit" view and modified file (not onlu mode changed)
				4955	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4956	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4957	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4958	file_name=>$diff->{'file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4959	"diff") .
				4960	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4961	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4962	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4963	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4964	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4965	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4966	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4967	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4968	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4969	}
Luben Tuikov	eb51ec9	2006-09-27 17:24:49 -0700	[diff] [blame]	4970	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4971	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4972	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4973	print "</td>\n";
				4974
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4975	} elsif ($diff->{'status'} eq "R" \|\| $diff->{'status'} eq "C") { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4976	my %status_name = ('R' => 'moved', 'C' => 'copied');
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4977	my $nstatus = $status_name{$diff->{'status'}};
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4978	my $mode_chng = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4979	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4980	# mode also for directories, so we cannot use $to_mode_str
				4981	$mode_chng = sprintf(", mode: %04o", $to_mode_oct & 0777);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4982	}
				4983	print "<td>" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4984	$cgi->a({-href => href(action=>"blob", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4985	hash=>$diff->{'to_id'}, file_name=>$diff->{'to_file'}),
				4986	-class => "list"}, esc_path($diff->{'to_file'})) . "</td>\n" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4987	"<td><span class=\"file_status $nstatus\">[$nstatus from " .
				4988	$cgi->a({-href => href(action=>"blob", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4989	hash=>$diff->{'from_id'}, file_name=>$diff->{'from_file'}),
				4990	-class => "list"}, esc_path($diff->{'from_file'})) .
				4991	" with " . (int $diff->{'similarity'}) . "% similarity$mode_chng]</span></td>\n" .
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4992	"<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4993	if ($action eq 'commitdiff') {
				4994	# link to patch
				4995	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4996	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4997	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4998	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4999	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5000	# "commit" view and modified file (not only pure rename or copy)
				5001	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5002	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5003	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5004	file_name=>$diff->{'to_file'}, file_parent=>$diff->{'from_file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5005	"diff") .
				5006	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5007	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5008	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				5009	hash_base=>$parent, file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5010	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5011	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5012	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5013	file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5014	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5015	}
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5016	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5017	file_name=>$diff->{'to_file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	5018	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5019	print "</td>\n";
				5020
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5021	} # we should not encounter Unmerged (U) or Unknown (X) status
				5022	print "</tr>\n";
				5023	}
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	5024	print "</tbody>" if $has_header;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5025	print "</table>\n";
				5026	}
				5027
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5028	# Print context lines and then rem/add lines in a side-by-side manner.
				5029	sub print_sidebyside_diff_lines {
				5030	my ($ctx, $rem, $add) = @_;
				5031
				5032	# print context block before add/rem block
				5033	if (@$ctx) {
				5034	print join '',
				5035	'<div class="chunk_block ctx">',
				5036	'<div class="old">',
				5037	@$ctx,
				5038	'</div>',
				5039	'<div class="new">',
				5040	@$ctx,
				5041	'</div>',
				5042	'</div>';
				5043	}
				5044
				5045	if (!@$add) {
				5046	# pure removal
				5047	print join '',
				5048	'<div class="chunk_block rem">',
				5049	'<div class="old">',
				5050	@$rem,
				5051	'</div>',
				5052	'</div>';
				5053	} elsif (!@$rem) {
				5054	# pure addition
				5055	print join '',
				5056	'<div class="chunk_block add">',
				5057	'<div class="new">',
				5058	@$add,
				5059	'</div>',
				5060	'</div>';
				5061	} else {
				5062	print join '',
				5063	'<div class="chunk_block chg">',
				5064	'<div class="old">',
				5065	@$rem,
				5066	'</div>',
				5067	'<div class="new">',
				5068	@$add,
				5069	'</div>',
				5070	'</div>';
				5071	}
				5072	}
				5073
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5074	# Print context lines and then rem/add lines in inline manner.
				5075	sub print_inline_diff_lines {
				5076	my ($ctx, $rem, $add) = @_;
				5077
				5078	print @$ctx, @$rem, @$add;
				5079	}
				5080
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5081	# Format removed and added line, mark changed part and HTML-format them.
				5082	# Implementation is based on contrib/diff-highlight
				5083	sub format_rem_add_lines_pair {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5084	my ($rem, $add, $num_parents) = @_;
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5085
				5086	# We need to untabify lines before split()'ing them;
				5087	# otherwise offsets would be invalid.
				5088	chomp $rem;
				5089	chomp $add;
				5090	$rem = untabify($rem);
				5091	$add = untabify($add);
				5092
				5093	my @rem = split(//, $rem);
				5094	my @add = split(//, $add);
				5095	my ($esc_rem, $esc_add);
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5096	# Ignore leading +/- characters for each parent.
				5097	my ($prefix_len, $suffix_len) = ($num_parents, 0);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5098	my ($prefix_has_nonspace, $suffix_has_nonspace);
				5099
				5100	my $shorter = (@rem < @add) ? @rem : @add;
				5101	while ($prefix_len < $shorter) {
				5102	last if ($rem[$prefix_len] ne $add[$prefix_len]);
				5103
				5104	$prefix_has_nonspace = 1 if ($rem[$prefix_len] !~ /\s/);
				5105	$prefix_len++;
				5106	}
				5107
				5108	while ($prefix_len + $suffix_len < $shorter) {
				5109	last if ($rem[-1 - $suffix_len] ne $add[-1 - $suffix_len]);
				5110
				5111	$suffix_has_nonspace = 1 if ($rem[-1 - $suffix_len] !~ /\s/);
				5112	$suffix_len++;
				5113	}
				5114
				5115	# Mark lines that are different from each other, but have some common
				5116	# part that isn't whitespace. If lines are completely different, don't
				5117	# mark them because that would make output unreadable, especially if
				5118	# diff consists of multiple lines.
				5119	if ($prefix_has_nonspace \|\| $suffix_has_nonspace) {
				5120	$esc_rem = esc_html_hl_regions($rem, 'marked',
				5121	[$prefix_len, @rem - $suffix_len], -nbsp=>1);
				5122	$esc_add = esc_html_hl_regions($add, 'marked',
				5123	[$prefix_len, @add - $suffix_len], -nbsp=>1);
				5124	} else {
				5125	$esc_rem = esc_html($rem, -nbsp=>1);
				5126	$esc_add = esc_html($add, -nbsp=>1);
				5127	}
				5128
				5129	return format_diff_line(\$esc_rem, 'rem'),
				5130	format_diff_line(\$esc_add, 'add');
				5131	}
				5132
				5133	# HTML-format diff context, removed and added lines.
				5134	sub format_ctx_rem_add_lines {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5135	my ($ctx, $rem, $add, $num_parents) = @_;
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5136	my (@new_ctx, @new_rem, @new_add);
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5137	my $can_highlight = 0;
				5138	my $is_combined = ($num_parents > 1);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5139
				5140	# Highlight if every removed line has a corresponding added line.
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5141	if (@$add > 0 && @$add == @$rem) {
				5142	$can_highlight = 1;
				5143
				5144	# Highlight lines in combined diff only if the chunk contains
				5145	# diff between the same version, e.g.
				5146	#
				5147	# - a
				5148	# - b
				5149	# + c
				5150	# + d
				5151	#
				5152	# Otherwise the highlightling would be confusing.
				5153	if ($is_combined) {
				5154	for (my $i = 0; $i < @$add; $i++) {
				5155	my $prefix_rem = substr($rem->[$i], 0, $num_parents);
				5156	my $prefix_add = substr($add->[$i], 0, $num_parents);
				5157
				5158	$prefix_rem =~ s/-/+/g;
				5159
				5160	if ($prefix_rem ne $prefix_add) {
				5161	$can_highlight = 0;
				5162	last;
				5163	}
				5164	}
				5165	}
				5166	}
				5167
				5168	if ($can_highlight) {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5169	for (my $i = 0; $i < @$add; $i++) {
				5170	my ($line_rem, $line_add) = format_rem_add_lines_pair(
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5171	$rem->[$i], $add->[$i], $num_parents);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5172	push @new_rem, $line_rem;
				5173	push @new_add, $line_add;
				5174	}
				5175	} else {
				5176	@new_rem = map { format_diff_line($_, 'rem') } @$rem;
				5177	@new_add = map { format_diff_line($_, 'add') } @$add;
				5178	}
				5179
				5180	@new_ctx = map { format_diff_line($_, 'ctx') } @$ctx;
				5181
				5182	return (\@new_ctx, \@new_rem, \@new_add);
				5183	}
				5184
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5185	# Print context lines and then rem/add lines.
				5186	sub print_diff_lines {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5187	my ($ctx, $rem, $add, $diff_style, $num_parents) = @_;
				5188	my $is_combined = $num_parents > 1;
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5189
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5190	($ctx, $rem, $add) = format_ctx_rem_add_lines($ctx, $rem, $add,
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5191	$num_parents);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5192
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5193	if ($diff_style eq 'sidebyside' && !$is_combined) {
				5194	print_sidebyside_diff_lines($ctx, $rem, $add);
				5195	} else {
				5196	# default 'inline' style and unknown styles
				5197	print_inline_diff_lines($ctx, $rem, $add);
				5198	}
				5199	}
				5200
				5201	sub print_diff_chunk {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5202	my ($diff_style, $num_parents, $from, $to, @chunk) = @_;
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5203	my (@ctx, @rem, @add);
				5204
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5205	# The class of the previous line.
				5206	my $prev_class = '';
				5207
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5208	return unless @chunk;
				5209
				5210	# incomplete last line might be among removed or added lines,
				5211	# or both, or among context lines: find which
				5212	for (my $i = 1; $i < @chunk; $i++) {
				5213	if ($chunk[$i][0] eq 'incomplete') {
				5214	$chunk[$i][0] = $chunk[$i-1][0];
				5215	}
				5216	}
				5217
				5218	# guardian
				5219	push @chunk, ["", ""];
				5220
				5221	foreach my $line_info (@chunk) {
				5222	my ($class, $line) = @$line_info;
				5223
				5224	# print chunk headers
				5225	if ($class && $class eq 'chunk_header') {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5226	print format_diff_line($line, $class, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5227	next;
				5228	}
				5229
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5230	## print from accumulator when have some add/rem lines or end
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5231	# of chunk (flush context lines), or when have add and rem
				5232	# lines and new block is reached (otherwise add/rem lines could
				5233	# be reordered)
				5234	if (!$class \|\| ((@rem \|\| @add) && $class eq 'ctx') \|\|
				5235	(@rem && @add && $class ne $prev_class)) {
				5236	print_diff_lines(\@ctx, \@rem, \@add,
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5237	$diff_style, $num_parents);
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5238	@ctx = @rem = @add = ();
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5239	}
				5240
				5241	## adding lines to accumulator
				5242	# guardian value
				5243	last unless $line;
				5244	# rem, add or change
				5245	if ($class eq 'rem') {
				5246	push @rem, $line;
				5247	} elsif ($class eq 'add') {
				5248	push @add, $line;
				5249	}
				5250	# context line
				5251	if ($class eq 'ctx') {
				5252	push @ctx, $line;
				5253	}
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5254
				5255	$prev_class = $class;
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5256	}
				5257	}
				5258
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5259	sub git_patchset_body {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5260	my ($fd, $diff_style, $difftree, $hash, @hash_parents) = @_;
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	5261	my ($hash_parent) = $hash_parents[0];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5262
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5263	my $is_combined = (@hash_parents > 1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5264	my $patch_idx = 0;
Martin Koegler	4280cde	2007-04-22 22:49:25 -0700	[diff] [blame]	5265	my $patch_number = 0;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5266	my $patch_line;
Jakub Narebski	fe87585	2006-08-25 20:59:39 +0200	[diff] [blame]	5267	my $diffinfo;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5268	my $to_name;
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5269	my (%from, %to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5270	my @chunk; # for side-by-side diff
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5271
				5272	print "<div class=\"patchset\">\n";
				5273
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5274	# skip to first patch
				5275	while ($patch_line = <$fd>) {
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	5276	chomp $patch_line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5277
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5278	last if ($patch_line =~ m/^diff /);
				5279	}
				5280
				5281	PATCH:
				5282	while ($patch_line) {
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5283
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5284	# parse "git diff" header line
				5285	if ($patch_line =~ m/^diff --git (\"(?:[^\\\"](?:\\.[^\\\"]))\"\|[^ "]) (.*)$/) {
				5286	# $1 is from_name, which we do not use
				5287	$to_name = unquote($2);
				5288	$to_name =~ s!^b/!!;
				5289	} elsif ($patch_line =~ m/^diff --(cc\|combined) ("?.*"?)$/) {
				5290	# $1 is 'cc' or 'combined', which we do not use
				5291	$to_name = unquote($2);
				5292	} else {
				5293	$to_name = undef;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5294	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5295
				5296	# check if current patch belong to current raw line
				5297	# and parse raw git-diff line if needed
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5298	if (is_patch_split($diffinfo, { 'to_file' => $to_name })) {
Jakub Narebski	2206537	2007-05-12 12:42:32 +0200	[diff] [blame]	5299	# this is continuation of a split patch
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5300	print "<div class=\"patch cont\">\n";
				5301	} else {
				5302	# advance raw git-diff output if needed
				5303	$patch_idx++ if defined $diffinfo;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5304
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5305	# read and prepare patch information
				5306	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
				5307
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5308	# compact combined diff output can have some patches skipped
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5309	# find which patch (using pathname of result) we are at now;
				5310	if ($is_combined) {
				5311	while ($to_name ne $diffinfo->{'to_file'}) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5312	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5313	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5314	"</div>\n"; # class="patch"
				5315
				5316	$patch_idx++;
				5317	$patch_number++;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5318
				5319	last if $patch_idx > $#$difftree;
				5320	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5321	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5322	}
Jakub Narebski	711fa74	2007-09-08 21:49:11 +0200	[diff] [blame]	5323
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5324	# modifies %from, %to hashes
				5325	parse_from_to_diffinfo($diffinfo, \%from, \%to, @hash_parents);
Jakub Narebski	5f85505	2007-05-17 22:54:28 +0200	[diff] [blame]	5326
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5327	# this is first patch for raw difftree line with $patch_idx index
				5328	# we index @$difftree array from 0, but number patches from 1
				5329	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n";
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5330	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5331
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5332	# git diff header
				5333	#assert($patch_line =~ m/^diff /) if DEBUG;
				5334	#assert($patch_line !~ m!$/$!) if DEBUG; # is chomp-ed
				5335	$patch_number++;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5336	# print "git diff" header
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5337	print format_git_diff_header_line($patch_line, $diffinfo,
				5338	\%from, \%to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5339
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5340	# print extended diff header
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5341	print "<div class=\"diff extended_header\">\n";
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5342	EXTENDED_HEADER:
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5343	while ($patch_line = <$fd>) {
				5344	chomp $patch_line;
				5345
				5346	last EXTENDED_HEADER if ($patch_line =~ m/^--- \|^diff /);
				5347
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5348	print format_extended_diff_header_line($patch_line, $diffinfo,
				5349	\%from, \%to);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5350	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5351	print "</div>\n"; # class="diff extended_header"
Jakub Narebski	e4e4f82	2006-08-25 21:04:13 +0200	[diff] [blame]	5352
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5353	# from-file/to-file diff header
Jakub Narebski	0bdb28c	2007-01-10 00:07:43 +0100	[diff] [blame]	5354	if (! $patch_line) {
				5355	print "</div>\n"; # class="patch"
				5356	last PATCH;
				5357	}
Jakub Narebski	66399ef	2007-01-07 02:52:25 +0100	[diff] [blame]	5358	next PATCH if ($patch_line =~ m/^diff /);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5359	#assert($patch_line =~ m/^---/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5360
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5361	my $last_patch_line = $patch_line;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5362	$patch_line = <$fd>;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5363	chomp $patch_line;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5364	#assert($patch_line =~ m/^\+\+\+/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5365
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5366	print format_diff_from_to_header($last_patch_line, $patch_line,
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	5367	$diffinfo, \%from, \%to,
				5368	@hash_parents);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5369
				5370	# the patch itself
				5371	LINE:
				5372	while ($patch_line = <$fd>) {
				5373	chomp $patch_line;
				5374
				5375	next PATCH if ($patch_line =~ m/^diff /);
				5376
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	5377	my $class = diff_line_class($patch_line, \%from, \%to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5378
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5379	if ($class eq 'chunk_header') {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5380	print_diff_chunk($diff_style, scalar @hash_parents, \%from, \%to, @chunk);
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5381	@chunk = ();
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5382	}
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5383
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	5384	push @chunk, [ $class, $patch_line ];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5385	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5386
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5387	} continue {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5388	if (@chunk) {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5389	print_diff_chunk($diff_style, scalar @hash_parents, \%from, \%to, @chunk);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5390	@chunk = ();
				5391	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5392	print "</div>\n"; # class="patch"
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5393	}
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5394
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	5395	# for compact combined (--cc) format, with chunk and patch simplification
				5396	# the patchset might be empty, but there might be unprocessed raw lines
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5397	for (++$patch_idx if $patch_number > 0;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5398	$patch_idx < @$difftree;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5399	++$patch_idx) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5400	# read and prepare patch information
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5401	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5402
				5403	# generate anchor for "patch" links in difftree / whatchanged part
				5404	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5405	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5406	"</div>\n"; # class="patch"
				5407
				5408	$patch_number++;
				5409	}
				5410
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5411	if ($patch_number == 0) {
				5412	if (@hash_parents > 1) {
				5413	print "<div class=\"diff nodifferences\">Trivial merge</div>\n";
				5414	} else {
				5415	print "<div class=\"diff nodifferences\">No differences found</div>\n";
				5416	}
				5417	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5418
				5419	print "</div>\n"; # class="patchset"
				5420	}
				5421
				5422	# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
				5423
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5424	sub git_project_search_form {
Jakub Narebski	b22939a	2012-03-02 23:50:01 +0100	[diff] [blame]	5425	my ($searchtext, $search_use_regexp) = @_;
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5426
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5427	my $limit = '';
				5428	if ($project_filter) {
				5429	$limit = " in '$project_filter/'";
				5430	}
				5431
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5432	print "<div class=\"projsearch\">\n";
				5433	print $cgi->startform(-method => 'get', -action => $my_uri) .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5434	$cgi->hidden(-name => 'a', -value => 'project_list') . "\n";
				5435	print $cgi->hidden(-name => 'pf', -value => $project_filter). "\n"
				5436	if (defined $project_filter);
				5437	print $cgi->textfield(-name => 's', -value => $searchtext,
				5438	-title => "Search project by name and description$limit",
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5439	-size => 60) . "\n" .
				5440	"<span title=\"Extended regular expression\">" .
				5441	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				5442	-checked => $search_use_regexp) .
				5443	"</span>\n" .
				5444	$cgi->submit(-name => 'btnS', -value => 'Search') .
				5445	$cgi->end_form() . "\n" .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5446	$cgi->a({-href => href(project => undef, searchtext => undef,
				5447	project_filter => $project_filter)},
				5448	esc_html("List all projects$limit")) . "<br />\n";
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5449	print "</div>\n";
				5450	}
				5451
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5452	# entry for given @keys needs filling if at least one of keys in list
				5453	# is not present in %$project_info
				5454	sub project_info_needs_filling {
				5455	my ($project_info, @keys) = @_;
				5456
				5457	# return List::MoreUtils::any { !exists $project_info->{$_} } @keys;
				5458	foreach my $key (@keys) {
				5459	if (!exists $project_info->{$key}) {
				5460	return 1;
				5461	}
				5462	}
				5463	return;
				5464	}
				5465
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5466	# fills project list info (age, description, owner, category, forks, etc.)
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5467	# for each project in the list, removing invalid projects from
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5468	# returned list, or fill only specified info.
				5469	#
				5470	# Invalid projects are removed from the returned list if and only if you
				5471	# ask 'age' or 'age_string' to be filled, because they are the only fields
				5472	# that run unconditionally git command that requires repository, and
				5473	# therefore do always check if project repository is invalid.
				5474	#
				5475	# USAGE:
				5476	# * fill_project_list_info(\@project_list, 'descr_long', 'ctags')
				5477	# ensures that 'descr_long' and 'ctags' fields are filled
				5478	# * @project_list = fill_project_list_info(\@project_list)
				5479	# ensures that all fields are filled (and invalid projects removed)
				5480	#
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5481	# NOTE: modifies $projlist, but does not remove entries from it
				5482	sub fill_project_list_info {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5483	my ($projlist, @wanted_keys) = @_;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5484	my @projects;
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5485	my $filter_set = sub { return @_; };
				5486	if (@wanted_keys) {
				5487	my %wanted_keys = map { $_ => 1 } @wanted_keys;
				5488	$filter_set = sub { return grep { $wanted_keys{$_} } @_; };
				5489	}
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5490
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5491	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5492	PROJECT:
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5493	foreach my $pr (@$projlist) {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5494	if (project_info_needs_filling($pr, $filter_set->('age', 'age_string'))) {
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5495	my (@activity) = git_get_last_activity($pr->{'path'});
				5496	unless (@activity) {
				5497	next PROJECT;
				5498	}
				5499	($pr->{'age'}, $pr->{'age_string'}) = @activity;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5500	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5501	if (project_info_needs_filling($pr, $filter_set->('descr', 'descr_long'))) {
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5502	my $descr = git_get_project_description($pr->{'path'}) \|\| "";
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5503	$descr = to_utf8($descr);
				5504	$pr->{'descr_long'} = $descr;
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	5505	$pr->{'descr'} = chop_str($descr, $projects_list_description_width, 5);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5506	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5507	if (project_info_needs_filling($pr, $filter_set->('owner'))) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	5508	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}") \|\| "";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5509	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5510	if ($show_ctags &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5511	project_info_needs_filling($pr, $filter_set->('ctags'))) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5512	$pr->{'ctags'} = git_get_project_ctags($pr->{'path'});
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5513	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5514	if ($projects_list_group_categories &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5515	project_info_needs_filling($pr, $filter_set->('category'))) {
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5516	my $cat = git_get_project_category($pr->{'path'}) \|\|
				5517	$project_list_default_category;
				5518	$pr->{'category'} = to_utf8($cat);
				5519	}
				5520
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5521	push @projects, $pr;
				5522	}
				5523
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5524	return @projects;
				5525	}
				5526
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5527	sub sort_projects_list {
				5528	my ($projlist, $order) = @_;
				5529	my @projects;
				5530
				5531	my %order_info = (
				5532	project => { key => 'path', type => 'str' },
				5533	descr => { key => 'descr_long', type => 'str' },
				5534	owner => { key => 'owner', type => 'str' },
				5535	age => { key => 'age', type => 'num' }
				5536	);
				5537	my $oi = $order_info{$order};
				5538	return @$projlist unless defined $oi;
				5539	if ($oi->{'type'} eq 'str') {
				5540	@projects = sort {$a->{$oi->{'key'}} cmp $b->{$oi->{'key'}}} @$projlist;
				5541	} else {
				5542	@projects = sort {$a->{$oi->{'key'}} <=> $b->{$oi->{'key'}}} @$projlist;
				5543	}
				5544
				5545	return @projects;
				5546	}
				5547
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5548	# returns a hash of categories, containing the list of project
				5549	# belonging to each category
				5550	sub build_projlist_by_category {
				5551	my ($projlist, $from, $to) = @_;
				5552	my %categories;
				5553
				5554	$from = 0 unless defined $from;
				5555	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5556
				5557	for (my $i = $from; $i <= $to; $i++) {
				5558	my $pr = $projlist->[$i];
				5559	push @{$categories{ $pr->{'category'} }}, $pr;
				5560	}
				5561
				5562	return wantarray ? %categories : \%categories;
				5563	}
				5564
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5565	# print 'sort by' <th> element, generating 'sort by $name' replay link
				5566	# if that order is not selected
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5567	sub print_sort_th {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5568	print format_sort_th(@_);
				5569	}
				5570
				5571	sub format_sort_th {
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5572	my ($name, $order, $header) = @_;
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5573	my $sort_th = "";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5574	$header \|\|= ucfirst($name);
				5575
				5576	if ($order eq $name) {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5577	$sort_th .= "<th>$header</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5578	} else {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5579	$sort_th .= "<th>" .
				5580	$cgi->a({-href => href(-replay=>1, order=>$name),
				5581	-class => "header"}, $header) .
				5582	"</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5583	}
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5584
				5585	return $sort_th;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5586	}
				5587
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5588	sub git_project_list_rows {
				5589	my ($projlist, $from, $to, $check_forks) = @_;
				5590
				5591	$from = 0 unless defined $from;
				5592	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5593
				5594	my $alternate = 1;
				5595	for (my $i = $from; $i <= $to; $i++) {
				5596	my $pr = $projlist->[$i];
				5597
				5598	if ($alternate) {
				5599	print "<tr class=\"dark\">\n";
				5600	} else {
				5601	print "<tr class=\"light\">\n";
				5602	}
				5603	$alternate ^= 1;
				5604
				5605	if ($check_forks) {
				5606	print "<td>";
				5607	if ($pr->{'forks'}) {
				5608	my $nforks = scalar @{$pr->{'forks'}};
				5609	if ($nforks > 0) {
				5610	print $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks"),
				5611	-title => "$nforks forks"}, "+");
				5612	} else {
				5613	print $cgi->span({-title => "$nforks forks"}, "+");
				5614	}
				5615	}
				5616	print "</td>\n";
				5617	}
				5618	print "<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	07a4006	2012-02-27 02:55:20 +0100	[diff] [blame]	5619	-class => "list"},
				5620	esc_html_match_hl($pr->{'path'}, $search_regexp)) .
				5621	"</td>\n" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5622	"<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5623	-class => "list",
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	5624	-title => $pr->{'descr_long'}},
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5625	$search_regexp
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	5626	? esc_html_match_hl_chopped($pr->{'descr_long'},
				5627	$pr->{'descr'}, $search_regexp)
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5628	: esc_html($pr->{'descr'})) .
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5629	"</td>\n";
				5630	unless ($omit_owner) {
				5631	print "<td><i>" . chop_and_escape_str($pr->{'owner'}, 15) . "</i></td>\n";
				5632	}
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5633	unless ($omit_age_column) {
				5634	print "<td class=\"". age_class($pr->{'age'}) . "\">" .
				5635	(defined $pr->{'age_string'} ? $pr->{'age_string'} : "No commits") . "</td>\n";
				5636	}
				5637	print"<td class=\"link\">" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5638	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary")}, "summary") . " \| " .
				5639	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"shortlog")}, "shortlog") . " \| " .
				5640	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")}, "log") . " \| " .
				5641	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")}, "tree") .
				5642	($pr->{'forks'} ? " \| " . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
				5643	"</td>\n" .
				5644	"</tr>\n";
				5645	}
				5646	}
				5647
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5648	sub git_project_list_body {
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5649	# actually uses global variable $project
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5650	my ($projlist, $order, $from, $to, $extra, $no_header) = @_;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5651	my @projects = @$projlist;
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5652
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5653	my $check_forks = gitweb_check_feature('forks');
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5654	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	5655	my $tagfilter = $show_ctags ? $input_params{'ctag'} : undef;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5656	$check_forks = undef
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5657	if ($tagfilter \|\| $search_regexp);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5658
				5659	# filtering out forks before filling info allows to do less work
				5660	@projects = filter_forks_from_projects_list(\@projects)
				5661	if ($check_forks);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5662	# search_projects_list pre-fills required info
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5663	@projects = search_projects_list(\@projects,
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5664	'search_regexp' => $search_regexp,
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5665	'tagfilter' => $tagfilter)
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5666	if ($tagfilter \|\| $search_regexp);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5667	# fill the rest
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5668	my @all_fields = ('descr', 'descr_long', 'ctags', 'category');
				5669	push @all_fields, ('age', 'age_string') unless($omit_age_column);
				5670	push @all_fields, 'owner' unless($omit_owner);
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5671	@projects = fill_project_list_info(\@projects, @all_fields);
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5672
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	5673	$order \|\|= $default_projects_order;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5674	$from = 0 unless defined $from;
				5675	$to = $#projects if (!defined $to \|\| $#projects < $to);
				5676
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5677	# short circuit
				5678	if ($from > $to) {
				5679	print "<center>\n".
				5680	"<b>No such projects found</b><br />\n".
				5681	"Click ".$cgi->a({-href=>href(project=>undef)},"here")." to view all projects<br />\n".
				5682	"</center>\n<br />\n";
				5683	return;
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5684	}
				5685
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5686	@projects = sort_projects_list(\@projects, $order);
				5687
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5688	if ($show_ctags) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	5689	my $ctags = git_gather_all_ctags(\@projects);
				5690	my $cloud = git_populate_project_tagcloud($ctags);
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5691	print git_show_project_tagcloud($cloud, 64);
				5692	}
				5693
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5694	print "<table class=\"project_list\">\n";
				5695	unless ($no_header) {
				5696	print "<tr>\n";
				5697	if ($check_forks) {
				5698	print "<th></th>\n";
				5699	}
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5700	print_sort_th('project', $order, 'Project');
				5701	print_sort_th('descr', $order, 'Description');
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5702	print_sort_th('owner', $order, 'Owner') unless $omit_owner;
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5703	print_sort_th('age', $order, 'Last Change') unless $omit_age_column;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5704	print "<th></th>\n" . # for links
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5705	"</tr>\n";
				5706	}
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5707
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5708	if ($projects_list_group_categories) {
				5709	# only display categories with projects in the $from-$to window
				5710	@projects = sort {$a->{'category'} cmp $b->{'category'}} @projects[$from..$to];
				5711	my %categories = build_projlist_by_category(\@projects, $from, $to);
				5712	foreach my $cat (sort keys %categories) {
				5713	unless ($cat eq "") {
				5714	print "<tr>\n";
				5715	if ($check_forks) {
				5716	print "<td></td>\n";
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5717	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5718	print "<td class=\"category\" colspan=\"5\">".esc_html($cat)."</td>\n";
				5719	print "</tr>\n";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5720	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5721
				5722	git_project_list_rows($categories{$cat}, undef, undef, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5723	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5724	} else {
				5725	git_project_list_rows(\@projects, $from, $to, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5726	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5727
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5728	if (defined $extra) {
				5729	print "<tr>\n";
				5730	if ($check_forks) {
				5731	print "<td></td>\n";
				5732	}
				5733	print "<td colspan=\"5\">$extra</td>\n" .
				5734	"</tr>\n";
				5735	}
				5736	print "</table>\n";
				5737	}
				5738
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5739	sub git_log_body {
				5740	# uses global variable $project
				5741	my ($commitlist, $from, $to, $refs, $extra) = @_;
				5742
				5743	$from = 0 unless defined $from;
				5744	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
				5745
				5746	for (my $i = 0; $i <= $to; $i++) {
				5747	my %co = %{$commitlist->[$i]};
				5748	next if !%co;
				5749	my $commit = $co{'id'};
				5750	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5751	git_print_header_div('commit',
				5752	"<span class=\"age\">$co{'age_string'}</span>" .
				5753	esc_html($co{'title'}) . $ref,
				5754	$commit);
				5755	print "<div class=\"title_text\">\n" .
				5756	"<div class=\"log_link\">\n" .
				5757	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") .
				5758	" \| " .
				5759	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") .
				5760	" \| " .
				5761	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree") .
				5762	"<br/>\n" .
				5763	"</div>\n";
				5764	git_print_authorship(\%co, -tag => 'span');
				5765	print "<br/>\n</div>\n";
				5766
				5767	print "<div class=\"log_body\">\n";
				5768	git_print_log($co{'comment'}, -final_empty_line=> 1);
				5769	print "</div>\n";
				5770	}
				5771	if ($extra) {
				5772	print "<div class=\"page_nav\">\n";
				5773	print "$extra\n";
				5774	print "</div>\n";
				5775	}
				5776	}
				5777
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5778	sub git_shortlog_body {
				5779	# uses global variable $project
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5780	my ($commitlist, $from, $to, $refs, $extra) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	5781
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5782	$from = 0 unless defined $from;
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5783	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5784
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5785	print "<table class=\"shortlog\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5786	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5787	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5788	my %co = %{$commitlist->[$i]};
				5789	my $commit = $co{'id'};
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	5790	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5791	if ($alternate) {
				5792	print "<tr class=\"dark\">\n";
				5793	} else {
				5794	print "<tr class=\"light\">\n";
				5795	}
				5796	$alternate ^= 1;
				5797	# git_summary() used print "<td><i>$co{'age_string'}</i></td>\n" .
				5798	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]	5799	format_author_html('td', \%co, 10) . "<td>";
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5800	print format_subject_html($co{'title'}, $co{'title_short'},
				5801	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5802	print "</td>\n" .
				5803	"<td class=\"link\">" .
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	5804	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") . " \| " .
Petr Baudis	35749ae	2006-09-22 03:19:44 +0200	[diff] [blame]	5805	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") . " \| " .
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5806	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	5807	my $snapshot_links = format_snapshot_links($commit);
				5808	if (defined $snapshot_links) {
				5809	print " \| " . $snapshot_links;
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5810	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	5811	print "</td>\n" .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5812	"</tr>\n";
				5813	}
				5814	if (defined $extra) {
				5815	print "<tr>\n" .
				5816	"<td colspan=\"4\">$extra</td>\n" .
				5817	"</tr>\n";
				5818	}
				5819	print "</table>\n";
				5820	}
				5821
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5822	sub git_history_body {
				5823	# Warning: assumes constant type (blob or tree) during history
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5824	my ($commitlist, $from, $to, $refs, $extra,
				5825	$file_name, $file_hash, $ftype) = @_;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5826
				5827	$from = 0 unless defined $from;
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5828	$to = $#{$commitlist} unless (defined $to && $to <= $#{$commitlist});
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5829
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5830	print "<table class=\"history\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5831	my $alternate = 1;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5832	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5833	my %co = %{$commitlist->[$i]};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5834	if (!%co) {
				5835	next;
				5836	}
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5837	my $commit = $co{'id'};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5838
				5839	my $ref = format_ref_marker($refs, $commit);
				5840
				5841	if ($alternate) {
				5842	print "<tr class=\"dark\">\n";
				5843	} else {
				5844	print "<tr class=\"light\">\n";
				5845	}
				5846	$alternate ^= 1;
				5847	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]	5848	# shortlog: format_author_html('td', \%co, 10)
				5849	format_author_html('td', \%co, 15, 3) . "<td>";
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5850	# originally git_history used chop_str($co{'title'}, 50)
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5851	print format_subject_html($co{'title'}, $co{'title_short'},
				5852	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5853	print "</td>\n" .
				5854	"<td class=\"link\">" .
Luben Tuikov	6d81c5a	2006-09-28 17:21:07 -0700	[diff] [blame]	5855	$cgi->a({-href => href(action=>$ftype, hash_base=>$commit, file_name=>$file_name)}, $ftype) . " \| " .
				5856	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff");
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5857
				5858	if ($ftype eq 'blob') {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5859	my $blob_current = $file_hash;
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5860	my $blob_parent = git_get_hash_by_path($commit, $file_name);
				5861	if (defined $blob_current && defined $blob_parent &&
				5862	$blob_current ne $blob_parent) {
				5863	print " \| " .
Jakub Narebski	420e92f	2006-08-24 23:53:54 +0200	[diff] [blame]	5864	$cgi->a({-href => href(action=>"blobdiff",
				5865	hash=>$blob_current, hash_parent=>$blob_parent,
				5866	hash_base=>$hash_base, hash_parent_base=>$commit,
				5867	file_name=>$file_name)},
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5868	"diff to current");
				5869	}
				5870	}
				5871	print "</td>\n" .
				5872	"</tr>\n";
				5873	}
				5874	if (defined $extra) {
				5875	print "<tr>\n" .
				5876	"<td colspan=\"4\">$extra</td>\n" .
				5877	"</tr>\n";
				5878	}
				5879	print "</table>\n";
				5880	}
				5881
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5882	sub git_tags_body {
				5883	# uses global variable $project
				5884	my ($taglist, $from, $to, $extra) = @_;
				5885	$from = 0 unless defined $from;
				5886	$to = $#{$taglist} if (!defined $to \|\| $#{$taglist} < $to);
				5887
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5888	print "<table class=\"tags\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5889	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5890	for (my $i = $from; $i <= $to; $i++) {
				5891	my $entry = $taglist->[$i];
				5892	my %tag = %$entry;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5893	my $comment = $tag{'subject'};
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5894	my $comment_short;
				5895	if (defined $comment) {
				5896	$comment_short = chop_str($comment, 30, 5);
				5897	}
				5898	if ($alternate) {
				5899	print "<tr class=\"dark\">\n";
				5900	} else {
				5901	print "<tr class=\"light\">\n";
				5902	}
				5903	$alternate ^= 1;
Jakub Narebski	27dd1a8	2007-01-03 22:54:29 +0100	[diff] [blame]	5904	if (defined $tag{'age'}) {
				5905	print "<td><i>$tag{'age'}</i></td>\n";
				5906	} else {
				5907	print "<td></td>\n";
				5908	}
				5909	print "<td>" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5910	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),
Jakub Narebski	63e4220	2006-08-22 12:38:59 +0200	[diff] [blame]	5911	-class => "list name"}, esc_html($tag{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5912	"</td>\n" .
				5913	"<td>";
				5914	if (defined $comment) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5915	print format_subject_html($comment, $comment_short,
				5916	href(action=>"tag", hash=>$tag{'id'}));
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5917	}
				5918	print "</td>\n" .
				5919	"<td class=\"selflink\">";
				5920	if ($tag{'type'} eq "tag") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5921	print $cgi->a({-href => href(action=>"tag", hash=>$tag{'id'})}, "tag");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5922	} else {
				5923	print " ";
				5924	}
				5925	print "</td>\n" .
				5926	"<td class=\"link\">" . " \| " .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5927	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'})}, $tag{'reftype'});
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5928	if ($tag{'reftype'} eq "commit") {
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5929	print " \| " . $cgi->a({-href => href(action=>"shortlog", hash=>$tag{'fullname'})}, "shortlog") .
				5930	" \| " . $cgi->a({-href => href(action=>"log", hash=>$tag{'fullname'})}, "log");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5931	} elsif ($tag{'reftype'} eq "blob") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5932	print " \| " . $cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})}, "raw");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5933	}
				5934	print "</td>\n" .
				5935	"</tr>";
				5936	}
				5937	if (defined $extra) {
				5938	print "<tr>\n" .
				5939	"<td colspan=\"5\">$extra</td>\n" .
				5940	"</tr>\n";
				5941	}
				5942	print "</table>\n";
				5943	}
				5944
				5945	sub git_heads_body {
				5946	# uses global variable $project
Jakub Narebski	fd49e56	2012-02-15 16:36:41 +0100	[diff] [blame]	5947	my ($headlist, $head_at, $from, $to, $extra) = @_;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5948	$from = 0 unless defined $from;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5949	$to = $#{$headlist} if (!defined $to \|\| $#{$headlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5950
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5951	print "<table class=\"heads\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5952	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5953	for (my $i = $from; $i <= $to; $i++) {
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5954	my $entry = $headlist->[$i];
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5955	my %ref = %$entry;
Jakub Narebski	fd49e56	2012-02-15 16:36:41 +0100	[diff] [blame]	5956	my $curr = defined $head_at && $ref{'id'} eq $head_at;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5957	if ($alternate) {
				5958	print "<tr class=\"dark\">\n";
				5959	} else {
				5960	print "<tr class=\"light\">\n";
				5961	}
				5962	$alternate ^= 1;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5963	print "<td><i>$ref{'age'}</i></td>\n" .
				5964	($curr ? "<td class=\"current_head\">" : "<td>") .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5965	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'}),
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5966	-class => "list name"},esc_html($ref{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5967	"</td>\n" .
				5968	"<td class=\"link\">" .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5969	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'})}, "shortlog") . " \| " .
				5970	$cgi->a({-href => href(action=>"log", hash=>$ref{'fullname'})}, "log") . " \| " .
Giuseppe Bilotta	9e70e15	2010-11-11 13:26:08 +0100	[diff] [blame]	5971	$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]	5972	"</td>\n" .
				5973	"</tr>";
				5974	}
				5975	if (defined $extra) {
				5976	print "<tr>\n" .
				5977	"<td colspan=\"3\">$extra</td>\n" .
				5978	"</tr>\n";
				5979	}
				5980	print "</table>\n";
				5981	}
				5982
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	5983	# Display a single remote block
				5984	sub git_remote_block {
				5985	my ($remote, $rdata, $limit, $head) = @_;
				5986
				5987	my $heads = $rdata->{'heads'};
				5988	my $fetch = $rdata->{'fetch'};
				5989	my $push = $rdata->{'push'};
				5990
				5991	my $urls_table = "<table class=\"projects_list\">\n" ;
				5992
				5993	if (defined $fetch) {
				5994	if ($fetch eq $push) {
				5995	$urls_table .= format_repo_url("URL", $fetch);
				5996	} else {
				5997	$urls_table .= format_repo_url("Fetch URL", $fetch);
				5998	$urls_table .= format_repo_url("Push URL", $push) if defined $push;
				5999	}
				6000	} elsif (defined $push) {
				6001	$urls_table .= format_repo_url("Push URL", $push);
				6002	} else {
				6003	$urls_table .= format_repo_url("", "No remote URL");
				6004	}
				6005
				6006	$urls_table .= "</table>\n";
				6007
				6008	my $dots;
				6009	if (defined $limit && $limit < @$heads) {
				6010	$dots = $cgi->a({-href => href(action=>"remotes", hash=>$remote)}, "...");
				6011	}
				6012
				6013	print $urls_table;
				6014	git_heads_body($heads, $head, 0, $limit, $dots);
				6015	}
				6016
				6017	# Display a list of remote names with the respective fetch and push URLs
				6018	sub git_remotes_list {
				6019	my ($remotedata, $limit) = @_;
				6020	print "<table class=\"heads\">\n";
				6021	my $alternate = 1;
				6022	my @remotes = sort keys %$remotedata;
				6023
				6024	my $limited = $limit && $limit < @remotes;
				6025
				6026	$#remotes = $limit - 1 if $limited;
				6027
				6028	while (my $remote = shift @remotes) {
				6029	my $rdata = $remotedata->{$remote};
				6030	my $fetch = $rdata->{'fetch'};
				6031	my $push = $rdata->{'push'};
				6032	if ($alternate) {
				6033	print "<tr class=\"dark\">\n";
				6034	} else {
				6035	print "<tr class=\"light\">\n";
				6036	}
				6037	$alternate ^= 1;
				6038	print "<td>" .
				6039	$cgi->a({-href=> href(action=>'remotes', hash=>$remote),
				6040	-class=> "list name"},esc_html($remote)) .
				6041	"</td>";
				6042	print "<td class=\"link\">" .
				6043	(defined $fetch ? $cgi->a({-href=> $fetch}, "fetch") : "fetch") .
				6044	" \| " .
				6045	(defined $push ? $cgi->a({-href=> $push}, "push") : "push") .
				6046	"</td>";
				6047
				6048	print "</tr>\n";
				6049	}
				6050
				6051	if ($limited) {
				6052	print "<tr>\n" .
				6053	"<td colspan=\"3\">" .
				6054	$cgi->a({-href => href(action=>"remotes")}, "...") .
				6055	"</td>\n" . "</tr>\n";
				6056	}
				6057
				6058	print "</table>";
				6059	}
				6060
				6061	# Display remote heads grouped by remote, unless there are too many
				6062	# remotes, in which case we only display the remote names
				6063	sub git_remotes_body {
				6064	my ($remotedata, $limit, $head) = @_;
				6065	if ($limit and $limit < keys %$remotedata) {
				6066	git_remotes_list($remotedata, $limit);
				6067	} else {
				6068	fill_remote_heads($remotedata);
				6069	while (my ($remote, $rdata) = each %$remotedata) {
				6070	git_print_section({-class=>"remote", -id=>$remote},
				6071	["remotes", $remote, $remote], sub {
				6072	git_remote_block($remote, $rdata, $limit, $head);
				6073	});
				6074	}
				6075	}
				6076	}
				6077
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6078	sub git_search_message {
				6079	my %co = @_;
				6080
				6081	my $greptype;
				6082	if ($searchtype eq 'commit') {
				6083	$greptype = "--grep=";
				6084	} elsif ($searchtype eq 'author') {
				6085	$greptype = "--author=";
				6086	} elsif ($searchtype eq 'committer') {
				6087	$greptype = "--committer=";
				6088	}
				6089	$greptype .= $searchtext;
				6090	my @commitlist = parse_commits($hash, 101, (100 * $page), undef,
				6091	$greptype, '--regexp-ignore-case',
				6092	$search_use_regexp ? '--extended-regexp' : '--fixed-strings');
				6093
				6094	my $paging_nav = '';
				6095	if ($page > 0) {
				6096	$paging_nav .=
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6097	$cgi->a({-href => href(-replay=>1, page=>undef)},
				6098	"first") .
				6099	" ⋅ " .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6100	$cgi->a({-href => href(-replay=>1, page=>$page-1),
				6101	-accesskey => "p", -title => "Alt-p"}, "prev");
				6102	} else {
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6103	$paging_nav .= "first ⋅ prev";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6104	}
				6105	my $next_link = '';
				6106	if ($#commitlist >= 100) {
				6107	$next_link =
				6108	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				6109	-accesskey => "n", -title => "Alt-n"}, "next");
				6110	$paging_nav .= " ⋅ $next_link";
				6111	} else {
				6112	$paging_nav .= " ⋅ next";
				6113	}
				6114
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6115	git_header_html();
				6116
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6117	git_print_page_nav('','', $hash,$co{'tree'},$hash, $paging_nav);
				6118	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6119	if ($page == 0 && !@commitlist) {
				6120	print "<p>No match.</p>\n";
				6121	} else {
				6122	git_search_grep_body(\@commitlist, 0, 99, $next_link);
				6123	}
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6124
				6125	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6126	}
				6127
				6128	sub git_search_changes {
				6129	my %co = @_;
				6130
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6131	local $/ = "\n";
				6132	open my $fd, '-\|', git_cmd(), '--no-pager', 'log', @diff_opts,
				6133	'--pretty=format:%H', '--no-abbrev', '--raw', "-S$searchtext",
				6134	($search_use_regexp ? '--pickaxe-regex' : ())
				6135	or die_error(500, "Open git-log failed");
				6136
				6137	git_header_html();
				6138
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6139	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				6140	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6141
				6142	print "<table class=\"pickaxe search\">\n";
				6143	my $alternate = 1;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6144	undef %co;
				6145	my @files;
				6146	while (my $line = <$fd>) {
				6147	chomp $line;
				6148	next unless $line;
				6149
				6150	my %set = parse_difftree_raw_line($line);
				6151	if (defined $set{'commit'}) {
				6152	# finish previous commit
				6153	if (%co) {
				6154	print "</td>\n" .
				6155	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6156	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				6157	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6158	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6159	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				6160	hash_base=>$co{'id'})},
				6161	"tree") .
				6162	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6163	"</tr>\n";
				6164	}
				6165
				6166	if ($alternate) {
				6167	print "<tr class=\"dark\">\n";
				6168	} else {
				6169	print "<tr class=\"light\">\n";
				6170	}
				6171	$alternate ^= 1;
				6172	%co = parse_commit($set{'commit'});
				6173	my $author = chop_and_escape_str($co{'author_name'}, 15, 5);
				6174	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
				6175	"<td><i>$author</i></td>\n" .
				6176	"<td>" .
				6177	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6178	-class => "list subject"},
				6179	chop_and_escape_str($co{'title'}, 50) . "<br/>");
				6180	} elsif (defined $set{'to_id'}) {
				6181	next if ($set{'to_id'} =~ m/^0{40}$/);
				6182
				6183	print $cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},
				6184	hash=>$set{'to_id'}, file_name=>$set{'to_file'}),
				6185	-class => "list"},
				6186	"<span class=\"match\">" . esc_path($set{'file'}) . "</span>") .
				6187	"<br/>\n";
				6188	}
				6189	}
				6190	close $fd;
				6191
				6192	# finish last commit (warning: repetition!)
				6193	if (%co) {
				6194	print "</td>\n" .
				6195	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6196	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				6197	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6198	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6199	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				6200	hash_base=>$co{'id'})},
				6201	"tree") .
				6202	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6203	"</tr>\n";
				6204	}
				6205
				6206	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6207
				6208	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6209	}
				6210
				6211	sub git_search_files {
				6212	my %co = @_;
				6213
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6214	local $/ = "\n";
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	6215	open my $fd, "-\|", git_cmd(), 'grep', '-n', '-z',
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6216	$search_use_regexp ? ('-E', '-i') : '-F',
				6217	$searchtext, $co{'tree'}
				6218	or die_error(500, "Open git-grep failed");
				6219
				6220	git_header_html();
				6221
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6222	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				6223	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6224
				6225	print "<table class=\"grep_search\">\n";
				6226	my $alternate = 1;
				6227	my $matches = 0;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6228	my $lastfile = '';
Jakub Narebski	fc8fcd2	2012-02-15 17:37:06 +0100	[diff] [blame]	6229	my $file_href;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6230	while (my $line = <$fd>) {
				6231	chomp $line;
Jakub Narebski	fc8fcd2	2012-02-15 17:37:06 +0100	[diff] [blame]	6232	my ($file, $lno, $ltext, $binary);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6233	last if ($matches++ > 1000);
				6234	if ($line =~ /^Binary file (.+) matches$/) {
				6235	$file = $1;
				6236	$binary = 1;
				6237	} else {
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	6238	($file, $lno, $ltext) = split(/\0/, $line, 3);
				6239	$file =~ s/^$co{'tree'}://;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6240	}
				6241	if ($file ne $lastfile) {
				6242	$lastfile and print "</td></tr>\n";
				6243	if ($alternate++) {
				6244	print "<tr class=\"dark\">\n";
				6245	} else {
				6246	print "<tr class=\"light\">\n";
				6247	}
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6248	$file_href = href(action=>"blob", hash_base=>$co{'id'},
				6249	file_name=>$file);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6250	print "<td class=\"list\">".
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6251	$cgi->a({-href => $file_href, -class => "list"}, esc_path($file));
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6252	print "</td><td>\n";
				6253	$lastfile = $file;
				6254	}
				6255	if ($binary) {
				6256	print "<div class=\"binary\">Binary file</div>\n";
				6257	} else {
				6258	$ltext = untabify($ltext);
				6259	if ($ltext =~ m/^(.)($search_regexp)(.)$/i) {
				6260	$ltext = esc_html($1, -nbsp=>1);
				6261	$ltext .= '<span class="match">';
				6262	$ltext .= esc_html($2, -nbsp=>1);
				6263	$ltext .= '</span>';
				6264	$ltext .= esc_html($3, -nbsp=>1);
				6265	} else {
				6266	$ltext = esc_html($ltext, -nbsp=>1);
				6267	}
				6268	print "<div class=\"pre\">" .
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6269	$cgi->a({-href => $file_href.'#l'.$lno,
				6270	-class => "linenr"}, sprintf('%4i', $lno)) .
				6271	' ' . $ltext . "</div>\n";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6272	}
				6273	}
				6274	if ($lastfile) {
				6275	print "</td></tr>\n";
				6276	if ($matches > 1000) {
				6277	print "<div class=\"diff nodifferences\">Too many matches, listing trimmed</div>\n";
				6278	}
				6279	} else {
				6280	print "<div class=\"diff nodifferences\">No matches found</div>\n";
				6281	}
				6282	close $fd;
				6283
				6284	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6285
				6286	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6287	}
				6288
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6289	sub git_search_grep_body {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6290	my ($commitlist, $from, $to, $extra) = @_;
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6291	$from = 0 unless defined $from;
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6292	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6293
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6294	print "<table class=\"commit_search\">\n";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6295	my $alternate = 1;
				6296	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6297	my %co = %{$commitlist->[$i]};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6298	if (!%co) {
				6299	next;
				6300	}
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6301	my $commit = $co{'id'};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6302	if ($alternate) {
				6303	print "<tr class=\"dark\">\n";
				6304	} else {
				6305	print "<tr class=\"light\">\n";
				6306	}
				6307	$alternate ^= 1;
				6308	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]	6309	format_author_html('td', \%co, 15, 5) .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6310	"<td>" .
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6311	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6312	-class => "list subject"},
				6313	chop_and_escape_str($co{'title'}, 50) . "<br/>");
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6314	my $comment = $co{'comment'};
				6315	foreach my $line (@$comment) {
Jakub Narebski	6dfbb30	2008-03-02 16:57:14 +0100	[diff] [blame]	6316	if ($line =~ m/^(.?)($search_regexp)(.)$/i) {
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6317	my ($lead, $match, $trail) = ($1, $2, $3);
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	6318	$match = chop_str($match, 70, 5, 'center');
				6319	my $contextlen = int((80 - length($match))/2);
				6320	$contextlen = 30 if ($contextlen > 30);
				6321	$lead = chop_str($lead, $contextlen, 10, 'left');
				6322	$trail = chop_str($trail, $contextlen, 10, 'right');
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6323
				6324	$lead = esc_html($lead);
				6325	$match = esc_html($match);
				6326	$trail = esc_html($trail);
				6327
				6328	print "$lead<span class=\"match\">$match</span>$trail<br />";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6329	}
				6330	}
				6331	print "</td>\n" .
				6332	"<td class=\"link\">" .
				6333	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})}, "commit") .
				6334	" \| " .
Denis Cheng	f1fe8f5	2007-11-26 20:42:06 +0800	[diff] [blame]	6335	$cgi->a({-href => href(action=>"commitdiff", hash=>$co{'id'})}, "commitdiff") .
				6336	" \| " .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6337	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$co{'id'})}, "tree");
				6338	print "</td>\n" .
				6339	"</tr>\n";
				6340	}
				6341	if (defined $extra) {
				6342	print "<tr>\n" .
				6343	"<td colspan=\"3\">$extra</td>\n" .
				6344	"</tr>\n";
				6345	}
				6346	print "</table>\n";
				6347	}
				6348
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6349	## ======================================================================
				6350	## ======================================================================
				6351	## actions
				6352
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6353	sub git_project_list {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6354	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6355	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6356	die_error(400, "Unknown order parameter");
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6357	}
				6358
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6359	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6360	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6361	die_error(404, "No projects found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6362	}
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6363
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6364	git_header_html();
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	6365	if (defined $home_text && -f $home_text) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6366	print "<div class=\"index_include\">\n";
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6367	insert_file($home_text);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6368	print "</div>\n";
				6369	}
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	6370
				6371	git_project_search_form($searchtext, $search_use_regexp);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6372	git_project_list_body(\@list, $order);
				6373	git_footer_html();
				6374	}
				6375
				6376	sub git_forks {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6377	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6378	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6379	die_error(400, "Unknown order parameter");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6380	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6381
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6382	my $filter = $project;
				6383	$filter =~ s/\.git$//;
				6384	my @list = git_get_projects_list($filter);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6385	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6386	die_error(404, "No forks found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6387	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6388
				6389	git_header_html();
				6390	git_print_page_nav('','');
				6391	git_print_header_div('summary', "$project forks");
				6392	git_project_list_body(\@list, $order);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6393	git_footer_html();
				6394	}
				6395
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6396	sub git_project_index {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6397	my @projects = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6398	if (!@projects) {
				6399	die_error(404, "No projects found");
				6400	}
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6401
				6402	print $cgi->header(
				6403	-type => 'text/plain',
				6404	-charset => 'utf-8',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6405	-content_disposition => 'inline; filename="index.aux"');
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6406
				6407	foreach my $pr (@projects) {
				6408	if (!exists $pr->{'owner'}) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	6409	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}");
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6410	}
				6411
				6412	my ($path, $owner) = ($pr->{'path'}, $pr->{'owner'});
				6413	# quote as in CGI::Util::encode, but keep the slash, and use '+' for ' '
				6414	$path =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6415	$owner =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6416	$path =~ s/ /\+/g;
				6417	$owner =~ s/ /\+/g;
				6418
				6419	print "$path $owner\n";
				6420	}
				6421	}
				6422
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6423	sub git_summary {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6424	my $descr = git_get_project_description($project) \|\| "none";
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6425	my %co = parse_commit("HEAD");
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6426	my %cd = %co ? parse_date($co{'committer_epoch'}, $co{'committer_tz'}) : ();
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6427	my $head = $co{'id'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6428	my $remote_heads = gitweb_check_feature('remote_heads');
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6429
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	6430	my $owner = git_get_project_owner($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6431
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6432	my $refs = git_get_references();
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6433	# These get_*_list functions return one more to allow us to see if
				6434	# there are more ...
				6435	my @taglist = git_get_tags_list(16);
				6436	my @headlist = git_get_heads_list(16);
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6437	my %remotedata = $remote_heads ? git_get_remotes_list() : ();
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6438	my @forklist;
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6439	my $check_forks = gitweb_check_feature('forks');
Junio C Hamano	5dd5ed0	2006-11-07 22:00:45 -0800	[diff] [blame]	6440
				6441	if ($check_forks) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6442	# find forks of a project
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6443	my $filter = $project;
				6444	$filter =~ s/\.git$//;
				6445	@forklist = git_get_projects_list($filter);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6446	# filter out forks of forks
				6447	@forklist = filter_forks_from_projects_list(\@forklist)
				6448	if (@forklist);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6449	}
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6450
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6451	git_header_html();
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6452	git_print_page_nav('summary','', $head);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6453
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	6454	print "<div class=\"title\"> </div>\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6455	print "<table class=\"projects_list\">\n" .
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	6456	"<tr id=\"metadata_desc\"><td>description</td><td>" . esc_html($descr) . "</td></tr>\n";
				6457	unless ($omit_owner) {
				6458	print "<tr id=\"metadata_owner\"><td>owner</td><td>" . esc_html($owner) . "</td></tr>\n";
				6459	}
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6460	if (defined $cd{'rfc2822'}) {
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	6461	print "<tr id=\"metadata_lchange\"><td>last change</td>" .
				6462	"<td>".format_timestamp_html(\%cd)."</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6463	}
				6464
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6465	# use per project git URL list in $projectroot/$project/cloneurl
				6466	# or make project git URL from git base URL and project name
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6467	my $url_tag = "URL";
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6468	my @url_list = git_get_project_url_list($project);
				6469	@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
				6470	foreach my $git_url (@url_list) {
				6471	next unless $git_url;
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	6472	print format_repo_url($url_tag, $git_url);
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6473	$url_tag = "";
				6474	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6475
				6476	# Tag cloud
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6477	my $show_ctags = gitweb_check_feature('ctags');
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6478	if ($show_ctags) {
				6479	my $ctags = git_get_project_ctags($project);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	6480	if (%$ctags) {
				6481	# without ability to add tags, don't show if there are none
				6482	my $cloud = git_populate_project_tagcloud($ctags);
				6483	print "<tr id=\"metadata_ctags\">" .
				6484	"<td>content tags</td>" .
				6485	"<td>".git_show_project_tagcloud($cloud, 48)."</td>" .
				6486	"</tr>\n";
				6487	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6488	}
				6489
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6490	print "</table>\n";
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6491
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6492	# If XSS prevention is on, we don't include README.html.
				6493	# TODO: Allow a readme in some safe format.
				6494	if (!$prevent_xss && -s "$projectroot/$project/README.html") {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6495	print "<div class=\"title\">readme</div>\n" .
				6496	"<div class=\"readme\">\n";
				6497	insert_file("$projectroot/$project/README.html");
				6498	print "\n</div>\n"; # class="readme"
Petr Baudis	447ef09	2006-10-24 05:23:46 +0200	[diff] [blame]	6499	}
				6500
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6501	# we need to request one more than 16 (0..15) to check if
				6502	# those 16 are all
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6503	my @commitlist = $head ? parse_commits($head, 17) : ();
				6504	if (@commitlist) {
				6505	git_print_header_div('shortlog');
				6506	git_shortlog_body(\@commitlist, 0, 15, $refs,
				6507	$#commitlist <= 15 ? undef :
				6508	$cgi->a({-href => href(action=>"shortlog")}, "..."));
				6509	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6510
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6511	if (@taglist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6512	git_print_header_div('tags');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6513	git_tags_body(\@taglist, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6514	$#taglist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6515	$cgi->a({-href => href(action=>"tags")}, "..."));
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6516	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6517
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6518	if (@headlist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6519	git_print_header_div('heads');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6520	git_heads_body(\@headlist, $head, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6521	$#headlist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6522	$cgi->a({-href => href(action=>"heads")}, "..."));
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6523	}
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6524
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6525	if (%remotedata) {
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6526	git_print_header_div('remotes');
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6527	git_remotes_body(\%remotedata, 15, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6528	}
				6529
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6530	if (@forklist) {
				6531	git_print_header_div('forks');
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6532	git_project_list_body(\@forklist, 'age', 0, 15,
Robert Fitzsimons	aaca967	2006-12-22 19:38:12 +0000	[diff] [blame]	6533	$#forklist <= 15 ? undef :
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6534	$cgi->a({-href => href(action=>"forks")}, "..."),
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6535	'no_header');
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6536	}
				6537
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6538	git_footer_html();
				6539	}
				6540
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6541	sub git_tag {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6542	my %tag = parse_tag($hash);
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6543
				6544	if (! %tag) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6545	die_error(404, "Unknown tag object");
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6546	}
				6547
Anders Kaseorg	d8a9480	2010-08-27 13:38:16 -0400	[diff] [blame]	6548	my $head = git_get_head_hash($project);
				6549	git_header_html();
				6550	git_print_page_nav('','', $head,undef,$head);
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6551	git_print_header_div('commit', esc_html($tag{'name'}), $hash);
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6552	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6553	"<table class=\"object_header\">\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6554	"<tr>\n" .
				6555	"<td>object</td>\n" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6556	"<td>" . $cgi->a({-class => "list", -href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6557	$tag{'object'}) . "</td>\n" .
				6558	"<td class=\"link\">" . $cgi->a({-href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6559	$tag{'type'}) . "</td>\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6560	"</tr>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6561	if (defined($tag{'author'})) {
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	6562	git_print_authorship_rows(\%tag, 'author');
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6563	}
				6564	print "</table>\n\n" .
				6565	"</div>\n";
				6566	print "<div class=\"page_body\">";
				6567	my $comment = $tag{'comment'};
				6568	foreach my $line (@$comment) {
Junio C Hamano	7002243	2006-11-24 14:04:01 -0800	[diff] [blame]	6569	chomp $line;
Jakub Narebski	793c400	2006-11-24 22:25:50 +0100	[diff] [blame]	6570	print esc_html($line, -nbsp=>1) . "<br/>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6571	}
				6572	print "</div>\n";
				6573	git_footer_html();
				6574	}
				6575
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6576	sub git_blame_common {
				6577	my $format = shift \|\| 'porcelain';
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	6578	if ($format eq 'porcelain' && $input_params{'javascript'}) {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6579	$format = 'incremental';
				6580	$action = 'blame_incremental'; # for page title etc
				6581	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6582
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6583	# permissions
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6584	gitweb_check_feature('blame')
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6585	or die_error(403, "Blame view not allowed");
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6586
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6587	# error checking
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6588	die_error(400, "No file name given") unless $file_name;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6589	$hash_base \|\|= git_get_head_hash($project);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6590	die_error(404, "Couldn't find base commit") unless $hash_base;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6591	my %co = parse_commit($hash_base)
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6592	or die_error(404, "Commit not found");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6593	my $ftype = "blob";
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6594	if (!defined $hash) {
				6595	$hash = git_get_hash_by_path($hash_base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6596	or die_error(404, "Error looking up file");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6597	} else {
				6598	$ftype = git_get_type($hash);
				6599	if ($ftype !~ "blob") {
				6600	die_error(400, "Object is not a blob");
				6601	}
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6602	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6603
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6604	my $fd;
				6605	if ($format eq 'incremental') {
				6606	# get file contents (as base)
				6607	open $fd, "-\|", git_cmd(), 'cat-file', 'blob', $hash
				6608	or die_error(500, "Open git-cat-file failed");
				6609	} elsif ($format eq 'data') {
				6610	# run git-blame --incremental
				6611	open $fd, "-\|", git_cmd(), "blame", "--incremental",
				6612	$hash_base, "--", $file_name
				6613	or die_error(500, "Open git-blame --incremental failed");
				6614	} else {
				6615	# run git-blame --porcelain
				6616	open $fd, "-\|", git_cmd(), "blame", '-p',
				6617	$hash_base, '--', $file_name
				6618	or die_error(500, "Open git-blame --porcelain failed");
				6619	}
				6620
				6621	# incremental blame data returns early
				6622	if ($format eq 'data') {
				6623	print $cgi->header(
				6624	-type=>"text/plain", -charset => "utf-8",
				6625	-status=> "200 OK");
				6626	local $\| = 1; # output autoflush
Jürgen Kreileder	57cf4ad	2011-12-17 10:22:23 +0100	[diff] [blame]	6627	while (my $line = <$fd>) {
				6628	print to_utf8($line);
				6629	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6630	close $fd
				6631	or print "ERROR $!\n";
				6632
				6633	print 'END';
				6634	if (defined $t0 && gitweb_check_feature('timed')) {
				6635	print ' '.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	6636	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6637	' '.$number_of_git_cmds;
				6638	}
				6639	print "\n";
				6640
				6641	return;
				6642	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6643
				6644	# page header
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6645	git_header_html();
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6646	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6647	$cgi->a({-href => href(action=>"blob", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6648	"blob") .
Jakub Narebski	87e573f	2009-12-01 17:54:26 +0100	[diff] [blame]	6649	" \| ";
				6650	if ($format eq 'incremental') {
				6651	$formats_nav .=
				6652	$cgi->a({-href => href(action=>"blame", javascript=>0, -replay=>1)},
				6653	"blame") . " (non-incremental)";
				6654	} else {
				6655	$formats_nav .=
				6656	$cgi->a({-href => href(action=>"blame_incremental", -replay=>1)},
				6657	"blame") . " (incremental)";
				6658	}
				6659	$formats_nav .=
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6660	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6661	$cgi->a({-href => href(action=>"history", -replay=>1)},
				6662	"history") .
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6663	" \| " .
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6664	$cgi->a({-href => href(action=>$action, file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6665	"HEAD");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6666	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6667	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6668	git_print_page_path($file_name, $ftype, $hash_base);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6669
				6670	# page body
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6671	if ($format eq 'incremental') {
				6672	print "<noscript>\n<div class=\"error\"><center><b>\n".
				6673	"This page requires JavaScript to run.\n Use ".
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6674	$cgi->a({-href => href(action=>'blame',javascript=>0,-replay=>1)},
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6675	'this page').
				6676	" instead.\n".
				6677	"</b></center></div>\n</noscript>\n";
				6678
				6679	print qq!<div id="progress_bar" style="width: 100%; background-color: yellow"></div>\n!;
				6680	}
				6681
				6682	print qq!<div class="page_body">\n!;
				6683	print qq!<div id="progress_info">... / ...</div>\n!
				6684	if ($format eq 'incremental');
				6685	print qq!<table id="blame_table" class="blame" width="100%">\n!.
				6686	#qq!<col width="5.5em" /><col width="2.5em" /><col width="*" />\n!.
				6687	qq!<thead>\n!.
				6688	qq!<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n!.
				6689	qq!</thead>\n!.
				6690	qq!<tbody>\n!;
				6691
Jakub Narebski	aef3768	2009-07-25 00:44:06 +0200	[diff] [blame]	6692	my @rev_color = qw(light dark);
Luben Tuikov	cc1bf97	2006-07-23 13:37:53 -0700	[diff] [blame]	6693	my $num_colors = scalar(@rev_color);
				6694	my $current_color = 0;
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6695
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6696	if ($format eq 'incremental') {
				6697	my $color_class = $rev_color[$current_color];
				6698
				6699	#contents of a file
				6700	my $linenr = 0;
				6701	LINE:
				6702	while (my $line = <$fd>) {
				6703	chomp $line;
				6704	$linenr++;
				6705
				6706	print qq!<tr id="l$linenr" class="$color_class">!.
				6707	qq!<td class="sha1"><a href=""> </a></td>!.
				6708	qq!<td class="linenr">!.
				6709	qq!<a class="linenr" href="">$linenr</a></td>!;
				6710	print qq!<td class="pre">! . esc_html($line) . "</td>\n";
				6711	print qq!</tr>\n!;
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6712	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6713
				6714	} else { # porcelain, i.e. ordinary blame
				6715	my %metainfo = (); # saves information about commits
				6716
				6717	# blame data
				6718	LINE:
				6719	while (my $line = <$fd>) {
				6720	chomp $line;
				6721	# the header: <SHA-1> <src lineno> <dst lineno> [<lines in group>]
				6722	# no <lines in group> for subsequent lines in group of lines
				6723	my ($full_rev, $orig_lineno, $lineno, $group_size) =
				6724	($line =~ /^([0-9a-f]{40}) (\d+) (\d+)(?: (\d+))?$/);
				6725	if (!exists $metainfo{$full_rev}) {
				6726	$metainfo{$full_rev} = { 'nprevious' => 0 };
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6727	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6728	my $meta = $metainfo{$full_rev};
				6729	my $data;
				6730	while ($data = <$fd>) {
				6731	chomp $data;
				6732	last if ($data =~ s/^\t//); # contents of line
				6733	if ($data =~ /^(\S+)(?: (.*))?$/) {
				6734	$meta->{$1} = $2 unless exists $meta->{$1};
				6735	}
				6736	if ($data =~ /^previous /) {
				6737	$meta->{'nprevious'}++;
Jakub Narebski	a36817b	2009-07-25 00:44:05 +0200	[diff] [blame]	6738	}
				6739	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6740	my $short_rev = substr($full_rev, 0, 8);
				6741	my $author = $meta->{'author'};
				6742	my %date =
				6743	parse_date($meta->{'author-time'}, $meta->{'author-tz'});
				6744	my $date = $date{'iso-tz'};
				6745	if ($group_size) {
				6746	$current_color = ($current_color + 1) % $num_colors;
				6747	}
				6748	my $tr_class = $rev_color[$current_color];
				6749	$tr_class .= ' boundary' if (exists $meta->{'boundary'});
				6750	$tr_class .= ' no-previous' if ($meta->{'nprevious'} == 0);
				6751	$tr_class .= ' multiple-previous' if ($meta->{'nprevious'} > 1);
				6752	print "<tr id=\"l$lineno\" class=\"$tr_class\">\n";
				6753	if ($group_size) {
				6754	print "<td class=\"sha1\"";
				6755	print " title=\"". esc_html($author) . ", $date\"";
				6756	print " rowspan=\"$group_size\"" if ($group_size > 1);
				6757	print ">";
				6758	print $cgi->a({-href => href(action=>"commit",
				6759	hash=>$full_rev,
				6760	file_name=>$file_name)},
				6761	esc_html($short_rev));
				6762	if ($group_size >= 2) {
				6763	my @author_initials = ($author =~ /\b([[:upper:]])\B/g);
				6764	if (@author_initials) {
				6765	print "<br />" .
				6766	esc_html(join('', @author_initials));
				6767	# or join('.', ...)
				6768	}
				6769	}
				6770	print "</td>\n";
				6771	}
				6772	# 'previous' <sha1 of parent commit> <filename at commit>
				6773	if (exists $meta->{'previous'} &&
				6774	$meta->{'previous'} =~ /^([a-fA-F0-9]{40}) (.*)$/) {
				6775	$meta->{'parent'} = $1;
				6776	$meta->{'file_parent'} = unquote($2);
				6777	}
				6778	my $linenr_commit =
				6779	exists($meta->{'parent'}) ?
				6780	$meta->{'parent'} : $full_rev;
				6781	my $linenr_filename =
				6782	exists($meta->{'file_parent'}) ?
				6783	$meta->{'file_parent'} : unquote($meta->{'filename'});
				6784	my $blamed = href(action => 'blame',
				6785	file_name => $linenr_filename,
				6786	hash_base => $linenr_commit);
				6787	print "<td class=\"linenr\">";
				6788	print $cgi->a({ -href => "$blamed#l$orig_lineno",
				6789	-class => "linenr" },
				6790	esc_html($lineno));
				6791	print "</td>";
				6792	print "<td class=\"pre\">" . esc_html($data) . "</td>\n";
				6793	print "</tr>\n";
				6794	} # end while
				6795
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6796	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6797
				6798	# footer
				6799	print "</tbody>\n".
				6800	"</table>\n"; # class="blame"
				6801	print "</div>\n"; # class="blame_body"
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6802	close $fd
				6803	or print "Reading blob failed\n";
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6804
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6805	git_footer_html();
				6806	}
				6807
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6808	sub git_blame {
				6809	git_blame_common();
				6810	}
				6811
				6812	sub git_blame_incremental {
				6813	git_blame_common('incremental');
				6814	}
				6815
				6816	sub git_blame_data {
				6817	git_blame_common('data');
				6818	}
				6819
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6820	sub git_tags {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6821	my $head = git_get_head_hash($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6822	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6823	git_print_page_nav('','', $head,undef,$head,format_ref_views('tags'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6824	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6825
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6826	my @tagslist = git_get_tags_list();
				6827	if (@tagslist) {
				6828	git_tags_body(\@tagslist);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6829	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6830	git_footer_html();
				6831	}
				6832
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	6833	sub git_heads {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6834	my $head = git_get_head_hash($project);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6835	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6836	git_print_page_nav('','', $head,undef,$head,format_ref_views('heads'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6837	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6838
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6839	my @headslist = git_get_heads_list();
				6840	if (@headslist) {
				6841	git_heads_body(\@headslist, $head);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6842	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6843	git_footer_html();
				6844	}
				6845
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6846	# 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]	6847	sub git_remotes {
				6848	gitweb_check_feature('remote_heads')
				6849	or die_error(403, "Remote heads view is disabled");
				6850
				6851	my $head = git_get_head_hash($project);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6852	my $remote = $input_params{'hash'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6853
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6854	my $remotedata = git_get_remotes_list($remote);
				6855	die_error(500, "Unable to get remote information") unless defined $remotedata;
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6856
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6857	unless (%$remotedata) {
				6858	die_error(404, defined $remote ?
				6859	"Remote $remote not found" :
				6860	"No remotes found");
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6861	}
				6862
				6863	git_header_html(undef, undef, -action_extra => $remote);
				6864	git_print_page_nav('', '', $head, undef, $head,
				6865	format_ref_views($remote ? '' : 'remotes'));
				6866
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6867	fill_remote_heads($remotedata);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6868	if (defined $remote) {
				6869	git_print_header_div('remotes', "$remote remote for $project");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6870	git_remote_block($remote, $remotedata->{$remote}, undef, $head);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6871	} else {
				6872	git_print_header_div('summary', "$project remotes");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6873	git_remotes_body($remotedata, undef, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6874	}
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6875
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6876	git_footer_html();
				6877	}
				6878
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6879	sub git_blob_plain {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6880	my $type = shift;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6881	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6882
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6883	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6884	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6885	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6886	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6887	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6888	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6889	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6890	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6891	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6892	# blobs defined by non-textual hash id's can be cached
				6893	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6894	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6895
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6896	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6897	or die_error(500, "Open git-cat-file blob '$hash' failed");
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6898
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6899	# content-type (can include charset)
				6900	$type = blob_contenttype($fd, $file_name, $type);
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6901
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6902	# "save as" filename, even when no $file_name is given
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6903	my $save_as = "$hash";
				6904	if (defined $file_name) {
				6905	$save_as = $file_name;
				6906	} elsif ($type =~ m/^text\//) {
				6907	$save_as .= '.txt';
				6908	}
				6909
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6910	# With XSS prevention on, blobs of all types except a few known safe
				6911	# ones are served with "Content-Disposition: attachment" to make sure
				6912	# they don't run in our security domain. For certain image types,
				6913	# blob view writes an <img> tag referring to blob_plain view, and we
				6914	# want to be sure not to break that by serving the image as an
				6915	# attachment (though Firefox 3 doesn't seem to care).
				6916	my $sandbox = $prevent_xss &&
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6917	$type !~ m!^(?:text/[a-z]+\|image/(?:gif\|png\|jpeg))(?:[ ;]\|$)!;
				6918
				6919	# serve text/* as text/plain
				6920	if ($prevent_xss &&
Jakub Narebski	e8c3531	2011-06-30 11:39:21 +0200	[diff] [blame]	6921	($type =~ m!^text/[a-z]+\b(.*)$! \|\|
				6922	($type =~ m!^[a-z]+/[a-z]\+xml\b(.*)$! && -T $fd))) {
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6923	my $rest = $1;
				6924	$rest = defined $rest ? $rest : '';
				6925	$type = "text/plain$rest";
				6926	}
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6927
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6928	print $cgi->header(
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6929	-type => $type,
				6930	-expires => $expires,
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6931	-content_disposition =>
				6932	($sandbox ? 'attachment' : 'inline')
				6933	. '; filename="' . $save_as . '"');
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6934	local $/ = undef;
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6935	binmode STDOUT, ':raw';
				6936	print <$fd>;
				6937	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6938	close $fd;
				6939	}
				6940
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6941	sub git_blob {
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6942	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6943
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6944	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6945	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6946	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6947	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6948	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6949	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6950	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6951	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6952	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6953	# blobs defined by non-textual hash id's can be cached
				6954	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6955	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6956
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6957	my $have_blame = gitweb_check_feature('blame');
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6958	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6959	or die_error(500, "Couldn't cat $file_name, $hash");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6960	my $mimetype = blob_mimetype($fd, $file_name);
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6961	# use 'blob_plain' (aka 'raw') view for files that cannot be displayed
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6962	if ($mimetype !~ m!^(?:text/\|image/(?:gif\|png\|jpeg)$)! && -B $fd) {
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6963	close $fd;
				6964	return git_blob_plain($mimetype);
				6965	}
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6966	# we can have blame only for text/* mimetype
				6967	$have_blame &&= ($mimetype =~ m!^text/!);
				6968
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	6969	my $highlight = gitweb_check_feature('highlight');
				6970	my $syntax = guess_file_syntax($highlight, $mimetype, $file_name);
				6971	$fd = run_highlighter($fd, $highlight, $syntax)
				6972	if $syntax;
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6973
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6974	git_header_html(undef, $expires);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6975	my $formats_nav = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6976	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6977	if (defined $file_name) {
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6978	if ($have_blame) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6979	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6980	$cgi->a({-href => href(action=>"blame", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6981	"blame") .
				6982	" \| ";
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6983	}
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6984	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6985	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6986	"history") .
				6987	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6988	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	6989	"raw") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6990	" \| " .
				6991	$cgi->a({-href => href(action=>"blob",
				6992	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6993	"HEAD");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6994	} else {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6995	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6996	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
				6997	"raw");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6998	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6999	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7000	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7001	} else {
				7002	print "<div class=\"page_nav\">\n" .
				7003	"<br/><br/></div>\n" .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7004	"<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7005	}
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	7006	git_print_page_path($file_name, "blob", $hash_base);
Kay Sievers	c07ad4b	2005-08-07 20:22:44 +0200	[diff] [blame]	7007	print "<div class=\"page_body\">\n";
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7008	if ($mimetype =~ m!^image/!) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7009	print qq!<img type="!.esc_attr($mimetype).qq!"!;
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	7010	if ($file_name) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7011	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]	7012	}
				7013	print qq! src="! .
				7014	href(action=>"blob_plain", hash=>$hash,
				7015	hash_base=>$hash_base, file_name=>$file_name) .
				7016	qq!" />\n!;
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7017	} else {
				7018	my $nr;
				7019	while (my $line = <$fd>) {
				7020	chomp $line;
				7021	$nr++;
				7022	$line = untabify($line);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	7023	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]	7024	$nr, esc_attr(href(-replay => 1)), $nr, $nr,
				7025	$syntax ? sanitize($line) : esc_html($line, -nbsp=>1);
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7026	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7027	}
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7028	close $fd
				7029	or print "Reading blob failed.\n";
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7030	print "</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7031	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7032	}
				7033
				7034	sub git_tree {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	7035	if (!defined $hash_base) {
				7036	$hash_base = "HEAD";
				7037	}
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7038	if (!defined $hash) {
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7039	if (defined $file_name) {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	7040	$hash = git_get_hash_by_path($hash_base, $file_name, "tree");
				7041	} else {
				7042	$hash = $hash_base;
Kay Sievers	10dba28	2005-08-07 20:25:27 +0200	[diff] [blame]	7043	}
Kay Sievers	e925f38	2005-08-07 20:23:35 +0200	[diff] [blame]	7044	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	7045	die_error(404, "No such tree") unless defined($hash);
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7046
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7047	my $show_sizes = gitweb_check_feature('show-sizes');
				7048	my $have_blame = gitweb_check_feature('blame');
				7049
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7050	my @entries = ();
				7051	{
				7052	local $/ = "\0";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7053	open my $fd, "-\|", git_cmd(), "ls-tree", '-z',
				7054	($show_sizes ? '-l' : ()), @extra_options, $hash
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7055	or die_error(500, "Open git-ls-tree failed");
				7056	@entries = map { chomp; $_ } <$fd>;
				7057	close $fd
				7058	or die_error(404, "Reading tree failed");
				7059	}
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7060
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7061	my $refs = git_get_references();
				7062	my $ref = format_ref_marker($refs, $hash_base);
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7063	git_header_html();
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7064	my $basedir = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7065	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7066	my @views_nav = ();
				7067	if (defined $file_name) {
				7068	push @views_nav,
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7069	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7070	"history"),
				7071	$cgi->a({-href => href(action=>"tree",
				7072	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	7073	"HEAD"),
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7074	}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7075	my $snapshot_links = format_snapshot_links($hash);
				7076	if (defined $snapshot_links) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7077	# FIXME: Should be available when we have no hash base as well.
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7078	push @views_nav, $snapshot_links;
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7079	}
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7080	git_print_page_nav('tree','', $hash_base, undef, undef,
				7081	join(' \| ', @views_nav));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7082	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash_base);
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7083	} else {
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	7084	undef $hash_base;
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7085	print "<div class=\"page_nav\">\n";
				7086	print "<br/><br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7087	print "<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7088	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7089	if (defined $file_name) {
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7090	$basedir = $file_name;
				7091	if ($basedir ne '' && substr($basedir, -1) ne '/') {
				7092	$basedir .= '/';
				7093	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	7094	git_print_page_path($file_name, 'tree', $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7095	}
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7096	print "<div class=\"page_body\">\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7097	print "<table class=\"tree\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	7098	my $alternate = 1;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7099	# '..' (top directory) link if possible
				7100	if (defined $hash_base &&
				7101	defined $file_name && $file_name =~ m![^/]+$!) {
				7102	if ($alternate) {
				7103	print "<tr class=\"dark\">\n";
				7104	} else {
				7105	print "<tr class=\"light\">\n";
				7106	}
				7107	$alternate ^= 1;
				7108
				7109	my $up = $file_name;
				7110	$up =~ s!/?[^/]+$!!;
				7111	undef $up unless $up;
				7112	# based on git_print_tree_entry
				7113	print '<td class="mode">' . mode_str('040000') . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7114	print '<td class="size"> </td>'."\n" if $show_sizes;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7115	print '<td class="list">';
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7116	print $cgi->a({-href => href(action=>"tree",
				7117	hash_base=>$hash_base,
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7118	file_name=>$up)},
				7119	"..");
				7120	print "</td>\n";
				7121	print "<td class=\"link\"></td>\n";
				7122
				7123	print "</tr>\n";
				7124	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7125	foreach my $line (@entries) {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7126	my %t = parse_ls_tree_line($line, -z => 1, -l => $show_sizes);
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	7127
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7128	if ($alternate) {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7129	print "<tr class=\"dark\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7130	} else {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7131	print "<tr class=\"light\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7132	}
				7133	$alternate ^= 1;
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	7134
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7135	git_print_tree_entry(\%t, $basedir, $hash_base, $have_blame);
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	7136
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	7137	print "</tr>\n";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7138	}
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	7139	print "</table>\n" .
				7140	"</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7141	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7142	}
				7143
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7144	sub snapshot_name {
				7145	my ($project, $hash) = @_;
				7146
				7147	# path/to/project.git -> project
				7148	# path/to/project/.git -> project
				7149	my $name = to_utf8($project);
				7150	$name =~ s,([^/])/*\.git$,$1,;
				7151	$name = basename($name);
				7152	# sanitize name
				7153	$name =~ s/[[:cntrl:]]/?/g;
				7154
				7155	my $ver = $hash;
				7156	if ($hash =~ /^[0-9a-fA-F]+$/) {
				7157	# shorten SHA-1 hash
				7158	my $full_hash = git_get_full_hash($project, $hash);
				7159	if ($full_hash =~ /^$hash/ && length($hash) > 7) {
				7160	$ver = git_get_short_hash($project, $hash);
				7161	}
				7162	} elsif ($hash =~ m!^refs/tags/(.*)$!) {
				7163	# tags don't need shortened SHA-1 hash
				7164	$ver = $1;
				7165	} else {
				7166	# branches and other need shortened SHA-1 hash
				7167	if ($hash =~ m!^refs/(?:heads\|remotes)/(.*)$!) {
				7168	$ver = $1;
				7169	}
				7170	$ver .= '-' . git_get_short_hash($project, $hash);
				7171	}
				7172	# in case of hierarchical branch names
				7173	$ver =~ s!/!.!g;
				7174
				7175	# name = project-version_string
				7176	$name = "$name-$ver";
				7177
				7178	return wantarray ? ($name, $name) : $name;
				7179	}
				7180
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	7181	sub exit_if_unmodified_since {
				7182	my ($latest_epoch) = @_;
				7183	our $cgi;
				7184
				7185	my $if_modified = $cgi->http('IF_MODIFIED_SINCE');
				7186	if (defined $if_modified) {
				7187	my $since;
				7188	if (eval { require HTTP::Date; 1; }) {
				7189	$since = HTTP::Date::str2time($if_modified);
				7190	} elsif (eval { require Time::ParseDate; 1; }) {
				7191	$since = Time::ParseDate::parsedate($if_modified, GMT => 1);
				7192	}
				7193	if (defined $since && $latest_epoch <= $since) {
				7194	my %latest_date = parse_date($latest_epoch);
				7195	print $cgi->header(
				7196	-last_modified => $latest_date{'rfc2822'},
				7197	-status => '304 Not Modified');
				7198	goto DONE_GITWEB;
				7199	}
				7200	}
				7201	}
				7202
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7203	sub git_snapshot {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	7204	my $format = $input_params{'snapshot_format'};
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	7205	if (!@snapshot_fmts) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7206	die_error(403, "Snapshots not allowed");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7207	}
				7208	# default to first supported snapshot format
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	7209	$format \|\|= $snapshot_fmts[0];
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7210	if ($format !~ m/^[a-z0-9]+$/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7211	die_error(400, "Invalid snapshot format parameter");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7212	} elsif (!exists($known_snapshot_formats{$format})) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7213	die_error(400, "Unknown snapshot format");
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	7214	} elsif ($known_snapshot_formats{$format}{'disabled'}) {
				7215	die_error(403, "Snapshot format not allowed");
Mark Rada	34b31a8	2009-08-25 00:59:48 -0400	[diff] [blame]	7216	} elsif (!grep($_ eq $format, @snapshot_fmts)) {
				7217	die_error(403, "Unsupported snapshot format");
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7218	}
				7219
Mark Rada	fdb0c36	2009-09-26 13:46:08 -0400	[diff] [blame]	7220	my $type = git_get_type("$hash^{}");
				7221	if (!$type) {
				7222	die_error(404, 'Object does not exist');
				7223	} elsif ($type eq 'blob') {
				7224	die_error(400, 'Object is not a tree-ish');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7225	}
				7226
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7227	my ($name, $prefix) = snapshot_name($project, $hash);
				7228	my $filename = "$name$known_snapshot_formats{$format}{'suffix'}";
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7229
				7230	my %co = parse_commit($hash);
				7231	exit_if_unmodified_since($co{'committer_epoch'}) if %co;
				7232
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7233	my $cmd = quote_command(
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7234	git_cmd(), 'archive',
				7235	"--format=$known_snapshot_formats{$format}{'format'}",
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7236	"--prefix=$prefix/", $hash);
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7237	if (exists $known_snapshot_formats{$format}{'compressor'}) {
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7238	$cmd .= ' \| ' . quote_command(@{$known_snapshot_formats{$format}{'compressor'}});
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	7239	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7240
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7241	$filename =~ s/(["\\])/\\$1/g;
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7242	my %latest_date;
				7243	if (%co) {
				7244	%latest_date = parse_date($co{'committer_epoch'}, $co{'committer_tz'});
				7245	}
				7246
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	7247	print $cgi->header(
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7248	-type => $known_snapshot_formats{$format}{'type'},
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7249	-content_disposition => 'inline; filename="' . $filename . '"',
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7250	%co ? (-last_modified => $latest_date{'rfc2822'}) : (),
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	7251	-status => '200 OK');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7252
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	7253	open my $fd, "-\|", $cmd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7254	or die_error(500, "Execute git-archive failed");
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7255	binmode STDOUT, ':raw';
				7256	print <$fd>;
				7257	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
				7258	close $fd;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7259	}
				7260
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7261	sub git_log_generic {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7262	my ($fmt_name, $body_subr, $base, $parent, $file_name, $file_hash) = @_;
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7263
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7264	my $head = git_get_head_hash($project);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7265	if (!defined $base) {
				7266	$base = $head;
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	7267	}
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7268	if (!defined $page) {
				7269	$page = 0;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7270	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7271	my $refs = git_get_references();
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7272
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7273	my $commit_hash = $base;
				7274	if (defined $parent) {
				7275	$commit_hash = "$parent..$base";
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7276	}
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7277	my @commitlist =
				7278	parse_commits($commit_hash, 101, (100 * $page),
				7279	defined $file_name ? ($file_name, "--full-history") : ());
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7280
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7281	my $ftype;
				7282	if (!defined $file_hash && defined $file_name) {
				7283	# some commits could have deleted file in question,
				7284	# and not have it in tree, but one of them has to have it
				7285	for (my $i = 0; $i < @commitlist; $i++) {
				7286	$file_hash = git_get_hash_by_path($commitlist[$i]{'id'}, $file_name);
				7287	last if defined $file_hash;
				7288	}
				7289	}
				7290	if (defined $file_hash) {
				7291	$ftype = git_get_type($file_hash);
				7292	}
				7293	if (defined $file_name && !defined $ftype) {
				7294	die_error(500, "Unknown type of object");
				7295	}
				7296	my %co;
				7297	if (defined $file_name) {
				7298	%co = parse_commit($base)
				7299	or die_error(404, "Unknown commit object");
				7300	}
				7301
				7302
				7303	my $paging_nav = format_paging_nav($fmt_name, $page, $#commitlist >= 100);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7304	my $next_link = '';
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7305	if ($#commitlist >= 100) {
				7306	$next_link =
				7307	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				7308	-accesskey => "n", -title => "Alt-n"}, "next");
				7309	}
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7310	my $patch_max = gitweb_get_feature('patches');
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7311	if ($patch_max && !defined $file_name) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7312	if ($patch_max < 0 \|\| @commitlist <= $patch_max) {
				7313	$paging_nav .= " ⋅ " .
				7314	$cgi->a({-href => href(action=>"patches", -replay=>1)},
				7315	"patches");
				7316	}
				7317	}
				7318
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7319	git_header_html();
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7320	git_print_page_nav($fmt_name,'', $hash,$hash,$hash, $paging_nav);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7321	if (defined $file_name) {
				7322	git_print_header_div('commit', esc_html($co{'title'}), $base);
				7323	} else {
				7324	git_print_header_div('summary', $project)
				7325	}
				7326	git_print_page_path($file_name, $ftype, $hash_base)
				7327	if (defined $file_name);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7328
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7329	$body_subr->(\@commitlist, 0, 99, $refs, $next_link,
				7330	$file_name, $file_hash, $ftype);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7331
Kay Sievers	034df39	2005-08-07 20:20:07 +0200	[diff] [blame]	7332	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7333	}
				7334
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7335	sub git_log {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7336	git_log_generic('log', \&git_log_body,
				7337	$hash, $hash_parent);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7338	}
				7339
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7340	sub git_commit {
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7341	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7342	my %co = parse_commit($hash)
				7343	or die_error(404, "Unknown commit object");
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7344
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7345	my $parent = $co{'parent'};
				7346	my $parents = $co{'parents'}; # listref
				7347
				7348	# we need to prepare $formats_nav before any parameter munging
				7349	my $formats_nav;
				7350	if (!defined $parent) {
				7351	# --root commitdiff
				7352	$formats_nav .= '(initial)';
				7353	} elsif (@$parents == 1) {
				7354	# single parent commit
				7355	$formats_nav .=
				7356	'(parent: ' .
				7357	$cgi->a({-href => href(action=>"commit",
				7358	hash=>$parent)},
				7359	esc_html(substr($parent, 0, 7))) .
				7360	')';
				7361	} else {
				7362	# merge commit
				7363	$formats_nav .=
				7364	'(merge: ' .
				7365	join(' ', map {
Jakub Narebski	f9308a1	2007-03-23 21:04:31 +0100	[diff] [blame]	7366	$cgi->a({-href => href(action=>"commit",
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7367	hash=>$_)},
				7368	esc_html(substr($_, 0, 7)));
				7369	} @$parents ) .
				7370	')';
				7371	}
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7372	if (gitweb_check_feature('patches') && @$parents <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7373	$formats_nav .= " \| " .
				7374	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7375	"patch");
				7376	}
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7377
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	7378	if (!defined $parent) {
Jakub Narebski	b918298	2006-07-30 18:28:34 -0700	[diff] [blame]	7379	$parent = "--root";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7380	}
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7381	my @difftree;
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7382	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', "--no-commit-id",
				7383	@diff_opts,
				7384	(@$parents <= 1 ? $parent : '-c'),
				7385	$hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7386	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7387	@difftree = map { chomp; $_ } <$fd>;
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7388	close $fd or die_error(404, "Reading git-diff-tree failed");
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7389
				7390	# non-textual hash id's can be cached
				7391	my $expires;
				7392	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7393	$expires = "+1d";
				7394	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7395	my $refs = git_get_references();
				7396	my $ref = format_ref_marker($refs, $co{'id'});
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7397
Jakub Narebski	594e212	2006-07-31 02:21:52 +0200	[diff] [blame]	7398	git_header_html(undef, $expires);
Petr Baudis	a144154	2006-10-06 18:59:33 +0200	[diff] [blame]	7399	git_print_page_nav('commit', '',
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7400	$hash, $co{'tree'}, $hash,
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7401	$formats_nav);
Luben Tuikov	4f7b34c	2006-07-23 13:36:32 -0700	[diff] [blame]	7402
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7403	if (defined $co{'parent'}) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7404	git_print_header_div('commitdiff', esc_html($co{'title'}) . $ref, $hash);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7405	} else {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7406	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]	7407	}
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7408	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7409	"<table class=\"object_header\">\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	7410	git_print_authorship_rows(\%co);
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7411	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]	7412	print "<tr>" .
				7413	"<td>tree</td>" .
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7414	"<td class=\"sha1\">" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7415	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash),
				7416	class => "list"}, $co{'tree'}) .
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7417	"</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7418	"<td class=\"link\">" .
				7419	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash)},
				7420	"tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7421	my $snapshot_links = format_snapshot_links($hash);
				7422	if (defined $snapshot_links) {
				7423	print " \| " . $snapshot_links;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7424	}
				7425	print "</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7426	"</tr>\n";
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7427
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7428	foreach my $par (@$parents) {
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7429	print "<tr>" .
				7430	"<td>parent</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7431	"<td class=\"sha1\">" .
				7432	$cgi->a({-href => href(action=>"commit", hash=>$par),
				7433	class => "list"}, $par) .
				7434	"</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7435	"<td class=\"link\">" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	7436	$cgi->a({-href => href(action=>"commit", hash=>$par)}, "commit") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7437	" \| " .
Jakub Narebski	f2e6094	2006-09-03 23:43:03 +0200	[diff] [blame]	7438	$cgi->a({-href => href(action=>"commitdiff", hash=>$hash, hash_parent=>$par)}, "diff") .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7439	"</td>" .
				7440	"</tr>\n";
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7441	}
Jakub Narebski	7a9b4c5	2006-06-21 09:48:02 +0200	[diff] [blame]	7442	print "</table>".
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7443	"</div>\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7444
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7445	print "<div class=\"page_body\">\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7446	git_print_log($co{'comment'});
Kay Sievers	927dcec	2005-08-07 20:18:44 +0200	[diff] [blame]	7447	print "</div>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7448
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7449	git_difftree_body(\@difftree, $hash, @$parents);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7450
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7451	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7452	}
				7453
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7454	sub git_object {
				7455	# object is defined by:
				7456	# - hash or hash_base alone
				7457	# - hash_base and file_name
				7458	my $type;
				7459
				7460	# - hash or hash_base alone
				7461	if ($hash \|\| ($hash_base && !defined $file_name)) {
				7462	my $object_id = $hash \|\| $hash_base;
				7463
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7464	open my $fd, "-\|", quote_command(
				7465	git_cmd(), 'cat-file', '-t', $object_id) . ' 2> /dev/null'
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7466	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7467	$type = <$fd>;
				7468	chomp $type;
				7469	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7470	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7471
				7472	# - hash_base and file_name
				7473	} elsif ($hash_base && defined $file_name) {
				7474	$file_name =~ s,/+$,,;
				7475
				7476	system(git_cmd(), "cat-file", '-e', $hash_base) == 0
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7477	or die_error(404, "Base object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7478
				7479	# here errors should not hapen
				7480	open my $fd, "-\|", git_cmd(), "ls-tree", $hash_base, "--", $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7481	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7482	my $line = <$fd>;
				7483	close $fd;
				7484
				7485	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				7486	unless ($line && $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7487	die_error(404, "File or directory for given base does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7488	}
				7489	$type = $2;
				7490	$hash = $3;
				7491	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7492	die_error(400, "Not enough information to find object");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7493	}
				7494
				7495	print $cgi->redirect(-uri => href(action=>$type, -full=>1,
				7496	hash=>$hash, hash_base=>$hash_base,
				7497	file_name=>$file_name),
				7498	-status => '302 Found');
				7499	}
				7500
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7501	sub git_blobdiff {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7502	my $format = shift \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7503	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7504
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7505	my $fd;
				7506	my @difftree;
				7507	my %diffinfo;
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7508	my $expires;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7509
				7510	# preparing $fd and %diffinfo for git_patchset_body
				7511	# new style URI
				7512	if (defined $hash_base && defined $hash_parent_base) {
				7513	if (defined $file_name) {
				7514	# read raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7515	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7516	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7517	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7518	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7519	@difftree = map { chomp; $_ } <$fd>;
				7520	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7521	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7522	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7523	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7524
Jakub Narebski	0aea337	2006-08-27 23:45:26 +0200	[diff] [blame]	7525	} elsif (defined $hash &&
				7526	$hash =~ /[0-9a-fA-F]{40}/) {
				7527	# try to find filename from $hash
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7528
				7529	# read filtered raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7530	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7531	$hash_parent_base, $hash_base, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7532	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7533	@difftree =
				7534	# ':100644 100644 03b21826... 3b93d5e7... M ls-files.c'
				7535	# $hash == to_id
				7536	grep { /^:[0-7]{6} [0-7]{6} [0-9a-fA-F]{40} $hash/ }
				7537	map { chomp; $_ } <$fd>;
				7538	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7539	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7540	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7541	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7542
				7543	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7544	die_error(400, "Missing one of the blob diff parameters");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7545	}
				7546
				7547	if (@difftree > 1) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7548	die_error(400, "Ambiguous blob diff specification");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7549	}
				7550
				7551	%diffinfo = parse_difftree_raw_line($difftree[0]);
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	7552	$file_parent \|\|= $diffinfo{'from_file'} \|\| $file_name;
				7553	$file_name \|\|= $diffinfo{'to_file'};
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7554
				7555	$hash_parent \|\|= $diffinfo{'from_id'};
				7556	$hash \|\|= $diffinfo{'to_id'};
				7557
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7558	# non-textual hash id's can be cached
				7559	if ($hash_base =~ m/^[0-9a-fA-F]{40}$/ &&
				7560	$hash_parent_base =~ m/^[0-9a-fA-F]{40}$/) {
				7561	$expires = '+1d';
				7562	}
				7563
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7564	# open patch output
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7565	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	957d6ea	2007-04-05 13:45:41 +0200	[diff] [blame]	7566	'-p', ($format eq 'html' ? "--full-index" : ()),
				7567	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7568	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7569	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7570	}
				7571
Junio C Hamano	b54dc9f	2008-12-16 19:42:02 -0800	[diff] [blame]	7572	# old/legacy style URI -- not generated anymore since 1.4.3.
				7573	if (!%diffinfo) {
				7574	die_error('404 Not Found', "Missing one of the blob diff parameters")
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7575	}
				7576
				7577	# header
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7578	if ($format eq 'html') {
				7579	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7580	$cgi->a({-href => href(action=>"blobdiff_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	7581	"raw");
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7582	$formats_nav .= diff_style_nav($diff_style);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7583	git_header_html(undef, $expires);
				7584	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
				7585	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7586	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
				7587	} else {
				7588	print "<div class=\"page_nav\"><br/>$formats_nav<br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7589	print "<div class=\"title\">".esc_html("$hash vs $hash_parent")."</div>\n";
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7590	}
				7591	if (defined $file_name) {
				7592	git_print_page_path($file_name, "blob", $hash_base);
				7593	} else {
				7594	print "<div class=\"page_path\"></div>\n";
				7595	}
				7596
				7597	} elsif ($format eq 'plain') {
				7598	print $cgi->header(
				7599	-type => 'text/plain',
				7600	-charset => 'utf-8',
				7601	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7602	-content_disposition => 'inline; filename="' . "$file_name" . '.patch"');
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7603
				7604	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
				7605
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7606	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7607	die_error(400, "Unknown blobdiff format");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7608	}
				7609
				7610	# patch
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7611	if ($format eq 'html') {
				7612	print "<div class=\"page_body\">\n";
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7613
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7614	git_patchset_body($fd, $diff_style,
				7615	[ \%diffinfo ], $hash_base, $hash_parent_base);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7616	close $fd;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7617
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7618	print "</div>\n"; # class="page_body"
				7619	git_footer_html();
				7620
				7621	} else {
				7622	while (my $line = <$fd>) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	7623	$line =~ s!a/($hash\|$hash_parent)!'a/'.esc_path($diffinfo{'from_file'})!eg;
				7624	$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]	7625
				7626	print $line;
				7627
				7628	last if $line =~ m!^\+\+\+!;
				7629	}
				7630	local $/ = undef;
				7631	print <$fd>;
				7632	close $fd;
				7633	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7634	}
				7635
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7636	sub git_blobdiff_plain {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7637	git_blobdiff('plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7638	}
				7639
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7640	# assumes that it is added as later part of already existing navigation,
				7641	# so it returns "\| foo \| bar" rather than just "foo \| bar"
				7642	sub diff_style_nav {
				7643	my ($diff_style, $is_combined) = @_;
				7644	$diff_style \|\|= 'inline';
				7645
				7646	return "" if ($is_combined);
				7647
				7648	my @styles = (inline => 'inline', 'sidebyside' => 'side by side');
				7649	my %styles = @styles;
				7650	@styles =
				7651	@styles[ map { $_ * 2 } 0..$#styles/2 ];
				7652
				7653	return join '',
				7654	map { " \| ".$_ }
				7655	map {
				7656	$_ eq $diff_style ? $styles{$_} :
				7657	$cgi->a({-href => href(-replay=>1, diff_style => $_)}, $styles{$_})
				7658	} @styles;
				7659	}
				7660
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7661	sub git_commitdiff {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7662	my %params = @_;
				7663	my $format = $params{-format} \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7664	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7665
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7666	my ($patch_max) = gitweb_get_feature('patches');
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7667	if ($format eq 'patch') {
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7668	die_error(403, "Patch view not allowed") unless $patch_max;
				7669	}
				7670
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7671	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7672	my %co = parse_commit($hash)
				7673	or die_error(404, "Unknown commit object");
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7674
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7675	# choose format for commitdiff for merge
				7676	if (! defined $hash_parent && @{$co{'parents'}} > 1) {
				7677	$hash_parent = '--cc';
				7678	}
				7679	# we need to prepare $formats_nav before almost any parameter munging
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7680	my $formats_nav;
				7681	if ($format eq 'html') {
				7682	$formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7683	$cgi->a({-href => href(action=>"commitdiff_plain", -replay=>1)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7684	"raw");
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7685	if ($patch_max && @{$co{'parents'}} <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7686	$formats_nav .= " \| " .
				7687	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7688	"patch");
				7689	}
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7690	$formats_nav .= diff_style_nav($diff_style, @{$co{'parents'}} > 1);
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7691
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7692	if (defined $hash_parent &&
				7693	$hash_parent ne '-c' && $hash_parent ne '--cc') {
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7694	# commitdiff with two commits given
				7695	my $hash_parent_short = $hash_parent;
				7696	if ($hash_parent =~ m/^[0-9a-fA-F]{40}$/) {
				7697	$hash_parent_short = substr($hash_parent, 0, 7);
				7698	}
				7699	$formats_nav .=
Jakub Narebski	ada3e1f	2007-06-08 13:26:31 +0200	[diff] [blame]	7700	' (from';
				7701	for (my $i = 0; $i < @{$co{'parents'}}; $i++) {
				7702	if ($co{'parents'}[$i] eq $hash_parent) {
				7703	$formats_nav .= ' parent ' . ($i+1);
				7704	last;
				7705	}
				7706	}
				7707	$formats_nav .= ': ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7708	$cgi->a({-href => href(-replay=>1,
				7709	hash=>$hash_parent, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7710	esc_html($hash_parent_short)) .
				7711	')';
				7712	} elsif (!$co{'parent'}) {
				7713	# --root commitdiff
				7714	$formats_nav .= ' (initial)';
				7715	} elsif (scalar @{$co{'parents'}} == 1) {
				7716	# single parent commit
				7717	$formats_nav .=
				7718	' (parent: ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7719	$cgi->a({-href => href(-replay=>1,
				7720	hash=>$co{'parent'}, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7721	esc_html(substr($co{'parent'}, 0, 7))) .
				7722	')';
				7723	} else {
				7724	# merge commit
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7725	if ($hash_parent eq '--cc') {
				7726	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7727	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7728	hash=>$hash, hash_parent=>'-c')},
				7729	'combined');
				7730	} else { # $hash_parent eq '-c'
				7731	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7732	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7733	hash=>$hash, hash_parent=>'--cc')},
				7734	'compact');
				7735	}
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7736	$formats_nav .=
				7737	' (merge: ' .
				7738	join(' ', map {
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7739	$cgi->a({-href => href(-replay=>1,
				7740	hash=>$_, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7741	esc_html(substr($_, 0, 7)));
				7742	} @{$co{'parents'}} ) .
				7743	')';
				7744	}
				7745	}
				7746
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7747	my $hash_parent_param = $hash_parent;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7748	if (!defined $hash_parent_param) {
				7749	# --cc for multiple parents, --root for parentless
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7750	$hash_parent_param =
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7751	@{$co{'parents'}} > 1 ? '--cc' : $co{'parent'} \|\| '--root';
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7752	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7753
				7754	# read commitdiff
				7755	my $fd;
				7756	my @difftree;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7757	if ($format eq 'html') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7758	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7759	"--no-commit-id", "--patch-with-raw", "--full-index",
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7760	$hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7761	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7762
Jakub Narebski	04408c3	2006-11-18 23:35:38 +0100	[diff] [blame]	7763	while (my $line = <$fd>) {
				7764	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7765	# empty line ends raw part of diff-tree output
				7766	last unless $line;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	7767	push @difftree, scalar parse_difftree_raw_line($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7768	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7769
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7770	} elsif ($format eq 'plain') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7771	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7772	'-p', $hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7773	or die_error(500, "Open git-diff-tree failed");
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7774	} elsif ($format eq 'patch') {
				7775	# For commit ranges, we limit the output to the number of
				7776	# patches specified in the 'patches' feature.
				7777	# For single commits, we limit the output to a single patch,
				7778	# diverging from the git-format-patch default.
				7779	my @commit_spec = ();
				7780	if ($hash_parent) {
				7781	if ($patch_max > 0) {
				7782	push @commit_spec, "-$patch_max";
				7783	}
				7784	push @commit_spec, '-n', "$hash_parent..$hash";
				7785	} else {
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7786	if ($params{-single}) {
				7787	push @commit_spec, '-1';
				7788	} else {
				7789	if ($patch_max > 0) {
				7790	push @commit_spec, "-$patch_max";
				7791	}
				7792	push @commit_spec, "-n";
				7793	}
				7794	push @commit_spec, '--root', $hash;
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7795	}
Pavan Kumar Sunkara	04794fd	2010-05-10 18:41:35 +0200	[diff] [blame]	7796	open $fd, "-\|", git_cmd(), "format-patch", @diff_opts,
				7797	'--encoding=utf8', '--stdout', @commit_spec
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7798	or die_error(500, "Open git-format-patch failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7799	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7800	die_error(400, "Unknown commitdiff format");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7801	}
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	7802
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7803	# non-textual hash id's can be cached
				7804	my $expires;
				7805	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7806	$expires = "+1d";
				7807	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7808
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7809	# write commit message
				7810	if ($format eq 'html') {
				7811	my $refs = git_get_references();
				7812	my $ref = format_ref_marker($refs, $co{'id'});
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7813
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7814	git_header_html(undef, $expires);
				7815	git_print_page_nav('commitdiff','', $hash,$co{'tree'},$hash, $formats_nav);
				7816	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash);
Giuseppe Bilotta	f88bafa	2009-06-30 00:00:49 +0200	[diff] [blame]	7817	print "<div class=\"title_text\">\n" .
				7818	"<table class=\"object_header\">\n";
				7819	git_print_authorship_rows(\%co);
				7820	print "</table>".
				7821	"</div>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7822	print "<div class=\"page_body\">\n";
Jakub Narebski	8256098	2006-10-24 13:55:33 +0200	[diff] [blame]	7823	if (@{$co{'comment'}} > 1) {
				7824	print "<div class=\"log\">\n";
				7825	git_print_log($co{'comment'}, -final_empty_line=> 1, -remove_title => 1);
				7826	print "</div>\n"; # class="log"
				7827	}
Kay Sievers	1b1cd42	2005-08-07 20:28:01 +0200	[diff] [blame]	7828
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7829	} elsif ($format eq 'plain') {
				7830	my $refs = git_get_references("tags");
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7831	my $tagname = git_get_rev_name_tags($hash);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7832	my $filename = basename($project) . "-$hash.patch";
				7833
				7834	print $cgi->header(
				7835	-type => 'text/plain',
				7836	-charset => 'utf-8',
				7837	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7838	-content_disposition => 'inline; filename="' . "$filename" . '"');
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7839	my %ad = parse_date($co{'author_epoch'}, $co{'author_tz'});
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7840	print "From: " . to_utf8($co{'author'}) . "\n";
				7841	print "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n";
				7842	print "Subject: " . to_utf8($co{'title'}) . "\n";
				7843
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7844	print "X-Git-Tag: $tagname\n" if $tagname;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7845	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7846
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7847	foreach my $line (@{$co{'comment'}}) {
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7848	print to_utf8($line) . "\n";
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7849	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7850	print "---\n\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7851	} elsif ($format eq 'patch') {
				7852	my $filename = basename($project) . "-$hash.patch";
				7853
				7854	print $cgi->header(
				7855	-type => 'text/plain',
				7856	-charset => 'utf-8',
				7857	-expires => $expires,
				7858	-content_disposition => 'inline; filename="' . "$filename" . '"');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7859	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7860
				7861	# write patch
				7862	if ($format eq 'html') {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7863	my $use_parents = !defined $hash_parent \|\|
				7864	$hash_parent eq '-c' \|\| $hash_parent eq '--cc';
				7865	git_difftree_body(\@difftree, $hash,
				7866	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	7867	print "<br/>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7868
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7869	git_patchset_body($fd, $diff_style,
				7870	\@difftree, $hash,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7871	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	7872	close $fd;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7873	print "</div>\n"; # class="page_body"
				7874	git_footer_html();
				7875
				7876	} elsif ($format eq 'plain') {
				7877	local $/ = undef;
				7878	print <$fd>;
				7879	close $fd
				7880	or print "Reading git-diff-tree failed\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7881	} elsif ($format eq 'patch') {
				7882	local $/ = undef;
				7883	print <$fd>;
				7884	close $fd
				7885	or print "Reading git-format-patch failed\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7886	}
				7887	}
				7888
				7889	sub git_commitdiff_plain {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7890	git_commitdiff(-format => 'plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7891	}
				7892
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7893	# format-patch-style patches
				7894	sub git_patch {
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7895	git_commitdiff(-format => 'patch', -single => 1);
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7896	}
				7897
				7898	sub git_patches {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7899	git_commitdiff(-format => 'patch');
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7900	}
				7901
				7902	sub git_history {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7903	git_log_generic('history', \&git_history_body,
				7904	$hash_base, $hash_parent_base,
				7905	$file_name, $hash);
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7906	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7907
				7908	sub git_search {
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	7909	$searchtype \|\|= 'commit';
				7910
				7911	# check if appropriate features are enabled
				7912	gitweb_check_feature('search')
				7913	or die_error(403, "Search is disabled");
				7914	if ($searchtype eq 'pickaxe') {
				7915	# pickaxe may take all resources of your box and run for several minutes
				7916	# with every query - so decide by yourself how public you make this feature
				7917	gitweb_check_feature('pickaxe')
				7918	or die_error(403, "Pickaxe search is disabled");
				7919	}
				7920	if ($searchtype eq 'grep') {
				7921	# grep search might be potentially CPU-intensive, too
				7922	gitweb_check_feature('grep')
				7923	or die_error(403, "Grep search is disabled");
				7924	}
				7925
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7926	if (!defined $searchtext) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7927	die_error(400, "Text field is empty");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7928	}
				7929	if (!defined $hash) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7930	$hash = git_get_head_hash($project);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7931	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7932	my %co = parse_commit($hash);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7933	if (!%co) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7934	die_error(404, "Unknown commit object");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7935	}
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	7936	if (!defined $page) {
				7937	$page = 0;
				7938	}
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	7939
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	7940	if ($searchtype eq 'commit' \|\|
				7941	$searchtype eq 'author' \|\|
				7942	$searchtype eq 'committer') {
				7943	git_search_message(%co);
				7944	} elsif ($searchtype eq 'pickaxe') {
				7945	git_search_changes(%co);
				7946	} elsif ($searchtype eq 'grep') {
				7947	git_search_files(%co);
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	7948	} else {
				7949	die_error(400, "Unknown search type");
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7950	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7951	}
				7952
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7953	sub git_search_help {
				7954	git_header_html();
				7955	git_print_page_nav('','', $hash,$hash,$hash);
				7956	print <<EOT;
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7957	<p><strong>Pattern</strong> is by default a normal string that is matched precisely (but without
				7958	regard to case, except in the case of pickaxe). However, when you check the <em>re</em> checkbox,
				7959	the pattern entered is recognized as the POSIX extended
				7960	<a href="http://en.wikipedia.org/wiki/Regular_expression">regular expression</a> (also case
				7961	insensitive).</p>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7962	<dl>
				7963	<dt><b>commit</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7964	<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]	7965	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7966	my $have_grep = gitweb_check_feature('grep');
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7967	if ($have_grep) {
				7968	print <<EOT;
				7969	<dt><b>grep</b></dt>
				7970	<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]	7971	a different one) are searched for the given pattern. On large trees, this search can take
				7972	a while and put some strain on the server, so please use it with some consideration. Note that
				7973	due to git-grep peculiarity, currently if regexp mode is turned off, the matches are
				7974	case-sensitive.</dd>
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7975	EOT
				7976	}
				7977	print <<EOT;
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7978	<dt><b>author</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7979	<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]	7980	<dt><b>committer</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7981	<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]	7982	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7983	my $have_pickaxe = gitweb_check_feature('pickaxe');
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7984	if ($have_pickaxe) {
				7985	print <<EOT;
				7986	<dt><b>pickaxe</b></dt>
				7987	<dd>All commits that caused the string to appear or disappear from any file (changes that
				7988	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]	7989	takes a lot of strain on the server, so please use it wisely. Note that since you may be
				7990	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]	7991	EOT
				7992	}
				7993	print "</dl>\n";
				7994	git_footer_html();
				7995	}
				7996
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7997	sub git_shortlog {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7998	git_log_generic('shortlog', \&git_shortlog_body,
				7999	$hash, $hash_parent);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8000	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8001
				8002	## ......................................................................
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8003	## feeds (RSS, Atom; OPML)
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8004
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8005	sub git_feed {
				8006	my $format = shift \|\| 'atom';
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	8007	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8008
				8009	# Atom: http://www.atomenabled.org/developers/syndication/
				8010	# RSS: http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
				8011	if ($format ne 'rss' && $format ne 'atom') {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	8012	die_error(400, "Unknown web feed format");
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8013	}
				8014
				8015	# log/feed of current (HEAD) branch, log of given branch, history of file/directory
				8016	my $head = $hash \|\| 'HEAD';
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	8017	my @commitlist = parse_commits($head, 150, 0, $file_name);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8018
				8019	my %latest_commit;
				8020	my %latest_date;
				8021	my $content_type = "application/$format+xml";
				8022	if (defined $cgi->http('HTTP_ACCEPT') &&
				8023	$cgi->Accept('text/xml') > $cgi->Accept($content_type)) {
				8024	# browser (feed reader) prefers text/xml
				8025	$content_type = 'text/xml';
				8026	}
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8027	if (defined($commitlist[0])) {
				8028	%latest_commit = %{$commitlist[0]};
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	8029	my $latest_epoch = $latest_commit{'committer_epoch'};
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	8030	exit_if_unmodified_since($latest_epoch);
				8031	%latest_date = parse_date($latest_epoch, $latest_commit{'comitter_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8032	}
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	8033	print $cgi->header(
				8034	-type => $content_type,
				8035	-charset => 'utf-8',
				8036	%latest_date ? (-last_modified => $latest_date{'rfc2822'}) : (),
				8037	-status => '200 OK');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8038
				8039	# Optimization: skip generating the body if client asks only
				8040	# for Last-Modified date.
				8041	return if ($cgi->request_method() eq 'HEAD');
				8042
				8043	# header variables
				8044	my $title = "$site_name - $project/$action";
				8045	my $feed_type = 'log';
				8046	if (defined $hash) {
				8047	$title .= " - '$hash'";
				8048	$feed_type = 'branch log';
				8049	if (defined $file_name) {
				8050	$title .= " :: $file_name";
				8051	$feed_type = 'history';
				8052	}
				8053	} elsif (defined $file_name) {
				8054	$title .= " - $file_name";
				8055	$feed_type = 'history';
				8056	}
				8057	$title .= " $feed_type";
				8058	my $descr = git_get_project_description($project);
				8059	if (defined $descr) {
				8060	$descr = esc_html($descr);
				8061	} else {
				8062	$descr = "$project " .
				8063	($format eq 'rss' ? 'RSS' : 'Atom') .
				8064	" feed";
				8065	}
				8066	my $owner = git_get_project_owner($project);
				8067	$owner = esc_html($owner);
				8068
				8069	#header
				8070	my $alt_url;
				8071	if (defined $file_name) {
				8072	$alt_url = href(-full=>1, action=>"history", hash=>$hash, file_name=>$file_name);
				8073	} elsif (defined $hash) {
				8074	$alt_url = href(-full=>1, action=>"log", hash=>$hash);
				8075	} else {
				8076	$alt_url = href(-full=>1, action=>"summary");
				8077	}
				8078	print qq!<?xml version="1.0" encoding="utf-8"?>\n!;
				8079	if ($format eq 'rss') {
				8080	print <<XML;
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8081	<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">
				8082	<channel>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8083	XML
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8084	print "<title>$title</title>\n" .
				8085	"<link>$alt_url</link>\n" .
				8086	"<description>$descr</description>\n" .
Giuseppe Bilotta	3ac109a	2009-01-26 12:50:13 +0100	[diff] [blame]	8087	"<language>en</language>\n" .
				8088	# project owner is responsible for 'editorial' content
				8089	"<managingEditor>$owner</managingEditor>\n";
Giuseppe Bilotta	1ba68ce	2009-01-26 12:50:11 +0100	[diff] [blame]	8090	if (defined $logo \|\| defined $favicon) {
				8091	# prefer the logo to the favicon, since RSS
				8092	# doesn't allow both
				8093	my $img = esc_url($logo \|\| $favicon);
				8094	print "<image>\n" .
				8095	"<url>$img</url>\n" .
				8096	"<title>$title</title>\n" .
				8097	"<link>$alt_url</link>\n" .
				8098	"</image>\n";
				8099	}
Giuseppe Bilotta	0cf3128	2009-01-26 12:50:14 +0100	[diff] [blame]	8100	if (%latest_date) {
				8101	print "<pubDate>$latest_date{'rfc2822'}</pubDate>\n";
				8102	print "<lastBuildDate>$latest_date{'rfc2822'}</lastBuildDate>\n";
				8103	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	8104	print "<generator>gitweb v.$version/$git_version</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8105	} elsif ($format eq 'atom') {
				8106	print <<XML;
				8107	<feed xmlns="http://www.w3.org/2005/Atom">
				8108	XML
				8109	print "<title>$title</title>\n" .
				8110	"<subtitle>$descr</subtitle>\n" .
				8111	'<link rel="alternate" type="text/html" href="' .
				8112	$alt_url . '" />' . "\n" .
				8113	'<link rel="self" type="' . $content_type . '" href="' .
				8114	$cgi->self_url() . '" />' . "\n" .
				8115	"<id>" . href(-full=>1) . "</id>\n" .
				8116	# use project owner for feed author
				8117	"<author><name>$owner</name></author>\n";
				8118	if (defined $favicon) {
				8119	print "<icon>" . esc_url($favicon) . "</icon>\n";
				8120	}
Jonathan Nieder	9d9f5e7	2010-09-03 19:44:39 -0500	[diff] [blame]	8121	if (defined $logo) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8122	# not twice as wide as tall: 72 x 27 pixels
Jakub Narebski	e114726	2006-12-04 14:09:43 +0100	[diff] [blame]	8123	print "<logo>" . esc_url($logo) . "</logo>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8124	}
				8125	if (! %latest_date) {
				8126	# dummy date to keep the feed valid until commits trickle in:
				8127	print "<updated>1970-01-01T00:00:00Z</updated>\n";
				8128	} else {
				8129	print "<updated>$latest_date{'iso-8601'}</updated>\n";
				8130	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	8131	print "<generator version='$version/$git_version'>gitweb</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8132	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8133
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8134	# contents
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8135	for (my $i = 0; $i <= $#commitlist; $i++) {
				8136	my %co = %{$commitlist[$i]};
				8137	my $commit = $co{'id'};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8138	# 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]	8139	if (($i >= 20) && ((time - $co{'author_epoch'}) > 486060)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8140	last;
				8141	}
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	8142	my %cd = parse_date($co{'author_epoch'}, $co{'author_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8143
				8144	# get list of changed files
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8145	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	c906b18	2007-05-19 02:47:51 +0200	[diff] [blame]	8146	$co{'parent'} \|\| "--root",
				8147	$co{'id'}, "--", (defined $file_name ? $file_name : ())
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	8148	or next;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8149	my @difftree = map { chomp; $_ } <$fd>;
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	8150	close $fd
				8151	or next;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8152
				8153	# print element (entry, item)
Florian La Roche	e62a641	2008-02-03 12:38:46 +0100	[diff] [blame]	8154	my $co_url = href(-full=>1, action=>"commitdiff", hash=>$commit);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8155	if ($format eq 'rss') {
				8156	print "<item>\n" .
				8157	"<title>" . esc_html($co{'title'}) . "</title>\n" .
				8158	"<author>" . esc_html($co{'author'}) . "</author>\n" .
				8159	"<pubDate>$cd{'rfc2822'}</pubDate>\n" .
				8160	"<guid isPermaLink=\"true\">$co_url</guid>\n" .
				8161	"<link>$co_url</link>\n" .
				8162	"<description>" . esc_html($co{'title'}) . "</description>\n" .
				8163	"<content:encoded>" .
				8164	"<![CDATA[\n";
				8165	} elsif ($format eq 'atom') {
				8166	print "<entry>\n" .
				8167	"<title type=\"html\">" . esc_html($co{'title'}) . "</title>\n" .
				8168	"<updated>$cd{'iso-8601'}</updated>\n" .
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	8169	"<author>\n" .
				8170	" <name>" . esc_html($co{'author_name'}) . "</name>\n";
				8171	if ($co{'author_email'}) {
				8172	print " <email>" . esc_html($co{'author_email'}) . "</email>\n";
				8173	}
				8174	print "</author>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8175	# use committer for contributor
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	8176	"<contributor>\n" .
				8177	" <name>" . esc_html($co{'committer_name'}) . "</name>\n";
				8178	if ($co{'committer_email'}) {
				8179	print " <email>" . esc_html($co{'committer_email'}) . "</email>\n";
				8180	}
				8181	print "</contributor>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8182	"<published>$cd{'iso-8601'}</published>\n" .
				8183	"<link rel=\"alternate\" type=\"text/html\" href=\"$co_url\" />\n" .
				8184	"<id>$co_url</id>\n" .
				8185	"<content type=\"xhtml\" xml:base=\"" . esc_url($my_url) . "\">\n" .
				8186	"<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
				8187	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8188	my $comment = $co{'comment'};
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8189	print "<pre>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8190	foreach my $line (@$comment) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8191	$line = esc_html($line);
				8192	print "$line\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8193	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8194	print "</pre><ul>\n";
				8195	foreach my $difftree_line (@difftree) {
				8196	my %difftree = parse_difftree_raw_line($difftree_line);
				8197	next if !$difftree{'from_id'};
				8198
				8199	my $file = $difftree{'file'} \|\| $difftree{'to_file'};
				8200
				8201	print "<li>" .
				8202	"[" .
				8203	$cgi->a({-href => href(-full=>1, action=>"blobdiff",
				8204	hash=>$difftree{'to_id'}, hash_parent=>$difftree{'from_id'},
				8205	hash_base=>$co{'id'}, hash_parent_base=>$co{'parent'},
				8206	file_name=>$file, file_parent=>$difftree{'from_file'}),
				8207	-title => "diff"}, 'D');
				8208	if ($have_blame) {
				8209	print $cgi->a({-href => href(-full=>1, action=>"blame",
				8210	file_name=>$file, hash_base=>$commit),
				8211	-title => "blame"}, 'B');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8212	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8213	# if this is not a feed of a file history
				8214	if (!defined $file_name \|\| $file_name ne $file) {
				8215	print $cgi->a({-href => href(-full=>1, action=>"history",
				8216	file_name=>$file, hash=>$commit),
				8217	-title => "history"}, 'H');
				8218	}
				8219	$file = esc_path($file);
				8220	print "] ".
				8221	"$file</li>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8222	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8223	if ($format eq 'rss') {
				8224	print "</ul>]]>\n" .
				8225	"</content:encoded>\n" .
				8226	"</item>\n";
				8227	} elsif ($format eq 'atom') {
				8228	print "</ul>\n</div>\n" .
				8229	"</content>\n" .
				8230	"</entry>\n";
				8231	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8232	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8233
				8234	# end of feed
				8235	if ($format eq 'rss') {
				8236	print "</channel>\n</rss>\n";
Jakub Narebski	3278fbc	2009-05-11 19:37:28 +0200	[diff] [blame]	8237	} elsif ($format eq 'atom') {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8238	print "</feed>\n";
				8239	}
				8240	}
				8241
				8242	sub git_rss {
				8243	git_feed('rss');
				8244	}
				8245
				8246	sub git_atom {
				8247	git_feed('atom');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8248	}
				8249
				8250	sub git_opml {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8251	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	8252	if (!@list) {
				8253	die_error(404, "No projects found");
				8254	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8255
Giuseppe Bilotta	ae35785	2009-01-02 13:49:30 +0100	[diff] [blame]	8256	print $cgi->header(
				8257	-type => 'text/xml',
				8258	-charset => 'utf-8',
				8259	-content_disposition => 'inline; filename="opml.xml"');
				8260
Jürgen Kreileder	5d79105	2011-12-17 10:22:22 +0100	[diff] [blame]	8261	my $title = esc_html($site_name);
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8262	my $filter = " within subdirectory ";
				8263	if (defined $project_filter) {
				8264	$filter .= esc_html($project_filter);
				8265	} else {
				8266	$filter = "";
				8267	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8268	print <<XML;
				8269	<?xml version="1.0" encoding="utf-8"?>
				8270	<opml version="1.0">
				8271	<head>
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8272	<title>$title OPML Export$filter</title>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8273	</head>
				8274	<body>
				8275	<outline text="git RSS feeds">
				8276	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8277
				8278	foreach my $pr (@list) {
				8279	my %proj = %$pr;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8280	my $head = git_get_head_hash($proj{'path'});
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8281	if (!defined $head) {
				8282	next;
				8283	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	8284	$git_dir = "$projectroot/$proj{'path'}";
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8285	my %co = parse_commit($head);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8286	if (!%co) {
				8287	next;
				8288	}
				8289
				8290	my $path = esc_html(chop_str($proj{'path'}, 25, 5));
Giuseppe Bilotta	df63fbb	2009-01-02 13:15:28 +0100	[diff] [blame]	8291	my $rss = href('project' => $proj{'path'}, 'action' => 'rss', -full => 1);
				8292	my $html = href('project' => $proj{'path'}, 'action' => 'summary', -full => 1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8293	print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
				8294	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8295	print <<XML;
				8296	</outline>
				8297	</body>
				8298	</opml>
				8299	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8300	}