Blame - gitweb/gitweb.perl - jrn/git

blob: 2594a4badb3d7b942b28b57ca036650328a1b050 [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;
Guillaume Castagnino	411ddf9	2017-10-19 09:32:46 +0200	[diff] [blame]	13	# handle ACL in file access tests
				14	use filetest 'access';
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	15	use CGI qw(:standard :escapeHTML -nosticky);
Kay Sievers	7403d50	2005-08-07 20:23:49 +0200	[diff] [blame]	16	use CGI::Util qw(unescape);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	17	use CGI::Carp qw(fatalsToBrowser set_message);
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	18	use Encode;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	19	use Fcntl ':mode';
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	20	use File::Find qw();
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	21	use File::Basename qw(basename);
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	22	use Time::HiRes qw(gettimeofday tv_interval);
Ævar Arnfjörð Bjarmason	7d5b30e	2018-03-03 15:38:08 +0000	[diff] [blame]	23	use Digest::MD5 qw(md5_hex);
				24
Kay Sievers	10bb903	2005-11-23 04:26:40 +0100	[diff] [blame]	25	binmode STDOUT, ':utf8';
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	26
Jeff King	13dbf46	2014-11-18 12:10:22 -0500	[diff] [blame]	27	if (!defined($CGI::VERSION) \|\| $CGI::VERSION < 4.08) {
				28	eval 'sub CGI::multi_param { CGI::param(@_) }'
				29	}
				30
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	31	our $t0 = [ gettimeofday() ];
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	32	our $number_of_git_cmds = 0;
				33
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	34	BEGIN {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	35	CGI->compile() if $ENV{'MOD_PERL'};
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	36	}
				37
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	38	our $version = "++GIT_VERSION++";
Kay Sievers	44ad297	2005-08-07 19:59:24 +0200	[diff] [blame]	39
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	40	our ($my_url, $my_uri, $base_url, $path_info, $home_link);
				41	sub evaluate_uri {
				42	our $cgi;
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	43
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	44	our $my_url = $cgi->url();
				45	our $my_uri = $cgi->url(-absolute => 1);
				46
				47	# Base URL for relative URLs in gitweb ($logo, $favicon, ...),
				48	# needed and used only for URLs with nonempty PATH_INFO
				49	our $base_url = $my_url;
				50
				51	# When the script is used as DirectoryIndex, the URL does not contain the name
				52	# of the script file itself, and $cgi->url() fails to strip PATH_INFO, so we
				53	# have to do it ourselves. We make $path_info global because it's also used
				54	# later on.
				55	#
				56	# Another issue with the script being the DirectoryIndex is that the resulting
				57	# $my_url data is not the full script URL: this is good, because we want
				58	# generated links to keep implying the script name if it wasn't explicitly
				59	# indicated in the URL we're handling, but it means that $my_url cannot be used
				60	# as base URL.
				61	# Therefore, if we needed to strip PATH_INFO, then we know that we have
				62	# to build the base URL ourselves:
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	63	our $path_info = decode_utf8($ENV{"PATH_INFO"});
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	64	if ($path_info) {
Jay Soffian	cacfc09	2012-08-08 22:29:26 -0400	[diff] [blame]	65	# $path_info has already been URL-decoded by the web server, but
				66	# $my_url and $my_uri have not. URL-decode them so we can properly
				67	# strip $path_info.
				68	$my_url = unescape($my_url);
				69	$my_uri = unescape($my_uri);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	70	if ($my_url =~ s,\Q$path_info\E$,, &&
				71	$my_uri =~ s,\Q$path_info\E$,, &&
				72	defined $ENV{'SCRIPT_NAME'}) {
				73	$base_url = $cgi->url(-base => 1) . $ENV{'SCRIPT_NAME'};
				74	}
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	75	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	76
				77	# target of the home link on top of all pages
				78	our $home_link = $my_uri \|\| "/";
Giuseppe Bilotta	b65910f	2008-09-29 15:07:42 +0200	[diff] [blame]	79	}
				80
Alp Toker	e130dda	2006-07-12 23:55:10 +0100	[diff] [blame]	81	# core git executable to use
				82	# 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]	83	our $GIT = "++GIT_BINDIR++/git";
Jakub Narebski	3f7f2710	2006-06-21 09:48:04 +0200	[diff] [blame]	84
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	85	# absolute fs-path which will be prepended to the project path
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	86	#our $projectroot = "/pub/scm";
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	87	our $projectroot = "++GITWEB_PROJECTROOT++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	88
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	89	# fs traversing limit for getting project list
				90	# the number is relative to the projectroot
				91	our $project_maxdepth = "++GITWEB_PROJECT_MAXDEPTH++";
				92
Yasushi SHOJI	2de21fa	2006-08-15 07:50:49 +0900	[diff] [blame]	93	# string of the home link on top of all pages
				94	our $home_link_str = "++GITWEB_HOME_LINK_STR++";
				95
Tony Finch	ad9c2e2	2013-07-04 18:02:12 +0100	[diff] [blame]	96	# extra breadcrumbs preceding the home link
				97	our @extra_breadcrumbs = ();
				98
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	99	# name of your site or organization to appear in page titles
				100	# replace this with something more descriptive for clearer bookmarks
Petr Baudis	8be2890	2006-10-24 05:18:39 +0200	[diff] [blame]	101	our $site_name = "++GITWEB_SITENAME++"
				102	\|\| ($ENV{'SERVER_NAME'} \|\| "Untitled") . " Git";
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	103
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	104	# html snippet to include in the <head> section of each page
				105	our $site_html_head_string = "++GITWEB_SITE_HTML_HEAD_STRING++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	106	# filename of html text to include at top of each page
				107	our $site_header = "++GITWEB_SITE_HEADER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	108	# html text to include at home page
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	109	our $home_text = "++GITWEB_HOMETEXT++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	110	# filename of html text to include at bottom of each page
				111	our $site_footer = "++GITWEB_SITE_FOOTER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	112
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	113	# URI of stylesheets
				114	our @stylesheets = ("++GITWEB_CSS++");
Petr Baudis	887a612	2006-10-26 14:41:25 +0200	[diff] [blame]	115	# URI of a single stylesheet, which can be overridden in GITWEB_CONFIG.
				116	our $stylesheet = undef;
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	117	# URI of GIT logo (72x27 size)
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	118	our $logo = "++GITWEB_LOGO++";
Jakub Narebski	0b5deba	2006-09-04 20:32:13 +0200	[diff] [blame]	119	# URI of GIT favicon, assumed to be image/png type
				120	our $favicon = "++GITWEB_FAVICON++";
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	121	# URI of gitweb.js (JavaScript code for gitweb)
				122	our $javascript = "++GITWEB_JS++";
Jakub Narebski	aedd942	2006-06-17 11:23:56 +0200	[diff] [blame]	123
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	124	# URI and label (title) of GIT logo link
				125	#our $logo_url = "http://www.kernel.org/pub/software/scm/git/docs/";
				126	#our $logo_label = "git documentation";
Wincent Colaiuta	69fb828	2009-07-12 14:31:28 +0200	[diff] [blame]	127	our $logo_url = "http://git-scm.com/";
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	128	our $logo_label = "git homepage";
Junio C Hamano	51a7c66	2006-09-23 12:36:01 -0700	[diff] [blame]	129
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	130	# source of projects list
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	131	our $projects_list = "++GITWEB_LIST++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	132
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	133	# the width (in characters) of the projects list "Description" column
				134	our $projects_list_description_width = 25;
				135
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	136	# group projects by category on the projects list
				137	# (enabled if this variable evaluates to true)
				138	our $projects_list_group_categories = 0;
				139
				140	# default category if none specified
				141	# (leave the empty string for no category)
				142	our $project_list_default_category = "";
				143
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	144	# default order of projects list
				145	# valid values are none, project, descr, owner, and age
				146	our $default_projects_order = "project";
				147
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	148	# show repository only if this file exists
				149	# (only effective if this variable evaluates to true)
				150	our $export_ok = "++GITWEB_EXPORT_OK++";
				151
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	152	# don't generate age column on the projects list page
				153	our $omit_age_column = 0;
				154
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	155	# don't generate information about owners of repositories
				156	our $omit_owner=0;
				157
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	158	# show repository only if this subroutine returns true
				159	# when given the path to the project, for example:
				160	# sub { return -e "$_[0]/git-daemon-export-ok"; }
				161	our $export_auth_hook = undef;
				162
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	163	# only allow viewing of repositories also shown on the overview page
				164	our $strict_export = "++GITWEB_STRICT_EXPORT++";
				165
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	166	# list of git base URLs used for URL to where fetch project from,
				167	# i.e. full URL is "$git_base_url/$project"
Jakub Narebski	d6b7e0b	2006-10-26 12:26:44 +0200	[diff] [blame]	168	our @git_base_url_list = grep { $_ ne '' } ("++GITWEB_BASE_URL++");
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	169
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	170	# default blob_plain mimetype and default charset for text/plain blob
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	171	our $default_blob_plain_mimetype = 'text/plain';
				172	our $default_text_plain_charset = undef;
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	173
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	174	# file to use for guessing MIME types before trying /etc/mime.types
				175	# (relative to the current git repository)
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	176	our $mimetypes_file = undef;
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	177
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	178	# assume this charset if line contains non-UTF-8 characters;
				179	# it should be valid encoding (see Encoding::Supported(3pm) for list),
				180	# for which encoding all byte sequences are valid, for example
				181	# 'iso-8859-1' aka 'latin1' (it is decoded without checking, so it
				182	# could be even 'utf-8' for the old behavior)
				183	our $fallback_encoding = 'latin1';
				184
Jakub Narebski	69a9b41	2007-07-20 02:15:09 +0200	[diff] [blame]	185	# rename detection options for git-diff and git-diff-tree
				186	# - default is '-M', with the cost proportional to
				187	# (number of removed files) * (number of new files).
				188	# - more costly is '-C' (which implies '-M'), with the cost proportional to
				189	# (number of changed files + number of removed files) * (number of new files)
				190	# - even more costly is '-C', '--find-copies-harder' with cost
				191	# (number of files in the original tree) * (number of new files)
				192	# - one might want to include '-B' option, e.g. '-B', '-M'
				193	our @diff_opts = ('-M'); # taken from git_commit
				194
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	195	# Disables features that would allow repository owners to inject script into
				196	# the gitweb domain.
				197	our $prevent_xss = 0;
				198
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	199	# Path to the highlight executable to use (must be the one from
				200	# http://www.andre-simon.de due to assumptions about parameters and output).
				201	# Useful if highlight is not installed on your webserver's PATH.
				202	# [Default: highlight]
				203	our $highlight_bin = "++HIGHLIGHT_BIN++";
				204
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	205	# information about snapshot formats that gitweb is capable of serving
				206	our %known_snapshot_formats = (
				207	# name => {
				208	# 'display' => display name,
				209	# 'type' => mime type,
				210	# 'suffix' => filename suffix,
				211	# 'format' => --format for git-archive,
				212	# 'compressor' => [compressor command and arguments]
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	213	# (array reference, optional)
				214	# 'disabled' => boolean (optional)}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	215	#
				216	'tgz' => {
				217	'display' => 'tar.gz',
				218	'type' => 'application/x-gzip',
				219	'suffix' => '.tar.gz',
				220	'format' => 'tar',
Fraser Tweedale	0c8c385	2011-04-26 11:32:00 +1000	[diff] [blame]	221	'compressor' => ['gzip', '-n']},
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	222
				223	'tbz2' => {
				224	'display' => 'tar.bz2',
				225	'type' => 'application/x-bzip2',
				226	'suffix' => '.tar.bz2',
				227	'format' => 'tar',
				228	'compressor' => ['bzip2']},
				229
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	230	'txz' => {
				231	'display' => 'tar.xz',
				232	'type' => 'application/x-xz',
				233	'suffix' => '.tar.xz',
				234	'format' => 'tar',
				235	'compressor' => ['xz'],
				236	'disabled' => 1},
				237
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	238	'zip' => {
				239	'display' => 'zip',
				240	'type' => 'application/x-zip',
				241	'suffix' => '.zip',
				242	'format' => 'zip'},
				243	);
				244
				245	# Aliases so we understand old gitweb.snapshot values in repository
				246	# configuration.
				247	our %known_snapshot_format_aliases = (
				248	'gzip' => 'tgz',
				249	'bzip2' => 'tbz2',
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	250	'xz' => 'txz',
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	251
				252	# backward compatibility: legacy gitweb config support
				253	'x-gzip' => undef, 'gz' => undef,
				254	'x-bzip2' => undef, 'bz2' => undef,
				255	'x-zip' => undef, '' => undef,
				256	);
				257
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	258	# Pixel sizes for icons and avatars. If the default font sizes or lineheights
				259	# are changed, it may be appropriate to change these values too via
				260	# $GITWEB_CONFIG.
				261	our %avatar_size = (
				262	'default' => 16,
				263	'double' => 32
				264	);
				265
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	266	# Used to set the maximum load that we will still respond to gitweb queries.
				267	# If server load exceed this value then return "503 server busy" error.
				268	# If gitweb cannot determined server load, it is taken to be 0.
				269	# Leave it undefined (or set to 'undef') to turn off load checking.
				270	our $maxload = 300;
				271
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	272	# configuration for 'highlight' (http://www.andre-simon.de/)
				273	# match by basename
				274	our %highlight_basename = (
				275	#'Program' => 'py',
				276	#'Library' => 'py',
				277	'SConstruct' => 'py', # SCons equivalent of Makefile
				278	'Makefile' => 'make',
				279	);
				280	# match by extension
				281	our %highlight_ext = (
				282	# main extensions, defining name of syntax;
				283	# see files in /usr/share/highlight/langDefs/ directory
Richard Hubbell	048b399	2012-11-04 09:45:55 -0800	[diff] [blame]	284	(map { $_ => $_ } qw(py rb java css js tex bib xml awk bat ini spec tcl sql)),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	285	# alternate extensions, see /etc/highlight/filetypes.conf
Richard Hubbell	048b399	2012-11-04 09:45:55 -0800	[diff] [blame]	286	(map { $_ => 'c' } qw(c h)),
				287	(map { $_ => 'sh' } qw(sh bash zsh ksh)),
				288	(map { $_ => 'cpp' } qw(cpp cxx c++ cc)),
				289	(map { $_ => 'php' } qw(php php3 php4 php5 phps)),
				290	(map { $_ => 'pl' } qw(pl perl pm)), # perhaps also 'cgi'
				291	(map { $_ => 'make'} qw(make mak mk)),
				292	(map { $_ => 'xml' } qw(xml xhtml html htm)),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	293	);
				294
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	295	# You define site-wide feature defaults here; override them with
				296	# $GITWEB_CONFIG as necessary.
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	297	our %feature = (
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	298	# feature => {
				299	# 'sub' => feature-sub (subroutine),
				300	# 'override' => allow-override (boolean),
				301	# 'default' => [ default options...] (array reference)}
				302	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	303	# if feature is overridable (it means that allow-override has true value),
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	304	# then feature-sub will be called with default options as parameters;
				305	# return value of feature-sub indicates if to enable specified feature
				306	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	307	# 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]	308	# overridden
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	309	#
Giuseppe Bilotta	ff3c0ff	2008-12-02 14:57:28 -0800	[diff] [blame]	310	# use gitweb_get_feature(<feature>) to retrieve the <feature> value
				311	# (an array) or gitweb_check_feature(<feature>) to check if <feature>
				312	# is enabled
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	313
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	314	# Enable the 'blame' blob view, showing the last commit that modified
				315	# each line in the file. This can be very CPU-intensive.
				316
				317	# To enable system wide have in $GITWEB_CONFIG
				318	# $feature{'blame'}{'default'} = [1];
				319	# To have project specific config enable override in $GITWEB_CONFIG
				320	# $feature{'blame'}{'override'} = 1;
				321	# and in project config gitweb.blame = 0\|1;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	322	'blame' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	323	'sub' => sub { feature_bool('blame', @_) },
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	324	'override' => 0,
				325	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	326
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	327	# Enable the 'snapshot' link, providing a compressed archive of any
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	328	# tree. This can potentially generate high traffic if you have large
				329	# project.
				330
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	331	# Value is a list of formats defined in %known_snapshot_formats that
				332	# you wish to offer.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	333	# To disable system wide have in $GITWEB_CONFIG
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	334	# $feature{'snapshot'}{'default'} = [];
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	335	# To have project specific config enable override in $GITWEB_CONFIG
Uwe Zeisberger	bbee1d9	2006-12-08 12:44:31 +0100	[diff] [blame]	336	# $feature{'snapshot'}{'override'} = 1;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	337	# and in project config, a comma-separated list of formats or "none"
				338	# to disable. Example: gitweb.snapshot = tbz2,zip;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	339	'snapshot' => {
				340	'sub' => \&feature_snapshot,
				341	'override' => 0,
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	342	'default' => ['tgz']},
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	343
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	344	# Enable text search, which will list the commits which match author,
				345	# committer or commit text to a given string. Enabled by default.
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	346	# Project specific override is not supported.
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	347	#
				348	# Note that this controls all search features, which means that if
				349	# it is disabled, then 'grep' and 'pickaxe' search would also be
				350	# disabled.
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	351	'search' => {
				352	'override' => 0,
				353	'default' => [1]},
				354
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	355	# Enable grep search, which will list the files in currently selected
				356	# tree containing the given string. Enabled by default. This can be
				357	# potentially CPU-intensive, of course.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	358	# Note that you need to have 'search' feature enabled too.
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	359
				360	# To enable system wide have in $GITWEB_CONFIG
				361	# $feature{'grep'}{'default'} = [1];
				362	# To have project specific config enable override in $GITWEB_CONFIG
				363	# $feature{'grep'}{'override'} = 1;
				364	# and in project config gitweb.grep = 0\|1;
				365	'grep' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	366	'sub' => sub { feature_bool('grep', @_) },
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	367	'override' => 0,
				368	'default' => [1]},
				369
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	370	# Enable the pickaxe search, which will list the commits that modified
				371	# a given string in a file. This can be practical and quite faster
				372	# alternative to 'blame', but still potentially CPU-intensive.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	373	# Note that you need to have 'search' feature enabled too.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	374
				375	# To enable system wide have in $GITWEB_CONFIG
				376	# $feature{'pickaxe'}{'default'} = [1];
				377	# To have project specific config enable override in $GITWEB_CONFIG
				378	# $feature{'pickaxe'}{'override'} = 1;
				379	# and in project config gitweb.pickaxe = 0\|1;
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	380	'pickaxe' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	381	'sub' => sub { feature_bool('pickaxe', @_) },
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	382	'override' => 0,
				383	'default' => [1]},
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	384
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	385	# Enable showing size of blobs in a 'tree' view, in a separate
				386	# column, similar to what 'ls -l' does. This cost a bit of IO.
				387
				388	# To disable system wide have in $GITWEB_CONFIG
				389	# $feature{'show-sizes'}{'default'} = [0];
				390	# To have project specific config enable override in $GITWEB_CONFIG
				391	# $feature{'show-sizes'}{'override'} = 1;
				392	# and in project config gitweb.showsizes = 0\|1;
				393	'show-sizes' => {
				394	'sub' => sub { feature_bool('showsizes', @_) },
				395	'override' => 0,
				396	'default' => [1]},
				397
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	398	# Make gitweb use an alternative format of the URLs which can be
				399	# more readable and natural-looking: project name is embedded
				400	# directly in the path and the query string contains other
				401	# auxiliary information. All gitweb installations recognize
				402	# URL in either format; this configures in which formats gitweb
				403	# generates links.
				404
				405	# To enable system wide have in $GITWEB_CONFIG
				406	# $feature{'pathinfo'}{'default'} = [1];
				407	# Project specific override is not supported.
				408
				409	# Note that you will need to change the default location of CSS,
				410	# favicon, logo and possibly other files to an absolute URL. Also,
				411	# if gitweb.cgi serves as your indexfile, you will need to force
				412	# $my_uri to contain the script name in your $GITWEB_CONFIG.
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	413	'pathinfo' => {
				414	'override' => 0,
				415	'default' => [0]},
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	416
				417	# Make gitweb consider projects in project root subdirectories
				418	# to be forks of existing projects. Given project $projname.git,
				419	# projects matching $projname/*.git will not be shown in the main
				420	# projects list, instead a '+' mark will be added to $projname
				421	# there and a 'forks' view will be enabled for the project, listing
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	422	# all the forks. If project list is taken from a file, forks have
				423	# to be listed after the main project.
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	424
				425	# To enable system wide have in $GITWEB_CONFIG
				426	# $feature{'forks'}{'default'} = [1];
				427	# Project specific override is not supported.
				428	'forks' => {
				429	'override' => 0,
				430	'default' => [0]},
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	431
				432	# Insert custom links to the action bar of all project pages.
				433	# This enables you mainly to link to third-party scripts integrating
				434	# into gitweb; e.g. git-browser for graphical history representation
				435	# or custom web-based repository administration interface.
				436
				437	# The 'default' value consists of a list of triplets in the form
				438	# (label, link, position) where position is the label after which
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	439	# 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]	440	# to the project name, %f to the project path within the filesystem,
				441	# %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]	442	# hash base (hb gitweb parameter); %% expands to %.
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	443
				444	# To enable system wide have in $GITWEB_CONFIG e.g.
				445	# $feature{'actions'}{'default'} = [('graphiclog',
				446	# '/git-browser/by-commit.html?r=%n', 'summary')];
				447	# Project specific override is not supported.
				448	'actions' => {
				449	'override' => 0,
				450	'default' => []},
Shawn O. Pearce	3e3d4ee	2008-10-03 07:41:25 -0700	[diff] [blame]	451
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	452	# Allow gitweb scan project content tags of project repository,
				453	# and display the popular Web 2.0-ish "tag cloud" near the projects
				454	# list. Note that this is something COMPLETELY different from the
				455	# normal Git tags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	456
				457	# gitweb by itself can show existing tags, but it does not handle
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	458	# tagging itself; you need to do it externally, outside gitweb.
				459	# The format is described in git_get_project_ctags() subroutine.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	460	# You may want to install the HTML::TagCloud Perl module to get
				461	# a pretty tag cloud instead of just a list of tags.
				462
				463	# To enable system wide have in $GITWEB_CONFIG
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	464	# $feature{'ctags'}{'default'} = [1];
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	465	# Project specific override is not supported.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	466
				467	# In the future whether ctags editing is enabled might depend
				468	# 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]	469	'ctags' => {
				470	'override' => 0,
				471	'default' => [0]},
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	472
				473	# The maximum number of patches in a patchset generated in patch
				474	# view. Set this to 0 or undef to disable patch view, or to a
				475	# negative number to remove any limit.
				476
				477	# To disable system wide have in $GITWEB_CONFIG
				478	# $feature{'patches'}{'default'} = [0];
				479	# To have project specific config enable override in $GITWEB_CONFIG
				480	# $feature{'patches'}{'override'} = 1;
				481	# and in project config gitweb.patches = 0\|n;
				482	# where n is the maximum number of patches allowed in a patchset.
				483	'patches' => {
				484	'sub' => \&feature_patches,
				485	'override' => 0,
				486	'default' => [16]},
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	487
				488	# Avatar support. When this feature is enabled, views such as
				489	# shortlog or commit will display an avatar associated with
				490	# the email of the committer(s) and/or author(s).
				491
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	492	# Currently available providers are gravatar and picon.
				493	# If an unknown provider is specified, the feature is disabled.
				494
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	495	# Picon currently relies on the indiana.edu database.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	496
				497	# To enable system wide have in $GITWEB_CONFIG
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	498	# $feature{'avatar'}{'default'} = ['<provider>'];
				499	# where <provider> is either gravatar or picon.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	500	# To have project specific config enable override in $GITWEB_CONFIG
				501	# $feature{'avatar'}{'override'} = 1;
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	502	# and in project config gitweb.avatar = <provider>;
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	503	'avatar' => {
				504	'sub' => \&feature_avatar,
				505	'override' => 0,
				506	'default' => ['']},
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	507
				508	# Enable displaying how much time and how many git commands
				509	# it took to generate and display page. Disabled by default.
				510	# Project specific override is not supported.
				511	'timed' => {
				512	'override' => 0,
				513	'default' => [0]},
Jakub Narebski	e627e50	2009-11-26 21:12:15 +0100	[diff] [blame]	514
				515	# Enable turning some links into links to actions which require
				516	# JavaScript to run (like 'blame_incremental'). Not enabled by
				517	# default. Project specific override is currently not supported.
				518	'javascript-actions' => {
				519	'override' => 0,
				520	'default' => [0]},
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	521
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	522	# Enable and configure ability to change common timezone for dates
				523	# in gitweb output via JavaScript. Enabled by default.
				524	# Project specific override is not supported.
				525	'javascript-timezone' => {
				526	'override' => 0,
				527	'default' => [
				528	'local', # default timezone: 'utc', 'local', or '(-\|+)HHMM' format,
				529	# or undef to turn off this feature
				530	'gitweb_tz', # name of cookie where to store selected timezone
				531	'datetime', # CSS class used to mark up dates for manipulation
				532	]},
				533
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	534	# Syntax highlighting support. This is based on Daniel Svensson's
				535	# and Sham Chukoury's work in gitweb-xmms2.git.
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	536	# It requires the 'highlight' program present in $PATH,
				537	# and therefore is disabled by default.
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	538
				539	# To enable system wide have in $GITWEB_CONFIG
				540	# $feature{'highlight'}{'default'} = [1];
				541
				542	'highlight' => {
				543	'sub' => sub { feature_bool('highlight', @_) },
				544	'override' => 0,
				545	'default' => [0]},
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	546
				547	# Enable displaying of remote heads in the heads list
				548
				549	# To enable system wide have in $GITWEB_CONFIG
				550	# $feature{'remote_heads'}{'default'} = [1];
				551	# To have project specific config enable override in $GITWEB_CONFIG
				552	# $feature{'remote_heads'}{'override'} = 1;
Phil Pennock	af50794	2012-11-05 18:50:47 -0500	[diff] [blame]	553	# and in project config gitweb.remoteheads = 0\|1;
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	554	'remote_heads' => {
				555	'sub' => sub { feature_bool('remote_heads', @_) },
				556	'override' => 0,
				557	'default' => [0]},
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	558
				559	# Enable showing branches under other refs in addition to heads
				560
				561	# To set system wide extra branch refs have in $GITWEB_CONFIG
				562	# $feature{'extra-branch-refs'}{'default'} = ['dirs', 'of', 'choice'];
				563	# To have project specific config enable override in $GITWEB_CONFIG
				564	# $feature{'extra-branch-refs'}{'override'} = 1;
				565	# and in project config gitweb.extrabranchrefs = dirs of choice
				566	# Every directory is separated with whitespace.
				567
				568	'extra-branch-refs' => {
				569	'sub' => \&feature_extra_branch_refs,
				570	'override' => 0,
				571	'default' => []},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	572	);
				573
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	574	sub gitweb_get_feature {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	575	my ($name) = @_;
Jakub Narebski	dd1ad5f	2006-09-26 01:56:17 +0200	[diff] [blame]	576	return unless exists $feature{$name};
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	577	my ($sub, $override, @defaults) = (
				578	$feature{$name}{'sub'},
				579	$feature{$name}{'override'},
				580	@{$feature{$name}{'default'}});
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	581	# project specific override is possible only if we have project
				582	our $git_dir; # global variable, declared later
				583	if (!$override \|\| !defined $git_dir) {
				584	return @defaults;
				585	}
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	586	if (!defined $sub) {
Nanako Shiraishi	9319789	2009-08-28 12:18:49 +0900	[diff] [blame]	587	warn "feature $name is not overridable";
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	588	return @defaults;
				589	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	590	return $sub->(@defaults);
				591	}
				592
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	593	# A wrapper to check if a given feature is enabled.
				594	# With this, you can say
				595	#
				596	# my $bool_feat = gitweb_check_feature('bool_feat');
				597	# gitweb_check_feature('bool_feat') or somecode;
				598	#
				599	# instead of
				600	#
				601	# my ($bool_feat) = gitweb_get_feature('bool_feat');
				602	# (gitweb_get_feature('bool_feat'))[0] or somecode;
				603	#
				604	sub gitweb_check_feature {
				605	return (gitweb_get_feature(@_))[0];
				606	}
				607
				608
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	609	sub feature_bool {
				610	my $key = shift;
				611	my ($val) = git_get_project_config($key, '--bool');
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	612
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	613	if (!defined $val) {
				614	return ($_[0]);
				615	} elsif ($val eq 'true') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	616	return (1);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	617	} elsif ($val eq 'false') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	618	return (0);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	619	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	620	}
				621
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	622	sub feature_snapshot {
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	623	my (@fmts) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	624
				625	my ($val) = git_get_project_config('snapshot');
				626
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	627	if ($val) {
				628	@fmts = ($val eq 'none' ? () : split /\s[,\s]\s/, $val);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	629	}
				630
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	631	return @fmts;
Luben Tuikov	de9272f	2006-09-28 16:49:21 -0700	[diff] [blame]	632	}
				633
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	634	sub feature_patches {
				635	my @val = (git_get_project_config('patches', '--int'));
				636
				637	if (@val) {
				638	return @val;
				639	}
				640
				641	return ($_[0]);
				642	}
				643
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	644	sub feature_avatar {
				645	my @val = (git_get_project_config('avatar'));
				646
				647	return @val ? @val : @_;
				648	}
				649
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	650	sub feature_extra_branch_refs {
				651	my (@branch_refs) = @_;
				652	my $values = git_get_project_config('extrabranchrefs');
				653
				654	if ($values) {
				655	$values = config_to_multi ($values);
				656	@branch_refs = ();
				657	foreach my $value (@{$values}) {
				658	push @branch_refs, split /\s+/, $value;
				659	}
				660	}
				661
				662	return @branch_refs;
				663	}
				664
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	665	# checking HEAD file with -e is fragile if the repository was
				666	# initialized long time ago (i.e. symlink HEAD) and was pack-ref'ed
				667	# and then pruned.
				668	sub check_head_link {
				669	my ($dir) = @_;
				670	my $headfile = "$dir/HEAD";
				671	return ((-e $headfile) \|\|
				672	(-l $headfile && readlink($headfile) =~ /^refs\/heads\//));
				673	}
				674
				675	sub check_export_ok {
				676	my ($dir) = @_;
				677	return (check_head_link($dir) &&
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	678	(!$export_ok \|\| -e "$dir/$export_ok") &&
				679	(!$export_auth_hook \|\| $export_auth_hook->($dir)));
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	680	}
				681
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	682	# process alternate names for backward compatibility
				683	# filter out unsupported (unknown) snapshot formats
				684	sub filter_snapshot_fmts {
				685	my @fmts = @_;
				686
				687	@fmts = map {
				688	exists $known_snapshot_format_aliases{$_} ?
				689	$known_snapshot_format_aliases{$_} : $_} @fmts;
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	690	@fmts = grep {
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	691	exists $known_snapshot_formats{$_} &&
				692	!$known_snapshot_formats{$_}{'disabled'}} @fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	693	}
				694
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	695	sub filter_and_validate_refs {
				696	my @refs = @_;
				697	my %unique_refs = ();
				698
				699	foreach my $ref (@refs) {
				700	die_error(500, "Invalid ref '$ref' in 'extra-branch-refs' feature") unless (is_valid_ref_format($ref));
				701	# 'heads' are added implicitly in get_branch_refs().
				702	$unique_refs{$ref} = 1 if ($ref ne 'heads');
				703	}
				704	return sort keys %unique_refs;
				705	}
				706
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	707	# If it is set to code reference, it is code that it is to be run once per
				708	# request, allowing updating configurations that change with each request,
				709	# while running other code in config file only once.
				710	#
				711	# Otherwise, if it is false then gitweb would process config file only once;
				712	# if it is true then gitweb config would be run for each request.
				713	our $per_request_config = 1;
				714
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	715	# read and parse gitweb config file given by its parameter.
				716	# returns true on success, false on recoverable error, allowing
				717	# to chain this subroutine, using first file that exists.
				718	# dies on errors during parsing config file, as it is unrecoverable.
				719	sub read_config_file {
				720	my $filename = shift;
				721	return unless defined $filename;
				722	# die if there are errors parsing config file
				723	if (-e $filename) {
				724	do $filename;
				725	die $@ if $@;
				726	return 1;
				727	}
				728	return;
				729	}
				730
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	731	our ($GITWEB_CONFIG, $GITWEB_CONFIG_SYSTEM, $GITWEB_CONFIG_COMMON);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	732	sub evaluate_gitweb_config {
				733	our $GITWEB_CONFIG = $ENV{'GITWEB_CONFIG'} \|\| "++GITWEB_CONFIG++";
				734	our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} \|\| "++GITWEB_CONFIG_SYSTEM++";
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	735	our $GITWEB_CONFIG_COMMON = $ENV{'GITWEB_CONFIG_COMMON'} \|\| "++GITWEB_CONFIG_COMMON++";
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	736
Stefano Lattarini	41ccfdd	2013-04-12 00:36:10 +0200	[diff] [blame]	737	# Protect against duplications of file names, to not read config twice.
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	738	# Only one of $GITWEB_CONFIG and $GITWEB_CONFIG_SYSTEM is used, so
				739	# there possibility of duplication of filename there doesn't matter.
				740	$GITWEB_CONFIG = "" if ($GITWEB_CONFIG eq $GITWEB_CONFIG_COMMON);
				741	$GITWEB_CONFIG_SYSTEM = "" if ($GITWEB_CONFIG_SYSTEM eq $GITWEB_CONFIG_COMMON);
				742
				743	# Common system-wide settings for convenience.
				744	# Those settings can be ovverriden by GITWEB_CONFIG or GITWEB_CONFIG_SYSTEM.
				745	read_config_file($GITWEB_CONFIG_COMMON);
				746
				747	# Use first config file that exists. This means use the per-instance
				748	# GITWEB_CONFIG if exists, otherwise use GITWEB_SYSTEM_CONFIG.
				749	read_config_file($GITWEB_CONFIG) and return;
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	750	read_config_file($GITWEB_CONFIG_SYSTEM);
Gerrit Pape	17a8b25	2008-03-26 18:11:19 +0000	[diff] [blame]	751	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	752
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	753	# Get loadavg of system, to compare against $maxload.
				754	# Currently it requires '/proc/loadavg' present to get loadavg;
				755	# if it is not present it returns 0, which means no load checking.
				756	sub get_loadavg {
				757	if( -e '/proc/loadavg' ){
				758	open my $fd, '<', '/proc/loadavg'
				759	or return 0;
				760	my @load = split(/\s+/, scalar <$fd>);
				761	close $fd;
				762
				763	# The first three columns measure CPU and IO utilization of the last one,
				764	# five, and 10 minute periods. The fourth column shows the number of
				765	# currently running processes and the total number of processes in the m/n
				766	# format. The last column displays the last process ID used.
				767	return $load[0] \|\| 0;
				768	}
				769	# additional checks for load average should go here for things that don't export
				770	# /proc/loadavg
				771
				772	return 0;
				773	}
				774
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	775	# version of the core git binary
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	776	our $git_version;
				777	sub evaluate_git_version {
				778	our $git_version = qx("$GIT" --version) =~ m/git version (.*)$/ ? $1 : "unknown";
				779	$number_of_git_cmds++;
				780	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	781
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	782	sub check_loadavg {
				783	if (defined $maxload && get_loadavg() > $maxload) {
				784	die_error(503, "The load average on the server is too high");
				785	}
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	786	}
				787
Jakub Narebski	154b4d7	2006-08-05 12:55:20 +0200	[diff] [blame]	788	# ======================================================================
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	789	# input validation and dispatch
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	790
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	791	# input parameters can be collected from a variety of sources (presently, CGI
				792	# and PATH_INFO), so we define an %input_params hash that collects them all
				793	# together during validation: this allows subsequent uses (e.g. href()) to be
				794	# agnostic of the parameter origin
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	795
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	796	our %input_params = ();
Martin Waitz	5c95fab	2006-08-17 00:28:38 +0200	[diff] [blame]	797
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	798	# input parameters are stored with the long parameter name as key. This will
				799	# also be used in the href subroutine to convert parameters to their CGI
				800	# equivalent, and since the href() usage is the most frequent one, we store
				801	# the name -> CGI key mapping here, instead of the reverse.
				802	#
				803	# XXX: Warning: If you touch this, check the search form for updating,
				804	# too.
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	805
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	806	our @cgi_param_mapping = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	807	project => "p",
				808	action => "a",
				809	file_name => "f",
				810	file_parent => "fp",
				811	hash => "h",
				812	hash_parent => "hp",
				813	hash_base => "hb",
				814	hash_parent_base => "hpb",
				815	page => "pg",
				816	order => "o",
				817	searchtext => "s",
				818	searchtype => "st",
				819	snapshot_format => "sf",
				820	extra_options => "opt",
				821	search_use_regexp => "sr",
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	822	ctag => "by_tag",
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	823	diff_style => "ds",
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	824	project_filter => "pf",
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	825	# this must be last entry (for manipulation from JavaScript)
				826	javascript => "js"
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	827	);
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	828	our %cgi_param_mapping = @cgi_param_mapping;
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	829
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	830	# we will also need to know the possible actions, for validation
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	831	our %actions = (
Rafael Garcia-Suarez	3a5b919	2008-06-06 09:53:32 +0200	[diff] [blame]	832	"blame" => \&git_blame,
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	833	"blame_incremental" => \&git_blame_incremental,
				834	"blame_data" => \&git_blame_data,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	835	"blobdiff" => \&git_blobdiff,
				836	"blobdiff_plain" => \&git_blobdiff_plain,
				837	"blob" => \&git_blob,
				838	"blob_plain" => \&git_blob_plain,
				839	"commitdiff" => \&git_commitdiff,
				840	"commitdiff_plain" => \&git_commitdiff_plain,
				841	"commit" => \&git_commit,
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	842	"forks" => \&git_forks,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	843	"heads" => \&git_heads,
				844	"history" => \&git_history,
				845	"log" => \&git_log,
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	846	"patch" => \&git_patch,
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	847	"patches" => \&git_patches,
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	848	"remotes" => \&git_remotes,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	849	"rss" => \&git_rss,
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	850	"atom" => \&git_atom,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	851	"search" => \&git_search,
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	852	"search_help" => \&git_search_help,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	853	"shortlog" => \&git_shortlog,
				854	"summary" => \&git_summary,
				855	"tag" => \&git_tag,
				856	"tags" => \&git_tags,
				857	"tree" => \&git_tree,
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	858	"snapshot" => \&git_snapshot,
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	859	"object" => \&git_object,
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	860	# those below don't need $project
				861	"opml" => \&git_opml,
				862	"project_list" => \&git_project_list,
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	863	"project_index" => \&git_project_index,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	864	);
				865
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	866	# finally, we have the hash of allowed extra_options for the commands that
				867	# allow them
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	868	our %allowed_options = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	869	"--no-merges" => [ qw(rss atom log shortlog history) ],
				870	);
				871
				872	# fill %input_params with the CGI parameters. All values except for 'opt'
				873	# should be single values, but opt can be an array. We should probably
				874	# build an array of parameters that can be multi-valued, but since for the time
				875	# being it's only this one, we just single it out
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	876	sub evaluate_query_params {
				877	our $cgi;
				878
				879	while (my ($name, $symbol) = each %cgi_param_mapping) {
				880	if ($symbol eq 'opt') {
Jeff King	13dbf46	2014-11-18 12:10:22 -0500	[diff] [blame]	881	$input_params{$name} = [ map { decode_utf8($_) } $cgi->multi_param($symbol) ];
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	882	} else {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	883	$input_params{$name} = decode_utf8($cgi->param($symbol));
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	884	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	885	}
				886	}
				887
				888	# now read PATH_INFO and update the parameter list for missing parameters
				889	sub evaluate_path_info {
				890	return if defined $input_params{'project'};
				891	return if !$path_info;
				892	$path_info =~ s,^/+,,;
				893	return if !$path_info;
				894
				895	# find which part of PATH_INFO is project
				896	my $project = $path_info;
				897	$project =~ s,/+$,,;
				898	while ($project && !check_head_link("$projectroot/$project")) {
				899	$project =~ s,/[^/]$,,;
				900	}
				901	return unless $project;
				902	$input_params{'project'} = $project;
				903
				904	# do not change any parameters if an action is given using the query string
				905	return if $input_params{'action'};
				906	$path_info =~ s,^\Q$project\E/*,,;
				907
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	908	# next, check if we have an action
				909	my $action = $path_info;
				910	$action =~ s,/.*$,,;
				911	if (exists $actions{$action}) {
				912	$path_info =~ s,^$action/*,,;
				913	$input_params{'action'} = $action;
				914	}
				915
				916	# list of actions that want hash_base instead of hash, but can have no
				917	# pathname (f) parameter
				918	my @wants_base = (
				919	'tree',
				920	'history',
				921	);
				922
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	923	# we want to catch, among others
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	924	# [$hash_parent_base[:$file_parent]..]$hash_parent[:$file_name]
				925	my ($parentrefname, $parentpathname, $refname, $pathname) =
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	926	($path_info =~ /^(?:(.+?)(?::(.+))?\.\.)?([^:]+?)?(?::(.+))?$/);
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	927
				928	# first, analyze the 'current' part
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	929	if (defined $pathname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	930	# we got "branch:filename" or "branch:dir/"
				931	# we could use git_get_type(branch:pathname), but:
				932	# - it needs $git_dir
				933	# - it does a git() call
				934	# - the convention of terminating directories with a slash
				935	# makes it superfluous
				936	# - embedding the action in the PATH_INFO would make it even
				937	# more superfluous
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	938	$pathname =~ s,^/+,,;
				939	if (!$pathname \|\| substr($pathname, -1) eq "/") {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	940	$input_params{'action'} \|\|= "tree";
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	941	$pathname =~ s,/$,,;
				942	} else {
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	943	# the default action depends on whether we had parent info
				944	# or not
				945	if ($parentrefname) {
				946	$input_params{'action'} \|\|= "blobdiff_plain";
				947	} else {
				948	$input_params{'action'} \|\|= "blob_plain";
				949	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	950	}
				951	$input_params{'hash_base'} \|\|= $refname;
				952	$input_params{'file_name'} \|\|= $pathname;
				953	} elsif (defined $refname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	954	# we got "branch". In this case we have to choose if we have to
				955	# set hash or hash_base.
				956	#
				957	# Most of the actions without a pathname only want hash to be
				958	# set, except for the ones specified in @wants_base that want
				959	# hash_base instead. It should also be noted that hand-crafted
				960	# links having 'history' as an action and no pathname or hash
				961	# set will fail, but that happens regardless of PATH_INFO.
Jakub Narebski	d0af373	2010-10-13 13:35:20 +0200	[diff] [blame]	962	if (defined $parentrefname) {
				963	# if there is parent let the default be 'shortlog' action
				964	# (for http://git.example.com/repo.git/A..B links); if there
				965	# is no parent, dispatch will detect type of object and set
				966	# action appropriately if required (if action is not set)
				967	$input_params{'action'} \|\|= "shortlog";
				968	}
				969	if ($input_params{'action'} &&
				970	grep { $_ eq $input_params{'action'} } @wants_base) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	971	$input_params{'hash_base'} \|\|= $refname;
				972	} else {
				973	$input_params{'hash'} \|\|= $refname;
				974	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	975	}
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	976
				977	# next, handle the 'parent' part, if present
				978	if (defined $parentrefname) {
				979	# a missing pathspec defaults to the 'current' filename, allowing e.g.
				980	# someproject/blobdiff/oldrev..newrev:/filename
				981	if ($parentpathname) {
				982	$parentpathname =~ s,^/+,,;
				983	$parentpathname =~ s,/$,,;
				984	$input_params{'file_parent'} \|\|= $parentpathname;
				985	} else {
				986	$input_params{'file_parent'} \|\|= $input_params{'file_name'};
				987	}
				988	# we assume that hash_parent_base is wanted if a path was specified,
				989	# or if the action wants hash_base instead of hash
				990	if (defined $input_params{'file_parent'} \|\|
				991	grep { $_ eq $input_params{'action'} } @wants_base) {
				992	$input_params{'hash_parent_base'} \|\|= $parentrefname;
				993	} else {
				994	$input_params{'hash_parent'} \|\|= $parentrefname;
				995	}
				996	}
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	997
				998	# for the snapshot action, we allow URLs in the form
				999	# $project/snapshot/$hash.ext
				1000	# where .ext determines the snapshot and gets removed from the
				1001	# passed $refname to provide the $hash.
				1002	#
				1003	# To be able to tell that $refname includes the format extension, we
				1004	# require the following two conditions to be satisfied:
				1005	# - the hash input parameter MUST have been set from the $refname part
				1006	# of the URL (i.e. they must be equal)
				1007	# - the snapshot format MUST NOT have been defined already (e.g. from
				1008	# CGI parameter sf)
				1009	# It's also useless to try any matching unless $refname has a dot,
				1010	# so we check for that too
				1011	if (defined $input_params{'action'} &&
				1012	$input_params{'action'} eq 'snapshot' &&
				1013	defined $refname && index($refname, '.') != -1 &&
				1014	$refname eq $input_params{'hash'} &&
				1015	!defined $input_params{'snapshot_format'}) {
				1016	# We loop over the known snapshot formats, checking for
				1017	# extensions. Allowed extensions are both the defined suffix
				1018	# (which includes the initial dot already) and the snapshot
				1019	# format key itself, with a prepended dot
Holger Weiß	ccb4b53	2009-03-31 18:16:36 +0200	[diff] [blame]	1020	while (my ($fmt, $opt) = each %known_snapshot_formats) {
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	1021	my $hash = $refname;
Jakub Narebski	095e914	2009-05-11 19:42:47 +0200	[diff] [blame]	1022	unless ($hash =~ s/(\Q$opt->{'suffix'}\E\|\Q.$fmt\E)$//) {
				1023	next;
				1024	}
				1025	my $sfx = $1;
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	1026	# a valid suffix was found, so set the snapshot format
				1027	# and reset the hash parameter
				1028	$input_params{'snapshot_format'} = $fmt;
				1029	$input_params{'hash'} = $hash;
				1030	# we also set the format suffix to the one requested
				1031	# in the URL: this way a request for e.g. .tgz returns
				1032	# a .tgz instead of a .tar.gz
				1033	$known_snapshot_formats{$fmt}{'suffix'} = $sfx;
				1034	last;
				1035	}
				1036	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1037	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1038
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1039	our ($action, $project, $file_name, $file_parent, $hash, $hash_parent, $hash_base,
				1040	$hash_parent_base, @extra_options, $page, $searchtype, $search_use_regexp,
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	1041	$searchtext, $search_regexp, $project_filter);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1042	sub evaluate_and_validate_params {
				1043	our $action = $input_params{'action'};
				1044	if (defined $action) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1045	if (!is_valid_action($action)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1046	die_error(400, "Invalid action parameter");
				1047	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1048	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1049
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1050	# parameters which are pathnames
				1051	our $project = $input_params{'project'};
				1052	if (defined $project) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1053	if (!is_valid_project($project)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1054	undef $project;
				1055	die_error(404, "No such project");
				1056	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1057	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1058
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	1059	our $project_filter = $input_params{'project_filter'};
				1060	if (defined $project_filter) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1061	if (!is_valid_pathname($project_filter)) {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	1062	die_error(404, "Invalid project_filter parameter");
				1063	}
				1064	}
				1065
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1066	our $file_name = $input_params{'file_name'};
				1067	if (defined $file_name) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1068	if (!is_valid_pathname($file_name)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1069	die_error(400, "Invalid file parameter");
				1070	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1071	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1072
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1073	our $file_parent = $input_params{'file_parent'};
				1074	if (defined $file_parent) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1075	if (!is_valid_pathname($file_parent)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1076	die_error(400, "Invalid file parent 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	# parameters which are refnames
				1081	our $hash = $input_params{'hash'};
				1082	if (defined $hash) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1083	if (!is_valid_refname($hash)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1084	die_error(400, "Invalid hash parameter");
				1085	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1086	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1087
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1088	our $hash_parent = $input_params{'hash_parent'};
				1089	if (defined $hash_parent) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1090	if (!is_valid_refname($hash_parent)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1091	die_error(400, "Invalid hash parent parameter");
				1092	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1093	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1094
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1095	our $hash_base = $input_params{'hash_base'};
				1096	if (defined $hash_base) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1097	if (!is_valid_refname($hash_base)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1098	die_error(400, "Invalid hash base parameter");
				1099	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1100	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1101
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1102	our @extra_options = @{$input_params{'extra_options'}};
				1103	# @extra_options is always defined, since it can only be (currently) set from
				1104	# CGI, and $cgi->param() returns the empty array in array context if the param
				1105	# is not set
				1106	foreach my $opt (@extra_options) {
				1107	if (not exists $allowed_options{$opt}) {
				1108	die_error(400, "Invalid option parameter");
				1109	}
				1110	if (not grep(/^$action$/, @{$allowed_options{$opt}})) {
				1111	die_error(400, "Invalid option parameter for this action");
				1112	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1113	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1114
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1115	our $hash_parent_base = $input_params{'hash_parent_base'};
				1116	if (defined $hash_parent_base) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1117	if (!is_valid_refname($hash_parent_base)) {
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1118	die_error(400, "Invalid hash parent base parameter");
				1119	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1120	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1121
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1122	# other parameters
				1123	our $page = $input_params{'page'};
				1124	if (defined $page) {
				1125	if ($page =~ m/[^0-9]/) {
				1126	die_error(400, "Invalid page parameter");
				1127	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1128	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1129
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1130	our $searchtype = $input_params{'searchtype'};
				1131	if (defined $searchtype) {
				1132	if ($searchtype =~ m/[^a-z]/) {
				1133	die_error(400, "Invalid searchtype parameter");
				1134	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1135	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1136
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1137	our $search_use_regexp = $input_params{'search_use_regexp'};
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1138
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1139	our $searchtext = $input_params{'searchtext'};
Charles McGarvey	ca7a5dc	2013-06-04 22:44:28 -0600	[diff] [blame]	1140	our $search_regexp = undef;
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1141	if (defined $searchtext) {
				1142	if (length($searchtext) < 2) {
				1143	die_error(403, "At least two characters are required for search parameter");
				1144	}
Jakub Narebski	36612e4	2012-02-28 19:41:47 +0100	[diff] [blame]	1145	if ($search_use_regexp) {
				1146	$search_regexp = $searchtext;
				1147	if (!eval { qr/$search_regexp/; 1; }) {
				1148	(my $error = $@) =~ s/ at \S+ line \d+.*\n?//;
				1149	die_error(400, "Invalid search regexp '$search_regexp'",
				1150	esc_html($error));
				1151	}
				1152	} else {
				1153	$search_regexp = quotemeta $searchtext;
				1154	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1155	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1156	}
				1157
				1158	# path to the current git repository
				1159	our $git_dir;
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1160	sub evaluate_git_dir {
				1161	our $git_dir = "$projectroot/$project" if $project;
				1162	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1163
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	1164	our (@snapshot_fmts, $git_avatar, @extra_branch_refs);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1165	sub configure_gitweb_features {
				1166	# list of supported snapshot formats
				1167	our @snapshot_fmts = gitweb_get_feature('snapshot');
				1168	@snapshot_fmts = filter_snapshot_fmts(@snapshot_fmts);
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	1169
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1170	our ($git_avatar) = gitweb_get_feature('avatar');
Ævar Arnfjörð Bjarmason	7d5b30e	2018-03-03 15:38:08 +0000	[diff] [blame]	1171	$git_avatar = '' unless $git_avatar =~ /^(?:gravatar\|picon)$/s;
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	1172
				1173	our @extra_branch_refs = gitweb_get_feature('extra-branch-refs');
				1174	@extra_branch_refs = filter_and_validate_refs (@extra_branch_refs);
				1175	}
				1176
				1177	sub get_branch_refs {
				1178	return ('heads', @extra_branch_refs);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1179	}
				1180
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	1181	# custom error handler: 'die <message>' is Internal Server Error
				1182	sub handle_errors_html {
				1183	my $msg = shift; # it is already HTML escaped
				1184
				1185	# to avoid infinite loop where error occurs in die_error,
				1186	# change handler to default handler, disabling handle_errors_html
Stefano Lattarini	41ccfdd	2013-04-12 00:36:10 +0200	[diff] [blame]	1187	set_message("Error occurred when inside die_error:\n$msg");
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	1188
				1189	# you cannot jump out of die_error when called as error handler;
				1190	# the subroutine set via CGI::Carp::set_message is called _after_
				1191	# HTTP headers are already written, so it cannot write them itself
				1192	die_error(undef, undef, $msg, -error_handler => 1, -no_http_header => 1);
				1193	}
				1194	set_message(\&handle_errors_html);
				1195
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1196	# dispatch
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1197	sub dispatch {
				1198	if (!defined $action) {
				1199	if (defined $hash) {
				1200	$action = git_get_type($hash);
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1201	$action or die_error(404, "Object does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1202	} elsif (defined $hash_base && defined $file_name) {
				1203	$action = git_get_type("$hash_base:$file_name");
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1204	$action or die_error(404, "File or directory does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1205	} elsif (defined $project) {
				1206	$action = 'summary';
				1207	} else {
				1208	$action = 'project_list';
				1209	}
Gerrit Pape	7f9778b	2007-05-10 07:32:07 +0000	[diff] [blame]	1210	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1211	if (!defined($actions{$action})) {
				1212	die_error(400, "Unknown action");
				1213	}
				1214	if ($action !~ m/^(?:opml\|project_list\|project_index)$/ &&
				1215	!$project) {
				1216	die_error(400, "Project needed");
				1217	}
				1218	$actions{$action}->();
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	1219	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1220
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1221	sub reset_timer {
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	1222	our $t0 = [ gettimeofday() ]
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1223	if defined $t0;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1224	our $number_of_git_cmds = 0;
				1225	}
				1226
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1227	our $first_request = 1;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1228	sub run_request {
				1229	reset_timer();
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1230
				1231	evaluate_uri();
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1232	if ($first_request) {
				1233	evaluate_gitweb_config();
				1234	evaluate_git_version();
				1235	}
				1236	if ($per_request_config) {
				1237	if (ref($per_request_config) eq 'CODE') {
				1238	$per_request_config->();
				1239	} elsif (!$first_request) {
				1240	evaluate_gitweb_config();
				1241	}
				1242	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1243	check_loadavg();
				1244
Jonathan Nieder	7f425db	2010-07-30 22:01:59 -0500	[diff] [blame]	1245	# $projectroot and $projects_list might be set in gitweb config file
				1246	$projects_list \|\|= $projectroot;
				1247
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1248	evaluate_query_params();
				1249	evaluate_path_info();
				1250	evaluate_and_validate_params();
				1251	evaluate_git_dir();
				1252
				1253	configure_gitweb_features();
				1254
				1255	dispatch();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1256	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1257
				1258	our $is_last_request = sub { 1 };
				1259	our ($pre_dispatch_hook, $post_dispatch_hook, $pre_listen_hook);
				1260	our $CGI = 'CGI';
				1261	our $cgi;
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1262	sub configure_as_fcgi {
				1263	require CGI::Fast;
				1264	our $CGI = 'CGI::Fast';
				1265
				1266	my $request_number = 0;
				1267	# let each child service 100 requests
				1268	our $is_last_request = sub { ++$request_number > 100 };
Jakub Narebski	d04d3d4	2006-09-19 21:53:22 +0200	[diff] [blame]	1269	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1270	sub evaluate_argv {
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1271	my $script_name = $ENV{'SCRIPT_NAME'} \|\| $ENV{'SCRIPT_FILENAME'} \|\| __FILE__;
				1272	configure_as_fcgi()
				1273	if $script_name =~ /\.fcgi$/;
				1274
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1275	return unless (@ARGV);
				1276
				1277	require Getopt::Long;
				1278	Getopt::Long::GetOptions(
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1279	'fastcgi\|fcgi\|f' => \&configure_as_fcgi,
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1280	'nproc\|n=i' => sub {
				1281	my ($arg, $val) = @_;
				1282	return unless eval { require FCGI::ProcManager; 1; };
				1283	my $proc_manager = FCGI::ProcManager->new({
				1284	n_processes => $val,
				1285	});
				1286	our $pre_listen_hook = sub { $proc_manager->pm_manage() };
				1287	our $pre_dispatch_hook = sub { $proc_manager->pm_pre_dispatch() };
				1288	our $post_dispatch_hook = sub { $proc_manager->pm_post_dispatch() };
				1289	},
				1290	);
				1291	}
				1292
				1293	sub run {
				1294	evaluate_argv();
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1295
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1296	$first_request = 1;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1297	$pre_listen_hook->()
				1298	if $pre_listen_hook;
				1299
				1300	REQUEST:
				1301	while ($cgi = $CGI->new()) {
				1302	$pre_dispatch_hook->()
				1303	if $pre_dispatch_hook;
				1304
				1305	run_request();
				1306
Jakub Narebski	0b45010	2010-08-02 22:21:47 +0200	[diff] [blame]	1307	$post_dispatch_hook->()
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1308	if $post_dispatch_hook;
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1309	$first_request = 0;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1310
				1311	last REQUEST if ($is_last_request->());
				1312	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1313
				1314	DONE_GITWEB:
				1315	1;
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1316	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1317
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1318	run();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1319
Jakub Narebski	5ed2ec1	2010-06-13 12:09:32 +0200	[diff] [blame]	1320	if (defined caller) {
				1321	# wrapped in a subroutine processing requests,
				1322	# e.g. mod_perl with ModPerl::Registry, or PSGI with Plack::App::WrapCGI
				1323	return;
				1324	} else {
				1325	# pure CGI script, serving single request
				1326	exit;
				1327	}
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	1328
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1329	## ======================================================================
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1330	## action links
				1331
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1332	# possible values of extra options
				1333	# -full => 0\|1 - use absolute/full URL ($my_uri/$my_url as base)
				1334	# -replay => 1 - start from a current view (replay with modifications)
				1335	# -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]	1336	# -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]	1337	sub href {
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1338	my %params = @_;
Jakub Narebski	bd5d1e4	2006-11-19 15:05:21 +0100	[diff] [blame]	1339	# default is to use -absolute url() i.e. $my_uri
				1340	my $href = $params{-full} ? $my_url : $my_uri;
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1341
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1342	# implicit -replay, must be first of implicit params
				1343	$params{-replay} = 1 if (keys %params == 1 && $params{-anchor});
				1344
Jakub Narebski	afa9b62	2008-02-14 09:22:30 +0100	[diff] [blame]	1345	$params{'project'} = $project unless exists $params{'project'};
				1346
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1347	if ($params{-replay}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1348	while (my ($name, $symbol) = each %cgi_param_mapping) {
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1349	if (!exists $params{$name}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1350	$params{$name} = $input_params{$name};
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1351	}
				1352	}
				1353	}
				1354
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	1355	my $use_pathinfo = gitweb_check_feature('pathinfo');
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1356	if (defined $params{'project'} &&
				1357	(exists $params{-path_info} ? $params{-path_info} : $use_pathinfo)) {
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1358	# try to put as many parameters as possible in PATH_INFO:
				1359	# - project name
				1360	# - action
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1361	# - hash_parent or hash_parent_base:/file_parent
Giuseppe Bilotta	3550ea7	2008-10-21 21:34:52 +0200	[diff] [blame]	1362	# - hash or hash_base:/filename
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1363	# - the snapshot_format as an appropriate suffix
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1364
				1365	# When the script is the root DirectoryIndex for the domain,
				1366	# $href here would be something like http://gitweb.example.com/
				1367	# Thus, we strip any trailing / from $href, to spare us double
				1368	# slashes in the final URL
				1369	$href =~ s,/$,,;
				1370
				1371	# Then add the project name, if present
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1372	$href .= "/".esc_path_info($params{'project'});
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1373	delete $params{'project'};
				1374
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1375	# since we destructively absorb parameters, we keep this
				1376	# boolean that remembers if we're handling a snapshot
				1377	my $is_snapshot = $params{'action'} eq 'snapshot';
				1378
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1379	# Summary just uses the project path URL, any other action is
				1380	# added to the URL
				1381	if (defined $params{'action'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1382	$href .= "/".esc_path_info($params{'action'})
				1383	unless $params{'action'} eq 'summary';
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1384	delete $params{'action'};
				1385	}
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1386
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1387	# Next, we put hash_parent_base:/file_parent..hash_base:/file_name,
				1388	# stripping nonexistent or useless pieces
				1389	$href .= "/" if ($params{'hash_base'} \|\| $params{'hash_parent_base'}
				1390	\|\| $params{'hash_parent'} \|\| $params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1391	if (defined $params{'hash_base'}) {
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1392	if (defined $params{'hash_parent_base'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1393	$href .= esc_path_info($params{'hash_parent_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1394	# 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]	1395	if (defined $params{'file_parent'}) {
				1396	if (defined $params{'file_name'} && $params{'file_parent'} eq $params{'file_name'}) {
				1397	delete $params{'file_parent'};
				1398	} elsif ($params{'file_parent'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1399	$href .= ":/".esc_path_info($params{'file_parent'});
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1400	delete $params{'file_parent'};
				1401	}
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1402	}
				1403	$href .= "..";
				1404	delete $params{'hash_parent'};
				1405	delete $params{'hash_parent_base'};
				1406	} elsif (defined $params{'hash_parent'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1407	$href .= esc_path_info($params{'hash_parent'}). "..";
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1408	delete $params{'hash_parent'};
				1409	}
				1410
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1411	$href .= esc_path_info($params{'hash_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1412	if (defined $params{'file_name'} && $params{'file_name'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1413	$href .= ":/".esc_path_info($params{'file_name'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1414	delete $params{'file_name'};
				1415	}
				1416	delete $params{'hash'};
				1417	delete $params{'hash_base'};
				1418	} elsif (defined $params{'hash'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1419	$href .= esc_path_info($params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1420	delete $params{'hash'};
				1421	}
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1422
				1423	# If the action was a snapshot, we can absorb the
				1424	# snapshot_format parameter too
				1425	if ($is_snapshot) {
				1426	my $fmt = $params{'snapshot_format'};
				1427	# snapshot_format should always be defined when href()
				1428	# is called, but just in case some code forgets, we
				1429	# fall back to the default
				1430	$fmt \|\|= $snapshot_fmts[0];
				1431	$href .= $known_snapshot_formats{$fmt}{'suffix'};
				1432	delete $params{'snapshot_format'};
				1433	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1434	}
				1435
				1436	# now encode the parameters explicitly
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1437	my @result = ();
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1438	for (my $i = 0; $i < @cgi_param_mapping; $i += 2) {
				1439	my ($name, $symbol) = ($cgi_param_mapping[$i], $cgi_param_mapping[$i+1]);
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1440	if (defined $params{$name}) {
Jakub Narebski	f22cca4	2007-07-29 01:04:09 +0200	[diff] [blame]	1441	if (ref($params{$name}) eq "ARRAY") {
				1442	foreach my $par (@{$params{$name}}) {
				1443	push @result, $symbol . "=" . esc_param($par);
				1444	}
				1445	} else {
				1446	push @result, $symbol . "=" . esc_param($params{$name});
				1447	}
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1448	}
				1449	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1450	$href .= "?" . join(';', @result) if scalar @result;
				1451
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1452	# final transformation: trailing spaces must be escaped (URI-encoded)
				1453	$href =~ s/(\s+)$/CGI::escape($1)/e;
				1454
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1455	if ($params{-anchor}) {
				1456	$href .= "#".esc_param($params{-anchor});
				1457	}
				1458
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1459	return $href;
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1460	}
				1461
				1462
				1463	## ======================================================================
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1464	## validation, quoting/unquoting and escaping
				1465
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1466	sub is_valid_action {
				1467	my $input = shift;
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1468	return undef unless exists $actions{$input};
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1469	return 1;
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1470	}
				1471
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1472	sub is_valid_project {
				1473	my $input = shift;
				1474
				1475	return unless defined $input;
				1476	if (!is_valid_pathname($input) \|\|
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1477	!(-d "$projectroot/$input") \|\|
Alexander Gavrilov	ec26f09	2008-11-06 01:15:56 +0300	[diff] [blame]	1478	!check_export_ok("$projectroot/$input") \|\|
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1479	($strict_export && !project_in_list($input))) {
				1480	return undef;
				1481	} else {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1482	return 1;
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1483	}
				1484	}
				1485
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1486	sub is_valid_pathname {
				1487	my $input = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1488
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1489	return undef unless defined $input;
Justin Lebar	0168990	2014-03-31 15:11:46 -0700	[diff] [blame]	1490	# no '.' or '..' as elements of path, i.e. no '.' or '..'
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1491	# at the beginning, at the end, and between slashes.
				1492	# also this catches doubled slashes
				1493	if ($input =~ m!(^\|/)(\|\.\|\.\.)(/\|$)!) {
				1494	return undef;
				1495	}
				1496	# no null characters
				1497	if ($input =~ m!\0!) {
				1498	return undef;
				1499	}
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1500	return 1;
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1501	}
				1502
Krzesimir Nowak	c0bc226	2013-12-11 12:54:41 +0100	[diff] [blame]	1503	sub is_valid_ref_format {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1504	my $input = shift;
Krzesimir Nowak	c0bc226	2013-12-11 12:54:41 +0100	[diff] [blame]	1505
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1506	return undef unless defined $input;
Krzesimir Nowak	c0bc226	2013-12-11 12:54:41 +0100	[diff] [blame]	1507	# restrictions on ref name according to git-check-ref-format
				1508	if ($input =~ m!(/\.\|\.\.\|[\000-\040\177 ~^:?*\[]\|/$)!) {
				1509	return undef;
				1510	}
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1511	return 1;
Krzesimir Nowak	c0bc226	2013-12-11 12:54:41 +0100	[diff] [blame]	1512	}
				1513
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1514	sub is_valid_refname {
				1515	my $input = shift;
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1516
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1517	return undef unless defined $input;
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1518	# textual hashes are O.K.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1519	if ($input =~ m/^[0-9a-fA-F]{40}$/) {
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1520	return 1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1521	}
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1522	# it must be correct pathname
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1523	is_valid_pathname($input) or return undef;
Krzesimir Nowak	c0bc226	2013-12-11 12:54:41 +0100	[diff] [blame]	1524	# check git-check-ref-format restrictions
Krzesimir Nowak	23faf54	2013-12-11 12:54:42 +0100	[diff] [blame]	1525	is_valid_ref_format($input) or return undef;
				1526	return 1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1527	}
				1528
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1529	# decode sequences of octets in utf8 into Perl's internal form,
				1530	# which is utf-8 with utf8 flag set if needed. gitweb writes out
				1531	# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
				1532	sub to_utf8 {
				1533	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1534	return undef unless defined $str;
Jakub Narebski	b13e3ea	2011-12-18 23:00:58 +0100	[diff] [blame]	1535
				1536	if (utf8::is_utf8($str) \|\| utf8::decode($str)) {
İsmail Dönmez	e5d3de5	2007-12-04 10:55:41 +0200	[diff] [blame]	1537	return $str;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1538	} else {
				1539	return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
				1540	}
				1541	}
				1542
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1543	# quote unsafe chars, but keep the slash, even when it's not
				1544	# correct, but quoted slashes look too horrible in bookmarks
				1545	sub esc_param {
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1546	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1547	return undef unless defined $str;
Giuseppe Bilotta	452e225	2009-10-13 21:51:36 +0200	[diff] [blame]	1548	$str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
Kay Sievers	a9e60b7	2005-11-14 15:15:12 +0100	[diff] [blame]	1549	$str =~ s/ /\+/g;
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1550	return $str;
				1551	}
				1552
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1553	# the quoting rules for path_info fragment are slightly different
				1554	sub esc_path_info {
				1555	my $str = shift;
				1556	return undef unless defined $str;
				1557
				1558	# path_info doesn't treat '+' as space (specially), but '?' must be escaped
				1559	$str =~ s/([^A-Za-z0-9\-_.~();\/;:@&= +]+)/CGI::escape($1)/eg;
				1560
				1561	return $str;
				1562	}
				1563
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	1564	# quote unsafe chars in whole URL, so some characters cannot be quoted
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1565	sub esc_url {
				1566	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1567	return undef unless defined $str;
Pavan Kumar Sunkara	109988f	2010-07-15 12:59:01 +0530	[diff] [blame]	1568	$str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&= ]+)/CGI::escape($1)/eg;
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1569	$str =~ s/ /\+/g;
				1570	return $str;
				1571	}
				1572
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1573	# quote unsafe characters in HTML attributes
				1574	sub esc_attr {
				1575
				1576	# for XHTML conformance escaping '"' to '"' is not enough
				1577	return esc_html(@_);
				1578	}
				1579
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1580	# replace invalid utf8 character with SUBSTITUTION sequence
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1581	sub esc_html {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1582	my $str = shift;
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1583	my %opts = @_;
				1584
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1585	return undef unless defined $str;
				1586
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1587	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1588	$str = $cgi->escapeHTML($str);
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1589	if ($opts{'-nbsp'}) {
				1590	$str =~ s/ / /g;
				1591	}
Junio C Hamano	25ffbb2	2006-11-08 15:11:10 -0800	[diff] [blame]	1592	$str =~ s\|([[:cntrl:]])\|(($1 ne "\t") ? quot_cec($1) : $1)\|eg;
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1593	return $str;
				1594	}
				1595
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1596	# quote control characters and escape filename to HTML
				1597	sub esc_path {
				1598	my $str = shift;
				1599	my %opts = @_;
				1600
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1601	return undef unless defined $str;
				1602
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1603	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1604	$str = $cgi->escapeHTML($str);
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1605	if ($opts{'-nbsp'}) {
				1606	$str =~ s/ / /g;
				1607	}
				1608	$str =~ s\|([[:cntrl:]])\|quot_cec($1)\|eg;
				1609	return $str;
				1610	}
				1611
Ævar Arnfjörð Bjarmason	26547bf	2016-10-06 09:11:33 +0000	[diff] [blame]	1612	# Sanitize for use in XHTML + application/xml+xhtml (valid XML 1.0)
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	1613	sub sanitize {
				1614	my $str = shift;
				1615
				1616	return undef unless defined $str;
				1617
				1618	$str = to_utf8($str);
Orgad Shaneh	0e901d2	2012-12-30 13:52:53 +0200	[diff] [blame]	1619	$str =~ s\|([[:cntrl:]])\|(index("\t\n\r", $1) != -1 ? $1 : quot_cec($1))\|eg;
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	1620	return $str;
				1621	}
				1622
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1623	# Make control characters "printable", using character escape codes (CEC)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1624	sub quot_cec {
				1625	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1626	my %opts = @_;
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1627	my %es = ( # character escape codes, aka escape sequences
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1628	"\t" => '\t', # tab (HT)
				1629	"\n" => '\n', # line feed (LF)
				1630	"\r" => '\r', # carrige return (CR)
				1631	"\f" => '\f', # form feed (FF)
				1632	"\b" => '\b', # backspace (BS)
				1633	"\a" => '\a', # alarm (bell) (BEL)
				1634	"\e" => '\e', # escape (ESC)
				1635	"\013" => '\v', # vertical tab (VT)
				1636	"\000" => '\0', # nul character (NUL)
				1637	);
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1638	my $chr = ( (exists $es{$cntrl})
				1639	? $es{$cntrl}
Petr Baudis	25dfd17	2008-10-01 22:11:54 +0200	[diff] [blame]	1640	: sprintf('\%2x', ord($cntrl)) );
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1641	if ($opts{-nohtml}) {
				1642	return $chr;
				1643	} else {
				1644	return "<span class=\"cntrl\">$chr</span>";
				1645	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1646	}
				1647
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1648	# Alternatively use unicode control pictures codepoints,
				1649	# Unicode "printable representation" (PR)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1650	sub quot_upr {
				1651	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1652	my %opts = @_;
				1653
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1654	my $chr = sprintf('&#%04d;', 0x2400+ord($cntrl));
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1655	if ($opts{-nohtml}) {
				1656	return $chr;
				1657	} else {
				1658	return "<span class=\"cntrl\">$chr</span>";
				1659	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1660	}
				1661
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1662	# git may return quoted and escaped filenames
				1663	sub unquote {
				1664	my $str = shift;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1665
				1666	sub unq {
				1667	my $seq = shift;
				1668	my %es = ( # character escape codes, aka escape sequences
				1669	't' => "\t", # tab (HT, TAB)
				1670	'n' => "\n", # newline (NL)
				1671	'r' => "\r", # return (CR)
				1672	'f' => "\f", # form feed (FF)
				1673	'b' => "\b", # backspace (BS)
				1674	'a' => "\a", # alarm (bell) (BEL)
				1675	'e' => "\e", # escape (ESC)
				1676	'v' => "\013", # vertical tab (VT)
				1677	);
				1678
				1679	if ($seq =~ m/^[0-7]{1,3}$/) {
				1680	# octal char sequence
				1681	return chr(oct($seq));
				1682	} elsif (exists $es{$seq}) {
				1683	# C escape sequence, aka character escape code
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1684	return $es{$seq};
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1685	}
				1686	# quoted ordinary character
				1687	return $seq;
				1688	}
				1689
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1690	if ($str =~ m/^"(.*)"$/) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1691	# needs unquoting
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1692	$str = $1;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1693	$str =~ s/\\([^0-7]\|[0-7]{1,3})/unq($1)/eg;
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1694	}
				1695	return $str;
				1696	}
				1697
Jakub Narebski	f16db17	2006-08-06 02:08:31 +0200	[diff] [blame]	1698	# escape tabs (convert tabs to spaces)
				1699	sub untabify {
				1700	my $line = shift;
				1701
				1702	while ((my $pos = index($line, "\t")) != -1) {
				1703	if (my $count = (8 - ($pos % 8))) {
				1704	my $spaces = ' ' x $count;
				1705	$line =~ s/\t/$spaces/;
				1706	}
				1707	}
				1708
				1709	return $line;
				1710	}
				1711
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	1712	sub project_in_list {
				1713	my $project = shift;
				1714	my @list = git_get_projects_list();
				1715	return @list && scalar(grep { $_->{'path'} eq $project } @list);
				1716	}
				1717
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1718	## ----------------------------------------------------------------------
				1719	## HTML aware string manipulation
				1720
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1721	# Try to chop given string on a word boundary between position
				1722	# $len and $len+$add_len. If there is no word boundary there,
				1723	# chop at $len+$add_len. Do not chop if chopped part plus ellipsis
				1724	# (marking chopped part) would be longer than given string.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1725	sub chop_str {
				1726	my $str = shift;
				1727	my $len = shift;
				1728	my $add_len = shift \|\| 10;
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1729	my $where = shift \|\| 'right'; # 'left' \| 'center' \| 'right'
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1730
Anders Waldenborg	dee2775	2008-05-21 13:44:43 +0200	[diff] [blame]	1731	# Make sure perl knows it is utf8 encoded so we don't
				1732	# cut in the middle of a utf8 multibyte char.
				1733	$str = to_utf8($str);
				1734
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1735	# allow only $len chars, but don't cut a word if it would fit in $add_len
				1736	# 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]	1737	# remove chopped character entities entirely
				1738
				1739	# when chopping in the middle, distribute $len into left and right part
				1740	# return early if chopping wouldn't make string shorter
				1741	if ($where eq 'center') {
				1742	return $str if ($len + 5 >= length($str)); # filler is length 5
				1743	$len = int($len/2);
				1744	} else {
				1745	return $str if ($len + 4 >= length($str)); # filler is length 4
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1746	}
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1747
				1748	# regexps: ending and beginning with word part up to $add_len
				1749	my $endre = qr/.{$len}\w{0,$add_len}/;
				1750	my $begre = qr/\w{0,$add_len}.{$len}/;
				1751
				1752	if ($where eq 'left') {
				1753	$str =~ m/^(.*?)($begre)$/;
				1754	my ($lead, $body) = ($1, $2);
				1755	if (length($lead) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1756	$lead = " ...";
				1757	}
				1758	return "$lead$body";
				1759
				1760	} elsif ($where eq 'center') {
				1761	$str =~ m/^($endre)(.*)$/;
				1762	my ($left, $str) = ($1, $2);
				1763	$str =~ m/^(.*?)($begre)$/;
				1764	my ($mid, $right) = ($1, $2);
				1765	if (length($mid) > 5) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1766	$mid = " ... ";
				1767	}
				1768	return "$left$mid$right";
				1769
				1770	} else {
				1771	$str =~ m/^($endre)(.*)$/;
				1772	my $body = $1;
				1773	my $tail = $2;
				1774	if (length($tail) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1775	$tail = "... ";
				1776	}
				1777	return "$body$tail";
				1778	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1779	}
				1780
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1781	# takes the same arguments as chop_str, but also wraps a <span> around the
				1782	# result with a title attribute if it does get chopped. Additionally, the
				1783	# string is HTML-escaped.
				1784	sub chop_and_escape_str {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1785	my ($str) = @_;
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1786
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1787	my $chopped = chop_str(@_);
Jürgen Kreileder	168c1e0	2011-12-17 10:22:21 +0100	[diff] [blame]	1788	$str = to_utf8($str);
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1789	if ($chopped eq $str) {
				1790	return esc_html($chopped);
				1791	} else {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1792	$str =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	850b90a	2008-02-16 23:07:46 +0100	[diff] [blame]	1793	return $cgi->span({-title=>$str}, esc_html($chopped));
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1794	}
				1795	}
				1796
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1797	# Highlight selected fragments of string, using given CSS class,
				1798	# and escape HTML. It is assumed that fragments do not overlap.
				1799	# Regions are passed as list of pairs (array references).
				1800	#
				1801	# Example: esc_html_hl_regions("foobar", "mark", [ 0, 3 ]) returns
				1802	# '<span class="mark">foo</span>bar'
				1803	sub esc_html_hl_regions {
				1804	my ($str, $css_class, @sel) = @_;
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1805	my %opts = grep { ref($_) ne 'ARRAY' } @sel;
				1806	@sel = grep { ref($_) eq 'ARRAY' } @sel;
				1807	return esc_html($str, %opts) unless @sel;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1808
				1809	my $out = '';
				1810	my $pos = 0;
				1811
				1812	for my $s (@sel) {
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1813	my ($begin, $end) = @$s;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1814
Michał Kiedrowicz	cbbea3d	2012-04-11 23:18:38 +0200	[diff] [blame]	1815	# Don't create empty <span> elements.
				1816	next if $end <= $begin;
				1817
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1818	my $escaped = esc_html(substr($str, $begin, $end - $begin),
				1819	%opts);
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1820
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1821	$out .= esc_html(substr($str, $pos, $begin - $pos), %opts)
Michał Kiedrowicz	ce61fb9	2012-04-11 23:18:37 +0200	[diff] [blame]	1822	if ($begin - $pos > 0);
				1823	$out .= $cgi->span({-class => $css_class}, $escaped);
				1824
				1825	$pos = $end;
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1826	}
Jakub Narębski	9768a9d	2012-04-11 23:18:39 +0200	[diff] [blame]	1827	$out .= esc_html(substr($str, $pos), %opts)
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1828	if ($pos < length($str));
				1829
				1830	return $out;
				1831	}
				1832
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1833	# return positions of beginning and end of each match
				1834	sub matchpos_list {
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1835	my ($str, $regexp) = @_;
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1836	return unless (defined $str && defined $regexp);
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1837
				1838	my @matches;
				1839	while ($str =~ /$regexp/g) {
				1840	push @matches, [$-[0], $+[0]];
				1841	}
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1842	return @matches;
				1843	}
				1844
				1845	# highlight match (if any), and escape HTML
				1846	sub esc_html_match_hl {
				1847	my ($str, $regexp) = @_;
				1848	return esc_html($str) unless defined $regexp;
				1849
				1850	my @matches = matchpos_list($str, $regexp);
Jakub Narebski	337da8d	2012-02-27 02:55:19 +0100	[diff] [blame]	1851	return esc_html($str) unless @matches;
				1852
				1853	return esc_html_hl_regions($str, 'match', @matches);
				1854	}
				1855
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	1856
				1857	# highlight match (if any) of shortened string, and escape HTML
				1858	sub esc_html_match_hl_chopped {
				1859	my ($str, $chopped, $regexp) = @_;
				1860	return esc_html_match_hl($str, $regexp) unless defined $chopped;
				1861
				1862	my @matches = matchpos_list($str, $regexp);
				1863	return esc_html($chopped) unless @matches;
				1864
				1865	# filter matches so that we mark chopped string
				1866	my $tail = "... "; # see chop_str
				1867	unless ($chopped =~ s/\Q$tail\E$//) {
				1868	$tail = '';
				1869	}
				1870	my $chop_len = length($chopped);
				1871	my $tail_len = length($tail);
				1872	my @filtered;
				1873
				1874	for my $m (@matches) {
				1875	if ($m->[0] > $chop_len) {
				1876	push @filtered, [ $chop_len, $chop_len + $tail_len ] if ($tail_len > 0);
				1877	last;
				1878	} elsif ($m->[1] > $chop_len) {
				1879	push @filtered, [ $m->[0], $chop_len + $tail_len ];
				1880	last;
				1881	}
				1882	push @filtered, $m;
				1883	}
				1884
				1885	return esc_html_hl_regions($chopped . $tail, 'match', @filtered);
				1886	}
				1887
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1888	## ----------------------------------------------------------------------
				1889	## functions returning short strings
				1890
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1891	# CSS class for given age value (in seconds)
				1892	sub age_class {
				1893	my $age = shift;
				1894
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	1895	if (!defined $age) {
				1896	return "noage";
				1897	} elsif ($age < 60602) {
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1898	return "age0";
				1899	} elsif ($age < 606024*2) {
				1900	return "age1";
				1901	} else {
				1902	return "age2";
				1903	}
				1904	}
				1905
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1906	# convert age in seconds to "nn units ago" string
				1907	sub age_string {
				1908	my $age = shift;
				1909	my $age_str;
				1910
				1911	if ($age > 6060243652) {
				1912	$age_str = (int $age/60/60/24/365);
				1913	$age_str .= " years ago";
				1914	} elsif ($age > 606024(365/12)2) {
				1915	$age_str = int $age/60/60/24/(365/12);
				1916	$age_str .= " months ago";
				1917	} elsif ($age > 60602472) {
				1918	$age_str = int $age/60/60/24/7;
				1919	$age_str .= " weeks ago";
				1920	} elsif ($age > 606024*2) {
				1921	$age_str = int $age/60/60/24;
				1922	$age_str .= " days ago";
				1923	} elsif ($age > 60602) {
				1924	$age_str = int $age/60/60;
				1925	$age_str .= " hours ago";
				1926	} elsif ($age > 60*2) {
				1927	$age_str = int $age/60;
				1928	$age_str .= " min ago";
				1929	} elsif ($age > 2) {
				1930	$age_str = int $age;
				1931	$age_str .= " sec ago";
				1932	} else {
				1933	$age_str .= " right now";
				1934	}
				1935	return $age_str;
				1936	}
				1937
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1938	use constant {
				1939	S_IFINVALID => 0030000,
				1940	S_IFGITLINK => 0160000,
				1941	};
				1942
				1943	# submodule/subproject, a commit object reference
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1944	sub S_ISGITLINK {
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1945	my $mode = shift;
				1946
				1947	return (($mode & S_IFMT) == S_IFGITLINK)
				1948	}
				1949
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1950	# convert file mode in octal to symbolic file mode string
				1951	sub mode_str {
				1952	my $mode = oct shift;
				1953
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1954	if (S_ISGITLINK($mode)) {
				1955	return 'm---------';
				1956	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1957	return 'drwxr-xr-x';
				1958	} elsif (S_ISLNK($mode)) {
				1959	return 'lrwxrwxrwx';
				1960	} elsif (S_ISREG($mode)) {
				1961	# git cares only about the executable bit
				1962	if ($mode & S_IXUSR) {
				1963	return '-rwxr-xr-x';
				1964	} else {
				1965	return '-rw-r--r--';
				1966	};
				1967	} else {
				1968	return '----------';
				1969	}
				1970	}
				1971
				1972	# convert file mode in octal to file type string
				1973	sub file_type {
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	1974	my $mode = shift;
				1975
				1976	if ($mode !~ m/^[0-7]+$/) {
				1977	return $mode;
				1978	} else {
				1979	$mode = oct $mode;
				1980	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1981
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1982	if (S_ISGITLINK($mode)) {
				1983	return "submodule";
				1984	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1985	return "directory";
				1986	} elsif (S_ISLNK($mode)) {
				1987	return "symlink";
				1988	} elsif (S_ISREG($mode)) {
				1989	return "file";
				1990	} else {
				1991	return "unknown";
				1992	}
				1993	}
				1994
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1995	# convert file mode in octal to file type description string
				1996	sub file_type_long {
				1997	my $mode = shift;
				1998
				1999	if ($mode !~ m/^[0-7]+$/) {
				2000	return $mode;
				2001	} else {
				2002	$mode = oct $mode;
				2003	}
				2004
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	2005	if (S_ISGITLINK($mode)) {
				2006	return "submodule";
				2007	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	2008	return "directory";
				2009	} elsif (S_ISLNK($mode)) {
				2010	return "symlink";
				2011	} elsif (S_ISREG($mode)) {
				2012	if ($mode & S_IXUSR) {
				2013	return "executable";
				2014	} else {
				2015	return "file";
				2016	};
				2017	} else {
				2018	return "unknown";
				2019	}
				2020	}
				2021
				2022
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2023	## ----------------------------------------------------------------------
				2024	## functions returning short HTML fragments, or transforming HTML fragments
Pavel Roskin	3dff537	2007-02-03 23:49:16 -0500	[diff] [blame]	2025	## which don't belong to other sections
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2026
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	2027	# format line of commit message.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2028	sub format_log_line_html {
				2029	my $line = shift;
				2030
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	2031	$line = esc_html($line, -nbsp=>1);
Ævar Arnfjörð Bjarmason	cf5c725	2016-10-06 09:11:35 +0000	[diff] [blame]	2032	$line =~ s{
				2033	\b
				2034	(
				2035	# The output of "git describe", e.g. v2.10.0-297-gf6727b0
				2036	# or hadoop-20160921-113441-20-g094fb7d
				2037	(?<!-) # see strbuf_check_tag_ref(). Tags can't start with -
				2038	[A-Za-z0-9.-]+
				2039	(?!\.) # refs can't end with ".", see check_refname_format()
				2040	-g[0-9a-fA-F]{7,40}
				2041	\|
				2042	# Just a normal looking Git SHA1
				2043	[0-9a-fA-F]{7,40}
				2044	)
				2045	\b
				2046	}{
Marcel M. Cary	7d233de	2009-02-17 19:00:43 -0800	[diff] [blame]	2047	$cgi->a({-href => href(action=>"object", hash=>$1),
				2048	-class => "text"}, $1);
Ævar Arnfjörð Bjarmason	cf5c725	2016-10-06 09:11:35 +0000	[diff] [blame]	2049	}egx;
Marcel M. Cary	7d233de	2009-02-17 19:00:43 -0800	[diff] [blame]	2050
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2051	return $line;
				2052	}
				2053
				2054	# format marker of refs pointing to given object
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2055
				2056	# the destination action is chosen based on object type and current context:
				2057	# - for annotated tags, we choose the tag view unless it's the current view
				2058	# already, in which case we go to shortlog view
				2059	# - for other refs, we keep the current view if we're in history, shortlog or
				2060	# log view, and select shortlog otherwise
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2061	sub format_ref_marker {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2062	my ($refs, $id) = @_;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2063	my $markers = '';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2064
				2065	if (defined $refs->{$id}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2066	foreach my $ref (@{$refs->{$id}}) {
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2067	# this code exploits the fact that non-lightweight tags are the
				2068	# only indirect objects, and that they are the only objects for which
				2069	# we want to use tag instead of shortlog as action
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2070	my ($type, $name) = qw();
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2071	my $indirect = ($ref =~ s/\^\{\}$//);
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2072	# e.g. tags/v2.6.11 or heads/next
				2073	if ($ref =~ m!^(.?)s?/(.)$!) {
				2074	$type = $1;
				2075	$name = $2;
				2076	} else {
				2077	$type = "ref";
				2078	$name = $ref;
				2079	}
				2080
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2081	my $class = $type;
				2082	$class .= " indirect" if $indirect;
				2083
				2084	my $dest_action = "shortlog";
				2085
				2086	if ($indirect) {
				2087	$dest_action = "tag" unless $action eq "tag";
				2088	} elsif ($action =~ /^(history\|(short)?log)$/) {
				2089	$dest_action = $action;
				2090	}
				2091
				2092	my $dest = "";
				2093	$dest .= "refs/" unless $ref =~ m!^refs/!;
				2094	$dest .= $ref;
				2095
				2096	my $link = $cgi->a({
				2097	-href => href(
				2098	action=>$dest_action,
				2099	hash=>$dest
Andreas Brauchli	77947bb	2016-07-29 16:49:37 +0200	[diff] [blame]	2100	)}, esc_html($name));
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2101
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2102	$markers .= " <span class=\"".esc_attr($class)."\" title=\"".esc_attr($ref)."\">" .
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	2103	$link . "</span>";
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	2104	}
				2105	}
				2106
				2107	if ($markers) {
				2108	return ' <span class="refs">'. $markers . '</span>';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2109	} else {
				2110	return "";
				2111	}
				2112	}
				2113
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2114	# format, perhaps shortened and with markers, title line
				2115	sub format_subject_html {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	2116	my ($long, $short, $href, $extra) = @_;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2117	$extra = '' unless defined($extra);
				2118
				2119	if (length($short) < length($long)) {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	2120	$long =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	2121	return $cgi->a({-href => $href, -class => "list subject",
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	2122	-title => to_utf8($long)},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	2123	esc_html($short)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2124	} else {
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	2125	return $cgi->a({-href => $href, -class => "list subject"},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	2126	esc_html($long)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	2127	}
				2128	}
				2129
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2130	# Rather than recomputing the url for an email multiple times, we cache it
				2131	# after the first hit. This gives a visible benefit in views where the avatar
				2132	# for the same email is used repeatedly (e.g. shortlog).
				2133	# The cache is shared by all avatar engines (currently gravatar only), which
				2134	# are free to use it as preferred. Since only one avatar engine is used for any
				2135	# given page, there's no risk for cache conflicts.
				2136	our %avatar_cache = ();
				2137
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2138	# Compute the picon url for a given email, by using the picon search service over at
				2139	# http://www.cs.indiana.edu/picons/search.html
				2140	sub picon_url {
				2141	my $email = lc shift;
				2142	if (!$avatar_cache{$email}) {
				2143	my ($user, $domain) = split('@', $email);
				2144	$avatar_cache{$email} =
Andrej E Baranov	5748558	2013-01-29 00:41:32 +0100	[diff] [blame]	2145	"//www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2146	"$domain/$user/" .
				2147	"users+domains+unknown/up/single";
				2148	}
				2149	return $avatar_cache{$email};
				2150	}
				2151
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2152	# Compute the gravatar url for a given email, if it's not in the cache already.
				2153	# Gravatar stores only the part of the URL before the size, since that's the
				2154	# one computationally more expensive. This also allows reuse of the cache for
				2155	# different sizes (for this particular engine).
				2156	sub gravatar_url {
				2157	my $email = lc shift;
				2158	my $size = shift;
				2159	$avatar_cache{$email} \|\|=
Andrej E Baranov	5748558	2013-01-29 00:41:32 +0100	[diff] [blame]	2160	"//www.gravatar.com/avatar/" .
Ævar Arnfjörð Bjarmason	7d5b30e	2018-03-03 15:38:08 +0000	[diff] [blame]	2161	md5_hex($email) . "?s=";
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2162	return $avatar_cache{$email} . $size;
				2163	}
				2164
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2165	# Insert an avatar for the given $email at the given $size if the feature
				2166	# is enabled.
				2167	sub git_get_avatar {
				2168	my ($email, %opts) = @_;
				2169	my $pre_white = ($opts{-pad_before} ? " " : "");
				2170	my $post_white = ($opts{-pad_after} ? " " : "");
				2171	$opts{-size} \|\|= 'default';
				2172	my $size = $avatar_size{$opts{-size}} \|\| $avatar_size{'default'};
				2173	my $url = "";
				2174	if ($git_avatar eq 'gravatar') {
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	2175	$url = gravatar_url($email, $size);
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2176	} elsif ($git_avatar eq 'picon') {
				2177	$url = picon_url($email);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2178	}
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	2179	# Other providers can be added by extending the if chain, defining $url
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2180	# as needed. If no variant puts something in $url, we assume avatars
				2181	# are completely disabled/unavailable.
				2182	if ($url) {
				2183	return $pre_white .
				2184	"<img width=\"$size\" " .
				2185	"class=\"avatar\" " .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2186	"src=\"".esc_url($url)."\" " .
Giuseppe Bilotta	7d25ef4	2009-06-30 00:00:54 +0200	[diff] [blame]	2187	"alt=\"\" " .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2188	"/>" . $post_white;
				2189	} else {
				2190	return "";
				2191	}
				2192	}
				2193
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2194	sub format_search_author {
				2195	my ($author, $searchtype, $displaytext) = @_;
				2196	my $have_search = gitweb_check_feature('search');
				2197
				2198	if ($have_search) {
				2199	my $performed = "";
				2200	if ($searchtype eq 'author') {
				2201	$performed = "authored";
				2202	} elsif ($searchtype eq 'committer') {
				2203	$performed = "committed";
				2204	}
				2205
				2206	return $cgi->a({-href => href(action=>"search", hash=>$hash,
				2207	searchtext=>$author,
				2208	searchtype=>$searchtype), class=>"list",
				2209	title=>"Search for commits $performed by $author"},
				2210	$displaytext);
				2211
				2212	} else {
				2213	return $displaytext;
				2214	}
				2215	}
				2216
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2217	# format the author name of the given commit with the given tag
				2218	# the author name is chopped and escaped according to the other
				2219	# optional parameters (see chop_str).
				2220	sub format_author_html {
				2221	my $tag = shift;
				2222	my $co = shift;
				2223	my $author = chop_and_escape_str($co->{'author_name'}, @_);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2224	return "<$tag class=\"author\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2225	format_search_author($co->{'author_name'}, "author",
				2226	git_get_avatar($co->{'author_email'}, -pad_after => 1) .
				2227	$author) .
				2228	"</$tag>";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2229	}
				2230
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2231	# format git diff header line, i.e. "diff --(git\|combined\|cc) ..."
				2232	sub format_git_diff_header_line {
				2233	my $line = shift;
				2234	my $diffinfo = shift;
				2235	my ($from, $to) = @_;
				2236
				2237	if ($diffinfo->{'nparents'}) {
				2238	# combined diff
				2239	$line =~ s!^(diff (.?) )"?.$!$1!;
				2240	if ($to->{'href'}) {
				2241	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2242	esc_path($to->{'file'}));
				2243	} else { # file was deleted (no href)
				2244	$line .= esc_path($to->{'file'});
				2245	}
				2246	} else {
				2247	# "ordinary" diff
				2248	$line =~ s!^(diff (.?) )"?a/.$!$1!;
				2249	if ($from->{'href'}) {
				2250	$line .= $cgi->a({-href => $from->{'href'}, -class => "path"},
				2251	'a/' . esc_path($from->{'file'}));
				2252	} else { # file was added (no href)
				2253	$line .= 'a/' . esc_path($from->{'file'});
				2254	}
				2255	$line .= ' ';
				2256	if ($to->{'href'}) {
				2257	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2258	'b/' . esc_path($to->{'file'}));
				2259	} else { # file was deleted
				2260	$line .= 'b/' . esc_path($to->{'file'});
				2261	}
				2262	}
				2263
				2264	return "<div class=\"diff header\">$line</div>\n";
				2265	}
				2266
				2267	# format extended diff header line, before patch itself
				2268	sub format_extended_diff_header_line {
				2269	my $line = shift;
				2270	my $diffinfo = shift;
				2271	my ($from, $to) = @_;
				2272
				2273	# match <path>
				2274	if ($line =~ s!^((copy\|rename) from ).*$!$1! && $from->{'href'}) {
				2275	$line .= $cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2276	esc_path($from->{'file'}));
				2277	}
				2278	if ($line =~ s!^((copy\|rename) to ).*$!$1! && $to->{'href'}) {
				2279	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2280	esc_path($to->{'file'}));
				2281	}
				2282	# match single <mode>
				2283	if ($line =~ m/\s(\d{6})$/) {
				2284	$line .= '<span class="info"> (' .
				2285	file_type_long($1) .
				2286	')</span>';
				2287	}
				2288	# match <hash>
				2289	if ($line =~ m/^index [0-9a-fA-F]{40},[0-9a-fA-F]{40}/) {
				2290	# can match only for combined diff
				2291	$line = 'index ';
				2292	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2293	if ($from->{'href'}[$i]) {
				2294	$line .= $cgi->a({-href=>$from->{'href'}[$i],
				2295	-class=>"hash"},
				2296	substr($diffinfo->{'from_id'}[$i],0,7));
				2297	} else {
				2298	$line .= '0' x 7;
				2299	}
				2300	# separator
				2301	$line .= ',' if ($i < $diffinfo->{'nparents'} - 1);
				2302	}
				2303	$line .= '..';
				2304	if ($to->{'href'}) {
				2305	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2306	substr($diffinfo->{'to_id'},0,7));
				2307	} else {
				2308	$line .= '0' x 7;
				2309	}
				2310
				2311	} elsif ($line =~ m/^index [0-9a-fA-F]{40}..[0-9a-fA-F]{40}/) {
				2312	# can match only for ordinary diff
				2313	my ($from_link, $to_link);
				2314	if ($from->{'href'}) {
				2315	$from_link = $cgi->a({-href=>$from->{'href'}, -class=>"hash"},
				2316	substr($diffinfo->{'from_id'},0,7));
				2317	} else {
				2318	$from_link = '0' x 7;
				2319	}
				2320	if ($to->{'href'}) {
				2321	$to_link = $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2322	substr($diffinfo->{'to_id'},0,7));
				2323	} else {
				2324	$to_link = '0' x 7;
				2325	}
				2326	my ($from_id, $to_id) = ($diffinfo->{'from_id'}, $diffinfo->{'to_id'});
				2327	$line =~ s!$from_id\.\.$to_id!$from_link..$to_link!;
				2328	}
				2329
				2330	return $line . "<br/>\n";
				2331	}
				2332
				2333	# format from-file/to-file diff header
				2334	sub format_diff_from_to_header {
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2335	my ($from_line, $to_line, $diffinfo, $from, $to, @parents) = @_;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2336	my $line;
				2337	my $result = '';
				2338
				2339	$line = $from_line;
				2340	#assert($line =~ m/^---/) if DEBUG;
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2341	# no extra formatting for "^--- /dev/null"
				2342	if (! $diffinfo->{'nparents'}) {
				2343	# ordinary (single parent) diff
				2344	if ($line =~ m!^--- "?a/!) {
				2345	if ($from->{'href'}) {
				2346	$line = '--- a/' .
				2347	$cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2348	esc_path($from->{'file'}));
				2349	} else {
				2350	$line = '--- a/' .
				2351	esc_path($from->{'file'});
				2352	}
				2353	}
				2354	$result .= qq!<div class="diff from_file">$line</div>\n!;
				2355
				2356	} else {
				2357	# combined diff (merge commit)
				2358	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2359	if ($from->{'href'}[$i]) {
				2360	$line = '--- ' .
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2361	$cgi->a({-href=>href(action=>"blobdiff",
				2362	hash_parent=>$diffinfo->{'from_id'}[$i],
				2363	hash_parent_base=>$parents[$i],
				2364	file_parent=>$from->{'file'}[$i],
				2365	hash=>$diffinfo->{'to_id'},
				2366	hash_base=>$hash,
				2367	file_name=>$to->{'file'}),
				2368	-class=>"path",
				2369	-title=>"diff" . ($i+1)},
				2370	$i+1) .
				2371	'/' .
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2372	$cgi->a({-href=>$from->{'href'}[$i], -class=>"path"},
				2373	esc_path($from->{'file'}[$i]));
				2374	} else {
				2375	$line = '--- /dev/null';
				2376	}
				2377	$result .= qq!<div class="diff from_file">$line</div>\n!;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2378	}
				2379	}
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2380
				2381	$line = $to_line;
				2382	#assert($line =~ m/^\+\+\+/) if DEBUG;
				2383	# no extra formatting for "^+++ /dev/null"
				2384	if ($line =~ m!^\+\+\+ "?b/!) {
				2385	if ($to->{'href'}) {
				2386	$line = '+++ b/' .
				2387	$cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2388	esc_path($to->{'file'}));
				2389	} else {
				2390	$line = '+++ b/' .
				2391	esc_path($to->{'file'});
				2392	}
				2393	}
				2394	$result .= qq!<div class="diff to_file">$line</div>\n!;
				2395
				2396	return $result;
				2397	}
				2398
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	2399	# create note for patch simplified by combined diff
				2400	sub format_diff_cc_simplified {
				2401	my ($diffinfo, @parents) = @_;
				2402	my $result = '';
				2403
				2404	$result .= "<div class=\"diff header\">" .
				2405	"diff --cc ";
				2406	if (!is_deleted($diffinfo)) {
				2407	$result .= $cgi->a({-href => href(action=>"blob",
				2408	hash_base=>$hash,
				2409	hash=>$diffinfo->{'to_id'},
				2410	file_name=>$diffinfo->{'to_file'}),
				2411	-class => "path"},
				2412	esc_path($diffinfo->{'to_file'}));
				2413	} else {
				2414	$result .= esc_path($diffinfo->{'to_file'});
				2415	}
				2416	$result .= "</div>\n" . # class="diff header"
				2417	"<div class=\"diff nodifferences\">" .
				2418	"Simple merge" .
				2419	"</div>\n"; # class="diff nodifferences"
				2420
				2421	return $result;
				2422	}
				2423
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2424	sub diff_line_class {
				2425	my ($line, $from, $to) = @_;
				2426
				2427	# ordinary diff
				2428	my $num_sign = 1;
				2429	# combined diff
				2430	if ($from && $to && ref($from->{'href'}) eq "ARRAY") {
				2431	$num_sign = scalar @{$from->{'href'}};
				2432	}
				2433
				2434	my @diff_line_classifier = (
				2435	{ regexp => qr/^\@\@{$num_sign} /, class => "chunk_header"},
				2436	{ regexp => qr/^\\/, class => "incomplete" },
				2437	{ regexp => qr/^ {$num_sign}/, class => "ctx" },
				2438	# classifier for context must come before classifier add/rem,
				2439	# or we would have to use more complicated regexp, for example
				2440	# qr/(?= {0,$m}\+)[+ ]{$num_sign}/, where $m = $num_sign - 1;
				2441	{ regexp => qr/^[+ ]{$num_sign}/, class => "add" },
				2442	{ regexp => qr/^[- ]{$num_sign}/, class => "rem" },
				2443	);
				2444	for my $clsfy (@diff_line_classifier) {
				2445	return $clsfy->{'class'}
				2446	if ($line =~ $clsfy->{'regexp'});
				2447	}
				2448
				2449	# fallback
				2450	return "";
				2451	}
				2452
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2453	# assumes that $from and $to are defined and correctly filled,
				2454	# and that $line holds a line of chunk header for unified diff
				2455	sub format_unidiff_chunk_header {
				2456	my ($line, $from, $to) = @_;
				2457
				2458	my ($from_text, $from_start, $from_lines, $to_text, $to_start, $to_lines, $section) =
				2459	$line =~ m/^\@{2} (-(\d+)(?:,(\d+))?) (\+(\d+)(?:,(\d+))?) \@{2}(.*)$/;
				2460
				2461	$from_lines = 0 unless defined $from_lines;
				2462	$to_lines = 0 unless defined $to_lines;
				2463
				2464	if ($from->{'href'}) {
				2465	$from_text = $cgi->a({-href=>"$from->{'href'}#l$from_start",
				2466	-class=>"list"}, $from_text);
				2467	}
				2468	if ($to->{'href'}) {
				2469	$to_text = $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2470	-class=>"list"}, $to_text);
				2471	}
				2472	$line = "<span class=\"chunk_info\">@@ $from_text $to_text @@</span>" .
				2473	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2474	return $line;
				2475	}
				2476
				2477	# assumes that $from and $to are defined and correctly filled,
				2478	# and that $line holds a line of chunk header for combined diff
				2479	sub format_cc_diff_chunk_header {
				2480	my ($line, $from, $to) = @_;
				2481
				2482	my ($prefix, $ranges, $section) = $line =~ m/^(\@+) (.?) \@+(.)$/;
				2483	my (@from_text, @from_start, @from_nlines, $to_text, $to_start, $to_nlines);
				2484
				2485	@from_text = split(' ', $ranges);
				2486	for (my $i = 0; $i < @from_text; ++$i) {
				2487	($from_start[$i], $from_nlines[$i]) =
				2488	(split(',', substr($from_text[$i], 1)), 0);
				2489	}
				2490
				2491	$to_text = pop @from_text;
				2492	$to_start = pop @from_start;
				2493	$to_nlines = pop @from_nlines;
				2494
				2495	$line = "<span class=\"chunk_info\">$prefix ";
				2496	for (my $i = 0; $i < @from_text; ++$i) {
				2497	if ($from->{'href'}[$i]) {
				2498	$line .= $cgi->a({-href=>"$from->{'href'}[$i]#l$from_start[$i]",
				2499	-class=>"list"}, $from_text[$i]);
				2500	} else {
				2501	$line .= $from_text[$i];
				2502	}
				2503	$line .= " ";
				2504	}
				2505	if ($to->{'href'}) {
				2506	$line .= $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2507	-class=>"list"}, $to_text);
				2508	} else {
				2509	$line .= $to_text;
				2510	}
				2511	$line .= " $prefix</span>" .
				2512	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2513	return $line;
				2514	}
				2515
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2516	# process patch (diff) line (not to be used for diff headers),
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2517	# returning HTML-formatted (but not wrapped) line.
				2518	# If the line is passed as a reference, it is treated as HTML and not
				2519	# esc_html()'ed.
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2520	sub format_diff_line {
				2521	my ($line, $diff_class, $from, $to) = @_;
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2522
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2523	if (ref($line)) {
				2524	$line = $$line;
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2525	} else {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2526	chomp $line;
				2527	$line = untabify($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2528
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	2529	if ($from && $to && $line =~ m/^\@{2} /) {
				2530	$line = format_unidiff_chunk_header($line, $from, $to);
				2531	} elsif ($from && $to && $line =~ m/^\@{3}/) {
				2532	$line = format_cc_diff_chunk_header($line, $from, $to);
				2533	} else {
				2534	$line = esc_html($line, -nbsp=>1);
				2535	}
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2536	}
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	2537
				2538	my $diff_classes = "diff";
				2539	$diff_classes .= " $diff_class" if ($diff_class);
				2540	$line = "<div class=\"$diff_classes\">$line</div>\n";
				2541
				2542	return $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2543	}
				2544
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2545	# Generates undef or something like "_snapshot_" or "snapshot (_tbz2_ _zip_)",
				2546	# linked. Pass the hash of the tree/commit to snapshot.
				2547	sub format_snapshot_links {
				2548	my ($hash) = @_;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2549	my $num_fmts = @snapshot_fmts;
				2550	if ($num_fmts > 1) {
				2551	# A parenthesized list of links bearing format names.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2552	# e.g. "snapshot (_tar.gz_ _zip_)"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2553	return "snapshot (" . join(' ', map
				2554	$cgi->a({
				2555	-href => href(
				2556	action=>"snapshot",
				2557	hash=>$hash,
				2558	snapshot_format=>$_
				2559	)
				2560	}, $known_snapshot_formats{$_}{'display'})
				2561	, @snapshot_fmts) . ")";
				2562	} elsif ($num_fmts == 1) {
				2563	# A single "snapshot" link whose tooltip bears the format name.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2564	# i.e. "_snapshot_"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2565	my ($fmt) = @snapshot_fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2566	return
				2567	$cgi->a({
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2568	-href => href(
				2569	action=>"snapshot",
				2570	hash=>$hash,
				2571	snapshot_format=>$fmt
				2572	),
				2573	-title => "in format: $known_snapshot_formats{$fmt}{'display'}"
				2574	}, "snapshot");
				2575	} else { # $num_fmts == 0
				2576	return undef;
				2577	}
				2578	}
				2579
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2580	## ......................................................................
				2581	## functions returning values to be passed, perhaps after some
				2582	## transformation, to other functions; e.g. returning arguments to href()
				2583
				2584	# returns hash to be passed to href to generate gitweb URL
				2585	# in -title key it returns description of link
				2586	sub get_feed_info {
				2587	my $format = shift \|\| 'Atom';
				2588	my %res = (action => lc($format));
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	2589	my $matched_ref = 0;
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2590
				2591	# feed links are possible only for project views
				2592	return unless (defined $project);
				2593	# some views should link to OPML, or to generic project feed,
				2594	# or don't have specific feed yet (so they should use generic)
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	2595	return if (!$action \|\| $action =~ /^(?:tags\|heads\|forks\|tag\|search)$/x);
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2596
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	2597	my $branch = undef;
				2598	# branches refs uses 'refs/' + $get_branch_refs()[x] + '/' prefix
				2599	# (fullname) to differentiate from tag links; this also makes
				2600	# possible to detect branch links
				2601	for my $ref (get_branch_refs()) {
				2602	if ((defined $hash_base && $hash_base =~ m!^refs/\Q$ref\E/(.*)$!) \|\|
				2603	(defined $hash && $hash =~ m!^refs/\Q$ref\E/(.*)$!)) {
				2604	$branch = $1;
				2605	$matched_ref = $ref;
				2606	last;
				2607	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2608	}
				2609	# find log type for feed description (title)
				2610	my $type = 'log';
				2611	if (defined $file_name) {
				2612	$type = "history of $file_name";
				2613	$type .= "/" if ($action eq 'tree');
				2614	$type .= " on '$branch'" if (defined $branch);
				2615	} else {
				2616	$type = "log of $branch" if (defined $branch);
				2617	}
				2618
				2619	$res{-title} = $type;
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	2620	$res{'hash'} = (defined $branch ? "refs/$matched_ref/$branch" : undef);
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2621	$res{'file_name'} = $file_name;
				2622
				2623	return %res;
				2624	}
				2625
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2626	## ----------------------------------------------------------------------
				2627	## git utility subroutines, invoking git commands
				2628
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2629	# returns path to the core git executable and the --git-dir parameter as list
				2630	sub git_cmd {
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	2631	$number_of_git_cmds++;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2632	return $GIT, '--git-dir='.$git_dir;
				2633	}
				2634
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	2635	# quote the given arguments for passing them to the shell
				2636	# quote_command("command", "arg 1", "arg with ' and ! characters")
				2637	# => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"
				2638	# Try to avoid using this function wherever possible.
				2639	sub quote_command {
				2640	return join(' ',
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	2641	map { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ );
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2642	}
				2643
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2644	# get HEAD ref of given project as hash
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2645	sub git_get_head_hash {
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2646	return git_get_full_hash(shift, 'HEAD');
				2647	}
				2648
				2649	sub git_get_full_hash {
				2650	return git_get_hash(@_);
				2651	}
				2652
				2653	sub git_get_short_hash {
				2654	return git_get_hash(@_, '--short=7');
				2655	}
				2656
				2657	sub git_get_hash {
				2658	my ($project, $hash, @options) = @_;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2659	my $o_git_dir = $git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2660	my $retval = undef;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2661	$git_dir = "$projectroot/$project";
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2662	if (open my $fd, '-\|', git_cmd(), 'rev-parse',
				2663	'--verify', '-q', @options, $hash) {
				2664	$retval = <$fd>;
				2665	chomp $retval if defined $retval;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2666	close $fd;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2667	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2668	if (defined $o_git_dir) {
				2669	$git_dir = $o_git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2670	}
				2671	return $retval;
				2672	}
				2673
				2674	# get type of given object
				2675	sub git_get_type {
				2676	my $hash = shift;
				2677
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2678	open my $fd, "-\|", git_cmd(), "cat-file", '-t', $hash or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2679	my $type = <$fd>;
				2680	close $fd or return;
				2681	chomp $type;
				2682	return $type;
				2683	}
				2684
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2685	# repository configuration
				2686	our $config_file = '';
				2687	our %config;
				2688
				2689	# store multiple values for single key as anonymous array reference
				2690	# single values stored directly in the hash, not as [ <value> ]
				2691	sub hash_set_multi {
				2692	my ($hash, $key, $value) = @_;
				2693
				2694	if (!exists $hash->{$key}) {
				2695	$hash->{$key} = $value;
				2696	} elsif (!ref $hash->{$key}) {
				2697	$hash->{$key} = [ $hash->{$key}, $value ];
				2698	} else {
				2699	push @{$hash->{$key}}, $value;
				2700	}
				2701	}
				2702
				2703	# return hash of git project configuration
				2704	# optionally limited to some section, e.g. 'gitweb'
				2705	sub git_parse_project_config {
				2706	my $section_regexp = shift;
				2707	my %config;
				2708
				2709	local $/ = "\0";
				2710
				2711	open my $fh, "-\|", git_cmd(), "config", '-z', '-l',
				2712	or return;
				2713
				2714	while (my $keyval = <$fh>) {
				2715	chomp $keyval;
				2716	my ($key, $value) = split(/\n/, $keyval, 2);
				2717
				2718	hash_set_multi(\%config, $key, $value)
				2719	if (!defined $section_regexp \|\| $key =~ /^(?:$section_regexp)\./o);
				2720	}
				2721	close $fh;
				2722
				2723	return %config;
				2724	}
				2725
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2726	# convert config value to boolean: 'true' or 'false'
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2727	# no value, number > 0, 'true' and 'yes' values are true
				2728	# rest of values are treated as false (never as error)
				2729	sub config_to_bool {
				2730	my $val = shift;
				2731
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2732	return 1 if !defined $val; # section.key
				2733
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2734	# strip leading and trailing whitespace
				2735	$val =~ s/^\s+//;
				2736	$val =~ s/\s+$//;
				2737
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2738	return (($val =~ /^\d+$/ && $val) \|\| # section.key = 1
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2739	($val =~ /^(?:true\|yes)$/i)); # section.key = true
				2740	}
				2741
				2742	# convert config value to simple decimal number
				2743	# an optional value suffix of 'k', 'm', or 'g' will cause the value
				2744	# to be multiplied by 1024, 1048576, or 1073741824
				2745	sub config_to_int {
				2746	my $val = shift;
				2747
				2748	# strip leading and trailing whitespace
				2749	$val =~ s/^\s+//;
				2750	$val =~ s/\s+$//;
				2751
				2752	if (my ($num, $unit) = ($val =~ /^([0-9]*)([kmg])$/i)) {
				2753	$unit = lc($unit);
				2754	# unknown unit is treated as 1
				2755	return $num * ($unit eq 'g' ? 1073741824 :
				2756	$unit eq 'm' ? 1048576 :
				2757	$unit eq 'k' ? 1024 : 1);
				2758	}
				2759	return $val;
				2760	}
				2761
				2762	# convert config value to array reference, if needed
				2763	sub config_to_multi {
				2764	my $val = shift;
				2765
Jakub Narebski	d76a585	2007-12-20 10:48:09 +0100	[diff] [blame]	2766	return ref($val) ? $val : (defined($val) ? [ $val ] : []);
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2767	}
				2768
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2769	sub git_get_project_config {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	2770	my ($key, $type) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2771
Jakub Narebski	7a49c25	2010-03-27 20:26:59 +0100	[diff] [blame]	2772	return unless defined $git_dir;
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	2773
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2774	# key sanity check
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2775	return unless ($key);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2776	# only subsection, if exists, is case sensitive,
				2777	# and not lowercased by 'git config -z -l'
				2778	if (my ($hi, $mi, $lo) = ($key =~ /^([^.])\.(.)\.([^.]*)$/)) {
Phil Pennock	af50794	2012-11-05 18:50:47 -0500	[diff] [blame]	2779	$lo =~ s/_//g;
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2780	$key = join(".", lc($hi), $mi, lc($lo));
Phil Pennock	af50794	2012-11-05 18:50:47 -0500	[diff] [blame]	2781	return if ($lo =~ /\W/ \|\| $hi =~ /\W/);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2782	} else {
				2783	$key = lc($key);
Phil Pennock	af50794	2012-11-05 18:50:47 -0500	[diff] [blame]	2784	$key =~ s/_//g;
				2785	return if ($key =~ /\W/);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2786	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2787	$key =~ s/^gitweb\.//;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2788
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2789	# type sanity check
				2790	if (defined $type) {
				2791	$type =~ s/^--//;
				2792	$type = undef
				2793	unless ($type eq 'bool' \|\| $type eq 'int');
				2794	}
				2795
				2796	# get config
				2797	if (!defined $config_file \|\|
				2798	$config_file ne "$git_dir/config") {
				2799	%config = git_parse_project_config('gitweb');
				2800	$config_file = "$git_dir/config";
				2801	}
				2802
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2803	# check if config variable (key) exists
				2804	return unless exists $config{"gitweb.$key"};
				2805
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2806	# ensure given type
				2807	if (!defined $type) {
				2808	return $config{"gitweb.$key"};
				2809	} elsif ($type eq 'bool') {
				2810	# backward compatibility: 'git config --bool' returns true/false
				2811	return config_to_bool($config{"gitweb.$key"}) ? 'true' : 'false';
				2812	} elsif ($type eq 'int') {
				2813	return config_to_int($config{"gitweb.$key"});
				2814	}
				2815	return $config{"gitweb.$key"};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2816	}
				2817
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2818	# get hash of given path at given ref
				2819	sub git_get_hash_by_path {
				2820	my $base = shift;
				2821	my $path = shift \|\| return undef;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2822	my $type = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2823
Jakub Narebski	4b02f48	2006-09-26 01:54:24 +0200	[diff] [blame]	2824	$path =~ s,/+$,,;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2825
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2826	open my $fd, "-\|", git_cmd(), "ls-tree", $base, "--", $path
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	2827	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2828	my $line = <$fd>;
				2829	close $fd or return undef;
				2830
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	2831	if (!defined $line) {
				2832	# there is no tree or hash given by $path at $base
				2833	return undef;
				2834	}
				2835
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2836	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Jakub Narebski	8b4b94c	2006-10-30 22:25:11 +0100	[diff] [blame]	2837	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2838	if (defined $type && $type ne $2) {
				2839	# type doesn't match
				2840	return undef;
				2841	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2842	return $3;
				2843	}
				2844
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	2845	# get path of entry with given hash at given tree-ish (ref)
				2846	# used to get 'from' filename for combined diff (merge commit) for renames
				2847	sub git_get_path_by_hash {
				2848	my $base = shift \|\| return;
				2849	my $hash = shift \|\| return;
				2850
				2851	local $/ = "\0";
				2852
				2853	open my $fd, "-\|", git_cmd(), "ls-tree", '-r', '-t', '-z', $base
				2854	or return undef;
				2855	while (my $line = <$fd>) {
				2856	chomp $line;
				2857
				2858	#'040000 tree 595596a6a9117ddba9fe379b6b012b558bac8423 gitweb'
				2859	#'100644 blob e02e90f0429be0d2a69b76571101f20b8f75530f gitweb/README'
				2860	if ($line =~ m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {
				2861	close $fd;
				2862	return $1;
				2863	}
				2864	}
				2865	close $fd;
				2866	return undef;
				2867	}
				2868
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2869	## ......................................................................
				2870	## git utility functions, directly accessing git repository
				2871
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2872	# get the value of config variable either from file named as the variable
				2873	# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name
				2874	# configuration variable in the repository config file.
				2875	sub git_get_file_or_project_config {
				2876	my ($path, $name) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2877
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2878	$git_dir = "$projectroot/$path";
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2879	open my $fd, '<', "$git_dir/$name"
				2880	or return git_get_project_config($name);
				2881	my $conf = <$fd>;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2882	close $fd;
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2883	if (defined $conf) {
				2884	chomp $conf;
Junio C Hamano	2eb54ef	2007-05-16 21:04:16 -0700	[diff] [blame]	2885	}
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2886	return $conf;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2887	}
				2888
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2889	sub git_get_project_description {
				2890	my $path = shift;
				2891	return git_get_file_or_project_config($path, 'description');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2892	}
				2893
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	2894	sub git_get_project_category {
				2895	my $path = shift;
				2896	return git_get_file_or_project_config($path, 'category');
				2897	}
				2898
				2899
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2900	# supported formats:
				2901	# * $GIT_DIR/ctags/<tagname> file (in 'ctags' subdirectory)
				2902	# - if its contents is a number, use it as tag weight,
				2903	# - otherwise add a tag with weight 1
				2904	# * $GIT_DIR/ctags file, each line is a tag (with weight 1)
				2905	# the same value multiple times increases tag weight
				2906	# * `gitweb.ctag' multi-valued repo config variable
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2907	sub git_get_project_ctags {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2908	my $project = shift;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2909	my $ctags = {};
				2910
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2911	$git_dir = "$projectroot/$project";
				2912	if (opendir my $dh, "$git_dir/ctags") {
				2913	my @files = grep { -f $_ } map { "$git_dir/ctags/$_" } readdir($dh);
				2914	foreach my $tagfile (@files) {
				2915	open my $ct, '<', $tagfile
				2916	or next;
				2917	my $val = <$ct>;
				2918	chomp $val if $val;
				2919	close $ct;
				2920
				2921	(my $ctag = $tagfile) =~ s#.*/##;
Jonathan Nieder	2c162b5	2011-06-09 02:08:57 -0500	[diff] [blame]	2922	if ($val =~ /^\d+$/) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2923	$ctags->{$ctag} = $val;
				2924	} else {
				2925	$ctags->{$ctag} = 1;
				2926	}
				2927	}
				2928	closedir $dh;
				2929
				2930	} elsif (open my $fh, '<', "$git_dir/ctags") {
				2931	while (my $line = <$fh>) {
				2932	chomp $line;
				2933	$ctags->{$line}++ if $line;
				2934	}
				2935	close $fh;
				2936
				2937	} else {
				2938	my $taglist = config_to_multi(git_get_project_config('ctag'));
				2939	foreach my $tag (@$taglist) {
				2940	$ctags->{$tag}++;
				2941	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2942	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2943
				2944	return $ctags;
				2945	}
				2946
				2947	# return hash, where keys are content tags ('ctags'),
				2948	# and values are sum of weights of given tag in every project
				2949	sub git_gather_all_ctags {
				2950	my $projects = shift;
				2951	my $ctags = {};
				2952
				2953	foreach my $p (@$projects) {
				2954	foreach my $ct (keys %{$p->{'ctags'}}) {
				2955	$ctags->{$ct} += $p->{'ctags'}->{$ct};
				2956	}
				2957	}
				2958
				2959	return $ctags;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2960	}
				2961
				2962	sub git_populate_project_tagcloud {
				2963	my $ctags = shift;
				2964
				2965	# First, merge different-cased tags; tags vote on casing
				2966	my %ctags_lc;
				2967	foreach (keys %$ctags) {
				2968	$ctags_lc{lc $_}->{count} += $ctags->{$_};
				2969	if (not $ctags_lc{lc $_}->{topcount}
				2970	or $ctags_lc{lc $_}->{topcount} < $ctags->{$_}) {
				2971	$ctags_lc{lc $_}->{topcount} = $ctags->{$_};
				2972	$ctags_lc{lc $_}->{topname} = $_;
				2973	}
				2974	}
				2975
				2976	my $cloud;
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	2977	my $matched = $input_params{'ctag'};
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2978	if (eval { require HTML::TagCloud; 1; }) {
				2979	$cloud = HTML::TagCloud->new;
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2980	foreach my $ctag (sort keys %ctags_lc) {
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2981	# Pad the title with spaces so that the cloud looks
				2982	# less crammed.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2983	my $title = esc_html($ctags_lc{$ctag}->{topname});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2984	$title =~ s/ / /g;
				2985	$title =~ s/^/ /g;
				2986	$title =~ s/$/ /g;
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2987	if (defined $matched && $matched eq $ctag) {
				2988	$title = qq(<span class="match">$title</span>);
				2989	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2990	$cloud->add($title, href(project=>undef, ctag=>$ctag),
				2991	$ctags_lc{$ctag}->{count});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2992	}
				2993	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2994	$cloud = {};
				2995	foreach my $ctag (keys %ctags_lc) {
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2996	my $title = esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);
				2997	if (defined $matched && $matched eq $ctag) {
				2998	$title = qq(<span class="match">$title</span>);
				2999	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	3000	$cloud->{$ctag}{count} = $ctags_lc{$ctag}->{count};
				3001	$cloud->{$ctag}{ctag} =
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	3002	$cgi->a({-href=>href(project=>undef, ctag=>$ctag)}, $title);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	3003	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	3004	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	3005	return $cloud;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	3006	}
				3007
				3008	sub git_show_project_tagcloud {
				3009	my ($cloud, $count) = @_;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	3010	if (ref $cloud eq 'HTML::TagCloud') {
				3011	return $cloud->html_and_css($count);
				3012	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	3013	my @tags = sort { $cloud->{$a}->{'count'} <=> $cloud->{$b}->{'count'} } keys %$cloud;
				3014	return
				3015	'<div id="htmltagcloud"'.($project ? '' : ' align="center"').'>' .
				3016	join (', ', map {
				3017	$cloud->{$_}->{'ctag'}
				3018	} splice(@tags, 0, $count)) .
				3019	'</div>';
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	3020	}
				3021	}
				3022
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	3023	sub git_get_project_url_list {
				3024	my $path = shift;
				3025
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	3026	$git_dir = "$projectroot/$path";
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3027	open my $fd, '<', "$git_dir/cloneurl"
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	3028	or return wantarray ?
				3029	@{ config_to_multi(git_get_project_config('url')) } :
				3030	config_to_multi(git_get_project_config('url'));
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	3031	my @git_project_url_list = map { chomp; $_ } <$fd>;
				3032	close $fd;
				3033
				3034	return wantarray ? @git_project_url_list : \@git_project_url_list;
				3035	}
				3036
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3037	sub git_get_projects_list {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3038	my $filter = shift \|\| '';
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	3039	my $paranoid = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3040	my @list;
				3041
				3042	if (-d $projects_list) {
				3043	# search in directory
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3044	my $dir = $projects_list;
Aneesh Kumar K.V	6768d6b	2006-11-03 10:41:45 +0530	[diff] [blame]	3045	# remove the trailing "/"
				3046	$dir =~ s!/+$!!;
Matthieu Moy	ac593b7	2012-01-04 11:07:45 +0100	[diff] [blame]	3047	my $pfxlen = length("$dir");
				3048	my $pfxdepth = ($dir =~ tr!/!!);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3049	# when filtering, search only given subdirectory
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	3050	if ($filter && !$paranoid) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3051	$dir .= "/$filter";
				3052	$dir =~ s!/+$!!;
				3053	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3054
				3055	File::Find::find({
				3056	follow_fast => 1, # follow symbolic links
Junio C Hamano	d20602e	2007-07-27 01:23:03 -0700	[diff] [blame]	3057	follow_skip => 2, # ignore duplicates
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3058	dangling_symlinks => 0, # ignore dangling symlinks, silently
				3059	wanted => sub {
Jakub Narebski	ee1d8ee	2010-04-30 18:30:31 +0200	[diff] [blame]	3060	# global variables
				3061	our $project_maxdepth;
				3062	our $projectroot;
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3063	# skip project-list toplevel, if we get it.
				3064	return if (m!^[/.]$!);
				3065	# only directories can be git repositories
				3066	return unless (-d $_);
Hielke Christian Braun	46a1385	2017-07-18 10:41:54 +0200	[diff] [blame]	3067	# need search permission
				3068	return unless (-x $_);
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	3069	# don't traverse too deep (Find is super slow on os x)
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3070	# $project_maxdepth excludes depth of $projectroot
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	3071	if (($File::Find::name =~ tr!/!!) - $pfxdepth > $project_maxdepth) {
				3072	$File::Find::prune = 1;
				3073	return;
				3074	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3075
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3076	my $path = substr($File::Find::name, $pfxlen + 1);
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	3077	# paranoidly only filter here
				3078	if ($paranoid && $filter && $path !~ m!^\Q$filter\E/!) {
				3079	next;
				3080	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3081	# we check related file in $projectroot
Devin Doucette	fb3bb3d	2008-12-27 02:39:31 -0700	[diff] [blame]	3082	if (check_export_ok("$projectroot/$path")) {
				3083	push @list, { path => $path };
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	3084	$File::Find::prune = 1;
				3085	}
				3086	},
				3087	}, "$dir");
				3088
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3089	} elsif (-f $projects_list) {
				3090	# read from file(url-encoded):
				3091	# 'git%2Fgit.git Linus+Torvalds'
				3092	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3093	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3094	open my $fd, '<', $projects_list or return;
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	3095	PROJECT:
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3096	while (my $line = <$fd>) {
				3097	chomp $line;
				3098	my ($path, $owner) = split ' ', $line;
				3099	$path = unescape($path);
				3100	$owner = unescape($owner);
				3101	if (!defined $path) {
				3102	next;
				3103	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3104	# if $filter is rpovided, check if $path begins with $filter
				3105	if ($filter && $path !~ m!^\Q$filter\E/!) {
				3106	next;
Junio C Hamano	83ee94c	2006-11-07 22:37:17 -0800	[diff] [blame]	3107	}
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	3108	if (check_export_ok("$projectroot/$path")) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3109	my $pr = {
Kacper Kornet	75e0dff	2012-04-24 19:50:05 +0200	[diff] [blame]	3110	path => $path
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3111	};
Kacper Kornet	75e0dff	2012-04-24 19:50:05 +0200	[diff] [blame]	3112	if ($owner) {
				3113	$pr->{'owner'} = to_utf8($owner);
				3114	}
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	3115	push @list, $pr;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3116	}
				3117	}
				3118	close $fd;
				3119	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3120	return @list;
				3121	}
				3122
Ville Skyttä	6412757	2017-06-25 13:20:41 +0300	[diff] [blame]	3123	# written with help of Tree::Trie module (Perl Artistic License, GPL compatible)
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3124	# as side effects it sets 'forks' field to list of forks for forked projects
				3125	sub filter_forks_from_projects_list {
				3126	my $projects = shift;
				3127
				3128	my %trie; # prefix tree of directories (path components)
				3129	# generate trie out of those directories that might contain forks
				3130	foreach my $pr (@$projects) {
				3131	my $path = $pr->{'path'};
				3132	$path =~ s/\.git$//; # forks of 'repo.git' are in 'repo/' directory
				3133	next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
				3134	next unless ($path); # skip '.git' repository: tests, git-instaweb
Julien Muchembled	53c632f	2011-10-21 21:04:21 +0200	[diff] [blame]	3135	next unless (-d "$projectroot/$path"); # containing directory exists
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3136	$pr->{'forks'} = []; # there can be 0 or more forks of project
				3137
				3138	# add to trie
				3139	my @dirs = split('/', $path);
				3140	# walk the trie, until either runs out of components or out of trie
				3141	my $ref = \%trie;
				3142	while (scalar @dirs &&
				3143	exists($ref->{$dirs[0]})) {
				3144	$ref = $ref->{shift @dirs};
				3145	}
				3146	# create rest of trie structure from rest of components
				3147	foreach my $dir (@dirs) {
				3148	$ref = $ref->{$dir} = {};
				3149	}
				3150	# create end marker, store $pr as a data
				3151	$ref->{''} = $pr if (!exists $ref->{''});
				3152	}
				3153
				3154	# filter out forks, by finding shortest prefix match for paths
				3155	my @filtered;
				3156	PROJECT:
				3157	foreach my $pr (@$projects) {
				3158	# trie lookup
				3159	my $ref = \%trie;
				3160	DIR:
				3161	foreach my $dir (split('/', $pr->{'path'})) {
				3162	if (exists $ref->{''}) {
				3163	# found [shortest] prefix, is a fork - skip it
				3164	push @{$ref->{''}{'forks'}}, $pr;
				3165	next PROJECT;
				3166	}
				3167	if (!exists $ref->{$dir}) {
				3168	# not in trie, cannot have prefix, not a fork
				3169	push @filtered, $pr;
				3170	next PROJECT;
				3171	}
				3172	# If the dir is there, we just walk one step down the trie.
				3173	$ref = $ref->{$dir};
				3174	}
				3175	# we ran out of trie
				3176	# (shouldn't happen: it's either no match, or end marker)
				3177	push @filtered, $pr;
				3178	}
				3179
				3180	return @filtered;
				3181	}
				3182
				3183	# note: fill_project_list_info must be run first,
				3184	# for 'descr_long' and 'ctags' to be filled
				3185	sub search_projects_list {
				3186	my ($projlist, %opts) = @_;
				3187	my $tagfilter = $opts{'tagfilter'};
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3188	my $search_re = $opts{'search_regexp'};
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3189
				3190	return @$projlist
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3191	unless ($tagfilter \|\| $search_re);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3192
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	3193	# searching projects require filling to be run before it;
				3194	fill_project_list_info($projlist,
				3195	$tagfilter ? 'ctags' : (),
Junio C Hamano	aa145bf	2012-03-08 13:04:49 -0800	[diff] [blame]	3196	$search_re ? ('path', 'descr') : ());
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3197	my @projects;
				3198	PROJECT:
				3199	foreach my $pr (@$projlist) {
				3200
				3201	if ($tagfilter) {
				3202	next unless ref($pr->{'ctags'}) eq 'HASH';
				3203	next unless
				3204	grep { lc($_) eq lc($tagfilter) } keys %{$pr->{'ctags'}};
				3205	}
				3206
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3207	if ($search_re) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3208	next unless
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	3209	$pr->{'path'} =~ /$search_re/ \|\|
				3210	$pr->{'descr_long'} =~ /$search_re/;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	3211	}
				3212
				3213	push @projects, $pr;
				3214	}
				3215
				3216	return @projects;
				3217	}
				3218
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3219	our $gitweb_project_owner = undef;
				3220	sub git_get_project_list_from_file {
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3221
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3222	return if (defined $gitweb_project_owner);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3223
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3224	$gitweb_project_owner = {};
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3225	# read from file (url-encoded):
				3226	# 'git%2Fgit.git Linus+Torvalds'
				3227	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3228	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
				3229	if (-f $projects_list) {
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3230	open(my $fd, '<', $projects_list);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3231	while (my $line = <$fd>) {
				3232	chomp $line;
				3233	my ($pr, $ow) = split ' ', $line;
				3234	$pr = unescape($pr);
				3235	$ow = unescape($ow);
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3236	$gitweb_project_owner->{$pr} = to_utf8($ow);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3237	}
				3238	close $fd;
				3239	}
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3240	}
				3241
				3242	sub git_get_project_owner {
				3243	my $project = shift;
				3244	my $owner;
				3245
				3246	return undef unless $project;
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3247	$git_dir = "$projectroot/$project";
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3248
				3249	if (!defined $gitweb_project_owner) {
				3250	git_get_project_list_from_file();
				3251	}
				3252
				3253	if (exists $gitweb_project_owner->{$project}) {
				3254	$owner = $gitweb_project_owner->{$project};
				3255	}
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3256	if (!defined $owner){
				3257	$owner = git_get_project_config('owner');
				3258	}
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3259	if (!defined $owner) {
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3260	$owner = get_file_owner("$git_dir");
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3261	}
				3262
				3263	return $owner;
				3264	}
				3265
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3266	sub git_get_last_activity {
				3267	my ($path) = @_;
				3268	my $fd;
				3269
				3270	$git_dir = "$projectroot/$path";
				3271	open($fd, "-\|", git_cmd(), 'for-each-ref',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3272	'--format=%(committer)',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3273	'--sort=-committerdate',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3274	'--count=1',
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	3275	map { "refs/$_" } get_branch_refs ()) or return;
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3276	my $most_recent = <$fd>;
				3277	close $fd or return;
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	3278	if (defined $most_recent &&
				3279	$most_recent =~ / (\d+) [-+][01]\d\d\d$/) {
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3280	my $timestamp = $1;
				3281	my $age = time - $timestamp;
				3282	return ($age, age_string($age));
				3283	}
Matt McCutchen	c956395	2007-06-28 18:15:22 -0400	[diff] [blame]	3284	return (undef, undef);
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3285	}
				3286
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	3287	# Implementation note: when a single remote is wanted, we cannot use 'git
				3288	# remote show -n' because that command always work (assuming it's a remote URL
				3289	# if it's not defined), and we cannot use 'git remote show' because that would
				3290	# try to make a network roundtrip. So the only way to find if that particular
				3291	# remote is defined is to walk the list provided by 'git remote -v' and stop if
				3292	# and when we find what we want.
				3293	sub git_get_remotes_list {
				3294	my $wanted = shift;
				3295	my %remotes = ();
				3296
				3297	open my $fd, '-\|' , git_cmd(), 'remote', '-v';
				3298	return unless $fd;
				3299	while (my $remote = <$fd>) {
				3300	chomp $remote;
				3301	$remote =~ s!\t(.*?)\s+$(\w+)$$!!;
				3302	next if $wanted and not $remote eq $wanted;
				3303	my ($url, $key) = ($1, $2);
				3304
				3305	$remotes{$remote} \|\|= { 'heads' => () };
				3306	$remotes{$remote}{$key} = $url;
				3307	}
				3308	close $fd or return;
				3309	return wantarray ? %remotes : \%remotes;
				3310	}
				3311
				3312	# Takes a hash of remotes as first parameter and fills it by adding the
				3313	# available remote heads for each of the indicated remotes.
				3314	sub fill_remote_heads {
				3315	my $remotes = shift;
				3316	my @heads = map { "remotes/$_" } keys %$remotes;
				3317	my @remoteheads = git_get_heads_list(undef, @heads);
				3318	foreach my $remote (keys %$remotes) {
				3319	$remotes->{$remote}{'heads'} = [ grep {
				3320	$_->{'name'} =~ s!^$remote/!!
				3321	} @remoteheads ];
				3322	}
				3323	}
				3324
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3325	sub git_get_references {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3326	my $type = shift \|\| "";
				3327	my %refs;
Jakub Narebski	28b9d9f	2006-11-25 11:32:08 +0100	[diff] [blame]	3328	# 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11
				3329	# c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}
				3330	open my $fd, "-\|", git_cmd(), "show-ref", "--dereference",
				3331	($type ? ("--", "refs/$type") : ()) # use -- <pattern> if $type
Jakub Narebski	9704d75	2006-09-19 14:31:49 +0200	[diff] [blame]	3332	or return;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3333
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3334	while (my $line = <$fd>) {
				3335	chomp $line;
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	3336	if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3337	if (defined $refs{$1}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3338	push @{$refs{$1}}, $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3339	} else {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3340	$refs{$1} = [ $2 ];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3341	}
				3342	}
				3343	}
				3344	close $fd or return;
				3345	return \%refs;
				3346	}
				3347
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3348	sub git_get_rev_name_tags {
				3349	my $hash = shift \|\| return undef;
				3350
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3351	open my $fd, "-\|", git_cmd(), "name-rev", "--tags", $hash
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3352	or return;
				3353	my $name_rev = <$fd>;
				3354	close $fd;
				3355
				3356	if ($name_rev =~ m\|^$hash tags/(.*)$\|) {
				3357	return $1;
				3358	} else {
				3359	# catches also '$hash undefined' output
				3360	return undef;
				3361	}
				3362	}
				3363
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3364	## ----------------------------------------------------------------------
				3365	## parse to hash functions
				3366
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3367	sub parse_date {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3368	my $epoch = shift;
				3369	my $tz = shift \|\| "-0000";
				3370
				3371	my %date;
				3372	my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
				3373	my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
				3374	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
				3375	$date{'hour'} = $hour;
				3376	$date{'minute'} = $min;
				3377	$date{'mday'} = $mday;
				3378	$date{'day'} = $days[$wday];
				3379	$date{'month'} = $months[$mon];
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3380	$date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000",
				3381	$days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3382	$date{'mday-time'} = sprintf "%d %s %02d:%02d",
				3383	$mday, $months[$mon], $hour ,$min;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3384	$date{'iso-8601'} = sprintf "%04d-%02d-%02dT%02d:%02d:%02dZ",
Vincent Zanotti	a62d6d8	2007-11-10 19:55:27 +0100	[diff] [blame]	3385	1900+$year, 1+$mon, $mday, $hour ,$min, $sec;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3386
Jakub Narebski	2b1e172	2011-03-25 20:20:49 +0100	[diff] [blame]	3387	my ($tz_sign, $tz_hour, $tz_min) =
				3388	($tz =~ m/^([-+])(\d\d)(\d\d)$/);
				3389	$tz_sign = ($tz_sign eq '-' ? -1 : +1);
				3390	my $local = $epoch + $tz_sign((($tz_hour60) + $tz_min)*60);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3391	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local);
				3392	$date{'hour_local'} = $hour;
				3393	$date{'minute_local'} = $min;
				3394	$date{'tz_local'} = $tz;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3395	$date{'iso-tz'} = sprintf("%04d-%02d-%02d %02d:%02d:%02d %s",
				3396	1900+$year, $mon+1, $mday,
				3397	$hour, $min, $sec, $tz);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3398	return %date;
				3399	}
				3400
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3401	sub parse_tag {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3402	my $tag_id = shift;
				3403	my %tag;
				3404	my @comment;
				3405
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3406	open my $fd, "-\|", git_cmd(), "cat-file", "tag", $tag_id or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3407	$tag{'id'} = $tag_id;
				3408	while (my $line = <$fd>) {
				3409	chomp $line;
				3410	if ($line =~ m/^object ([0-9a-fA-F]{40})$/) {
				3411	$tag{'object'} = $1;
				3412	} elsif ($line =~ m/^type (.+)$/) {
				3413	$tag{'type'} = $1;
				3414	} elsif ($line =~ m/^tag (.+)$/) {
				3415	$tag{'name'} = $1;
				3416	} elsif ($line =~ m/^tagger (.) ([0-9]+) (.)$/) {
				3417	$tag{'author'} = $1;
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	3418	$tag{'author_epoch'} = $2;
				3419	$tag{'author_tz'} = $3;
				3420	if ($tag{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3421	$tag{'author_name'} = $1;
				3422	$tag{'author_email'} = $2;
				3423	} else {
				3424	$tag{'author_name'} = $tag{'author'};
				3425	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3426	} elsif ($line =~ m/--BEGIN/) {
				3427	push @comment, $line;
				3428	last;
				3429	} elsif ($line eq "") {
				3430	last;
				3431	}
				3432	}
				3433	push @comment, <$fd>;
				3434	$tag{'comment'} = \@comment;
				3435	close $fd or return;
				3436	if (!defined $tag{'name'}) {
				3437	return
				3438	};
				3439	return %tag
				3440	}
				3441
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3442	sub parse_commit_text {
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3443	my ($commit_text, $withparents) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3444	my @commit_lines = split '\n', $commit_text;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3445	my %co;
				3446
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3447	pop @commit_lines; # Remove '\0'
				3448
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3449	if (! @commit_lines) {
				3450	return;
				3451	}
				3452
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3453	my $header = shift @commit_lines;
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3454	if ($header !~ m/^[0-9a-fA-F]{40}/) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3455	return;
				3456	}
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3457	($co{'id'}, my @parents) = split ' ', $header;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3458	while (my $line = shift @commit_lines) {
				3459	last if $line eq "\n";
				3460	if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) {
				3461	$co{'tree'} = $1;
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3462	} elsif ((!defined $withparents) && ($line =~ m/^parent ([0-9a-fA-F]{40})$/)) {
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3463	push @parents, $1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3464	} elsif ($line =~ m/^author (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3465	$co{'author'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3466	$co{'author_epoch'} = $2;
				3467	$co{'author_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3468	if ($co{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3469	$co{'author_name'} = $1;
				3470	$co{'author_email'} = $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3471	} else {
				3472	$co{'author_name'} = $co{'author'};
				3473	}
				3474	} elsif ($line =~ m/^committer (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3475	$co{'committer'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3476	$co{'committer_epoch'} = $2;
				3477	$co{'committer_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3478	if ($co{'committer'} =~ m/^([^<]+) <([^>]*)>/) {
				3479	$co{'committer_name'} = $1;
				3480	$co{'committer_email'} = $2;
				3481	} else {
				3482	$co{'committer_name'} = $co{'committer'};
				3483	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3484	}
				3485	}
				3486	if (!defined $co{'tree'}) {
				3487	return;
				3488	};
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3489	$co{'parents'} = \@parents;
				3490	$co{'parent'} = $parents[0];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3491
				3492	foreach my $title (@commit_lines) {
				3493	$title =~ s/^ //;
				3494	if ($title ne "") {
				3495	$co{'title'} = chop_str($title, 80, 5);
				3496	# remove leading stuff of merges to make the interesting part visible
				3497	if (length($title) > 50) {
				3498	$title =~ s/^Automatic //;
				3499	$title =~ s/^merge (of\|with) /Merge ... /i;
				3500	if (length($title) > 50) {
				3501	$title =~ s/(http\|rsync):\/\///;
				3502	}
				3503	if (length($title) > 50) {
				3504	$title =~ s/(master\|www\|rsync)\.//;
				3505	}
				3506	if (length($title) > 50) {
				3507	$title =~ s/kernel.org:?//;
				3508	}
				3509	if (length($title) > 50) {
				3510	$title =~ s/\/pub\/scm//;
				3511	}
				3512	}
				3513	$co{'title_short'} = chop_str($title, 50, 5);
				3514	last;
				3515	}
				3516	}
Joey Hess	53c3967	2008-09-05 14:26:29 -0400	[diff] [blame]	3517	if (! defined $co{'title'} \|\| $co{'title'} eq "") {
Petr Baudis	7e0fe5c	2006-10-06 18:55:04 +0200	[diff] [blame]	3518	$co{'title'} = $co{'title_short'} = '(no commit message)';
				3519	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3520	# remove added spaces
				3521	foreach my $line (@commit_lines) {
				3522	$line =~ s/^ //;
				3523	}
				3524	$co{'comment'} = \@commit_lines;
				3525
				3526	my $age = time - $co{'committer_epoch'};
				3527	$co{'age'} = $age;
				3528	$co{'age_string'} = age_string($age);
				3529	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'});
				3530	if ($age > 60602472) {
				3531	$co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3532	$co{'age_string_age'} = $co{'age_string'};
				3533	} else {
				3534	$co{'age_string_date'} = $co{'age_string'};
				3535	$co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3536	}
				3537	return %co;
				3538	}
				3539
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3540	sub parse_commit {
				3541	my ($commit_id) = @_;
				3542	my %co;
				3543
				3544	local $/ = "\0";
				3545
				3546	open my $fd, "-\|", git_cmd(), "rev-list",
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3547	"--parents",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3548	"--header",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3549	"--max-count=1",
				3550	$commit_id,
				3551	"--",
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3552	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3553	%co = parse_commit_text(<$fd>, 1);
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3554	close $fd;
				3555
				3556	return %co;
				3557	}
				3558
				3559	sub parse_commits {
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3560	my ($commit_id, $maxcount, $skip, $filename, @args) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3561	my @cos;
				3562
				3563	$maxcount \|\|= 1;
				3564	$skip \|\|= 0;
				3565
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3566	local $/ = "\0";
				3567
				3568	open my $fd, "-\|", git_cmd(), "rev-list",
				3569	"--header",
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3570	@args,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3571	("--max-count=" . $maxcount),
Robert Fitzsimons	f47efbb	2006-12-24 14:31:49 +0000	[diff] [blame]	3572	("--skip=" . $skip),
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	3573	@extra_options,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3574	$commit_id,
				3575	"--",
				3576	($filename ? ($filename) : ())
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3577	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3578	while (my $line = <$fd>) {
				3579	my %co = parse_commit_text($line);
				3580	push @cos, \%co;
				3581	}
				3582	close $fd;
				3583
				3584	return wantarray ? @cos : \@cos;
				3585	}
				3586
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3587	# parse line of git-diff-tree "raw" output
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3588	sub parse_difftree_raw_line {
				3589	my $line = shift;
				3590	my %res;
				3591
				3592	# ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
				3593	# ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
				3594	if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/) {
				3595	$res{'from_mode'} = $1;
				3596	$res{'to_mode'} = $2;
				3597	$res{'from_id'} = $3;
				3598	$res{'to_id'} = $4;
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	3599	$res{'status'} = $5;
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3600	$res{'similarity'} = $6;
				3601	if ($res{'status'} eq 'R' \|\| $res{'status'} eq 'C') { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3602	($res{'from_file'}, $res{'to_file'}) = map { unquote($_) } split("\t", $7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3603	} else {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3604	$res{'from_file'} = $res{'to_file'} = $res{'file'} = unquote($7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3605	}
				3606	}
Jakub Narebski	78bc403	2007-05-07 01:10:03 +0200	[diff] [blame]	3607	# '::100755 100755 100755 60e79ca1b01bc8b057abe17ddab484699a7f5fdb 94067cc5f73388f33722d52ae02f44692bc07490 94067cc5f73388f33722d52ae02f44692bc07490 MR git-gui/git-gui.sh'
				3608	# combined diff (for merge commit)
				3609	elsif ($line =~ s/^(::+)((?:[0-7]{6} )+)((?:[0-9a-fA-F]{40} )+)([a-zA-Z]+)\t(.*)$//) {
				3610	$res{'nparents'} = length($1);
				3611	$res{'from_mode'} = [ split(' ', $2) ];
				3612	$res{'to_mode'} = pop @{$res{'from_mode'}};
				3613	$res{'from_id'} = [ split(' ', $3) ];
				3614	$res{'to_id'} = pop @{$res{'from_id'}};
				3615	$res{'status'} = [ split('', $4) ];
				3616	$res{'to_file'} = unquote($5);
				3617	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3618	# 'c512b523472485aef4fff9e57b229d9d243c967f'
Jakub Narebski	0edcb37	2006-08-31 00:36:04 +0200	[diff] [blame]	3619	elsif ($line =~ m/^([0-9a-fA-F]{40})$/) {
				3620	$res{'commit'} = $1;
				3621	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3622
				3623	return wantarray ? %res : \%res;
				3624	}
				3625
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3626	# wrapper: return parsed line of git-diff-tree "raw" output
				3627	# (the argument might be raw line, or parsed info)
				3628	sub parsed_difftree_line {
				3629	my $line_or_ref = shift;
				3630
				3631	if (ref($line_or_ref) eq "HASH") {
				3632	# pre-parsed (or generated by hand)
				3633	return $line_or_ref;
				3634	} else {
				3635	return parse_difftree_raw_line($line_or_ref);
				3636	}
				3637	}
				3638
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3639	# parse line of git-ls-tree output
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	3640	sub parse_ls_tree_line {
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3641	my $line = shift;
				3642	my %opts = @_;
				3643	my %res;
				3644
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3645	if ($opts{'-l'}) {
				3646	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa 16717 panic.c'
				3647	$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]	3648
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3649	$res{'mode'} = $1;
				3650	$res{'type'} = $2;
				3651	$res{'hash'} = $3;
				3652	$res{'size'} = $4;
				3653	if ($opts{'-z'}) {
				3654	$res{'name'} = $5;
				3655	} else {
				3656	$res{'name'} = unquote($5);
				3657	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3658	} else {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3659	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				3660	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/s;
				3661
				3662	$res{'mode'} = $1;
				3663	$res{'type'} = $2;
				3664	$res{'hash'} = $3;
				3665	if ($opts{'-z'}) {
				3666	$res{'name'} = $4;
				3667	} else {
				3668	$res{'name'} = unquote($4);
				3669	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3670	}
				3671
				3672	return wantarray ? %res : \%res;
				3673	}
				3674
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3675	# generates _two_ hashes, references to which are passed as 2 and 3 argument
				3676	sub parse_from_to_diffinfo {
				3677	my ($diffinfo, $from, $to, @parents) = @_;
				3678
				3679	if ($diffinfo->{'nparents'}) {
				3680	# combined diff
				3681	$from->{'file'} = [];
				3682	$from->{'href'} = [];
				3683	fill_from_file_info($diffinfo, @parents)
				3684	unless exists $diffinfo->{'from_file'};
				3685	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3686	$from->{'file'}[$i] =
				3687	defined $diffinfo->{'from_file'}[$i] ?
				3688	$diffinfo->{'from_file'}[$i] :
				3689	$diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3690	if ($diffinfo->{'status'}[$i] ne "A") { # not new (added) file
				3691	$from->{'href'}[$i] = href(action=>"blob",
				3692	hash_base=>$parents[$i],
				3693	hash=>$diffinfo->{'from_id'}[$i],
				3694	file_name=>$from->{'file'}[$i]);
				3695	} else {
				3696	$from->{'href'}[$i] = undef;
				3697	}
				3698	}
				3699	} else {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3700	# ordinary (not combined) diff
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3701	$from->{'file'} = $diffinfo->{'from_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3702	if ($diffinfo->{'status'} ne "A") { # not new (added) file
				3703	$from->{'href'} = href(action=>"blob", hash_base=>$hash_parent,
				3704	hash=>$diffinfo->{'from_id'},
				3705	file_name=>$from->{'file'});
				3706	} else {
				3707	delete $from->{'href'};
				3708	}
				3709	}
				3710
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3711	$to->{'file'} = $diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3712	if (!is_deleted($diffinfo)) { # file exists in result
				3713	$to->{'href'} = href(action=>"blob", hash_base=>$hash,
				3714	hash=>$diffinfo->{'to_id'},
				3715	file_name=>$to->{'file'});
				3716	} else {
				3717	delete $to->{'href'};
				3718	}
				3719	}
				3720
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3721	## ......................................................................
				3722	## parse to array of hashes functions
				3723
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3724	sub git_get_heads_list {
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3725	my ($limit, @classes) = @_;
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	3726	@classes = get_branch_refs() unless @classes;
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3727	my @patterns = map { "refs/$_" } @classes;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3728	my @headslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3729
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3730	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3731	($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate',
				3732	'--format=%(objectname) %(refname) %(subject)%00%(committer)',
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3733	@patterns
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3734	or return;
				3735	while (my $line = <$fd>) {
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3736	my %ref_item;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	3737
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3738	chomp $line;
				3739	my ($refinfo, $committerinfo) = split(/\0/, $line);
				3740	my ($hash, $name, $title) = split(' ', $refinfo, 3);
				3741	my ($committer, $epoch, $tz) =
				3742	($committerinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3743	$ref_item{'fullname'} = $name;
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	3744	my $strip_refs = join '\|', map { quotemeta } get_branch_refs();
				3745	$name =~ s!^refs/($strip_refs\|remotes)/!!;
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	3746	$ref_item{'name'} = $name;
				3747	# for refs neither in 'heads' nor 'remotes' we want to
				3748	# show their ref dir
				3749	my $ref_dir = (defined $1) ? $1 : '';
				3750	if ($ref_dir ne '' and $ref_dir ne 'heads' and $ref_dir ne 'remotes') {
				3751	$ref_item{'name'} .= ' (' . $ref_dir . ')';
				3752	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3753
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3754	$ref_item{'id'} = $hash;
				3755	$ref_item{'title'} = $title \|\| '(no commit message)';
				3756	$ref_item{'epoch'} = $epoch;
				3757	if ($epoch) {
				3758	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3759	} else {
				3760	$ref_item{'age'} = "unknown";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3761	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3762
				3763	push @headslist, \%ref_item;
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3764	}
				3765	close $fd;
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	3766
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3767	return wantarray ? @headslist : \@headslist;
				3768	}
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3769
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3770	sub git_get_tags_list {
				3771	my $limit = shift;
				3772	my @tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3773
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3774	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3775	($limit ? '--count='.($limit+1) : ()), '--sort=-creatordate',
				3776	'--format=%(objectname) %(objecttype) %(refname) '.
				3777	'%(objectname) %(objecttype) %(subject)%00%(creator)',
				3778	'refs/tags'
				3779	or return;
				3780	while (my $line = <$fd>) {
				3781	my %ref_item;
				3782
				3783	chomp $line;
				3784	my ($refinfo, $creatorinfo) = split(/\0/, $line);
				3785	my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);
				3786	my ($creator, $epoch, $tz) =
				3787	($creatorinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3788	$ref_item{'fullname'} = $name;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3789	$name =~ s!^refs/tags/!!;
				3790
				3791	$ref_item{'type'} = $type;
				3792	$ref_item{'id'} = $id;
				3793	$ref_item{'name'} = $name;
				3794	if ($type eq "tag") {
				3795	$ref_item{'subject'} = $title;
				3796	$ref_item{'reftype'} = $reftype;
				3797	$ref_item{'refid'} = $refid;
				3798	} else {
				3799	$ref_item{'reftype'} = $type;
				3800	$ref_item{'refid'} = $id;
				3801	}
				3802
				3803	if ($type eq "tag" \|\| $type eq "commit") {
				3804	$ref_item{'epoch'} = $epoch;
				3805	if ($epoch) {
				3806	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3807	} else {
				3808	$ref_item{'age'} = "unknown";
				3809	}
				3810	}
				3811
				3812	push @tagslist, \%ref_item;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3813	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3814	close $fd;
				3815
				3816	return wantarray ? @tagslist : \@tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3817	}
				3818
				3819	## ----------------------------------------------------------------------
				3820	## filesystem-related functions
				3821
				3822	sub get_file_owner {
				3823	my $path = shift;
				3824
				3825	my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path);
				3826	my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid);
				3827	if (!defined $gcos) {
				3828	return undef;
				3829	}
				3830	my $owner = $gcos;
				3831	$owner =~ s/[,;].*$//;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	3832	return to_utf8($owner);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3833	}
				3834
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3835	# assume that file exists
				3836	sub insert_file {
				3837	my $filename = shift;
				3838
				3839	open my $fd, '<', $filename;
Jakub Narebski	4586864	2008-12-08 14:13:21 +0100	[diff] [blame]	3840	print map { to_utf8($_) } <$fd>;
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3841	close $fd;
				3842	}
				3843
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3844	## ......................................................................
				3845	## mimetype related functions
				3846
				3847	sub mimetype_guess_file {
				3848	my $filename = shift;
				3849	my $mimemap = shift;
				3850	-r $mimemap or return undef;
				3851
				3852	my %mimemap;
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3853	open(my $mh, '<', $mimemap) or return undef;
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3854	while (<$mh>) {
Jakub Narebski	618918e	2006-08-14 02:15:22 +0200	[diff] [blame]	3855	next if m/^#/; # skip comments
Ludwig Nussel	93a6ad1	2011-06-15 08:10:08 +0200	[diff] [blame]	3856	my ($mimetype, @exts) = split(/\s+/);
				3857	foreach my $ext (@exts) {
				3858	$mimemap{$ext} = $mimetype;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3859	}
				3860	}
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3861	close($mh);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3862
Jakub Narebski	8059319	2006-09-19 13:57:03 +0200	[diff] [blame]	3863	$filename =~ /\.([^.]*)$/;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3864	return $mimemap{$1};
				3865	}
				3866
				3867	sub mimetype_guess {
				3868	my $filename = shift;
				3869	my $mime;
				3870	$filename =~ /\./ or return undef;
				3871
				3872	if ($mimetypes_file) {
				3873	my $file = $mimetypes_file;
Jakub Narebski	d5aa50d	2006-08-14 02:16:33 +0200	[diff] [blame]	3874	if ($file !~ m!^/!) { # if it is relative path
				3875	# it is relative to project
				3876	$file = "$projectroot/$project/$file";
				3877	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3878	$mime = mimetype_guess_file($filename, $file);
				3879	}
				3880	$mime \|\|= mimetype_guess_file($filename, '/etc/mime.types');
				3881	return $mime;
				3882	}
				3883
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3884	sub blob_mimetype {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3885	my $fd = shift;
				3886	my $filename = shift;
				3887
				3888	if ($filename) {
				3889	my $mime = mimetype_guess($filename);
				3890	$mime and return $mime;
				3891	}
				3892
				3893	# just in case
				3894	return $default_blob_plain_mimetype unless $fd;
				3895
				3896	if (-T $fd) {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3897	return 'text/plain';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3898	} elsif (! $filename) {
				3899	return 'application/octet-stream';
				3900	} elsif ($filename =~ m/\.png$/i) {
				3901	return 'image/png';
				3902	} elsif ($filename =~ m/\.gif$/i) {
				3903	return 'image/gif';
				3904	} elsif ($filename =~ m/\.jpe?g$/i) {
				3905	return 'image/jpeg';
				3906	} else {
				3907	return 'application/octet-stream';
				3908	}
				3909	}
				3910
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3911	sub blob_contenttype {
				3912	my ($fd, $file_name, $type) = @_;
				3913
				3914	$type \|\|= blob_mimetype($fd, $file_name);
				3915	if ($type eq 'text/plain' && defined $default_text_plain_charset) {
				3916	$type .= "; charset=$default_text_plain_charset";
				3917	}
				3918
				3919	return $type;
				3920	}
				3921
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3922	# guess file syntax for syntax highlighting; return undef if no highlighting
				3923	# the name of syntax can (in the future) depend on syntax highlighter used
				3924	sub guess_file_syntax {
Ian Kelling	c151aa3	2016-09-24 15:32:57 -0700	[diff] [blame]	3925	my ($highlight, $file_name) = @_;
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3926	return undef unless ($highlight && defined $file_name);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3927	my $basename = basename($file_name, '.in');
				3928	return $highlight_basename{$basename}
				3929	if exists $highlight_basename{$basename};
				3930
				3931	$basename =~ /\.([^.]*)$/;
				3932	my $ext = $1 or return undef;
				3933	return $highlight_ext{$ext}
				3934	if exists $highlight_ext{$ext};
				3935
				3936	return undef;
				3937	}
				3938
				3939	# run highlighter and return FD of its output,
				3940	# or return original FD if no highlighting
				3941	sub run_highlighter {
				3942	my ($fd, $highlight, $syntax) = @_;
Ian Kelling	779a206	2016-09-24 15:32:58 -0700	[diff] [blame]	3943	return $fd unless ($highlight);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3944
Sylvain Rabot	3ca7353	2010-12-30 22:20:29 +0100	[diff] [blame]	3945	close $fd;
Ian Kelling	779a206	2016-09-24 15:32:58 -0700	[diff] [blame]	3946	my $syntax_arg = (defined $syntax) ? "--syntax $syntax" : "--force";
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3947	open $fd, quote_command(git_cmd(), "cat-file", "blob", $hash)." \| ".
Shin Kojima	029f372	2016-05-03 22:00:51 +0900	[diff] [blame]	3948	quote_command($^X, '-CO', '-MEncode=decode,FB_DEFAULT', '-pse',
				3949	'$_ = decode($fe, $_, FB_DEFAULT) if !utf8::decode($_);',
				3950	'--', "-fe=$fallback_encoding")." \| ".
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	3951	quote_command($highlight_bin).
Ian Kelling	779a206	2016-09-24 15:32:58 -0700	[diff] [blame]	3952	" --replace-tabs=8 --fragment $syntax_arg \|"
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3953	or die_error(500, "Couldn't open file or run syntax highlighter");
				3954	return $fd;
				3955	}
				3956
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3957	## ======================================================================
				3958	## functions printing HTML: header, footer, error page
				3959
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3960	sub get_page_title {
				3961	my $title = to_utf8($site_name);
				3962
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3963	unless (defined $project) {
				3964	if (defined $project_filter) {
Jakub Narebski	f421208	2012-02-12 16:21:30 +0100	[diff] [blame]	3965	$title .= " - projects in '" . esc_path($project_filter) . "'";
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3966	}
				3967	return $title;
				3968	}
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3969	$title .= " - " . to_utf8($project);
				3970
				3971	return $title unless (defined $action);
				3972	$title .= "/$action"; # $action is US-ASCII (7bit ASCII)
				3973
				3974	return $title unless (defined $file_name);
				3975	$title .= " - " . esc_path($file_name);
				3976	if ($action eq "tree" && $file_name !~ m\|/$\|) {
				3977	$title .= "/";
				3978	}
				3979
				3980	return $title;
				3981	}
				3982
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3983	sub get_content_type_html {
				3984	# require explicit support from the UA if we are to send the page as
				3985	# 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
				3986	# we have to do this because MSIE sometimes globs '/', pretending to
				3987	# support xhtml+xml but choking when it gets what it asked for.
				3988	if (defined $cgi->http('HTTP_ACCEPT') &&
				3989	$cgi->http('HTTP_ACCEPT') =~ m/(,\|;\|\s\|^)application\/xhtml\+xml(,\|;\|\s\|$)/ &&
				3990	$cgi->Accept('application/xhtml+xml') != 0) {
				3991	return 'application/xhtml+xml';
				3992	} else {
				3993	return 'text/html';
				3994	}
				3995	}
				3996
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3997	sub print_feed_meta {
				3998	if (defined $project) {
				3999	my %href_params = get_feed_info();
				4000	if (!exists $href_params{'-title'}) {
				4001	$href_params{'-title'} = 'log';
				4002	}
				4003
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	4004	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	4005	my $type = lc($format);
				4006	my %link_attr = (
				4007	'-rel' => 'alternate',
				4008	'-title' => esc_attr("$project - $href_params{'-title'} - $format feed"),
				4009	'-type' => "application/$type+xml"
				4010	);
				4011
Sebastian Pipping	cc999a3	2012-04-04 14:25:44 +0200	[diff] [blame]	4012	$href_params{'extra_options'} = undef;
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	4013	$href_params{'action'} = $type;
				4014	$link_attr{'-href'} = href(%href_params);
				4015	print "<link ".
				4016	"rel=\"$link_attr{'-rel'}\" ".
				4017	"title=\"$link_attr{'-title'}\" ".
				4018	"href=\"$link_attr{'-href'}\" ".
				4019	"type=\"$link_attr{'-type'}\" ".
				4020	"/>\n";
				4021
				4022	$href_params{'extra_options'} = '--no-merges';
				4023	$link_attr{'-href'} = href(%href_params);
				4024	$link_attr{'-title'} .= ' (no merges)';
				4025	print "<link ".
				4026	"rel=\"$link_attr{'-rel'}\" ".
				4027	"title=\"$link_attr{'-title'}\" ".
				4028	"href=\"$link_attr{'-href'}\" ".
				4029	"type=\"$link_attr{'-type'}\" ".
				4030	"/>\n";
				4031	}
				4032
				4033	} else {
				4034	printf('<link rel="alternate" title="%s projects list" '.
				4035	'href="%s" type="text/plain; charset=utf-8" />'."\n",
				4036	esc_attr($site_name), href(project=>undef, action=>"project_index"));
				4037	printf('<link rel="alternate" title="%s projects feeds" '.
				4038	'href="%s" type="text/x-opml" />'."\n",
				4039	esc_attr($site_name), href(project=>undef, action=>"opml"));
				4040	}
				4041	}
				4042
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4043	sub print_header_links {
				4044	my $status = shift;
				4045
				4046	# print out each stylesheet that exist, providing backwards capability
				4047	# for those people who defined $stylesheet in a config file
				4048	if (defined $stylesheet) {
				4049	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				4050	} else {
				4051	foreach my $stylesheet (@stylesheets) {
				4052	next unless $stylesheet;
				4053	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				4054	}
				4055	}
				4056	print_feed_meta()
				4057	if ($status eq '200 OK');
				4058	if (defined $favicon) {
				4059	print qq(<link rel="shortcut icon" href=").esc_url($favicon).qq(" type="image/png" />\n);
				4060	}
				4061	}
				4062
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	4063	sub print_nav_breadcrumbs_path {
				4064	my $dirprefix = undef;
				4065	while (my $part = shift) {
				4066	$dirprefix .= "/" if defined $dirprefix;
				4067	$dirprefix .= $part;
				4068	print $cgi->a({-href => href(project => undef,
				4069	project_filter => $dirprefix,
				4070	action => "project_list")},
				4071	esc_html($part)) . " / ";
				4072	}
				4073	}
				4074
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4075	sub print_nav_breadcrumbs {
				4076	my %opts = @_;
				4077
Tony Finch	ad9c2e2	2013-07-04 18:02:12 +0100	[diff] [blame]	4078	for my $crumb (@extra_breadcrumbs, [ $home_link_str => $home_link ]) {
				4079	print $cgi->a({-href => esc_url($crumb->[1])}, $crumb->[0]) . " / ";
				4080	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4081	if (defined $project) {
Bernhard R. Link	4426ba2	2012-01-30 21:10:23 +0100	[diff] [blame]	4082	my @dirname = split '/', $project;
				4083	my $projectbasename = pop @dirname;
				4084	print_nav_breadcrumbs_path(@dirname);
				4085	print $cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4086	if (defined $action) {
				4087	my $action_print = $action ;
				4088	if (defined $opts{-action_extra}) {
				4089	$action_print = $cgi->a({-href => href(action=>$action)},
				4090	$action);
				4091	}
				4092	print " / $action_print";
				4093	}
				4094	if (defined $opts{-action_extra}) {
				4095	print " / $opts{-action_extra}";
				4096	}
				4097	print "\n";
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	4098	} elsif (defined $project_filter) {
				4099	print_nav_breadcrumbs_path(split '/', $project_filter);
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4100	}
				4101	}
				4102
				4103	sub print_search_form {
				4104	if (!defined $searchtext) {
				4105	$searchtext = "";
				4106	}
				4107	my $search_hash;
				4108	if (defined $hash_base) {
				4109	$search_hash = $hash_base;
				4110	} elsif (defined $hash) {
				4111	$search_hash = $hash;
				4112	} else {
				4113	$search_hash = "HEAD";
				4114	}
				4115	my $action = $my_uri;
				4116	my $use_pathinfo = gitweb_check_feature('pathinfo');
				4117	if ($use_pathinfo) {
				4118	$action .= "/".esc_url($project);
				4119	}
Roland Mas	4750f4b	2014-10-16 08:54:47 +0200	[diff] [blame]	4120	print $cgi->start_form(-method => "get", -action => $action) .
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4121	"<div class=\"search\">\n" .
				4122	(!$use_pathinfo &&
				4123	$cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) . "\n") .
				4124	$cgi->input({-name=>"a", -value=>"search", -type=>"hidden"}) . "\n" .
				4125	$cgi->input({-name=>"h", -value=>$search_hash, -type=>"hidden"}) . "\n" .
				4126	$cgi->popup_menu(-name => 'st', -default => 'commit',
				4127	-values => ['commit', 'grep', 'author', 'committer', 'pickaxe']) .
Tony Finch	af52bd5	2013-08-20 17:59:54 +0100	[diff] [blame]	4128	" " . $cgi->a({-href => href(action=>"search_help"),
				4129	-title => "search help" }, "?") . " search:\n",
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	4130	$cgi->textfield(-name => "s", -value => $searchtext, -override => 1) . "\n" .
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4131	"<span title=\"Extended regular expression\">" .
				4132	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				4133	-checked => $search_use_regexp) .
				4134	"</span>" .
				4135	"</div>" .
				4136	$cgi->end_form() . "\n";
				4137	}
				4138
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	4139	sub git_header_html {
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4140	my $status = shift \|\| "200 OK";
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	4141	my $expires = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4142	my %opts = @_;
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4143
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	4144	my $title = get_page_title();
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4145	my $content_type = get_content_type_html();
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4146	print $cgi->header(-type=>$content_type, -charset => 'utf-8',
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4147	-status=> $status, -expires => $expires)
Jakub Narebski	ad709ea	2010-06-13 00:35:59 +0200	[diff] [blame]	4148	unless ($opts{'-no_http_header'});
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	4149	my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4150	print <<EOF;
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4151	<?xml version="1.0" encoding="utf-8"?>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4152	<!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]	4153	<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]	4154	<!-- 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]	4155	<!-- git core binaries version $git_version -->
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4156	<head>
Alp Toker	f6801d6	2006-07-11 11:19:34 +0100	[diff] [blame]	4157	<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	4158	<meta name="generator" content="gitweb/$version git/$git_version$mod_perl_version"/>
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4159	<meta name="robots" content="index, nofollow"/>
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4160	<title>$title</title>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4161	EOF
Giuseppe Bilotta	41a4d16	2009-01-31 02:31:52 +0100	[diff] [blame]	4162	# the stylesheet, favicon etc urls won't work correctly with path_info
				4163	# unless we set the appropriate base URL
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	4164	if ($ENV{'PATH_INFO'}) {
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	4165	print "<base href=\"".esc_url($base_url)."\" />\n";
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	4166	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4167	print_header_links($status);
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	4168
				4169	if (defined $site_html_head_string) {
				4170	print to_utf8($site_html_head_string);
				4171	}
				4172
Matthias Lederhofer	dd04c42	2006-08-06 13:25:41 +0200	[diff] [blame]	4173	print "</head>\n" .
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4174	"<body>\n";
				4175
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4176	if (defined $site_header && -f $site_header) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4177	insert_file($site_header);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4178	}
				4179
Jonathan Nieder	6822052	2010-09-03 19:45:09 -0500	[diff] [blame]	4180	print "<div class=\"page_header\">\n";
				4181	if (defined $logo) {
				4182	print $cgi->a({-href => esc_url($logo_url),
				4183	-title => $logo_label},
				4184	$cgi->img({-src => esc_url($logo),
				4185	-width => 72, -height => 27,
				4186	-alt => "git",
				4187	-class => "logo"}));
				4188	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4189	print_nav_breadcrumbs(%opts);
Petr Baudis	d77b567	2007-05-17 04:24:19 +0200	[diff] [blame]	4190	print "</div>\n";
				4191
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4192	my $have_search = gitweb_check_feature('search');
Jakub Narebski	f70dda2	2008-06-02 11:54:41 +0200	[diff] [blame]	4193	if (defined $project && $have_search) {
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	4194	print_search_form();
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4195	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4196	}
				4197
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	4198	sub git_footer_html {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4199	my $feed_class = 'rss_logo';
				4200
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4201	print "<div class=\"page_footer\">\n";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4202	if (defined $project) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4203	my $descr = git_get_project_description($project);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	4204	if (defined $descr) {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	4205	print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	4206	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4207
				4208	my %href_params = get_feed_info();
				4209	if (!%href_params) {
				4210	$feed_class .= ' generic';
				4211	}
				4212	$href_params{'-title'} \|\|= 'log';
				4213
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	4214	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4215	$href_params{'action'} = lc($format);
				4216	print $cgi->a({-href => href(%href_params),
				4217	-title => "$href_params{'-title'} $format feed",
				4218	-class => $feed_class}, $format)."\n";
				4219	}
				4220
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4221	} else {
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4222	print $cgi->a({-href => href(project=>undef, action=>"opml",
				4223	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4224	-class => $feed_class}, "OPML") . " ";
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4225	print $cgi->a({-href => href(project=>undef, action=>"project_index",
				4226	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4227	-class => $feed_class}, "TXT") . "\n";
Kay Sievers	ff7669a	2005-08-07 20:13:02 +0200	[diff] [blame]	4228	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4229	print "</div>\n"; # class="page_footer"
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4230
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4231	if (defined $t0 && gitweb_check_feature('timed')) {
				4232	print "<div id=\"generating_info\">\n";
				4233	print 'This page took '.
				4234	'<span id="generating_time" class="time_span">'.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	4235	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4236	' seconds </span>'.
				4237	' and '.
				4238	'<span id="generating_cmd">'.
				4239	$number_of_git_cmds.
				4240	'</span> git commands '.
				4241	" to generate.\n";
				4242	print "</div>\n"; # class="page_footer"
				4243	}
				4244
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4245	if (defined $site_footer && -f $site_footer) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4246	insert_file($site_footer);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4247	}
				4248
Junio C Hamano	abf411e	2010-12-15 11:32:57 -0800	[diff] [blame]	4249	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]	4250	if (defined $action &&
				4251	$action eq 'blame_incremental') {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4252	print qq!<script type="text/javascript">\n!.
				4253	qq!startBlame("!. href(action=>"blame_data", -replay=>1) .qq!",\n!.
				4254	qq! "!. href() .qq!");\n!.
				4255	qq!</script>\n!;
John 'Warthog9' Hawley	291e52b	2011-04-28 21:04:09 +0200	[diff] [blame]	4256	} else {
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4257	my ($jstimezone, $tz_cookie, $datetime_class) =
				4258	gitweb_get_feature('javascript-timezone');
				4259
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4260	print qq!<script type="text/javascript">\n!.
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4261	qq!window.onload = function () {\n!;
				4262	if (gitweb_check_feature('javascript-actions')) {
				4263	print qq! fixLinks();\n!;
				4264	}
				4265	if ($jstimezone && $tz_cookie && $datetime_class) {
				4266	print qq! var tz_cookie = { name: '$tz_cookie', expires: 14, path: '/' };\n!. # in days
				4267	qq! onloadTZSetup('$jstimezone', tz_cookie, '$datetime_class');\n!;
				4268	}
				4269	print qq!};\n!.
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4270	qq!</script>\n!;
				4271	}
				4272
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4273	print "</body>\n" .
Kay Sievers	9cd3d98	2005-08-07 20:17:42 +0200	[diff] [blame]	4274	"</html>";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4275	}
				4276
Jakub Narebski	453541f	2010-02-07 21:51:18 +0100	[diff] [blame]	4277	# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4278	# Example: die_error(404, 'Hash not found')
				4279	# By convention, use the following status codes (as defined in RFC 2616):
				4280	# 400: Invalid or missing CGI parameters, or
				4281	# requested object exists but has wrong type.
				4282	# 403: Requested feature (like "pickaxe" or "snapshot") not enabled on
				4283	# this server or project.
				4284	# 404: Requested object/revision/project doesn't exist.
				4285	# 500: The server isn't configured properly, or
				4286	# an internal error occurred (e.g. failed assertions caused by bugs), or
				4287	# an unknown error occurred (e.g. the git binary died unexpectedly).
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4288	# 503: The server is currently unavailable (because it is overloaded,
				4289	# or down for maintenance). Generally, this is a temporary state.
Kay Sievers	061cc7c	2005-08-07 20:15:57 +0200	[diff] [blame]	4290	sub die_error {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4291	my $status = shift \|\| 500;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	4292	my $error = esc_html(shift) \|\| "Internal Server Error";
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4293	my $extra = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4294	my %opts = @_;
Kay Sievers	664f4cc	2005-08-07 20:17:19 +0200	[diff] [blame]	4295
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4296	my %http_responses = (
				4297	400 => '400 Bad Request',
				4298	403 => '403 Forbidden',
				4299	404 => '404 Not Found',
				4300	500 => '500 Internal Server Error',
				4301	503 => '503 Service Unavailable',
				4302	);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4303	git_header_html($http_responses{$status}, undef, %opts);
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4304	print <<EOF;
				4305	<div class="page_body">
				4306	<br /><br />
				4307	$status - $error
				4308	<br />
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4309	EOF
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4310	if (defined $extra) {
				4311	print "<hr />\n" .
				4312	"$extra\n";
				4313	}
				4314	print "</div>\n";
				4315
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4316	git_footer_html();
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4317	goto DONE_GITWEB
				4318	unless ($opts{'-error_handler'});
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4319	}
				4320
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4321	## ----------------------------------------------------------------------
				4322	## functions printing or outputting HTML: navigation
				4323
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4324	sub git_print_page_nav {
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4325	my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
				4326	$extra = '' if !defined $extra; # pager or formats
				4327
				4328	my @navs = qw(summary shortlog log commit commitdiff tree);
				4329	if ($suppress) {
				4330	@navs = grep { $_ ne $suppress } @navs;
				4331	}
				4332
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4333	my %arg = map { $_ => {action=>$_} } @navs;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4334	if (defined $head) {
				4335	for (qw(commit commitdiff)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4336	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4337	}
				4338	if ($current =~ m/^(tree \| log \| shortlog \| commit \| commitdiff \| search)$/x) {
				4339	for (qw(shortlog log)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4340	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4341	}
				4342	}
				4343	}
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4344
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4345	$arg{'tree'}{'hash'} = $treehead if defined $treehead;
				4346	$arg{'tree'}{'hash_base'} = $treebase if defined $treebase;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4347
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	4348	my @actions = gitweb_get_feature('actions');
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4349	my %repl = (
				4350	'%' => '%',
				4351	'n' => $project, # project name
				4352	'f' => $git_dir, # project path within filesystem
				4353	'h' => $treehead \|\| '', # current hash ('h' parameter)
				4354	'b' => $treebase \|\| '', # hash base ('hb' parameter)
				4355	);
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4356	while (@actions) {
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4357	my ($label, $link, $pos) = splice(@actions,0,3);
				4358	# insert
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4359	@navs = map { $_ eq $pos ? ($_, $label) : $_ } @navs;
				4360	# munch munch
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4361	$link =~ s/%([%nfhb])/$repl{$1}/g;
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4362	$arg{$label}{'_href'} = $link;
				4363	}
				4364
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4365	print "<div class=\"page_nav\">\n" .
				4366	(join " \| ",
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4367	map { $_ eq $current ?
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4368	$_ : $cgi->a({-href => ($arg{$_}{_href} ? $arg{$_}{_href} : href(%{$arg{$_}}))}, "$_")
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4369	} @navs);
Jakub Narebski	898a893	2006-07-30 16:14:43 +0200	[diff] [blame]	4370	print "<br/>\n$extra<br/>\n" .
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4371	"</div>\n";
				4372	}
				4373
Ville Skyttä	6412757	2017-06-25 13:20:41 +0300	[diff] [blame]	4374	# returns a submenu for the navigation of the refs views (tags, heads,
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	4375	# remotes) with the current view disabled and the remotes view only
				4376	# available if the feature is enabled
				4377	sub format_ref_views {
				4378	my ($current) = @_;
				4379	my @ref_views = qw{tags heads};
				4380	push @ref_views, 'remotes' if gitweb_check_feature('remote_heads');
				4381	return join " \| ", map {
				4382	$_ eq $current ? $_ :
				4383	$cgi->a({-href => href(action=>$_)}, $_)
				4384	} @ref_views
				4385	}
				4386
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4387	sub format_paging_nav {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4388	my ($action, $page, $has_next_link) = @_;
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4389	my $paging_nav;
				4390
				4391
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4392	if ($page > 0) {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4393	$paging_nav .=
				4394	$cgi->a({-href => href(-replay=>1, page=>undef)}, "first") .
				4395	" ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4396	$cgi->a({-href => href(-replay=>1, page=>$page-1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4397	-accesskey => "p", -title => "Alt-p"}, "prev");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4398	} else {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4399	$paging_nav .= "first ⋅ prev";
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4400	}
				4401
Lea Wiemann	1f684dc	2008-05-28 01:25:42 +0200	[diff] [blame]	4402	if ($has_next_link) {
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4403	$paging_nav .= " ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4404	$cgi->a({-href => href(-replay=>1, page=>$page+1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4405	-accesskey => "n", -title => "Alt-n"}, "next");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4406	} else {
				4407	$paging_nav .= " ⋅ next";
				4408	}
				4409
				4410	return $paging_nav;
				4411	}
				4412
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4413	## ......................................................................
				4414	## functions printing or outputting HTML: div
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4415
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4416	sub git_print_header_div {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4417	my ($action, $title, $hash, $hash_base) = @_;
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4418	my %args = ();
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4419
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4420	$args{'action'} = $action;
				4421	$args{'hash'} = $hash if $hash;
				4422	$args{'hash_base'} = $hash_base if $hash_base;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4423
				4424	print "<div class=\"header\">\n" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4425	$cgi->a({-href => href(%args), -class => "title"},
				4426	$title ? $title : $action) .
				4427	"\n</div>\n";
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4428	}
				4429
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	4430	sub format_repo_url {
				4431	my ($name, $url) = @_;
				4432	return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
				4433	}
				4434
Giuseppe Bilotta	b891d52	2010-11-11 13:26:16 +0100	[diff] [blame]	4435	# Group output by placing it in a DIV element and adding a header.
				4436	# Options for start_div() can be provided by passing a hash reference as the
				4437	# first parameter to the function.
				4438	# Options to git_print_header_div() can be provided by passing an array
				4439	# reference. This must follow the options to start_div if they are present.
				4440	# The content can be a scalar, which is output as-is, a scalar reference, which
				4441	# is output after html escaping, an IO handle passed either as *handle or
				4442	# *handle{IO}, or a function reference. In the latter case all following
				4443	# parameters will be taken as argument to the content function call.
				4444	sub git_print_section {
				4445	my ($div_args, $header_args, $content);
				4446	my $arg = shift;
				4447	if (ref($arg) eq 'HASH') {
				4448	$div_args = $arg;
				4449	$arg = shift;
				4450	}
				4451	if (ref($arg) eq 'ARRAY') {
				4452	$header_args = $arg;
				4453	$arg = shift;
				4454	}
				4455	$content = $arg;
				4456
				4457	print $cgi->start_div($div_args);
				4458	git_print_header_div(@$header_args);
				4459
				4460	if (ref($content) eq 'CODE') {
				4461	$content->(@_);
				4462	} elsif (ref($content) eq 'SCALAR') {
				4463	print esc_html($$content);
				4464	} elsif (ref($content) eq 'GLOB' or ref($content) eq 'IO::Handle') {
				4465	print <$content>;
				4466	} elsif (!ref($content) && defined($content)) {
				4467	print $content;
				4468	}
				4469
				4470	print $cgi->end_div;
				4471	}
				4472
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4473	sub format_timestamp_html {
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4474	my $date = shift;
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4475	my $strtime = $date->{'rfc2822'};
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4476
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4477	my (undef, undef, $datetime_class) =
				4478	gitweb_get_feature('javascript-timezone');
				4479	if ($datetime_class) {
				4480	$strtime = qq!<span class="$datetime_class">$strtime</span>!;
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4481	}
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4482
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4483	my $localtime_format = '(%02d:%02d %s)';
				4484	if ($date->{'hour_local'} < 6) {
				4485	$localtime_format = '(<span class="atnight">%02d:%02d</span> %s)';
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4486	}
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4487	$strtime .= ' ' .
				4488	sprintf($localtime_format,
				4489	$date->{'hour_local'}, $date->{'minute_local'}, $date->{'tz_local'});
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4490
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4491	return $strtime;
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4492	}
				4493
				4494	# Outputs the author name and date in long form
				4495	sub git_print_authorship {
				4496	my $co = shift;
				4497	my %opts = @_;
				4498	my $tag = $opts{-tag} \|\| 'div';
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4499	my $author = $co->{'author_name'};
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4500
				4501	my %ad = parse_date($co->{'author_epoch'}, $co->{'author_tz'});
				4502	print "<$tag class=\"author_date\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4503	format_search_author($author, "author", esc_html($author)) .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4504	" [".format_timestamp_html(\%ad)."]".
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4505	git_get_avatar($co->{'author_email'}, -pad_before => 1) .
				4506	"</$tag>\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4507	}
				4508
				4509	# Outputs table rows containing the full author or committer information,
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4510	# in the format expected for 'commit' view (& similar).
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4511	# Parameters are a commit hash reference, followed by the list of people
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4512	# 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]	4513	# author and committer.
				4514	sub git_print_authorship_rows {
				4515	my $co = shift;
				4516	# too bad we can't use @people = @_ \|\| ('author', 'committer')
				4517	my @people = @_;
				4518	@people = ('author', 'committer') unless @people;
				4519	foreach my $who (@people) {
				4520	my %wd = parse_date($co->{"${who}_epoch"}, $co->{"${who}_tz"});
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4521	print "<tr><td>$who</td><td>" .
				4522	format_search_author($co->{"${who}_name"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4523	esc_html($co->{"${who}_name"})) . " " .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4524	format_search_author($co->{"${who}_email"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4525	esc_html("<" . $co->{"${who}_email"} . ">")) .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4526	"</td><td rowspan=\"2\">" .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	4527	git_get_avatar($co->{"${who}_email"}, -size => 'double') .
				4528	"</td></tr>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4529	"<tr>" .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4530	"<td></td><td>" .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4531	format_timestamp_html(\%wd) .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4532	"</td>" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4533	"</tr>\n";
				4534	}
Jakub Narebski	6fd92a2	2006-08-28 14:48:12 +0200	[diff] [blame]	4535	}
				4536
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4537	sub git_print_page_path {
				4538	my $name = shift;
				4539	my $type = shift;
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4540	my $hb = shift;
Junio C Hamano	df2c37a	2006-01-09 13:13:39 +0100	[diff] [blame]	4541
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4542
				4543	print "<div class=\"page_path\">";
				4544	print $cgi->a({-href => href(action=>"tree", hash_base=>$hb),
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	4545	-title => 'tree root'}, to_utf8("[$project]"));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4546	print " / ";
				4547	if (defined $name) {
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4548	my @dirname = split '/', $name;
				4549	my $basename = pop @dirname;
				4550	my $fullname = '';
				4551
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4552	foreach my $dir (@dirname) {
Petr Baudis	16fdb48	2006-09-21 02:05:50 +0200	[diff] [blame]	4553	$fullname .= ($fullname ? '/' : '') . $dir;
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4554	print $cgi->a({-href => href(action=>"tree", file_name=>$fullname,
				4555	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4556	-title => $fullname}, esc_path($dir));
Petr Baudis	26d0a97	2006-09-23 01:00:12 +0200	[diff] [blame]	4557	print " / ";
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4558	}
				4559	if (defined $type && $type eq 'blob') {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4560	print $cgi->a({-href => href(action=>"blob_plain", file_name=>$file_name,
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4561	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4562	-title => $name}, esc_path($basename));
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4563	} elsif (defined $type && $type eq 'tree') {
				4564	print $cgi->a({-href => href(action=>"tree", file_name=>$file_name,
				4565	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4566	-title => $name}, esc_path($basename));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4567	print " / ";
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4568	} else {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4569	print esc_path($basename);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4570	}
Kay Sievers	8ed23e1	2005-08-07 20:05:44 +0200	[diff] [blame]	4571	}
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4572	print "<br/></div>\n";
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4573	}
				4574
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	4575	sub git_print_log {
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4576	my $log = shift;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4577	my %opts = @_;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4578
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4579	if ($opts{'-remove_title'}) {
				4580	# remove title, i.e. first line of log
				4581	shift @$log;
				4582	}
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4583	# remove leading empty lines
				4584	while (defined $log->[0] && $log->[0] eq "") {
				4585	shift @$log;
				4586	}
				4587
				4588	# print log
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4589	my $skip_blank_line = 0;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4590	foreach my $line (@$log) {
Namhyung Kim	3d1110a	2012-07-04 11:47:25 +0900	[diff] [blame]	4591	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]	4592	if (! $opts{'-remove_signoff'}) {
				4593	print "<span class=\"signoff\">" . esc_html($line) . "</span><br/>\n";
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4594	$skip_blank_line = 1;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4595	}
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4596	next;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4597	}
				4598
Namhyung Kim	66c857e	2012-07-04 11:47:26 +0900	[diff] [blame]	4599	if ($line =~ m,\s([a-z]link): (https?://\S+),i) {
				4600	if (! $opts{'-remove_signoff'}) {
				4601	print "<span class=\"signoff\">" . esc_html($1) . ": " .
				4602	"<a href=\"" . esc_html($2) . "\">" . esc_html($2) . "</a>" .
				4603	"</span><br/>\n";
				4604	$skip_blank_line = 1;
				4605	}
				4606	next;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4607	}
				4608
				4609	# print only one empty line
				4610	# do not print empty line after signoff
				4611	if ($line eq "") {
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4612	next if ($skip_blank_line);
				4613	$skip_blank_line = 1;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4614	} else {
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4615	$skip_blank_line = 0;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4616	}
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4617
				4618	print format_log_line_html($line) . "<br/>\n";
				4619	}
				4620
				4621	if ($opts{'-final_empty_line'}) {
				4622	# end with single empty line
Namhyung Kim	5a45c0c	2012-07-04 11:47:24 +0900	[diff] [blame]	4623	print "<br/>\n" unless $skip_blank_line;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4624	}
				4625	}
				4626
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4627	# return link target (what link points to)
				4628	sub git_get_link_target {
				4629	my $hash = shift;
				4630	my $link_target;
				4631
				4632	# read link
				4633	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
				4634	or return;
				4635	{
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	4636	local $/ = undef;
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4637	$link_target = <$fd>;
				4638	}
				4639	close $fd
				4640	or return;
				4641
				4642	return $link_target;
				4643	}
				4644
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4645	# given link target, and the directory (basedir) the link is in,
				4646	# return target of link relative to top directory (top tree);
				4647	# return undef if it is not possible (including absolute links).
				4648	sub normalize_link_target {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4649	my ($link_target, $basedir) = @_;
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4650
				4651	# absolute symlinks (beginning with '/') cannot be normalized
				4652	return if (substr($link_target, 0, 1) eq '/');
				4653
				4654	# normalize link target to path from top (root) tree (dir)
				4655	my $path;
				4656	if ($basedir) {
				4657	$path = $basedir . '/' . $link_target;
				4658	} else {
				4659	# we are in top (root) tree (dir)
				4660	$path = $link_target;
				4661	}
				4662
				4663	# remove //, /./, and /../
				4664	my @path_parts;
				4665	foreach my $part (split('/', $path)) {
				4666	# discard '.' and ''
				4667	next if (!$part \|\| $part eq '.');
				4668	# handle '..'
				4669	if ($part eq '..') {
				4670	if (@path_parts) {
				4671	pop @path_parts;
				4672	} else {
				4673	# link leads outside repository (outside top dir)
				4674	return;
				4675	}
				4676	} else {
				4677	push @path_parts, $part;
				4678	}
				4679	}
				4680	$path = join('/', @path_parts);
				4681
				4682	return $path;
				4683	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4684
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4685	# print tree entry (row of git_tree), but without encompassing <tr> element
				4686	sub git_print_tree_entry {
				4687	my ($t, $basedir, $hash_base, $have_blame) = @_;
				4688
				4689	my %base_key = ();
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4690	$base_key{'hash_base'} = $hash_base if defined $hash_base;
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4691
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4692	# The format of a table row is: mode list link. Where mode is
				4693	# the mode of the entry, list is the name of the entry, an href,
				4694	# and link is the action links of the entry.
				4695
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4696	print "<td class=\"mode\">" . mode_str($t->{'mode'}) . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4697	if (exists $t->{'size'}) {
				4698	print "<td class=\"size\">$t->{'size'}</td>\n";
				4699	}
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4700	if ($t->{'type'} eq "blob") {
				4701	print "<td class=\"list\">" .
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4702	$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4703	file_name=>"$basedir$t->{'name'}", %base_key),
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4704	-class => "list"}, esc_path($t->{'name'}));
				4705	if (S_ISLNK(oct $t->{'mode'})) {
				4706	my $link_target = git_get_link_target($t->{'hash'});
				4707	if ($link_target) {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4708	my $norm_target = normalize_link_target($link_target, $basedir);
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4709	if (defined $norm_target) {
				4710	print " -> " .
				4711	$cgi->a({-href => href(action=>"object", hash_base=>$hash_base,
				4712	file_name=>$norm_target),
				4713	-title => $norm_target}, esc_path($link_target));
				4714	} else {
				4715	print " -> " . esc_path($link_target);
				4716	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4717	}
				4718	}
				4719	print "</td>\n";
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4720	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4721	print $cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4722	file_name=>"$basedir$t->{'name'}", %base_key)},
				4723	"blob");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4724	if ($have_blame) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4725	print " \| " .
				4726	$cgi->a({-href => href(action=>"blame", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4727	file_name=>"$basedir$t->{'name'}", %base_key)},
				4728	"blame");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4729	}
				4730	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4731	print " \| " .
				4732	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4733	hash=>$t->{'hash'}, file_name=>"$basedir$t->{'name'}")},
				4734	"history");
				4735	}
				4736	print " \| " .
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	4737	$cgi->a({-href => href(action=>"blob_plain", hash_base=>$hash_base,
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4738	file_name=>"$basedir$t->{'name'}")},
				4739	"raw");
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4740	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4741
				4742	} elsif ($t->{'type'} eq "tree") {
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4743	print "<td class=\"list\">";
				4744	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4745	file_name=>"$basedir$t->{'name'}",
				4746	%base_key)},
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4747	esc_path($t->{'name'}));
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4748	print "</td>\n";
				4749	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4750	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4751	file_name=>"$basedir$t->{'name'}",
				4752	%base_key)},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4753	"tree");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4754	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4755	print " \| " .
				4756	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4757	file_name=>"$basedir$t->{'name'}")},
				4758	"history");
				4759	}
				4760	print "</td>\n";
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	4761	} else {
				4762	# unknown object: we can only present history for it
				4763	# (this includes 'commit' object, i.e. submodule support)
				4764	print "<td class=\"list\">" .
				4765	esc_path($t->{'name'}) .
				4766	"</td>\n";
				4767	print "<td class=\"link\">";
				4768	if (defined $hash_base) {
				4769	print $cgi->a({-href => href(action=>"history",
				4770	hash_base=>$hash_base,
				4771	file_name=>"$basedir$t->{'name'}")},
				4772	"history");
				4773	}
				4774	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4775	}
				4776	}
				4777
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4778	## ......................................................................
				4779	## functions printing large fragments of HTML
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	4780
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4781	# get pre-image filenames for merge (combined) diff
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4782	sub fill_from_file_info {
				4783	my ($diff, @parents) = @_;
				4784
				4785	$diff->{'from_file'} = [ ];
				4786	$diff->{'from_file'}[$diff->{'nparents'} - 1] = undef;
				4787	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
				4788	if ($diff->{'status'}[$i] eq 'R' \|\|
				4789	$diff->{'status'}[$i] eq 'C') {
				4790	$diff->{'from_file'}[$i] =
				4791	git_get_path_by_hash($parents[$i], $diff->{'from_id'}[$i]);
				4792	}
				4793	}
				4794
				4795	return $diff;
				4796	}
				4797
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4798	# is current raw difftree line of file deletion
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4799	sub is_deleted {
				4800	my $diffinfo = shift;
				4801
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	4802	return $diffinfo->{'to_id'} eq ('0' x 40);
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4803	}
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4804
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4805	# does patch correspond to [previous] difftree raw line
				4806	# $diffinfo - hashref of parsed raw diff format
				4807	# $patchinfo - hashref of parsed patch diff format
				4808	# (the same keys as in $diffinfo)
				4809	sub is_patch_split {
				4810	my ($diffinfo, $patchinfo) = @_;
				4811
				4812	return defined $diffinfo && defined $patchinfo
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	4813	&& $diffinfo->{'to_file'} eq $patchinfo->{'to_file'};
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4814	}
				4815
				4816
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4817	sub git_difftree_body {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4818	my ($difftree, $hash, @parents) = @_;
				4819	my ($parent) = $parents[0];
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4820	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4821	print "<div class=\"list_head\">\n";
				4822	if ($#{$difftree} > 10) {
				4823	print(($#{$difftree} + 1) . " files changed:\n");
				4824	}
				4825	print "</div>\n";
				4826
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4827	print "<table class=\"" .
				4828	(@parents > 1 ? "combined " : "") .
				4829	"diff_tree\">\n";
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4830
				4831	# header only for combined diff in 'commitdiff' view
Jakub Narebski	3ef408a	2007-09-08 21:54:28 +0200	[diff] [blame]	4832	my $has_header = @$difftree && @parents > 1 && $action eq 'commitdiff';
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4833	if ($has_header) {
				4834	# table header
				4835	print "<thead><tr>\n" .
				4836	"<th></th><th></th>\n"; # filename, patchN link
				4837	for (my $i = 0; $i < @parents; $i++) {
				4838	my $par = $parents[$i];
				4839	print "<th>" .
				4840	$cgi->a({-href => href(action=>"commitdiff",
				4841	hash=>$hash, hash_parent=>$par),
				4842	-title => 'commitdiff to parent number ' .
				4843	($i+1) . ': ' . substr($par,0,7)},
				4844	$i+1) .
				4845	" </th>\n";
				4846	}
				4847	print "</tr></thead>\n<tbody>\n";
				4848	}
				4849
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	4850	my $alternate = 1;
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4851	my $patchno = 0;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4852	foreach my $line (@{$difftree}) {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4853	my $diff = parsed_difftree_line($line);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4854
				4855	if ($alternate) {
				4856	print "<tr class=\"dark\">\n";
				4857	} else {
				4858	print "<tr class=\"light\">\n";
				4859	}
				4860	$alternate ^= 1;
				4861
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4862	if (exists $diff->{'nparents'}) { # combined diff
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4863
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4864	fill_from_file_info($diff, @parents)
				4865	unless exists $diff->{'from_file'};
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4866
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4867	if (!is_deleted($diff)) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4868	# file exists in the result (child) commit
				4869	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4870	$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4871	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4872	hash_base=>$hash),
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4873	-class => "list"}, esc_path($diff->{'to_file'})) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4874	"</td>\n";
				4875	} else {
				4876	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4877	esc_path($diff->{'to_file'}) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4878	"</td>\n";
				4879	}
				4880
				4881	if ($action eq 'commitdiff') {
				4882	# link to patch
				4883	$patchno++;
				4884	print "<td class=\"link\">" .
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4885	$cgi->a({-href => href(-anchor=>"patch$patchno")},
				4886	"patch") .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4887	" \| " .
				4888	"</td>\n";
				4889	}
				4890
				4891	my $has_history = 0;
				4892	my $not_deleted = 0;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4893	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4894	my $hash_parent = $parents[$i];
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4895	my $from_hash = $diff->{'from_id'}[$i];
				4896	my $from_path = $diff->{'from_file'}[$i];
				4897	my $status = $diff->{'status'}[$i];
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4898
				4899	$has_history \|\|= ($status ne 'A');
				4900	$not_deleted \|\|= ($status ne 'D');
				4901
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4902	if ($status eq 'A') {
				4903	print "<td class=\"link\" align=\"right\"> \| </td>\n";
				4904	} elsif ($status eq 'D') {
				4905	print "<td class=\"link\">" .
				4906	$cgi->a({-href => href(action=>"blob",
				4907	hash_base=>$hash,
				4908	hash=>$from_hash,
				4909	file_name=>$from_path)},
				4910	"blob" . ($i+1)) .
				4911	" \| </td>\n";
				4912	} else {
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4913	if ($diff->{'to_id'} eq $from_hash) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4914	print "<td class=\"link nochange\">";
				4915	} else {
				4916	print "<td class=\"link\">";
				4917	}
				4918	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4919	hash=>$diff->{'to_id'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4920	hash_parent=>$from_hash,
				4921	hash_base=>$hash,
				4922	hash_parent_base=>$hash_parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4923	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4924	file_parent=>$from_path)},
				4925	"diff" . ($i+1)) .
				4926	" \| </td>\n";
				4927	}
				4928	}
				4929
				4930	print "<td class=\"link\">";
				4931	if ($not_deleted) {
				4932	print $cgi->a({-href => href(action=>"blob",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4933	hash=>$diff->{'to_id'},
				4934	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4935	hash_base=>$hash)},
				4936	"blob");
				4937	print " \| " if ($has_history);
				4938	}
				4939	if ($has_history) {
				4940	print $cgi->a({-href => href(action=>"history",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4941	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4942	hash_base=>$hash)},
				4943	"history");
				4944	}
				4945	print "</td>\n";
				4946
				4947	print "</tr>\n";
				4948	next; # instead of 'else' clause, to avoid extra indent
				4949	}
				4950	# else ordinary diff
				4951
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4952	my ($to_mode_oct, $to_mode_str, $to_file_type);
				4953	my ($from_mode_oct, $from_mode_str, $from_file_type);
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4954	if ($diff->{'to_mode'} ne ('0' x 6)) {
				4955	$to_mode_oct = oct $diff->{'to_mode'};
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4956	if (S_ISREG($to_mode_oct)) { # only for regular file
				4957	$to_mode_str = sprintf("%04o", $to_mode_oct & 0777); # permission bits
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4958	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4959	$to_file_type = file_type($diff->{'to_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4960	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4961	if ($diff->{'from_mode'} ne ('0' x 6)) {
				4962	$from_mode_oct = oct $diff->{'from_mode'};
Ævar Arnfjörð Bjarmason	98885c2	2011-02-19 15:27:42 +0000	[diff] [blame]	4963	if (S_ISREG($from_mode_oct)) { # only for regular file
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4964	$from_mode_str = sprintf("%04o", $from_mode_oct & 0777); # permission bits
				4965	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4966	$from_file_type = file_type($diff->{'from_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4967	}
				4968
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4969	if ($diff->{'status'} eq "A") { # created
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4970	my $mode_chng = "<span class=\"file_status new\">[new $to_file_type";
				4971	$mode_chng .= " with mode: $to_mode_str" if $to_mode_str;
				4972	$mode_chng .= "]</span>";
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4973	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4974	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4975	hash_base=>$hash, file_name=>$diff->{'file'}),
				4976	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4977	print "</td>\n";
				4978	print "<td>$mode_chng</td>\n";
				4979	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4980	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4981	# link to patch
				4982	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4983	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4984	"patch") .
				4985	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4986	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4987	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4988	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	3faa541	2007-01-08 02:10:42 +0100	[diff] [blame]	4989	"blob");
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4990	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4991
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4992	} elsif ($diff->{'status'} eq "D") { # deleted
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4993	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]	4994	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4995	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4996	hash_base=>$parent, file_name=>$diff->{'file'}),
				4997	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4998	print "</td>\n";
				4999	print "<td>$mode_chng</td>\n";
				5000	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	5001	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	5002	# link to patch
				5003	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	5004	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				5005	"patch") .
				5006	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +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->{'from_id'},
				5009	hash_base=>$parent, file_name=>$diff->{'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=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5013	file_name=>$diff->{'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	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	5016	print $cgi->a({-href => href(action=>"history", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5017	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	5018	"history");
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	5019	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5020
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5021	} 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]	5022	my $mode_chnge = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5023	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5024	$mode_chnge = "<span class=\"file_status mode_chnge\">[changed";
Jakub Narebski	6e72cf4	2007-01-03 20:47:24 +0100	[diff] [blame]	5025	if ($from_file_type ne $to_file_type) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5026	$mode_chnge .= " from $from_file_type to $to_file_type";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5027	}
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5028	if (($from_mode_oct & 0777) != ($to_mode_oct & 0777)) {
				5029	if ($from_mode_str && $to_mode_str) {
				5030	$mode_chnge .= " mode: $from_mode_str->$to_mode_str";
				5031	} elsif ($to_mode_str) {
				5032	$mode_chnge .= " mode: $to_mode_str";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5033	}
				5034	}
				5035	$mode_chnge .= "]</span>\n";
				5036	}
				5037	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5038	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				5039	hash_base=>$hash, file_name=>$diff->{'file'}),
				5040	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	5041	print "</td>\n";
				5042	print "<td>$mode_chnge</td>\n";
				5043	print "<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5044	if ($action eq 'commitdiff') {
				5045	# link to patch
				5046	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	5047	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				5048	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5049	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5050	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5051	# "commit" view and modified file (not onlu mode changed)
				5052	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5053	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5054	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5055	file_name=>$diff->{'file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5056	"diff") .
				5057	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5058	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5059	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				5060	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5061	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5062	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5063	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5064	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5065	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5066	}
Luben Tuikov	eb51ec9	2006-09-27 17:24:49 -0700	[diff] [blame]	5067	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5068	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	5069	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5070	print "</td>\n";
				5071
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5072	} elsif ($diff->{'status'} eq "R" \|\| $diff->{'status'} eq "C") { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5073	my %status_name = ('R' => 'moved', 'C' => 'copied');
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5074	my $nstatus = $status_name{$diff->{'status'}};
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5075	my $mode_chng = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5076	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5077	# mode also for directories, so we cannot use $to_mode_str
				5078	$mode_chng = sprintf(", mode: %04o", $to_mode_oct & 0777);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5079	}
				5080	print "<td>" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5081	$cgi->a({-href => href(action=>"blob", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5082	hash=>$diff->{'to_id'}, file_name=>$diff->{'to_file'}),
				5083	-class => "list"}, esc_path($diff->{'to_file'})) . "</td>\n" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	5084	"<td><span class=\"file_status $nstatus\">[$nstatus from " .
				5085	$cgi->a({-href => href(action=>"blob", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5086	hash=>$diff->{'from_id'}, file_name=>$diff->{'from_file'}),
				5087	-class => "list"}, esc_path($diff->{'from_file'})) .
				5088	" with " . (int $diff->{'similarity'}) . "% similarity$mode_chng]</span></td>\n" .
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	5089	"<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5090	if ($action eq 'commitdiff') {
				5091	# link to patch
				5092	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	5093	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				5094	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5095	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5096	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5097	# "commit" view and modified file (not only pure rename or copy)
				5098	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5099	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5100	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5101	file_name=>$diff->{'to_file'}, file_parent=>$diff->{'from_file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	5102	"diff") .
				5103	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5104	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5105	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				5106	hash_base=>$parent, file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5107	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5108	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5109	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5110	file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5111	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	5112	}
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	5113	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	5114	file_name=>$diff->{'to_file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	5115	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5116	print "</td>\n";
				5117
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5118	} # we should not encounter Unmerged (U) or Unknown (X) status
				5119	print "</tr>\n";
				5120	}
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	5121	print "</tbody>" if $has_header;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	5122	print "</table>\n";
				5123	}
				5124
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5125	# Print context lines and then rem/add lines in a side-by-side manner.
				5126	sub print_sidebyside_diff_lines {
				5127	my ($ctx, $rem, $add) = @_;
				5128
				5129	# print context block before add/rem block
				5130	if (@$ctx) {
				5131	print join '',
				5132	'<div class="chunk_block ctx">',
				5133	'<div class="old">',
				5134	@$ctx,
				5135	'</div>',
				5136	'<div class="new">',
				5137	@$ctx,
				5138	'</div>',
				5139	'</div>';
				5140	}
				5141
				5142	if (!@$add) {
				5143	# pure removal
				5144	print join '',
				5145	'<div class="chunk_block rem">',
				5146	'<div class="old">',
				5147	@$rem,
				5148	'</div>',
				5149	'</div>';
				5150	} elsif (!@$rem) {
				5151	# pure addition
				5152	print join '',
				5153	'<div class="chunk_block add">',
				5154	'<div class="new">',
				5155	@$add,
				5156	'</div>',
				5157	'</div>';
				5158	} else {
				5159	print join '',
				5160	'<div class="chunk_block chg">',
				5161	'<div class="old">',
				5162	@$rem,
				5163	'</div>',
				5164	'<div class="new">',
				5165	@$add,
				5166	'</div>',
				5167	'</div>';
				5168	}
				5169	}
				5170
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5171	# Print context lines and then rem/add lines in inline manner.
				5172	sub print_inline_diff_lines {
				5173	my ($ctx, $rem, $add) = @_;
				5174
				5175	print @$ctx, @$rem, @$add;
				5176	}
				5177
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5178	# Format removed and added line, mark changed part and HTML-format them.
				5179	# Implementation is based on contrib/diff-highlight
				5180	sub format_rem_add_lines_pair {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5181	my ($rem, $add, $num_parents) = @_;
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5182
				5183	# We need to untabify lines before split()'ing them;
				5184	# otherwise offsets would be invalid.
				5185	chomp $rem;
				5186	chomp $add;
				5187	$rem = untabify($rem);
				5188	$add = untabify($add);
				5189
				5190	my @rem = split(//, $rem);
				5191	my @add = split(//, $add);
				5192	my ($esc_rem, $esc_add);
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5193	# Ignore leading +/- characters for each parent.
				5194	my ($prefix_len, $suffix_len) = ($num_parents, 0);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5195	my ($prefix_has_nonspace, $suffix_has_nonspace);
				5196
				5197	my $shorter = (@rem < @add) ? @rem : @add;
				5198	while ($prefix_len < $shorter) {
				5199	last if ($rem[$prefix_len] ne $add[$prefix_len]);
				5200
				5201	$prefix_has_nonspace = 1 if ($rem[$prefix_len] !~ /\s/);
				5202	$prefix_len++;
				5203	}
				5204
				5205	while ($prefix_len + $suffix_len < $shorter) {
				5206	last if ($rem[-1 - $suffix_len] ne $add[-1 - $suffix_len]);
				5207
				5208	$suffix_has_nonspace = 1 if ($rem[-1 - $suffix_len] !~ /\s/);
				5209	$suffix_len++;
				5210	}
				5211
				5212	# Mark lines that are different from each other, but have some common
				5213	# part that isn't whitespace. If lines are completely different, don't
				5214	# mark them because that would make output unreadable, especially if
				5215	# diff consists of multiple lines.
				5216	if ($prefix_has_nonspace \|\| $suffix_has_nonspace) {
				5217	$esc_rem = esc_html_hl_regions($rem, 'marked',
				5218	[$prefix_len, @rem - $suffix_len], -nbsp=>1);
				5219	$esc_add = esc_html_hl_regions($add, 'marked',
				5220	[$prefix_len, @add - $suffix_len], -nbsp=>1);
				5221	} else {
				5222	$esc_rem = esc_html($rem, -nbsp=>1);
				5223	$esc_add = esc_html($add, -nbsp=>1);
				5224	}
				5225
				5226	return format_diff_line(\$esc_rem, 'rem'),
				5227	format_diff_line(\$esc_add, 'add');
				5228	}
				5229
				5230	# HTML-format diff context, removed and added lines.
				5231	sub format_ctx_rem_add_lines {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5232	my ($ctx, $rem, $add, $num_parents) = @_;
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5233	my (@new_ctx, @new_rem, @new_add);
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5234	my $can_highlight = 0;
				5235	my $is_combined = ($num_parents > 1);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5236
				5237	# Highlight if every removed line has a corresponding added line.
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5238	if (@$add > 0 && @$add == @$rem) {
				5239	$can_highlight = 1;
				5240
				5241	# Highlight lines in combined diff only if the chunk contains
				5242	# diff between the same version, e.g.
				5243	#
				5244	# - a
				5245	# - b
				5246	# + c
				5247	# + d
				5248	#
				5249	# Otherwise the highlightling would be confusing.
				5250	if ($is_combined) {
				5251	for (my $i = 0; $i < @$add; $i++) {
				5252	my $prefix_rem = substr($rem->[$i], 0, $num_parents);
				5253	my $prefix_add = substr($add->[$i], 0, $num_parents);
				5254
				5255	$prefix_rem =~ s/-/+/g;
				5256
				5257	if ($prefix_rem ne $prefix_add) {
				5258	$can_highlight = 0;
				5259	last;
				5260	}
				5261	}
				5262	}
				5263	}
				5264
				5265	if ($can_highlight) {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5266	for (my $i = 0; $i < @$add; $i++) {
				5267	my ($line_rem, $line_add) = format_rem_add_lines_pair(
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5268	$rem->[$i], $add->[$i], $num_parents);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5269	push @new_rem, $line_rem;
				5270	push @new_add, $line_add;
				5271	}
				5272	} else {
				5273	@new_rem = map { format_diff_line($_, 'rem') } @$rem;
				5274	@new_add = map { format_diff_line($_, 'add') } @$add;
				5275	}
				5276
				5277	@new_ctx = map { format_diff_line($_, 'ctx') } @$ctx;
				5278
				5279	return (\@new_ctx, \@new_rem, \@new_add);
				5280	}
				5281
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5282	# Print context lines and then rem/add lines.
				5283	sub print_diff_lines {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5284	my ($ctx, $rem, $add, $diff_style, $num_parents) = @_;
				5285	my $is_combined = $num_parents > 1;
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5286
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5287	($ctx, $rem, $add) = format_ctx_rem_add_lines($ctx, $rem, $add,
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5288	$num_parents);
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5289
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5290	if ($diff_style eq 'sidebyside' && !$is_combined) {
				5291	print_sidebyside_diff_lines($ctx, $rem, $add);
				5292	} else {
				5293	# default 'inline' style and unknown styles
				5294	print_inline_diff_lines($ctx, $rem, $add);
				5295	}
				5296	}
				5297
				5298	sub print_diff_chunk {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5299	my ($diff_style, $num_parents, $from, $to, @chunk) = @_;
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5300	my (@ctx, @rem, @add);
				5301
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5302	# The class of the previous line.
				5303	my $prev_class = '';
				5304
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5305	return unless @chunk;
				5306
				5307	# incomplete last line might be among removed or added lines,
				5308	# or both, or among context lines: find which
				5309	for (my $i = 1; $i < @chunk; $i++) {
				5310	if ($chunk[$i][0] eq 'incomplete') {
				5311	$chunk[$i][0] = $chunk[$i-1][0];
				5312	}
				5313	}
				5314
				5315	# guardian
				5316	push @chunk, ["", ""];
				5317
				5318	foreach my $line_info (@chunk) {
				5319	my ($class, $line) = @$line_info;
				5320
				5321	# print chunk headers
				5322	if ($class && $class eq 'chunk_header') {
Michał Kiedrowicz	5fb6ddf	2012-04-11 23:18:43 +0200	[diff] [blame]	5323	print format_diff_line($line, $class, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5324	next;
				5325	}
				5326
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5327	## print from accumulator when have some add/rem lines or end
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5328	# of chunk (flush context lines), or when have add and rem
				5329	# lines and new block is reached (otherwise add/rem lines could
				5330	# be reordered)
				5331	if (!$class \|\| ((@rem \|\| @add) && $class eq 'ctx') \|\|
				5332	(@rem && @add && $class ne $prev_class)) {
				5333	print_diff_lines(\@ctx, \@rem, \@add,
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5334	$diff_style, $num_parents);
Michał Kiedrowicz	d21102c	2012-04-11 23:18:40 +0200	[diff] [blame]	5335	@ctx = @rem = @add = ();
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5336	}
				5337
				5338	## adding lines to accumulator
				5339	# guardian value
				5340	last unless $line;
				5341	# rem, add or change
				5342	if ($class eq 'rem') {
				5343	push @rem, $line;
				5344	} elsif ($class eq 'add') {
				5345	push @add, $line;
				5346	}
				5347	# context line
				5348	if ($class eq 'ctx') {
				5349	push @ctx, $line;
				5350	}
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5351
				5352	$prev_class = $class;
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5353	}
				5354	}
				5355
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5356	sub git_patchset_body {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5357	my ($fd, $diff_style, $difftree, $hash, @hash_parents) = @_;
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	5358	my ($hash_parent) = $hash_parents[0];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5359
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5360	my $is_combined = (@hash_parents > 1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5361	my $patch_idx = 0;
Martin Koegler	4280cde	2007-04-22 22:49:25 -0700	[diff] [blame]	5362	my $patch_number = 0;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5363	my $patch_line;
Jakub Narebski	fe87585	2006-08-25 20:59:39 +0200	[diff] [blame]	5364	my $diffinfo;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5365	my $to_name;
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5366	my (%from, %to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5367	my @chunk; # for side-by-side diff
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5368
				5369	print "<div class=\"patchset\">\n";
				5370
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5371	# skip to first patch
				5372	while ($patch_line = <$fd>) {
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	5373	chomp $patch_line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5374
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5375	last if ($patch_line =~ m/^diff /);
				5376	}
				5377
				5378	PATCH:
				5379	while ($patch_line) {
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5380
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5381	# parse "git diff" header line
				5382	if ($patch_line =~ m/^diff --git (\"(?:[^\\\"](?:\\.[^\\\"]))\"\|[^ "]) (.*)$/) {
				5383	# $1 is from_name, which we do not use
				5384	$to_name = unquote($2);
				5385	$to_name =~ s!^b/!!;
				5386	} elsif ($patch_line =~ m/^diff --(cc\|combined) ("?.*"?)$/) {
				5387	# $1 is 'cc' or 'combined', which we do not use
				5388	$to_name = unquote($2);
				5389	} else {
				5390	$to_name = undef;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5391	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5392
				5393	# check if current patch belong to current raw line
				5394	# and parse raw git-diff line if needed
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5395	if (is_patch_split($diffinfo, { 'to_file' => $to_name })) {
Jakub Narebski	2206537	2007-05-12 12:42:32 +0200	[diff] [blame]	5396	# this is continuation of a split patch
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5397	print "<div class=\"patch cont\">\n";
				5398	} else {
				5399	# advance raw git-diff output if needed
				5400	$patch_idx++ if defined $diffinfo;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5401
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5402	# read and prepare patch information
				5403	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
				5404
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5405	# compact combined diff output can have some patches skipped
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5406	# find which patch (using pathname of result) we are at now;
				5407	if ($is_combined) {
				5408	while ($to_name ne $diffinfo->{'to_file'}) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5409	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5410	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5411	"</div>\n"; # class="patch"
				5412
				5413	$patch_idx++;
				5414	$patch_number++;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5415
				5416	last if $patch_idx > $#$difftree;
				5417	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5418	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5419	}
Jakub Narebski	711fa74	2007-09-08 21:49:11 +0200	[diff] [blame]	5420
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5421	# modifies %from, %to hashes
				5422	parse_from_to_diffinfo($diffinfo, \%from, \%to, @hash_parents);
Jakub Narebski	5f85505	2007-05-17 22:54:28 +0200	[diff] [blame]	5423
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5424	# this is first patch for raw difftree line with $patch_idx index
				5425	# we index @$difftree array from 0, but number patches from 1
				5426	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n";
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5427	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5428
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5429	# git diff header
				5430	#assert($patch_line =~ m/^diff /) if DEBUG;
				5431	#assert($patch_line !~ m!$/$!) if DEBUG; # is chomp-ed
				5432	$patch_number++;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5433	# print "git diff" header
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5434	print format_git_diff_header_line($patch_line, $diffinfo,
				5435	\%from, \%to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5436
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5437	# print extended diff header
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5438	print "<div class=\"diff extended_header\">\n";
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5439	EXTENDED_HEADER:
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5440	while ($patch_line = <$fd>) {
				5441	chomp $patch_line;
				5442
				5443	last EXTENDED_HEADER if ($patch_line =~ m/^--- \|^diff /);
				5444
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5445	print format_extended_diff_header_line($patch_line, $diffinfo,
				5446	\%from, \%to);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5447	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5448	print "</div>\n"; # class="diff extended_header"
Jakub Narebski	e4e4f82	2006-08-25 21:04:13 +0200	[diff] [blame]	5449
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5450	# from-file/to-file diff header
Jakub Narebski	0bdb28c	2007-01-10 00:07:43 +0100	[diff] [blame]	5451	if (! $patch_line) {
				5452	print "</div>\n"; # class="patch"
				5453	last PATCH;
				5454	}
Jakub Narebski	66399ef	2007-01-07 02:52:25 +0100	[diff] [blame]	5455	next PATCH if ($patch_line =~ m/^diff /);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5456	#assert($patch_line =~ m/^---/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5457
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5458	my $last_patch_line = $patch_line;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5459	$patch_line = <$fd>;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5460	chomp $patch_line;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5461	#assert($patch_line =~ m/^\+\+\+/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5462
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5463	print format_diff_from_to_header($last_patch_line, $patch_line,
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	5464	$diffinfo, \%from, \%to,
				5465	@hash_parents);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5466
				5467	# the patch itself
				5468	LINE:
				5469	while ($patch_line = <$fd>) {
				5470	chomp $patch_line;
				5471
				5472	next PATCH if ($patch_line =~ m/^diff /);
				5473
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	5474	my $class = diff_line_class($patch_line, \%from, \%to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5475
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5476	if ($class eq 'chunk_header') {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5477	print_diff_chunk($diff_style, scalar @hash_parents, \%from, \%to, @chunk);
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5478	@chunk = ();
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5479	}
Michał Kiedrowicz	44185f9	2012-04-11 23:18:41 +0200	[diff] [blame]	5480
Michał Kiedrowicz	f4a8102	2012-04-11 23:18:42 +0200	[diff] [blame]	5481	push @chunk, [ $class, $patch_line ];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5482	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5483
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5484	} continue {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5485	if (@chunk) {
Michał Kiedrowicz	51ef7a6	2012-04-11 23:18:44 +0200	[diff] [blame]	5486	print_diff_chunk($diff_style, scalar @hash_parents, \%from, \%to, @chunk);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5487	@chunk = ();
				5488	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5489	print "</div>\n"; # class="patch"
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5490	}
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5491
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	5492	# for compact combined (--cc) format, with chunk and patch simplification
				5493	# the patchset might be empty, but there might be unprocessed raw lines
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5494	for (++$patch_idx if $patch_number > 0;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5495	$patch_idx < @$difftree;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5496	++$patch_idx) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5497	# read and prepare patch information
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5498	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5499
				5500	# generate anchor for "patch" links in difftree / whatchanged part
				5501	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5502	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5503	"</div>\n"; # class="patch"
				5504
				5505	$patch_number++;
				5506	}
				5507
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5508	if ($patch_number == 0) {
				5509	if (@hash_parents > 1) {
				5510	print "<div class=\"diff nodifferences\">Trivial merge</div>\n";
				5511	} else {
				5512	print "<div class=\"diff nodifferences\">No differences found</div>\n";
				5513	}
				5514	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5515
				5516	print "</div>\n"; # class="patchset"
				5517	}
				5518
				5519	# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
				5520
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5521	sub git_project_search_form {
Jakub Narebski	b22939a	2012-03-02 23:50:01 +0100	[diff] [blame]	5522	my ($searchtext, $search_use_regexp) = @_;
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5523
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5524	my $limit = '';
				5525	if ($project_filter) {
				5526	$limit = " in '$project_filter/'";
				5527	}
				5528
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5529	print "<div class=\"projsearch\">\n";
Roland Mas	4750f4b	2014-10-16 08:54:47 +0200	[diff] [blame]	5530	print $cgi->start_form(-method => 'get', -action => $my_uri) .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5531	$cgi->hidden(-name => 'a', -value => 'project_list') . "\n";
				5532	print $cgi->hidden(-name => 'pf', -value => $project_filter). "\n"
				5533	if (defined $project_filter);
				5534	print $cgi->textfield(-name => 's', -value => $searchtext,
				5535	-title => "Search project by name and description$limit",
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5536	-size => 60) . "\n" .
				5537	"<span title=\"Extended regular expression\">" .
				5538	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				5539	-checked => $search_use_regexp) .
				5540	"</span>\n" .
				5541	$cgi->submit(-name => 'btnS', -value => 'Search') .
				5542	$cgi->end_form() . "\n" .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5543	$cgi->a({-href => href(project => undef, searchtext => undef,
				5544	project_filter => $project_filter)},
				5545	esc_html("List all projects$limit")) . "<br />\n";
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5546	print "</div>\n";
				5547	}
				5548
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5549	# entry for given @keys needs filling if at least one of keys in list
				5550	# is not present in %$project_info
				5551	sub project_info_needs_filling {
				5552	my ($project_info, @keys) = @_;
				5553
				5554	# return List::MoreUtils::any { !exists $project_info->{$_} } @keys;
				5555	foreach my $key (@keys) {
				5556	if (!exists $project_info->{$key}) {
				5557	return 1;
				5558	}
				5559	}
				5560	return;
				5561	}
				5562
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5563	# fills project list info (age, description, owner, category, forks, etc.)
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5564	# for each project in the list, removing invalid projects from
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5565	# returned list, or fill only specified info.
				5566	#
				5567	# Invalid projects are removed from the returned list if and only if you
				5568	# ask 'age' or 'age_string' to be filled, because they are the only fields
				5569	# that run unconditionally git command that requires repository, and
				5570	# therefore do always check if project repository is invalid.
				5571	#
				5572	# USAGE:
				5573	# * fill_project_list_info(\@project_list, 'descr_long', 'ctags')
				5574	# ensures that 'descr_long' and 'ctags' fields are filled
				5575	# * @project_list = fill_project_list_info(\@project_list)
				5576	# ensures that all fields are filled (and invalid projects removed)
				5577	#
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5578	# NOTE: modifies $projlist, but does not remove entries from it
				5579	sub fill_project_list_info {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5580	my ($projlist, @wanted_keys) = @_;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5581	my @projects;
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5582	my $filter_set = sub { return @_; };
				5583	if (@wanted_keys) {
				5584	my %wanted_keys = map { $_ => 1 } @wanted_keys;
				5585	$filter_set = sub { return grep { $wanted_keys{$_} } @_; };
				5586	}
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5587
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5588	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5589	PROJECT:
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5590	foreach my $pr (@$projlist) {
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5591	if (project_info_needs_filling($pr, $filter_set->('age', 'age_string'))) {
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5592	my (@activity) = git_get_last_activity($pr->{'path'});
				5593	unless (@activity) {
				5594	next PROJECT;
				5595	}
				5596	($pr->{'age'}, $pr->{'age_string'}) = @activity;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5597	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5598	if (project_info_needs_filling($pr, $filter_set->('descr', 'descr_long'))) {
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5599	my $descr = git_get_project_description($pr->{'path'}) \|\| "";
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5600	$descr = to_utf8($descr);
				5601	$pr->{'descr_long'} = $descr;
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	5602	$pr->{'descr'} = chop_str($descr, $projects_list_description_width, 5);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5603	}
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5604	if (project_info_needs_filling($pr, $filter_set->('owner'))) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	5605	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}") \|\| "";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5606	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5607	if ($show_ctags &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5608	project_info_needs_filling($pr, $filter_set->('ctags'))) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5609	$pr->{'ctags'} = git_get_project_ctags($pr->{'path'});
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5610	}
Jakub Narebski	14b289b	2012-02-23 16:54:46 +0100	[diff] [blame]	5611	if ($projects_list_group_categories &&
Jakub Narebski	2e3291a	2012-02-23 16:54:47 +0100	[diff] [blame]	5612	project_info_needs_filling($pr, $filter_set->('category'))) {
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5613	my $cat = git_get_project_category($pr->{'path'}) \|\|
				5614	$project_list_default_category;
				5615	$pr->{'category'} = to_utf8($cat);
				5616	}
				5617
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5618	push @projects, $pr;
				5619	}
				5620
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5621	return @projects;
				5622	}
				5623
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5624	sub sort_projects_list {
				5625	my ($projlist, $order) = @_;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5626
Matthew Daley	28dae18	2012-12-11 23:56:07 +1300	[diff] [blame]	5627	sub order_str {
				5628	my $key = shift;
				5629	return sub { $a->{$key} cmp $b->{$key} };
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5630	}
				5631
Matthew Daley	28dae18	2012-12-11 23:56:07 +1300	[diff] [blame]	5632	sub order_num_then_undef {
				5633	my $key = shift;
				5634	return sub {
				5635	defined $a->{$key} ?
				5636	(defined $b->{$key} ? $a->{$key} <=> $b->{$key} : -1) :
				5637	(defined $b->{$key} ? 1 : 0)
				5638	};
				5639	}
				5640
				5641	my %orderings = (
				5642	project => order_str('path'),
				5643	descr => order_str('descr_long'),
				5644	owner => order_str('owner'),
				5645	age => order_num_then_undef('age'),
				5646	);
				5647
				5648	my $ordering = $orderings{$order};
				5649	return defined $ordering ? sort $ordering @$projlist : @$projlist;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5650	}
				5651
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5652	# returns a hash of categories, containing the list of project
				5653	# belonging to each category
				5654	sub build_projlist_by_category {
				5655	my ($projlist, $from, $to) = @_;
				5656	my %categories;
				5657
				5658	$from = 0 unless defined $from;
				5659	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5660
				5661	for (my $i = $from; $i <= $to; $i++) {
				5662	my $pr = $projlist->[$i];
				5663	push @{$categories{ $pr->{'category'} }}, $pr;
				5664	}
				5665
				5666	return wantarray ? %categories : \%categories;
				5667	}
				5668
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5669	# print 'sort by' <th> element, generating 'sort by $name' replay link
				5670	# if that order is not selected
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5671	sub print_sort_th {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5672	print format_sort_th(@_);
				5673	}
				5674
				5675	sub format_sort_th {
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5676	my ($name, $order, $header) = @_;
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5677	my $sort_th = "";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5678	$header \|\|= ucfirst($name);
				5679
				5680	if ($order eq $name) {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5681	$sort_th .= "<th>$header</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5682	} else {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5683	$sort_th .= "<th>" .
				5684	$cgi->a({-href => href(-replay=>1, order=>$name),
				5685	-class => "header"}, $header) .
				5686	"</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5687	}
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5688
				5689	return $sort_th;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5690	}
				5691
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5692	sub git_project_list_rows {
				5693	my ($projlist, $from, $to, $check_forks) = @_;
				5694
				5695	$from = 0 unless defined $from;
				5696	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5697
				5698	my $alternate = 1;
				5699	for (my $i = $from; $i <= $to; $i++) {
				5700	my $pr = $projlist->[$i];
				5701
				5702	if ($alternate) {
				5703	print "<tr class=\"dark\">\n";
				5704	} else {
				5705	print "<tr class=\"light\">\n";
				5706	}
				5707	$alternate ^= 1;
				5708
				5709	if ($check_forks) {
				5710	print "<td>";
				5711	if ($pr->{'forks'}) {
				5712	my $nforks = scalar @{$pr->{'forks'}};
				5713	if ($nforks > 0) {
				5714	print $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks"),
				5715	-title => "$nforks forks"}, "+");
				5716	} else {
				5717	print $cgi->span({-title => "$nforks forks"}, "+");
				5718	}
				5719	}
				5720	print "</td>\n";
				5721	}
				5722	print "<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	07a4006	2012-02-27 02:55:20 +0100	[diff] [blame]	5723	-class => "list"},
				5724	esc_html_match_hl($pr->{'path'}, $search_regexp)) .
				5725	"</td>\n" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5726	"<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5727	-class => "list",
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	5728	-title => $pr->{'descr_long'}},
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5729	$search_regexp
Jakub Narebski	e607b79	2012-02-27 02:55:22 +0100	[diff] [blame]	5730	? esc_html_match_hl_chopped($pr->{'descr_long'},
				5731	$pr->{'descr'}, $search_regexp)
Jakub Narebski	5fb3cf2	2012-02-27 02:55:21 +0100	[diff] [blame]	5732	: esc_html($pr->{'descr'})) .
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5733	"</td>\n";
				5734	unless ($omit_owner) {
				5735	print "<td><i>" . chop_and_escape_str($pr->{'owner'}, 15) . "</i></td>\n";
				5736	}
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5737	unless ($omit_age_column) {
				5738	print "<td class=\"". age_class($pr->{'age'}) . "\">" .
				5739	(defined $pr->{'age_string'} ? $pr->{'age_string'} : "No commits") . "</td>\n";
				5740	}
				5741	print"<td class=\"link\">" .
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5742	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary")}, "summary") . " \| " .
				5743	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"shortlog")}, "shortlog") . " \| " .
				5744	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")}, "log") . " \| " .
				5745	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")}, "tree") .
				5746	($pr->{'forks'} ? " \| " . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
				5747	"</td>\n" .
				5748	"</tr>\n";
				5749	}
				5750	}
				5751
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5752	sub git_project_list_body {
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5753	# actually uses global variable $project
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5754	my ($projlist, $order, $from, $to, $extra, $no_header) = @_;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5755	my @projects = @$projlist;
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5756
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5757	my $check_forks = gitweb_check_feature('forks');
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5758	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	5759	my $tagfilter = $show_ctags ? $input_params{'ctag'} : undef;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5760	$check_forks = undef
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5761	if ($tagfilter \|\| $search_regexp);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5762
				5763	# filtering out forks before filling info allows to do less work
				5764	@projects = filter_forks_from_projects_list(\@projects)
				5765	if ($check_forks);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5766	# search_projects_list pre-fills required info
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5767	@projects = search_projects_list(\@projects,
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5768	'search_regexp' => $search_regexp,
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5769	'tagfilter' => $tagfilter)
Jakub Narebski	e65ceb6	2012-03-02 23:34:24 +0100	[diff] [blame]	5770	if ($tagfilter \|\| $search_regexp);
Jakub Narebski	07b257f	2012-02-23 16:54:48 +0100	[diff] [blame]	5771	# fill the rest
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5772	my @all_fields = ('descr', 'descr_long', 'ctags', 'category');
				5773	push @all_fields, ('age', 'age_string') unless($omit_age_column);
				5774	push @all_fields, 'owner' unless($omit_owner);
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5775	@projects = fill_project_list_info(\@projects, @all_fields);
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5776
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	5777	$order \|\|= $default_projects_order;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5778	$from = 0 unless defined $from;
				5779	$to = $#projects if (!defined $to \|\| $#projects < $to);
				5780
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5781	# short circuit
				5782	if ($from > $to) {
				5783	print "<center>\n".
				5784	"<b>No such projects found</b><br />\n".
				5785	"Click ".$cgi->a({-href=>href(project=>undef)},"here")." to view all projects<br />\n".
				5786	"</center>\n<br />\n";
				5787	return;
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5788	}
				5789
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5790	@projects = sort_projects_list(\@projects, $order);
				5791
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5792	if ($show_ctags) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	5793	my $ctags = git_gather_all_ctags(\@projects);
				5794	my $cloud = git_populate_project_tagcloud($ctags);
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5795	print git_show_project_tagcloud($cloud, 64);
				5796	}
				5797
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5798	print "<table class=\"project_list\">\n";
				5799	unless ($no_header) {
				5800	print "<tr>\n";
				5801	if ($check_forks) {
				5802	print "<th></th>\n";
				5803	}
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5804	print_sort_th('project', $order, 'Project');
				5805	print_sort_th('descr', $order, 'Description');
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	5806	print_sort_th('owner', $order, 'Owner') unless $omit_owner;
Kacper Kornet	5710be4	2012-04-24 19:39:15 +0200	[diff] [blame]	5807	print_sort_th('age', $order, 'Last Change') unless $omit_age_column;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5808	print "<th></th>\n" . # for links
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5809	"</tr>\n";
				5810	}
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5811
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5812	if ($projects_list_group_categories) {
				5813	# only display categories with projects in the $from-$to window
				5814	@projects = sort {$a->{'category'} cmp $b->{'category'}} @projects[$from..$to];
				5815	my %categories = build_projlist_by_category(\@projects, $from, $to);
				5816	foreach my $cat (sort keys %categories) {
				5817	unless ($cat eq "") {
				5818	print "<tr>\n";
				5819	if ($check_forks) {
				5820	print "<td></td>\n";
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5821	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5822	print "<td class=\"category\" colspan=\"5\">".esc_html($cat)."</td>\n";
				5823	print "</tr>\n";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5824	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5825
				5826	git_project_list_rows($categories{$cat}, undef, undef, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5827	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5828	} else {
				5829	git_project_list_rows(\@projects, $from, $to, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5830	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5831
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5832	if (defined $extra) {
				5833	print "<tr>\n";
				5834	if ($check_forks) {
				5835	print "<td></td>\n";
				5836	}
				5837	print "<td colspan=\"5\">$extra</td>\n" .
				5838	"</tr>\n";
				5839	}
				5840	print "</table>\n";
				5841	}
				5842
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5843	sub git_log_body {
				5844	# uses global variable $project
				5845	my ($commitlist, $from, $to, $refs, $extra) = @_;
				5846
				5847	$from = 0 unless defined $from;
				5848	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
				5849
				5850	for (my $i = 0; $i <= $to; $i++) {
				5851	my %co = %{$commitlist->[$i]};
				5852	next if !%co;
				5853	my $commit = $co{'id'};
				5854	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5855	git_print_header_div('commit',
				5856	"<span class=\"age\">$co{'age_string'}</span>" .
				5857	esc_html($co{'title'}) . $ref,
				5858	$commit);
				5859	print "<div class=\"title_text\">\n" .
				5860	"<div class=\"log_link\">\n" .
				5861	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") .
				5862	" \| " .
				5863	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") .
				5864	" \| " .
				5865	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree") .
				5866	"<br/>\n" .
				5867	"</div>\n";
				5868	git_print_authorship(\%co, -tag => 'span');
				5869	print "<br/>\n</div>\n";
				5870
				5871	print "<div class=\"log_body\">\n";
				5872	git_print_log($co{'comment'}, -final_empty_line=> 1);
				5873	print "</div>\n";
				5874	}
				5875	if ($extra) {
				5876	print "<div class=\"page_nav\">\n";
				5877	print "$extra\n";
				5878	print "</div>\n";
				5879	}
				5880	}
				5881
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5882	sub git_shortlog_body {
				5883	# uses global variable $project
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5884	my ($commitlist, $from, $to, $refs, $extra) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	5885
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5886	$from = 0 unless defined $from;
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5887	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5888
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5889	print "<table class=\"shortlog\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5890	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5891	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5892	my %co = %{$commitlist->[$i]};
				5893	my $commit = $co{'id'};
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	5894	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5895	if ($alternate) {
				5896	print "<tr class=\"dark\">\n";
				5897	} else {
				5898	print "<tr class=\"light\">\n";
				5899	}
				5900	$alternate ^= 1;
				5901	# git_summary() used print "<td><i>$co{'age_string'}</i></td>\n" .
				5902	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]	5903	format_author_html('td', \%co, 10) . "<td>";
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5904	print format_subject_html($co{'title'}, $co{'title_short'},
				5905	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5906	print "</td>\n" .
				5907	"<td class=\"link\">" .
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	5908	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") . " \| " .
Petr Baudis	35749ae	2006-09-22 03:19:44 +0200	[diff] [blame]	5909	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") . " \| " .
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5910	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	5911	my $snapshot_links = format_snapshot_links($commit);
				5912	if (defined $snapshot_links) {
				5913	print " \| " . $snapshot_links;
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5914	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	5915	print "</td>\n" .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5916	"</tr>\n";
				5917	}
				5918	if (defined $extra) {
				5919	print "<tr>\n" .
				5920	"<td colspan=\"4\">$extra</td>\n" .
				5921	"</tr>\n";
				5922	}
				5923	print "</table>\n";
				5924	}
				5925
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5926	sub git_history_body {
				5927	# Warning: assumes constant type (blob or tree) during history
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5928	my ($commitlist, $from, $to, $refs, $extra,
				5929	$file_name, $file_hash, $ftype) = @_;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5930
				5931	$from = 0 unless defined $from;
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5932	$to = $#{$commitlist} unless (defined $to && $to <= $#{$commitlist});
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5933
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5934	print "<table class=\"history\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5935	my $alternate = 1;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5936	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5937	my %co = %{$commitlist->[$i]};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5938	if (!%co) {
				5939	next;
				5940	}
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5941	my $commit = $co{'id'};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5942
				5943	my $ref = format_ref_marker($refs, $commit);
				5944
				5945	if ($alternate) {
				5946	print "<tr class=\"dark\">\n";
				5947	} else {
				5948	print "<tr class=\"light\">\n";
				5949	}
				5950	$alternate ^= 1;
				5951	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]	5952	# shortlog: format_author_html('td', \%co, 10)
				5953	format_author_html('td', \%co, 15, 3) . "<td>";
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5954	# originally git_history used chop_str($co{'title'}, 50)
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5955	print format_subject_html($co{'title'}, $co{'title_short'},
				5956	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5957	print "</td>\n" .
				5958	"<td class=\"link\">" .
Luben Tuikov	6d81c5a	2006-09-28 17:21:07 -0700	[diff] [blame]	5959	$cgi->a({-href => href(action=>$ftype, hash_base=>$commit, file_name=>$file_name)}, $ftype) . " \| " .
				5960	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff");
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5961
				5962	if ($ftype eq 'blob') {
Job Snijders	9662897	2017-08-22 22:07:29 +0200	[diff] [blame]	5963	print " \| " .
				5964	$cgi->a({-href => href(action=>"blob_plain", hash_base=>$commit, file_name=>$file_name)}, "raw");
				5965
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5966	my $blob_current = $file_hash;
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5967	my $blob_parent = git_get_hash_by_path($commit, $file_name);
				5968	if (defined $blob_current && defined $blob_parent &&
				5969	$blob_current ne $blob_parent) {
				5970	print " \| " .
Jakub Narebski	420e92f	2006-08-24 23:53:54 +0200	[diff] [blame]	5971	$cgi->a({-href => href(action=>"blobdiff",
				5972	hash=>$blob_current, hash_parent=>$blob_parent,
				5973	hash_base=>$hash_base, hash_parent_base=>$commit,
				5974	file_name=>$file_name)},
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5975	"diff to current");
				5976	}
				5977	}
				5978	print "</td>\n" .
				5979	"</tr>\n";
				5980	}
				5981	if (defined $extra) {
				5982	print "<tr>\n" .
				5983	"<td colspan=\"4\">$extra</td>\n" .
				5984	"</tr>\n";
				5985	}
				5986	print "</table>\n";
				5987	}
				5988
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5989	sub git_tags_body {
				5990	# uses global variable $project
				5991	my ($taglist, $from, $to, $extra) = @_;
				5992	$from = 0 unless defined $from;
				5993	$to = $#{$taglist} if (!defined $to \|\| $#{$taglist} < $to);
				5994
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5995	print "<table class=\"tags\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5996	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5997	for (my $i = $from; $i <= $to; $i++) {
				5998	my $entry = $taglist->[$i];
				5999	my %tag = %$entry;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6000	my $comment = $tag{'subject'};
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6001	my $comment_short;
				6002	if (defined $comment) {
				6003	$comment_short = chop_str($comment, 30, 5);
				6004	}
				6005	if ($alternate) {
				6006	print "<tr class=\"dark\">\n";
				6007	} else {
				6008	print "<tr class=\"light\">\n";
				6009	}
				6010	$alternate ^= 1;
Jakub Narebski	27dd1a8	2007-01-03 22:54:29 +0100	[diff] [blame]	6011	if (defined $tag{'age'}) {
				6012	print "<td><i>$tag{'age'}</i></td>\n";
				6013	} else {
				6014	print "<td></td>\n";
				6015	}
				6016	print "<td>" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6017	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),
Jakub Narebski	63e4220	2006-08-22 12:38:59 +0200	[diff] [blame]	6018	-class => "list name"}, esc_html($tag{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6019	"</td>\n" .
				6020	"<td>";
				6021	if (defined $comment) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6022	print format_subject_html($comment, $comment_short,
				6023	href(action=>"tag", hash=>$tag{'id'}));
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6024	}
				6025	print "</td>\n" .
				6026	"<td class=\"selflink\">";
				6027	if ($tag{'type'} eq "tag") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6028	print $cgi->a({-href => href(action=>"tag", hash=>$tag{'id'})}, "tag");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6029	} else {
				6030	print " ";
				6031	}
				6032	print "</td>\n" .
				6033	"<td class=\"link\">" . " \| " .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6034	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'})}, $tag{'reftype'});
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6035	if ($tag{'reftype'} eq "commit") {
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	6036	print " \| " . $cgi->a({-href => href(action=>"shortlog", hash=>$tag{'fullname'})}, "shortlog") .
				6037	" \| " . $cgi->a({-href => href(action=>"log", hash=>$tag{'fullname'})}, "log");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6038	} elsif ($tag{'reftype'} eq "blob") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6039	print " \| " . $cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})}, "raw");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6040	}
				6041	print "</td>\n" .
				6042	"</tr>";
				6043	}
				6044	if (defined $extra) {
				6045	print "<tr>\n" .
				6046	"<td colspan=\"5\">$extra</td>\n" .
				6047	"</tr>\n";
				6048	}
				6049	print "</table>\n";
				6050	}
				6051
				6052	sub git_heads_body {
				6053	# uses global variable $project
Jakub Narebski	fd49e56	2012-02-15 16:36:41 +0100	[diff] [blame]	6054	my ($headlist, $head_at, $from, $to, $extra) = @_;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6055	$from = 0 unless defined $from;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6056	$to = $#{$headlist} if (!defined $to \|\| $#{$headlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6057
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6058	print "<table class=\"heads\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	6059	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6060	for (my $i = $from; $i <= $to; $i++) {
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6061	my $entry = $headlist->[$i];
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6062	my %ref = %$entry;
Jakub Narebski	fd49e56	2012-02-15 16:36:41 +0100	[diff] [blame]	6063	my $curr = defined $head_at && $ref{'id'} eq $head_at;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6064	if ($alternate) {
				6065	print "<tr class=\"dark\">\n";
				6066	} else {
				6067	print "<tr class=\"light\">\n";
				6068	}
				6069	$alternate ^= 1;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6070	print "<td><i>$ref{'age'}</i></td>\n" .
				6071	($curr ? "<td class=\"current_head\">" : "<td>") .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	6072	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'}),
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6073	-class => "list name"},esc_html($ref{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6074	"</td>\n" .
				6075	"<td class=\"link\">" .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	6076	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'})}, "shortlog") . " \| " .
				6077	$cgi->a({-href => href(action=>"log", hash=>$ref{'fullname'})}, "log") . " \| " .
Giuseppe Bilotta	9e70e15	2010-11-11 13:26:08 +0100	[diff] [blame]	6078	$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]	6079	"</td>\n" .
				6080	"</tr>";
				6081	}
				6082	if (defined $extra) {
				6083	print "<tr>\n" .
				6084	"<td colspan=\"3\">$extra</td>\n" .
				6085	"</tr>\n";
				6086	}
				6087	print "</table>\n";
				6088	}
				6089
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6090	# Display a single remote block
				6091	sub git_remote_block {
				6092	my ($remote, $rdata, $limit, $head) = @_;
				6093
				6094	my $heads = $rdata->{'heads'};
				6095	my $fetch = $rdata->{'fetch'};
				6096	my $push = $rdata->{'push'};
				6097
				6098	my $urls_table = "<table class=\"projects_list\">\n" ;
				6099
				6100	if (defined $fetch) {
				6101	if ($fetch eq $push) {
				6102	$urls_table .= format_repo_url("URL", $fetch);
				6103	} else {
				6104	$urls_table .= format_repo_url("Fetch URL", $fetch);
				6105	$urls_table .= format_repo_url("Push URL", $push) if defined $push;
				6106	}
				6107	} elsif (defined $push) {
				6108	$urls_table .= format_repo_url("Push URL", $push);
				6109	} else {
				6110	$urls_table .= format_repo_url("", "No remote URL");
				6111	}
				6112
				6113	$urls_table .= "</table>\n";
				6114
				6115	my $dots;
				6116	if (defined $limit && $limit < @$heads) {
				6117	$dots = $cgi->a({-href => href(action=>"remotes", hash=>$remote)}, "...");
				6118	}
				6119
				6120	print $urls_table;
				6121	git_heads_body($heads, $head, 0, $limit, $dots);
				6122	}
				6123
				6124	# Display a list of remote names with the respective fetch and push URLs
				6125	sub git_remotes_list {
				6126	my ($remotedata, $limit) = @_;
				6127	print "<table class=\"heads\">\n";
				6128	my $alternate = 1;
				6129	my @remotes = sort keys %$remotedata;
				6130
				6131	my $limited = $limit && $limit < @remotes;
				6132
				6133	$#remotes = $limit - 1 if $limited;
				6134
				6135	while (my $remote = shift @remotes) {
				6136	my $rdata = $remotedata->{$remote};
				6137	my $fetch = $rdata->{'fetch'};
				6138	my $push = $rdata->{'push'};
				6139	if ($alternate) {
				6140	print "<tr class=\"dark\">\n";
				6141	} else {
				6142	print "<tr class=\"light\">\n";
				6143	}
				6144	$alternate ^= 1;
				6145	print "<td>" .
				6146	$cgi->a({-href=> href(action=>'remotes', hash=>$remote),
				6147	-class=> "list name"},esc_html($remote)) .
				6148	"</td>";
				6149	print "<td class=\"link\">" .
				6150	(defined $fetch ? $cgi->a({-href=> $fetch}, "fetch") : "fetch") .
				6151	" \| " .
				6152	(defined $push ? $cgi->a({-href=> $push}, "push") : "push") .
				6153	"</td>";
				6154
				6155	print "</tr>\n";
				6156	}
				6157
				6158	if ($limited) {
				6159	print "<tr>\n" .
				6160	"<td colspan=\"3\">" .
				6161	$cgi->a({-href => href(action=>"remotes")}, "...") .
				6162	"</td>\n" . "</tr>\n";
				6163	}
				6164
				6165	print "</table>";
				6166	}
				6167
				6168	# Display remote heads grouped by remote, unless there are too many
				6169	# remotes, in which case we only display the remote names
				6170	sub git_remotes_body {
				6171	my ($remotedata, $limit, $head) = @_;
				6172	if ($limit and $limit < keys %$remotedata) {
				6173	git_remotes_list($remotedata, $limit);
				6174	} else {
				6175	fill_remote_heads($remotedata);
				6176	while (my ($remote, $rdata) = each %$remotedata) {
				6177	git_print_section({-class=>"remote", -id=>$remote},
				6178	["remotes", $remote, $remote], sub {
				6179	git_remote_block($remote, $rdata, $limit, $head);
				6180	});
				6181	}
				6182	}
				6183	}
				6184
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6185	sub git_search_message {
				6186	my %co = @_;
				6187
				6188	my $greptype;
				6189	if ($searchtype eq 'commit') {
				6190	$greptype = "--grep=";
				6191	} elsif ($searchtype eq 'author') {
				6192	$greptype = "--author=";
				6193	} elsif ($searchtype eq 'committer') {
				6194	$greptype = "--committer=";
				6195	}
				6196	$greptype .= $searchtext;
				6197	my @commitlist = parse_commits($hash, 101, (100 * $page), undef,
				6198	$greptype, '--regexp-ignore-case',
				6199	$search_use_regexp ? '--extended-regexp' : '--fixed-strings');
				6200
				6201	my $paging_nav = '';
				6202	if ($page > 0) {
				6203	$paging_nav .=
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6204	$cgi->a({-href => href(-replay=>1, page=>undef)},
				6205	"first") .
				6206	" ⋅ " .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6207	$cgi->a({-href => href(-replay=>1, page=>$page-1),
				6208	-accesskey => "p", -title => "Alt-p"}, "prev");
				6209	} else {
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6210	$paging_nav .= "first ⋅ prev";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6211	}
				6212	my $next_link = '';
				6213	if ($#commitlist >= 100) {
				6214	$next_link =
				6215	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				6216	-accesskey => "n", -title => "Alt-n"}, "next");
				6217	$paging_nav .= " ⋅ $next_link";
				6218	} else {
				6219	$paging_nav .= " ⋅ next";
				6220	}
				6221
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6222	git_header_html();
				6223
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6224	git_print_page_nav('','', $hash,$co{'tree'},$hash, $paging_nav);
				6225	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6226	if ($page == 0 && !@commitlist) {
				6227	print "<p>No match.</p>\n";
				6228	} else {
				6229	git_search_grep_body(\@commitlist, 0, 99, $next_link);
				6230	}
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6231
				6232	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6233	}
				6234
				6235	sub git_search_changes {
				6236	my %co = @_;
				6237
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6238	local $/ = "\n";
				6239	open my $fd, '-\|', git_cmd(), '--no-pager', 'log', @diff_opts,
				6240	'--pretty=format:%H', '--no-abbrev', '--raw', "-S$searchtext",
				6241	($search_use_regexp ? '--pickaxe-regex' : ())
				6242	or die_error(500, "Open git-log failed");
				6243
				6244	git_header_html();
				6245
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6246	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				6247	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6248
				6249	print "<table class=\"pickaxe search\">\n";
				6250	my $alternate = 1;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6251	undef %co;
				6252	my @files;
				6253	while (my $line = <$fd>) {
				6254	chomp $line;
				6255	next unless $line;
				6256
				6257	my %set = parse_difftree_raw_line($line);
				6258	if (defined $set{'commit'}) {
				6259	# finish previous commit
				6260	if (%co) {
				6261	print "</td>\n" .
				6262	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6263	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				6264	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6265	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6266	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				6267	hash_base=>$co{'id'})},
				6268	"tree") .
				6269	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6270	"</tr>\n";
				6271	}
				6272
				6273	if ($alternate) {
				6274	print "<tr class=\"dark\">\n";
				6275	} else {
				6276	print "<tr class=\"light\">\n";
				6277	}
				6278	$alternate ^= 1;
				6279	%co = parse_commit($set{'commit'});
				6280	my $author = chop_and_escape_str($co{'author_name'}, 15, 5);
				6281	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
				6282	"<td><i>$author</i></td>\n" .
				6283	"<td>" .
				6284	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6285	-class => "list subject"},
				6286	chop_and_escape_str($co{'title'}, 50) . "<br/>");
				6287	} elsif (defined $set{'to_id'}) {
				6288	next if ($set{'to_id'} =~ m/^0{40}$/);
				6289
				6290	print $cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},
				6291	hash=>$set{'to_id'}, file_name=>$set{'to_file'}),
				6292	-class => "list"},
				6293	"<span class=\"match\">" . esc_path($set{'file'}) . "</span>") .
				6294	"<br/>\n";
				6295	}
				6296	}
				6297	close $fd;
				6298
				6299	# finish last commit (warning: repetition!)
				6300	if (%co) {
				6301	print "</td>\n" .
				6302	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6303	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				6304	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6305	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	6306	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				6307	hash_base=>$co{'id'})},
				6308	"tree") .
				6309	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6310	"</tr>\n";
				6311	}
				6312
				6313	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6314
				6315	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6316	}
				6317
				6318	sub git_search_files {
				6319	my %co = @_;
				6320
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6321	local $/ = "\n";
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	6322	open my $fd, "-\|", git_cmd(), 'grep', '-n', '-z',
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6323	$search_use_regexp ? ('-E', '-i') : '-F',
				6324	$searchtext, $co{'tree'}
				6325	or die_error(500, "Open git-grep failed");
				6326
				6327	git_header_html();
				6328
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6329	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				6330	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				6331
				6332	print "<table class=\"grep_search\">\n";
				6333	my $alternate = 1;
				6334	my $matches = 0;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6335	my $lastfile = '';
Jakub Narebski	fc8fcd2	2012-02-15 17:37:06 +0100	[diff] [blame]	6336	my $file_href;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6337	while (my $line = <$fd>) {
				6338	chomp $line;
Jakub Narebski	fc8fcd2	2012-02-15 17:37:06 +0100	[diff] [blame]	6339	my ($file, $lno, $ltext, $binary);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6340	last if ($matches++ > 1000);
				6341	if ($line =~ /^Binary file (.+) matches$/) {
				6342	$file = $1;
				6343	$binary = 1;
				6344	} else {
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	6345	($file, $lno, $ltext) = split(/\0/, $line, 3);
				6346	$file =~ s/^$co{'tree'}://;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6347	}
				6348	if ($file ne $lastfile) {
				6349	$lastfile and print "</td></tr>\n";
				6350	if ($alternate++) {
				6351	print "<tr class=\"dark\">\n";
				6352	} else {
				6353	print "<tr class=\"light\">\n";
				6354	}
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6355	$file_href = href(action=>"blob", hash_base=>$co{'id'},
				6356	file_name=>$file);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6357	print "<td class=\"list\">".
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6358	$cgi->a({-href => $file_href, -class => "list"}, esc_path($file));
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6359	print "</td><td>\n";
				6360	$lastfile = $file;
				6361	}
				6362	if ($binary) {
				6363	print "<div class=\"binary\">Binary file</div>\n";
				6364	} else {
				6365	$ltext = untabify($ltext);
				6366	if ($ltext =~ m/^(.)($search_regexp)(.)$/i) {
				6367	$ltext = esc_html($1, -nbsp=>1);
				6368	$ltext .= '<span class="match">';
				6369	$ltext .= esc_html($2, -nbsp=>1);
				6370	$ltext .= '</span>';
				6371	$ltext .= esc_html($3, -nbsp=>1);
				6372	} else {
				6373	$ltext = esc_html($ltext, -nbsp=>1);
				6374	}
				6375	print "<div class=\"pre\">" .
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	6376	$cgi->a({-href => $file_href.'#l'.$lno,
				6377	-class => "linenr"}, sprintf('%4i', $lno)) .
				6378	' ' . $ltext . "</div>\n";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6379	}
				6380	}
				6381	if ($lastfile) {
				6382	print "</td></tr>\n";
				6383	if ($matches > 1000) {
				6384	print "<div class=\"diff nodifferences\">Too many matches, listing trimmed</div>\n";
				6385	}
				6386	} else {
				6387	print "<div class=\"diff nodifferences\">No matches found</div>\n";
				6388	}
				6389	close $fd;
				6390
				6391	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	6392
				6393	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	6394	}
				6395
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6396	sub git_search_grep_body {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6397	my ($commitlist, $from, $to, $extra) = @_;
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6398	$from = 0 unless defined $from;
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6399	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6400
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6401	print "<table class=\"commit_search\">\n";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6402	my $alternate = 1;
				6403	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6404	my %co = %{$commitlist->[$i]};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6405	if (!%co) {
				6406	next;
				6407	}
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	6408	my $commit = $co{'id'};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6409	if ($alternate) {
				6410	print "<tr class=\"dark\">\n";
				6411	} else {
				6412	print "<tr class=\"light\">\n";
				6413	}
				6414	$alternate ^= 1;
				6415	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]	6416	format_author_html('td', \%co, 15, 5) .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6417	"<td>" .
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6418	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6419	-class => "list subject"},
				6420	chop_and_escape_str($co{'title'}, 50) . "<br/>");
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6421	my $comment = $co{'comment'};
				6422	foreach my $line (@$comment) {
Jakub Narebski	6dfbb30	2008-03-02 16:57:14 +0100	[diff] [blame]	6423	if ($line =~ m/^(.?)($search_regexp)(.)$/i) {
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6424	my ($lead, $match, $trail) = ($1, $2, $3);
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	6425	$match = chop_str($match, 70, 5, 'center');
				6426	my $contextlen = int((80 - length($match))/2);
				6427	$contextlen = 30 if ($contextlen > 30);
				6428	$lead = chop_str($lead, $contextlen, 10, 'left');
				6429	$trail = chop_str($trail, $contextlen, 10, 'right');
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6430
				6431	$lead = esc_html($lead);
				6432	$match = esc_html($match);
				6433	$trail = esc_html($trail);
				6434
				6435	print "$lead<span class=\"match\">$match</span>$trail<br />";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6436	}
				6437	}
				6438	print "</td>\n" .
				6439	"<td class=\"link\">" .
				6440	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})}, "commit") .
				6441	" \| " .
Denis Cheng	f1fe8f5	2007-11-26 20:42:06 +0800	[diff] [blame]	6442	$cgi->a({-href => href(action=>"commitdiff", hash=>$co{'id'})}, "commitdiff") .
				6443	" \| " .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6444	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$co{'id'})}, "tree");
				6445	print "</td>\n" .
				6446	"</tr>\n";
				6447	}
				6448	if (defined $extra) {
				6449	print "<tr>\n" .
				6450	"<td colspan=\"3\">$extra</td>\n" .
				6451	"</tr>\n";
				6452	}
				6453	print "</table>\n";
				6454	}
				6455
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6456	## ======================================================================
				6457	## ======================================================================
				6458	## actions
				6459
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6460	sub git_project_list {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6461	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6462	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6463	die_error(400, "Unknown order parameter");
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6464	}
				6465
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6466	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6467	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6468	die_error(404, "No projects found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6469	}
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6470
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6471	git_header_html();
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	6472	if (defined $home_text && -f $home_text) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6473	print "<div class=\"index_include\">\n";
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6474	insert_file($home_text);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6475	print "</div>\n";
				6476	}
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	6477
				6478	git_project_search_form($searchtext, $search_use_regexp);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6479	git_project_list_body(\@list, $order);
				6480	git_footer_html();
				6481	}
				6482
				6483	sub git_forks {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6484	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6485	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6486	die_error(400, "Unknown order parameter");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6487	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6488
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6489	my $filter = $project;
				6490	$filter =~ s/\.git$//;
				6491	my @list = git_get_projects_list($filter);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6492	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6493	die_error(404, "No forks found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6494	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6495
				6496	git_header_html();
				6497	git_print_page_nav('','');
				6498	git_print_header_div('summary', "$project forks");
				6499	git_project_list_body(\@list, $order);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6500	git_footer_html();
				6501	}
				6502
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6503	sub git_project_index {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6504	my @projects = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6505	if (!@projects) {
				6506	die_error(404, "No projects found");
				6507	}
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6508
				6509	print $cgi->header(
				6510	-type => 'text/plain',
				6511	-charset => 'utf-8',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6512	-content_disposition => 'inline; filename="index.aux"');
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6513
				6514	foreach my $pr (@projects) {
				6515	if (!exists $pr->{'owner'}) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	6516	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}");
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6517	}
				6518
				6519	my ($path, $owner) = ($pr->{'path'}, $pr->{'owner'});
				6520	# quote as in CGI::Util::encode, but keep the slash, and use '+' for ' '
				6521	$path =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6522	$owner =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6523	$path =~ s/ /\+/g;
				6524	$owner =~ s/ /\+/g;
				6525
				6526	print "$path $owner\n";
				6527	}
				6528	}
				6529
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6530	sub git_summary {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6531	my $descr = git_get_project_description($project) \|\| "none";
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6532	my %co = parse_commit("HEAD");
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6533	my %cd = %co ? parse_date($co{'committer_epoch'}, $co{'committer_tz'}) : ();
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6534	my $head = $co{'id'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6535	my $remote_heads = gitweb_check_feature('remote_heads');
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6536
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	6537	my $owner = git_get_project_owner($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6538
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6539	my $refs = git_get_references();
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6540	# These get_*_list functions return one more to allow us to see if
				6541	# there are more ...
				6542	my @taglist = git_get_tags_list(16);
				6543	my @headlist = git_get_heads_list(16);
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6544	my %remotedata = $remote_heads ? git_get_remotes_list() : ();
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6545	my @forklist;
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6546	my $check_forks = gitweb_check_feature('forks');
Junio C Hamano	5dd5ed0	2006-11-07 22:00:45 -0800	[diff] [blame]	6547
				6548	if ($check_forks) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6549	# find forks of a project
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6550	my $filter = $project;
				6551	$filter =~ s/\.git$//;
				6552	@forklist = git_get_projects_list($filter);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6553	# filter out forks of forks
				6554	@forklist = filter_forks_from_projects_list(\@forklist)
				6555	if (@forklist);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6556	}
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6557
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6558	git_header_html();
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6559	git_print_page_nav('summary','', $head);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6560
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	6561	print "<div class=\"title\"> </div>\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6562	print "<table class=\"projects_list\">\n" .
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	6563	"<tr id=\"metadata_desc\"><td>description</td><td>" . esc_html($descr) . "</td></tr>\n";
Tony Finch	860ccc6	2013-08-20 17:59:44 +0100	[diff] [blame]	6564	if ($owner and not $omit_owner) {
Kacper Kornet	0ebe782	2012-04-26 18:45:44 +0200	[diff] [blame]	6565	print "<tr id=\"metadata_owner\"><td>owner</td><td>" . esc_html($owner) . "</td></tr>\n";
				6566	}
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6567	if (defined $cd{'rfc2822'}) {
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	6568	print "<tr id=\"metadata_lchange\"><td>last change</td>" .
				6569	"<td>".format_timestamp_html(\%cd)."</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6570	}
				6571
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6572	# use per project git URL list in $projectroot/$project/cloneurl
				6573	# or make project git URL from git base URL and project name
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6574	my $url_tag = "URL";
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6575	my @url_list = git_get_project_url_list($project);
				6576	@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
				6577	foreach my $git_url (@url_list) {
				6578	next unless $git_url;
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	6579	print format_repo_url($url_tag, $git_url);
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6580	$url_tag = "";
				6581	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6582
				6583	# Tag cloud
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6584	my $show_ctags = gitweb_check_feature('ctags');
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6585	if ($show_ctags) {
				6586	my $ctags = git_get_project_ctags($project);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	6587	if (%$ctags) {
				6588	# without ability to add tags, don't show if there are none
				6589	my $cloud = git_populate_project_tagcloud($ctags);
				6590	print "<tr id=\"metadata_ctags\">" .
				6591	"<td>content tags</td>" .
				6592	"<td>".git_show_project_tagcloud($cloud, 48)."</td>" .
				6593	"</tr>\n";
				6594	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6595	}
				6596
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6597	print "</table>\n";
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6598
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6599	# If XSS prevention is on, we don't include README.html.
				6600	# TODO: Allow a readme in some safe format.
				6601	if (!$prevent_xss && -s "$projectroot/$project/README.html") {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6602	print "<div class=\"title\">readme</div>\n" .
				6603	"<div class=\"readme\">\n";
				6604	insert_file("$projectroot/$project/README.html");
				6605	print "\n</div>\n"; # class="readme"
Petr Baudis	447ef09	2006-10-24 05:23:46 +0200	[diff] [blame]	6606	}
				6607
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6608	# we need to request one more than 16 (0..15) to check if
				6609	# those 16 are all
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6610	my @commitlist = $head ? parse_commits($head, 17) : ();
				6611	if (@commitlist) {
				6612	git_print_header_div('shortlog');
				6613	git_shortlog_body(\@commitlist, 0, 15, $refs,
				6614	$#commitlist <= 15 ? undef :
				6615	$cgi->a({-href => href(action=>"shortlog")}, "..."));
				6616	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6617
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6618	if (@taglist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6619	git_print_header_div('tags');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6620	git_tags_body(\@taglist, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6621	$#taglist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6622	$cgi->a({-href => href(action=>"tags")}, "..."));
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6623	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6624
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6625	if (@headlist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6626	git_print_header_div('heads');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6627	git_heads_body(\@headlist, $head, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6628	$#headlist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6629	$cgi->a({-href => href(action=>"heads")}, "..."));
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6630	}
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6631
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6632	if (%remotedata) {
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6633	git_print_header_div('remotes');
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6634	git_remotes_body(\%remotedata, 15, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6635	}
				6636
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6637	if (@forklist) {
				6638	git_print_header_div('forks');
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6639	git_project_list_body(\@forklist, 'age', 0, 15,
Robert Fitzsimons	aaca967	2006-12-22 19:38:12 +0000	[diff] [blame]	6640	$#forklist <= 15 ? undef :
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6641	$cgi->a({-href => href(action=>"forks")}, "..."),
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6642	'no_header');
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6643	}
				6644
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6645	git_footer_html();
				6646	}
				6647
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6648	sub git_tag {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6649	my %tag = parse_tag($hash);
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6650
				6651	if (! %tag) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6652	die_error(404, "Unknown tag object");
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6653	}
				6654
Anders Kaseorg	d8a9480	2010-08-27 13:38:16 -0400	[diff] [blame]	6655	my $head = git_get_head_hash($project);
				6656	git_header_html();
				6657	git_print_page_nav('','', $head,undef,$head);
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6658	git_print_header_div('commit', esc_html($tag{'name'}), $hash);
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6659	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6660	"<table class=\"object_header\">\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6661	"<tr>\n" .
				6662	"<td>object</td>\n" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6663	"<td>" . $cgi->a({-class => "list", -href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6664	$tag{'object'}) . "</td>\n" .
				6665	"<td class=\"link\">" . $cgi->a({-href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6666	$tag{'type'}) . "</td>\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6667	"</tr>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6668	if (defined($tag{'author'})) {
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	6669	git_print_authorship_rows(\%tag, 'author');
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6670	}
				6671	print "</table>\n\n" .
				6672	"</div>\n";
				6673	print "<div class=\"page_body\">";
				6674	my $comment = $tag{'comment'};
				6675	foreach my $line (@$comment) {
Junio C Hamano	7002243	2006-11-24 14:04:01 -0800	[diff] [blame]	6676	chomp $line;
Jakub Narebski	793c400	2006-11-24 22:25:50 +0100	[diff] [blame]	6677	print esc_html($line, -nbsp=>1) . "<br/>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6678	}
				6679	print "</div>\n";
				6680	git_footer_html();
				6681	}
				6682
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6683	sub git_blame_common {
				6684	my $format = shift \|\| 'porcelain';
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	6685	if ($format eq 'porcelain' && $input_params{'javascript'}) {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6686	$format = 'incremental';
				6687	$action = 'blame_incremental'; # for page title etc
				6688	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6689
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6690	# permissions
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6691	gitweb_check_feature('blame')
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6692	or die_error(403, "Blame view not allowed");
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6693
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6694	# error checking
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6695	die_error(400, "No file name given") unless $file_name;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6696	$hash_base \|\|= git_get_head_hash($project);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6697	die_error(404, "Couldn't find base commit") unless $hash_base;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6698	my %co = parse_commit($hash_base)
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6699	or die_error(404, "Commit not found");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6700	my $ftype = "blob";
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6701	if (!defined $hash) {
				6702	$hash = git_get_hash_by_path($hash_base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6703	or die_error(404, "Error looking up file");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6704	} else {
				6705	$ftype = git_get_type($hash);
				6706	if ($ftype !~ "blob") {
				6707	die_error(400, "Object is not a blob");
				6708	}
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6709	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6710
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6711	my $fd;
				6712	if ($format eq 'incremental') {
				6713	# get file contents (as base)
				6714	open $fd, "-\|", git_cmd(), 'cat-file', 'blob', $hash
				6715	or die_error(500, "Open git-cat-file failed");
				6716	} elsif ($format eq 'data') {
				6717	# run git-blame --incremental
				6718	open $fd, "-\|", git_cmd(), "blame", "--incremental",
				6719	$hash_base, "--", $file_name
				6720	or die_error(500, "Open git-blame --incremental failed");
				6721	} else {
				6722	# run git-blame --porcelain
				6723	open $fd, "-\|", git_cmd(), "blame", '-p',
				6724	$hash_base, '--', $file_name
				6725	or die_error(500, "Open git-blame --porcelain failed");
				6726	}
Ævar Arnfjörð Bjarmason	fd87004	2013-08-30 08:37:01 +0000	[diff] [blame]	6727	binmode $fd, ':utf8';
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6728
				6729	# incremental blame data returns early
				6730	if ($format eq 'data') {
				6731	print $cgi->header(
				6732	-type=>"text/plain", -charset => "utf-8",
				6733	-status=> "200 OK");
				6734	local $\| = 1; # output autoflush
Jürgen Kreileder	57cf4ad	2011-12-17 10:22:23 +0100	[diff] [blame]	6735	while (my $line = <$fd>) {
				6736	print to_utf8($line);
				6737	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6738	close $fd
				6739	or print "ERROR $!\n";
				6740
				6741	print 'END';
				6742	if (defined $t0 && gitweb_check_feature('timed')) {
				6743	print ' '.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	6744	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6745	' '.$number_of_git_cmds;
				6746	}
				6747	print "\n";
				6748
				6749	return;
				6750	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6751
				6752	# page header
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6753	git_header_html();
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6754	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6755	$cgi->a({-href => href(action=>"blob", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6756	"blob") .
Jakub Narebski	87e573f	2009-12-01 17:54:26 +0100	[diff] [blame]	6757	" \| ";
				6758	if ($format eq 'incremental') {
				6759	$formats_nav .=
				6760	$cgi->a({-href => href(action=>"blame", javascript=>0, -replay=>1)},
				6761	"blame") . " (non-incremental)";
				6762	} else {
				6763	$formats_nav .=
				6764	$cgi->a({-href => href(action=>"blame_incremental", -replay=>1)},
				6765	"blame") . " (incremental)";
				6766	}
				6767	$formats_nav .=
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6768	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6769	$cgi->a({-href => href(action=>"history", -replay=>1)},
				6770	"history") .
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6771	" \| " .
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6772	$cgi->a({-href => href(action=>$action, file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6773	"HEAD");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6774	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6775	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6776	git_print_page_path($file_name, $ftype, $hash_base);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6777
				6778	# page body
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6779	if ($format eq 'incremental') {
				6780	print "<noscript>\n<div class=\"error\"><center><b>\n".
				6781	"This page requires JavaScript to run.\n Use ".
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6782	$cgi->a({-href => href(action=>'blame',javascript=>0,-replay=>1)},
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6783	'this page').
				6784	" instead.\n".
				6785	"</b></center></div>\n</noscript>\n";
				6786
				6787	print qq!<div id="progress_bar" style="width: 100%; background-color: yellow"></div>\n!;
				6788	}
				6789
				6790	print qq!<div class="page_body">\n!;
				6791	print qq!<div id="progress_info">... / ...</div>\n!
				6792	if ($format eq 'incremental');
				6793	print qq!<table id="blame_table" class="blame" width="100%">\n!.
				6794	#qq!<col width="5.5em" /><col width="2.5em" /><col width="*" />\n!.
				6795	qq!<thead>\n!.
				6796	qq!<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n!.
				6797	qq!</thead>\n!.
				6798	qq!<tbody>\n!;
				6799
Jakub Narebski	aef3768	2009-07-25 00:44:06 +0200	[diff] [blame]	6800	my @rev_color = qw(light dark);
Luben Tuikov	cc1bf97	2006-07-23 13:37:53 -0700	[diff] [blame]	6801	my $num_colors = scalar(@rev_color);
				6802	my $current_color = 0;
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6803
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6804	if ($format eq 'incremental') {
				6805	my $color_class = $rev_color[$current_color];
				6806
				6807	#contents of a file
				6808	my $linenr = 0;
				6809	LINE:
				6810	while (my $line = <$fd>) {
				6811	chomp $line;
				6812	$linenr++;
				6813
				6814	print qq!<tr id="l$linenr" class="$color_class">!.
				6815	qq!<td class="sha1"><a href=""> </a></td>!.
				6816	qq!<td class="linenr">!.
				6817	qq!<a class="linenr" href="">$linenr</a></td>!;
				6818	print qq!<td class="pre">! . esc_html($line) . "</td>\n";
				6819	print qq!</tr>\n!;
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6820	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6821
				6822	} else { # porcelain, i.e. ordinary blame
				6823	my %metainfo = (); # saves information about commits
				6824
				6825	# blame data
				6826	LINE:
				6827	while (my $line = <$fd>) {
				6828	chomp $line;
				6829	# the header: <SHA-1> <src lineno> <dst lineno> [<lines in group>]
				6830	# no <lines in group> for subsequent lines in group of lines
				6831	my ($full_rev, $orig_lineno, $lineno, $group_size) =
				6832	($line =~ /^([0-9a-f]{40}) (\d+) (\d+)(?: (\d+))?$/);
				6833	if (!exists $metainfo{$full_rev}) {
				6834	$metainfo{$full_rev} = { 'nprevious' => 0 };
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6835	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6836	my $meta = $metainfo{$full_rev};
				6837	my $data;
				6838	while ($data = <$fd>) {
				6839	chomp $data;
				6840	last if ($data =~ s/^\t//); # contents of line
				6841	if ($data =~ /^(\S+)(?: (.*))?$/) {
				6842	$meta->{$1} = $2 unless exists $meta->{$1};
				6843	}
				6844	if ($data =~ /^previous /) {
				6845	$meta->{'nprevious'}++;
Jakub Narebski	a36817b	2009-07-25 00:44:05 +0200	[diff] [blame]	6846	}
				6847	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6848	my $short_rev = substr($full_rev, 0, 8);
				6849	my $author = $meta->{'author'};
				6850	my %date =
				6851	parse_date($meta->{'author-time'}, $meta->{'author-tz'});
				6852	my $date = $date{'iso-tz'};
				6853	if ($group_size) {
				6854	$current_color = ($current_color + 1) % $num_colors;
				6855	}
				6856	my $tr_class = $rev_color[$current_color];
				6857	$tr_class .= ' boundary' if (exists $meta->{'boundary'});
				6858	$tr_class .= ' no-previous' if ($meta->{'nprevious'} == 0);
				6859	$tr_class .= ' multiple-previous' if ($meta->{'nprevious'} > 1);
				6860	print "<tr id=\"l$lineno\" class=\"$tr_class\">\n";
				6861	if ($group_size) {
				6862	print "<td class=\"sha1\"";
				6863	print " title=\"". esc_html($author) . ", $date\"";
				6864	print " rowspan=\"$group_size\"" if ($group_size > 1);
				6865	print ">";
				6866	print $cgi->a({-href => href(action=>"commit",
				6867	hash=>$full_rev,
				6868	file_name=>$file_name)},
				6869	esc_html($short_rev));
				6870	if ($group_size >= 2) {
				6871	my @author_initials = ($author =~ /\b([[:upper:]])\B/g);
				6872	if (@author_initials) {
				6873	print "<br />" .
				6874	esc_html(join('', @author_initials));
				6875	# or join('.', ...)
				6876	}
				6877	}
				6878	print "</td>\n";
				6879	}
				6880	# 'previous' <sha1 of parent commit> <filename at commit>
				6881	if (exists $meta->{'previous'} &&
				6882	$meta->{'previous'} =~ /^([a-fA-F0-9]{40}) (.*)$/) {
				6883	$meta->{'parent'} = $1;
				6884	$meta->{'file_parent'} = unquote($2);
				6885	}
				6886	my $linenr_commit =
				6887	exists($meta->{'parent'}) ?
				6888	$meta->{'parent'} : $full_rev;
				6889	my $linenr_filename =
				6890	exists($meta->{'file_parent'}) ?
				6891	$meta->{'file_parent'} : unquote($meta->{'filename'});
				6892	my $blamed = href(action => 'blame',
				6893	file_name => $linenr_filename,
				6894	hash_base => $linenr_commit);
				6895	print "<td class=\"linenr\">";
				6896	print $cgi->a({ -href => "$blamed#l$orig_lineno",
				6897	-class => "linenr" },
				6898	esc_html($lineno));
				6899	print "</td>";
				6900	print "<td class=\"pre\">" . esc_html($data) . "</td>\n";
				6901	print "</tr>\n";
				6902	} # end while
				6903
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6904	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6905
				6906	# footer
				6907	print "</tbody>\n".
				6908	"</table>\n"; # class="blame"
				6909	print "</div>\n"; # class="blame_body"
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6910	close $fd
				6911	or print "Reading blob failed\n";
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6912
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6913	git_footer_html();
				6914	}
				6915
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6916	sub git_blame {
				6917	git_blame_common();
				6918	}
				6919
				6920	sub git_blame_incremental {
				6921	git_blame_common('incremental');
				6922	}
				6923
				6924	sub git_blame_data {
				6925	git_blame_common('data');
				6926	}
				6927
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6928	sub git_tags {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6929	my $head = git_get_head_hash($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6930	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6931	git_print_page_nav('','', $head,undef,$head,format_ref_views('tags'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6932	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6933
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6934	my @tagslist = git_get_tags_list();
				6935	if (@tagslist) {
				6936	git_tags_body(\@tagslist);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6937	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6938	git_footer_html();
				6939	}
				6940
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	6941	sub git_heads {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6942	my $head = git_get_head_hash($project);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6943	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6944	git_print_page_nav('','', $head,undef,$head,format_ref_views('heads'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6945	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6946
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6947	my @headslist = git_get_heads_list();
				6948	if (@headslist) {
				6949	git_heads_body(\@headslist, $head);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6950	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6951	git_footer_html();
				6952	}
				6953
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6954	# 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]	6955	sub git_remotes {
				6956	gitweb_check_feature('remote_heads')
				6957	or die_error(403, "Remote heads view is disabled");
				6958
				6959	my $head = git_get_head_hash($project);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6960	my $remote = $input_params{'hash'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6961
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6962	my $remotedata = git_get_remotes_list($remote);
				6963	die_error(500, "Unable to get remote information") unless defined $remotedata;
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6964
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6965	unless (%$remotedata) {
				6966	die_error(404, defined $remote ?
				6967	"Remote $remote not found" :
				6968	"No remotes found");
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6969	}
				6970
				6971	git_header_html(undef, undef, -action_extra => $remote);
				6972	git_print_page_nav('', '', $head, undef, $head,
				6973	format_ref_views($remote ? '' : 'remotes'));
				6974
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6975	fill_remote_heads($remotedata);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6976	if (defined $remote) {
				6977	git_print_header_div('remotes', "$remote remote for $project");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6978	git_remote_block($remote, $remotedata->{$remote}, undef, $head);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6979	} else {
				6980	git_print_header_div('summary', "$project remotes");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6981	git_remotes_body($remotedata, undef, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6982	}
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6983
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6984	git_footer_html();
				6985	}
				6986
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6987	sub git_blob_plain {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6988	my $type = shift;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6989	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6990
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6991	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6992	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6993	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6994	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6995	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6996	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6997	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6998	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6999	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7000	# blobs defined by non-textual hash id's can be cached
				7001	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7002	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	7003
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7004	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7005	or die_error(500, "Open git-cat-file blob '$hash' failed");
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7006
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	7007	# content-type (can include charset)
				7008	$type = blob_contenttype($fd, $file_name, $type);
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7009
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	7010	# "save as" filename, even when no $file_name is given
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7011	my $save_as = "$hash";
				7012	if (defined $file_name) {
				7013	$save_as = $file_name;
				7014	} elsif ($type =~ m/^text\//) {
				7015	$save_as .= '.txt';
				7016	}
				7017
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	7018	# With XSS prevention on, blobs of all types except a few known safe
				7019	# ones are served with "Content-Disposition: attachment" to make sure
				7020	# they don't run in our security domain. For certain image types,
				7021	# blob view writes an <img> tag referring to blob_plain view, and we
				7022	# want to be sure not to break that by serving the image as an
				7023	# attachment (though Firefox 3 doesn't seem to care).
				7024	my $sandbox = $prevent_xss &&
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	7025	$type !~ m!^(?:text/[a-z]+\|image/(?:gif\|png\|jpeg))(?:[ ;]\|$)!;
				7026
				7027	# serve text/* as text/plain
				7028	if ($prevent_xss &&
Jakub Narebski	e8c3531	2011-06-30 11:39:21 +0200	[diff] [blame]	7029	($type =~ m!^text/[a-z]+\b(.*)$! \|\|
				7030	($type =~ m!^[a-z]+/[a-z]\+xml\b(.*)$! && -T $fd))) {
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	7031	my $rest = $1;
				7032	$rest = defined $rest ? $rest : '';
				7033	$type = "text/plain$rest";
				7034	}
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	7035
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	7036	print $cgi->header(
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	7037	-type => $type,
				7038	-expires => $expires,
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	7039	-content_disposition =>
				7040	($sandbox ? 'attachment' : 'inline')
				7041	. '; filename="' . $save_as . '"');
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7042	local $/ = undef;
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7043	binmode STDOUT, ':raw';
				7044	print <$fd>;
				7045	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7046	close $fd;
				7047	}
				7048
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7049	sub git_blob {
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	7050	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	7051
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	7052	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7053	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7054	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7055	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7056	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7057	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7058	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7059	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	7060	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7061	# blobs defined by non-textual hash id's can be cached
				7062	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	7063	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	7064
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7065	my $have_blame = gitweb_check_feature('blame');
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7066	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7067	or die_error(500, "Couldn't cat $file_name, $hash");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7068	my $mimetype = blob_mimetype($fd, $file_name);
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	7069	# use 'blob_plain' (aka 'raw') view for files that cannot be displayed
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7070	if ($mimetype !~ m!^(?:text/\|image/(?:gif\|png\|jpeg)$)! && -B $fd) {
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	7071	close $fd;
				7072	return git_blob_plain($mimetype);
				7073	}
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	7074	# we can have blame only for text/* mimetype
				7075	$have_blame &&= ($mimetype =~ m!^text/!);
				7076
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	7077	my $highlight = gitweb_check_feature('highlight');
Ian Kelling	c151aa3	2016-09-24 15:32:57 -0700	[diff] [blame]	7078	my $syntax = guess_file_syntax($highlight, $file_name);
Ian Kelling	779a206	2016-09-24 15:32:58 -0700	[diff] [blame]	7079	$fd = run_highlighter($fd, $highlight, $syntax);
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	7080
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	7081	git_header_html(undef, $expires);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7082	my $formats_nav = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7083	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	7084	if (defined $file_name) {
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	7085	if ($have_blame) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7086	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7087	$cgi->a({-href => href(action=>"blame", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7088	"blame") .
				7089	" \| ";
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	7090	}
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7091	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7092	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7093	"history") .
				7094	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7095	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	7096	"raw") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7097	" \| " .
				7098	$cgi->a({-href => href(action=>"blob",
				7099	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	7100	"HEAD");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	7101	} else {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7102	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7103	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
				7104	"raw");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	7105	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7106	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7107	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7108	} else {
				7109	print "<div class=\"page_nav\">\n" .
				7110	"<br/><br/></div>\n" .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7111	"<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7112	}
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	7113	git_print_page_path($file_name, "blob", $hash_base);
Kay Sievers	c07ad4b	2005-08-07 20:22:44 +0200	[diff] [blame]	7114	print "<div class=\"page_body\">\n";
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7115	if ($mimetype =~ m!^image/!) {
Andrew Keller	46a7471	2014-02-17 09:25:13 -0500	[diff] [blame]	7116	print qq!<img class="blob" type="!.esc_attr($mimetype).qq!"!;
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	7117	if ($file_name) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7118	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]	7119	}
				7120	print qq! src="! .
				7121	href(action=>"blob_plain", hash=>$hash,
				7122	hash_base=>$hash_base, file_name=>$file_name) .
				7123	qq!" />\n!;
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7124	} else {
				7125	my $nr;
				7126	while (my $line = <$fd>) {
				7127	chomp $line;
				7128	$nr++;
				7129	$line = untabify($line);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	7130	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]	7131	$nr, esc_attr(href(-replay => 1)), $nr, $nr,
Ian Kelling	779a206	2016-09-24 15:32:58 -0700	[diff] [blame]	7132	$highlight ? sanitize($line) : esc_html($line, -nbsp=>1);
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	7133	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7134	}
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7135	close $fd
				7136	or print "Reading blob failed.\n";
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7137	print "</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7138	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7139	}
				7140
				7141	sub git_tree {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	7142	if (!defined $hash_base) {
				7143	$hash_base = "HEAD";
				7144	}
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7145	if (!defined $hash) {
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7146	if (defined $file_name) {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	7147	$hash = git_get_hash_by_path($hash_base, $file_name, "tree");
				7148	} else {
				7149	$hash = $hash_base;
Kay Sievers	10dba28	2005-08-07 20:25:27 +0200	[diff] [blame]	7150	}
Kay Sievers	e925f38	2005-08-07 20:23:35 +0200	[diff] [blame]	7151	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	7152	die_error(404, "No such tree") unless defined($hash);
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7153
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7154	my $show_sizes = gitweb_check_feature('show-sizes');
				7155	my $have_blame = gitweb_check_feature('blame');
				7156
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7157	my @entries = ();
				7158	{
				7159	local $/ = "\0";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7160	open my $fd, "-\|", git_cmd(), "ls-tree", '-z',
				7161	($show_sizes ? '-l' : ()), @extra_options, $hash
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	7162	or die_error(500, "Open git-ls-tree failed");
				7163	@entries = map { chomp; $_ } <$fd>;
				7164	close $fd
				7165	or die_error(404, "Reading tree failed");
				7166	}
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7167
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7168	my $refs = git_get_references();
				7169	my $ref = format_ref_marker($refs, $hash_base);
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7170	git_header_html();
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7171	my $basedir = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7172	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7173	my @views_nav = ();
				7174	if (defined $file_name) {
				7175	push @views_nav,
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7176	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7177	"history"),
				7178	$cgi->a({-href => href(action=>"tree",
				7179	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	7180	"HEAD"),
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7181	}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7182	my $snapshot_links = format_snapshot_links($hash);
				7183	if (defined $snapshot_links) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7184	# FIXME: Should be available when we have no hash base as well.
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7185	push @views_nav, $snapshot_links;
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	7186	}
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7187	git_print_page_nav('tree','', $hash_base, undef, undef,
				7188	join(' \| ', @views_nav));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7189	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash_base);
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7190	} else {
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	7191	undef $hash_base;
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7192	print "<div class=\"page_nav\">\n";
				7193	print "<br/><br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7194	print "<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	7195	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7196	if (defined $file_name) {
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7197	$basedir = $file_name;
				7198	if ($basedir ne '' && substr($basedir, -1) ne '/') {
				7199	$basedir .= '/';
				7200	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	7201	git_print_page_path($file_name, 'tree', $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7202	}
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7203	print "<div class=\"page_body\">\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7204	print "<table class=\"tree\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	7205	my $alternate = 1;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7206	# '..' (top directory) link if possible
				7207	if (defined $hash_base &&
				7208	defined $file_name && $file_name =~ m![^/]+$!) {
				7209	if ($alternate) {
				7210	print "<tr class=\"dark\">\n";
				7211	} else {
				7212	print "<tr class=\"light\">\n";
				7213	}
				7214	$alternate ^= 1;
				7215
				7216	my $up = $file_name;
				7217	$up =~ s!/?[^/]+$!!;
				7218	undef $up unless $up;
				7219	# based on git_print_tree_entry
				7220	print '<td class="mode">' . mode_str('040000') . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7221	print '<td class="size"> </td>'."\n" if $show_sizes;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7222	print '<td class="list">';
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7223	print $cgi->a({-href => href(action=>"tree",
				7224	hash_base=>$hash_base,
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	7225	file_name=>$up)},
				7226	"..");
				7227	print "</td>\n";
				7228	print "<td class=\"link\"></td>\n";
				7229
				7230	print "</tr>\n";
				7231	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7232	foreach my $line (@entries) {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	7233	my %t = parse_ls_tree_line($line, -z => 1, -l => $show_sizes);
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	7234
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7235	if ($alternate) {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7236	print "<tr class=\"dark\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7237	} else {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7238	print "<tr class=\"light\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7239	}
				7240	$alternate ^= 1;
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	7241
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	7242	git_print_tree_entry(\%t, $basedir, $hash_base, $have_blame);
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	7243
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	7244	print "</tr>\n";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7245	}
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	7246	print "</table>\n" .
				7247	"</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7248	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7249	}
				7250
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	7251	sub sanitize_for_filename {
				7252	my $name = shift;
				7253
				7254	$name =~ s!/!-!g;
				7255	$name =~ s/[^[:alnum:]_.-]//g;
				7256
				7257	return $name;
				7258	}
				7259
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7260	sub snapshot_name {
				7261	my ($project, $hash) = @_;
				7262
				7263	# path/to/project.git -> project
				7264	# path/to/project/.git -> project
				7265	my $name = to_utf8($project);
				7266	$name =~ s,([^/])/*\.git$,$1,;
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	7267	$name = sanitize_for_filename(basename($name));
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7268
				7269	my $ver = $hash;
				7270	if ($hash =~ /^[0-9a-fA-F]+$/) {
				7271	# shorten SHA-1 hash
				7272	my $full_hash = git_get_full_hash($project, $hash);
				7273	if ($full_hash =~ /^$hash/ && length($hash) > 7) {
				7274	$ver = git_get_short_hash($project, $hash);
				7275	}
				7276	} elsif ($hash =~ m!^refs/tags/(.*)$!) {
				7277	# tags don't need shortened SHA-1 hash
				7278	$ver = $1;
				7279	} else {
				7280	# branches and other need shortened SHA-1 hash
Krzesimir Nowak	8d646a9	2013-12-11 12:54:43 +0100	[diff] [blame]	7281	my $strip_refs = join '\|', map { quotemeta } get_branch_refs();
				7282	if ($hash =~ m!^refs/($strip_refs\|remotes)/(.*)$!) {
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	7283	my $ref_dir = (defined $1) ? $1 : '';
				7284	$ver = $2;
				7285
				7286	$ref_dir = sanitize_for_filename($ref_dir);
				7287	# for refs neither in heads nor remotes we want to
				7288	# add a ref dir to archive name
				7289	if ($ref_dir ne '' and $ref_dir ne 'heads' and $ref_dir ne 'remotes') {
				7290	$ver = $ref_dir . '-' . $ver;
				7291	}
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7292	}
				7293	$ver .= '-' . git_get_short_hash($project, $hash);
				7294	}
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	7295	# special case of sanitization for filename - we change
				7296	# slashes to dots instead of dashes
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7297	# in case of hierarchical branch names
				7298	$ver =~ s!/!.!g;
Krzesimir Nowak	e374747	2013-12-11 12:54:44 +0100	[diff] [blame]	7299	$ver =~ s/[^[:alnum:]_.-]//g;
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7300
				7301	# name = project-version_string
				7302	$name = "$name-$ver";
				7303
				7304	return wantarray ? ($name, $name) : $name;
				7305	}
				7306
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	7307	sub exit_if_unmodified_since {
				7308	my ($latest_epoch) = @_;
				7309	our $cgi;
				7310
				7311	my $if_modified = $cgi->http('IF_MODIFIED_SINCE');
				7312	if (defined $if_modified) {
				7313	my $since;
				7314	if (eval { require HTTP::Date; 1; }) {
				7315	$since = HTTP::Date::str2time($if_modified);
				7316	} elsif (eval { require Time::ParseDate; 1; }) {
				7317	$since = Time::ParseDate::parsedate($if_modified, GMT => 1);
				7318	}
				7319	if (defined $since && $latest_epoch <= $since) {
				7320	my %latest_date = parse_date($latest_epoch);
				7321	print $cgi->header(
				7322	-last_modified => $latest_date{'rfc2822'},
				7323	-status => '304 Not Modified');
				7324	goto DONE_GITWEB;
				7325	}
				7326	}
				7327	}
				7328
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7329	sub git_snapshot {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	7330	my $format = $input_params{'snapshot_format'};
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	7331	if (!@snapshot_fmts) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7332	die_error(403, "Snapshots not allowed");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7333	}
				7334	# default to first supported snapshot format
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	7335	$format \|\|= $snapshot_fmts[0];
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7336	if ($format !~ m/^[a-z0-9]+$/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7337	die_error(400, "Invalid snapshot format parameter");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	7338	} elsif (!exists($known_snapshot_formats{$format})) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7339	die_error(400, "Unknown snapshot format");
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	7340	} elsif ($known_snapshot_formats{$format}{'disabled'}) {
				7341	die_error(403, "Snapshot format not allowed");
Mark Rada	34b31a8	2009-08-25 00:59:48 -0400	[diff] [blame]	7342	} elsif (!grep($_ eq $format, @snapshot_fmts)) {
				7343	die_error(403, "Unsupported snapshot format");
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7344	}
				7345
Mark Rada	fdb0c36	2009-09-26 13:46:08 -0400	[diff] [blame]	7346	my $type = git_get_type("$hash^{}");
				7347	if (!$type) {
				7348	die_error(404, 'Object does not exist');
				7349	} elsif ($type eq 'blob') {
				7350	die_error(400, 'Object is not a tree-ish');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7351	}
				7352
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7353	my ($name, $prefix) = snapshot_name($project, $hash);
				7354	my $filename = "$name$known_snapshot_formats{$format}{'suffix'}";
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7355
				7356	my %co = parse_commit($hash);
				7357	exit_if_unmodified_since($co{'committer_epoch'}) if %co;
				7358
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7359	my $cmd = quote_command(
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7360	git_cmd(), 'archive',
				7361	"--format=$known_snapshot_formats{$format}{'format'}",
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7362	"--prefix=$prefix/", $hash);
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7363	if (exists $known_snapshot_formats{$format}{'compressor'}) {
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7364	$cmd .= ' \| ' . quote_command(@{$known_snapshot_formats{$format}{'compressor'}});
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	7365	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7366
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7367	$filename =~ s/(["\\])/\\$1/g;
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7368	my %latest_date;
				7369	if (%co) {
				7370	%latest_date = parse_date($co{'committer_epoch'}, $co{'committer_tz'});
				7371	}
				7372
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	7373	print $cgi->header(
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7374	-type => $known_snapshot_formats{$format}{'type'},
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	7375	-content_disposition => 'inline; filename="' . $filename . '"',
W. Trevor King	8745db6	2012-03-29 08:45:49 -0400	[diff] [blame]	7376	%co ? (-last_modified => $latest_date{'rfc2822'}) : (),
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	7377	-status => '200 OK');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7378
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	7379	open my $fd, "-\|", $cmd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7380	or die_error(500, "Execute git-archive failed");
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7381	binmode STDOUT, ':raw';
				7382	print <$fd>;
				7383	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
				7384	close $fd;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7385	}
				7386
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7387	sub git_log_generic {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7388	my ($fmt_name, $body_subr, $base, $parent, $file_name, $file_hash) = @_;
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7389
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7390	my $head = git_get_head_hash($project);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7391	if (!defined $base) {
				7392	$base = $head;
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	7393	}
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7394	if (!defined $page) {
				7395	$page = 0;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7396	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7397	my $refs = git_get_references();
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7398
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7399	my $commit_hash = $base;
				7400	if (defined $parent) {
				7401	$commit_hash = "$parent..$base";
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7402	}
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7403	my @commitlist =
				7404	parse_commits($commit_hash, 101, (100 * $page),
				7405	defined $file_name ? ($file_name, "--full-history") : ());
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	7406
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7407	my $ftype;
				7408	if (!defined $file_hash && defined $file_name) {
				7409	# some commits could have deleted file in question,
				7410	# and not have it in tree, but one of them has to have it
				7411	for (my $i = 0; $i < @commitlist; $i++) {
				7412	$file_hash = git_get_hash_by_path($commitlist[$i]{'id'}, $file_name);
				7413	last if defined $file_hash;
				7414	}
				7415	}
				7416	if (defined $file_hash) {
				7417	$ftype = git_get_type($file_hash);
				7418	}
				7419	if (defined $file_name && !defined $ftype) {
				7420	die_error(500, "Unknown type of object");
				7421	}
				7422	my %co;
				7423	if (defined $file_name) {
				7424	%co = parse_commit($base)
				7425	or die_error(404, "Unknown commit object");
				7426	}
				7427
				7428
				7429	my $paging_nav = format_paging_nav($fmt_name, $page, $#commitlist >= 100);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7430	my $next_link = '';
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7431	if ($#commitlist >= 100) {
				7432	$next_link =
				7433	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				7434	-accesskey => "n", -title => "Alt-n"}, "next");
				7435	}
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7436	my $patch_max = gitweb_get_feature('patches');
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7437	if ($patch_max && !defined $file_name) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7438	if ($patch_max < 0 \|\| @commitlist <= $patch_max) {
				7439	$paging_nav .= " ⋅ " .
				7440	$cgi->a({-href => href(action=>"patches", -replay=>1)},
				7441	"patches");
				7442	}
				7443	}
				7444
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7445	git_header_html();
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7446	git_print_page_nav($fmt_name,'', $hash,$hash,$hash, $paging_nav);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7447	if (defined $file_name) {
				7448	git_print_header_div('commit', esc_html($co{'title'}), $base);
				7449	} else {
				7450	git_print_header_div('summary', $project)
				7451	}
				7452	git_print_page_path($file_name, $ftype, $hash_base)
				7453	if (defined $file_name);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	7454
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7455	$body_subr->(\@commitlist, 0, 99, $refs, $next_link,
				7456	$file_name, $file_hash, $ftype);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	7457
Kay Sievers	034df39	2005-08-07 20:20:07 +0200	[diff] [blame]	7458	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7459	}
				7460
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7461	sub git_log {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7462	git_log_generic('log', \&git_log_body,
				7463	$hash, $hash_parent);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	7464	}
				7465
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7466	sub git_commit {
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7467	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7468	my %co = parse_commit($hash)
				7469	or die_error(404, "Unknown commit object");
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7470
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7471	my $parent = $co{'parent'};
				7472	my $parents = $co{'parents'}; # listref
				7473
				7474	# we need to prepare $formats_nav before any parameter munging
				7475	my $formats_nav;
				7476	if (!defined $parent) {
				7477	# --root commitdiff
				7478	$formats_nav .= '(initial)';
				7479	} elsif (@$parents == 1) {
				7480	# single parent commit
				7481	$formats_nav .=
				7482	'(parent: ' .
				7483	$cgi->a({-href => href(action=>"commit",
				7484	hash=>$parent)},
				7485	esc_html(substr($parent, 0, 7))) .
				7486	')';
				7487	} else {
				7488	# merge commit
				7489	$formats_nav .=
				7490	'(merge: ' .
				7491	join(' ', map {
Jakub Narebski	f9308a1	2007-03-23 21:04:31 +0100	[diff] [blame]	7492	$cgi->a({-href => href(action=>"commit",
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7493	hash=>$_)},
				7494	esc_html(substr($_, 0, 7)));
				7495	} @$parents ) .
				7496	')';
				7497	}
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7498	if (gitweb_check_feature('patches') && @$parents <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7499	$formats_nav .= " \| " .
				7500	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7501	"patch");
				7502	}
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7503
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	7504	if (!defined $parent) {
Jakub Narebski	b918298	2006-07-30 18:28:34 -0700	[diff] [blame]	7505	$parent = "--root";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7506	}
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7507	my @difftree;
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7508	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', "--no-commit-id",
				7509	@diff_opts,
				7510	(@$parents <= 1 ? $parent : '-c'),
				7511	$hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7512	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7513	@difftree = map { chomp; $_ } <$fd>;
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7514	close $fd or die_error(404, "Reading git-diff-tree failed");
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7515
				7516	# non-textual hash id's can be cached
				7517	my $expires;
				7518	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7519	$expires = "+1d";
				7520	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7521	my $refs = git_get_references();
				7522	my $ref = format_ref_marker($refs, $co{'id'});
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7523
Jakub Narebski	594e212	2006-07-31 02:21:52 +0200	[diff] [blame]	7524	git_header_html(undef, $expires);
Petr Baudis	a144154	2006-10-06 18:59:33 +0200	[diff] [blame]	7525	git_print_page_nav('commit', '',
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7526	$hash, $co{'tree'}, $hash,
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7527	$formats_nav);
Luben Tuikov	4f7b34c	2006-07-23 13:36:32 -0700	[diff] [blame]	7528
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7529	if (defined $co{'parent'}) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7530	git_print_header_div('commitdiff', esc_html($co{'title'}) . $ref, $hash);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7531	} else {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7532	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]	7533	}
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7534	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7535	"<table class=\"object_header\">\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	7536	git_print_authorship_rows(\%co);
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7537	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]	7538	print "<tr>" .
				7539	"<td>tree</td>" .
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7540	"<td class=\"sha1\">" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7541	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash),
				7542	class => "list"}, $co{'tree'}) .
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7543	"</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7544	"<td class=\"link\">" .
				7545	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash)},
				7546	"tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7547	my $snapshot_links = format_snapshot_links($hash);
				7548	if (defined $snapshot_links) {
				7549	print " \| " . $snapshot_links;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7550	}
				7551	print "</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7552	"</tr>\n";
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7553
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7554	foreach my $par (@$parents) {
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7555	print "<tr>" .
				7556	"<td>parent</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7557	"<td class=\"sha1\">" .
				7558	$cgi->a({-href => href(action=>"commit", hash=>$par),
				7559	class => "list"}, $par) .
				7560	"</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7561	"<td class=\"link\">" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	7562	$cgi->a({-href => href(action=>"commit", hash=>$par)}, "commit") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7563	" \| " .
Jakub Narebski	f2e6094	2006-09-03 23:43:03 +0200	[diff] [blame]	7564	$cgi->a({-href => href(action=>"commitdiff", hash=>$hash, hash_parent=>$par)}, "diff") .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7565	"</td>" .
				7566	"</tr>\n";
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7567	}
Jakub Narebski	7a9b4c5	2006-06-21 09:48:02 +0200	[diff] [blame]	7568	print "</table>".
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7569	"</div>\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7570
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7571	print "<div class=\"page_body\">\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7572	git_print_log($co{'comment'});
Kay Sievers	927dcec	2005-08-07 20:18:44 +0200	[diff] [blame]	7573	print "</div>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7574
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7575	git_difftree_body(\@difftree, $hash, @$parents);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7576
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7577	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7578	}
				7579
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7580	sub git_object {
				7581	# object is defined by:
				7582	# - hash or hash_base alone
				7583	# - hash_base and file_name
				7584	my $type;
				7585
				7586	# - hash or hash_base alone
				7587	if ($hash \|\| ($hash_base && !defined $file_name)) {
				7588	my $object_id = $hash \|\| $hash_base;
				7589
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7590	open my $fd, "-\|", quote_command(
				7591	git_cmd(), 'cat-file', '-t', $object_id) . ' 2> /dev/null'
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7592	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7593	$type = <$fd>;
Øyvind A. Holm	a9eb90a	2016-01-12 04:31:56 +0100	[diff] [blame]	7594	defined $type && chomp $type;
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7595	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7596	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7597
				7598	# - hash_base and file_name
				7599	} elsif ($hash_base && defined $file_name) {
				7600	$file_name =~ s,/+$,,;
				7601
				7602	system(git_cmd(), "cat-file", '-e', $hash_base) == 0
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7603	or die_error(404, "Base object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7604
Stefano Lattarini	41ccfdd	2013-04-12 00:36:10 +0200	[diff] [blame]	7605	# here errors should not happen
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7606	open my $fd, "-\|", git_cmd(), "ls-tree", $hash_base, "--", $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7607	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7608	my $line = <$fd>;
				7609	close $fd;
				7610
				7611	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				7612	unless ($line && $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7613	die_error(404, "File or directory for given base does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7614	}
				7615	$type = $2;
				7616	$hash = $3;
				7617	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7618	die_error(400, "Not enough information to find object");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7619	}
				7620
				7621	print $cgi->redirect(-uri => href(action=>$type, -full=>1,
				7622	hash=>$hash, hash_base=>$hash_base,
				7623	file_name=>$file_name),
				7624	-status => '302 Found');
				7625	}
				7626
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7627	sub git_blobdiff {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7628	my $format = shift \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7629	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7630
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7631	my $fd;
				7632	my @difftree;
				7633	my %diffinfo;
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7634	my $expires;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7635
				7636	# preparing $fd and %diffinfo for git_patchset_body
				7637	# new style URI
				7638	if (defined $hash_base && defined $hash_parent_base) {
				7639	if (defined $file_name) {
				7640	# read raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7641	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7642	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7643	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7644	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7645	@difftree = map { chomp; $_ } <$fd>;
				7646	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7647	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7648	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7649	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7650
Jakub Narebski	0aea337	2006-08-27 23:45:26 +0200	[diff] [blame]	7651	} elsif (defined $hash &&
				7652	$hash =~ /[0-9a-fA-F]{40}/) {
				7653	# try to find filename from $hash
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7654
				7655	# read filtered raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7656	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7657	$hash_parent_base, $hash_base, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7658	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7659	@difftree =
				7660	# ':100644 100644 03b21826... 3b93d5e7... M ls-files.c'
				7661	# $hash == to_id
				7662	grep { /^:[0-7]{6} [0-7]{6} [0-9a-fA-F]{40} $hash/ }
				7663	map { chomp; $_ } <$fd>;
				7664	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7665	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7666	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7667	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7668
				7669	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7670	die_error(400, "Missing one of the blob diff parameters");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7671	}
				7672
				7673	if (@difftree > 1) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7674	die_error(400, "Ambiguous blob diff specification");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7675	}
				7676
				7677	%diffinfo = parse_difftree_raw_line($difftree[0]);
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	7678	$file_parent \|\|= $diffinfo{'from_file'} \|\| $file_name;
				7679	$file_name \|\|= $diffinfo{'to_file'};
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7680
				7681	$hash_parent \|\|= $diffinfo{'from_id'};
				7682	$hash \|\|= $diffinfo{'to_id'};
				7683
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7684	# non-textual hash id's can be cached
				7685	if ($hash_base =~ m/^[0-9a-fA-F]{40}$/ &&
				7686	$hash_parent_base =~ m/^[0-9a-fA-F]{40}$/) {
				7687	$expires = '+1d';
				7688	}
				7689
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7690	# open patch output
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7691	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	957d6ea	2007-04-05 13:45:41 +0200	[diff] [blame]	7692	'-p', ($format eq 'html' ? "--full-index" : ()),
				7693	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7694	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7695	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7696	}
				7697
Junio C Hamano	b54dc9f	2008-12-16 19:42:02 -0800	[diff] [blame]	7698	# old/legacy style URI -- not generated anymore since 1.4.3.
				7699	if (!%diffinfo) {
				7700	die_error('404 Not Found', "Missing one of the blob diff parameters")
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7701	}
				7702
				7703	# header
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7704	if ($format eq 'html') {
				7705	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7706	$cgi->a({-href => href(action=>"blobdiff_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	7707	"raw");
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7708	$formats_nav .= diff_style_nav($diff_style);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7709	git_header_html(undef, $expires);
				7710	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
				7711	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7712	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
				7713	} else {
				7714	print "<div class=\"page_nav\"><br/>$formats_nav<br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7715	print "<div class=\"title\">".esc_html("$hash vs $hash_parent")."</div>\n";
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7716	}
				7717	if (defined $file_name) {
				7718	git_print_page_path($file_name, "blob", $hash_base);
				7719	} else {
				7720	print "<div class=\"page_path\"></div>\n";
				7721	}
				7722
				7723	} elsif ($format eq 'plain') {
				7724	print $cgi->header(
				7725	-type => 'text/plain',
				7726	-charset => 'utf-8',
				7727	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7728	-content_disposition => 'inline; filename="' . "$file_name" . '.patch"');
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7729
				7730	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
				7731
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7732	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7733	die_error(400, "Unknown blobdiff format");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7734	}
				7735
				7736	# patch
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7737	if ($format eq 'html') {
				7738	print "<div class=\"page_body\">\n";
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7739
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7740	git_patchset_body($fd, $diff_style,
				7741	[ \%diffinfo ], $hash_base, $hash_parent_base);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7742	close $fd;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7743
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7744	print "</div>\n"; # class="page_body"
				7745	git_footer_html();
				7746
				7747	} else {
				7748	while (my $line = <$fd>) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	7749	$line =~ s!a/($hash\|$hash_parent)!'a/'.esc_path($diffinfo{'from_file'})!eg;
				7750	$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]	7751
				7752	print $line;
				7753
				7754	last if $line =~ m!^\+\+\+!;
				7755	}
				7756	local $/ = undef;
				7757	print <$fd>;
				7758	close $fd;
				7759	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7760	}
				7761
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7762	sub git_blobdiff_plain {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7763	git_blobdiff('plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7764	}
				7765
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7766	# assumes that it is added as later part of already existing navigation,
				7767	# so it returns "\| foo \| bar" rather than just "foo \| bar"
				7768	sub diff_style_nav {
				7769	my ($diff_style, $is_combined) = @_;
				7770	$diff_style \|\|= 'inline';
				7771
				7772	return "" if ($is_combined);
				7773
				7774	my @styles = (inline => 'inline', 'sidebyside' => 'side by side');
				7775	my %styles = @styles;
				7776	@styles =
				7777	@styles[ map { $_ * 2 } 0..$#styles/2 ];
				7778
				7779	return join '',
				7780	map { " \| ".$_ }
				7781	map {
				7782	$_ eq $diff_style ? $styles{$_} :
				7783	$cgi->a({-href => href(-replay=>1, diff_style => $_)}, $styles{$_})
				7784	} @styles;
				7785	}
				7786
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7787	sub git_commitdiff {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7788	my %params = @_;
				7789	my $format = $params{-format} \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7790	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7791
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7792	my ($patch_max) = gitweb_get_feature('patches');
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7793	if ($format eq 'patch') {
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7794	die_error(403, "Patch view not allowed") unless $patch_max;
				7795	}
				7796
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7797	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7798	my %co = parse_commit($hash)
				7799	or die_error(404, "Unknown commit object");
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7800
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7801	# choose format for commitdiff for merge
				7802	if (! defined $hash_parent && @{$co{'parents'}} > 1) {
				7803	$hash_parent = '--cc';
				7804	}
				7805	# we need to prepare $formats_nav before almost any parameter munging
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7806	my $formats_nav;
				7807	if ($format eq 'html') {
				7808	$formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7809	$cgi->a({-href => href(action=>"commitdiff_plain", -replay=>1)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7810	"raw");
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7811	if ($patch_max && @{$co{'parents'}} <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7812	$formats_nav .= " \| " .
				7813	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7814	"patch");
				7815	}
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7816	$formats_nav .= diff_style_nav($diff_style, @{$co{'parents'}} > 1);
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7817
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7818	if (defined $hash_parent &&
				7819	$hash_parent ne '-c' && $hash_parent ne '--cc') {
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7820	# commitdiff with two commits given
				7821	my $hash_parent_short = $hash_parent;
				7822	if ($hash_parent =~ m/^[0-9a-fA-F]{40}$/) {
				7823	$hash_parent_short = substr($hash_parent, 0, 7);
				7824	}
				7825	$formats_nav .=
Jakub Narebski	ada3e1f	2007-06-08 13:26:31 +0200	[diff] [blame]	7826	' (from';
				7827	for (my $i = 0; $i < @{$co{'parents'}}; $i++) {
				7828	if ($co{'parents'}[$i] eq $hash_parent) {
				7829	$formats_nav .= ' parent ' . ($i+1);
				7830	last;
				7831	}
				7832	}
				7833	$formats_nav .= ': ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7834	$cgi->a({-href => href(-replay=>1,
				7835	hash=>$hash_parent, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7836	esc_html($hash_parent_short)) .
				7837	')';
				7838	} elsif (!$co{'parent'}) {
				7839	# --root commitdiff
				7840	$formats_nav .= ' (initial)';
				7841	} elsif (scalar @{$co{'parents'}} == 1) {
				7842	# single parent commit
				7843	$formats_nav .=
				7844	' (parent: ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7845	$cgi->a({-href => href(-replay=>1,
				7846	hash=>$co{'parent'}, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7847	esc_html(substr($co{'parent'}, 0, 7))) .
				7848	')';
				7849	} else {
				7850	# merge commit
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7851	if ($hash_parent eq '--cc') {
				7852	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7853	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7854	hash=>$hash, hash_parent=>'-c')},
				7855	'combined');
				7856	} else { # $hash_parent eq '-c'
				7857	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7858	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7859	hash=>$hash, hash_parent=>'--cc')},
				7860	'compact');
				7861	}
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7862	$formats_nav .=
				7863	' (merge: ' .
				7864	join(' ', map {
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7865	$cgi->a({-href => href(-replay=>1,
				7866	hash=>$_, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7867	esc_html(substr($_, 0, 7)));
				7868	} @{$co{'parents'}} ) .
				7869	')';
				7870	}
				7871	}
				7872
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7873	my $hash_parent_param = $hash_parent;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7874	if (!defined $hash_parent_param) {
				7875	# --cc for multiple parents, --root for parentless
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7876	$hash_parent_param =
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7877	@{$co{'parents'}} > 1 ? '--cc' : $co{'parent'} \|\| '--root';
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7878	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7879
				7880	# read commitdiff
				7881	my $fd;
				7882	my @difftree;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7883	if ($format eq 'html') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7884	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7885	"--no-commit-id", "--patch-with-raw", "--full-index",
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7886	$hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7887	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7888
Jakub Narebski	04408c3	2006-11-18 23:35:38 +0100	[diff] [blame]	7889	while (my $line = <$fd>) {
				7890	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7891	# empty line ends raw part of diff-tree output
				7892	last unless $line;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	7893	push @difftree, scalar parse_difftree_raw_line($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7894	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7895
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7896	} elsif ($format eq 'plain') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7897	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7898	'-p', $hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7899	or die_error(500, "Open git-diff-tree failed");
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7900	} elsif ($format eq 'patch') {
				7901	# For commit ranges, we limit the output to the number of
				7902	# patches specified in the 'patches' feature.
				7903	# For single commits, we limit the output to a single patch,
				7904	# diverging from the git-format-patch default.
				7905	my @commit_spec = ();
				7906	if ($hash_parent) {
				7907	if ($patch_max > 0) {
				7908	push @commit_spec, "-$patch_max";
				7909	}
				7910	push @commit_spec, '-n', "$hash_parent..$hash";
				7911	} else {
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7912	if ($params{-single}) {
				7913	push @commit_spec, '-1';
				7914	} else {
				7915	if ($patch_max > 0) {
				7916	push @commit_spec, "-$patch_max";
				7917	}
				7918	push @commit_spec, "-n";
				7919	}
				7920	push @commit_spec, '--root', $hash;
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7921	}
Pavan Kumar Sunkara	04794fd	2010-05-10 18:41:35 +0200	[diff] [blame]	7922	open $fd, "-\|", git_cmd(), "format-patch", @diff_opts,
				7923	'--encoding=utf8', '--stdout', @commit_spec
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7924	or die_error(500, "Open git-format-patch failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7925	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7926	die_error(400, "Unknown commitdiff format");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7927	}
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	7928
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7929	# non-textual hash id's can be cached
				7930	my $expires;
				7931	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7932	$expires = "+1d";
				7933	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7934
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7935	# write commit message
				7936	if ($format eq 'html') {
				7937	my $refs = git_get_references();
				7938	my $ref = format_ref_marker($refs, $co{'id'});
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7939
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7940	git_header_html(undef, $expires);
				7941	git_print_page_nav('commitdiff','', $hash,$co{'tree'},$hash, $formats_nav);
				7942	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash);
Giuseppe Bilotta	f88bafa	2009-06-30 00:00:49 +0200	[diff] [blame]	7943	print "<div class=\"title_text\">\n" .
				7944	"<table class=\"object_header\">\n";
				7945	git_print_authorship_rows(\%co);
				7946	print "</table>".
				7947	"</div>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7948	print "<div class=\"page_body\">\n";
Jakub Narebski	8256098	2006-10-24 13:55:33 +0200	[diff] [blame]	7949	if (@{$co{'comment'}} > 1) {
				7950	print "<div class=\"log\">\n";
				7951	git_print_log($co{'comment'}, -final_empty_line=> 1, -remove_title => 1);
				7952	print "</div>\n"; # class="log"
				7953	}
Kay Sievers	1b1cd42	2005-08-07 20:28:01 +0200	[diff] [blame]	7954
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7955	} elsif ($format eq 'plain') {
				7956	my $refs = git_get_references("tags");
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7957	my $tagname = git_get_rev_name_tags($hash);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7958	my $filename = basename($project) . "-$hash.patch";
				7959
				7960	print $cgi->header(
				7961	-type => 'text/plain',
				7962	-charset => 'utf-8',
				7963	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7964	-content_disposition => 'inline; filename="' . "$filename" . '"');
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7965	my %ad = parse_date($co{'author_epoch'}, $co{'author_tz'});
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7966	print "From: " . to_utf8($co{'author'}) . "\n";
				7967	print "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n";
				7968	print "Subject: " . to_utf8($co{'title'}) . "\n";
				7969
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7970	print "X-Git-Tag: $tagname\n" if $tagname;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7971	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7972
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7973	foreach my $line (@{$co{'comment'}}) {
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7974	print to_utf8($line) . "\n";
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7975	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7976	print "---\n\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7977	} elsif ($format eq 'patch') {
				7978	my $filename = basename($project) . "-$hash.patch";
				7979
				7980	print $cgi->header(
				7981	-type => 'text/plain',
				7982	-charset => 'utf-8',
				7983	-expires => $expires,
				7984	-content_disposition => 'inline; filename="' . "$filename" . '"');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7985	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7986
				7987	# write patch
				7988	if ($format eq 'html') {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7989	my $use_parents = !defined $hash_parent \|\|
				7990	$hash_parent eq '-c' \|\| $hash_parent eq '--cc';
				7991	git_difftree_body(\@difftree, $hash,
				7992	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	7993	print "<br/>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7994
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7995	git_patchset_body($fd, $diff_style,
				7996	\@difftree, $hash,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7997	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	7998	close $fd;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7999	print "</div>\n"; # class="page_body"
				8000	git_footer_html();
				8001
				8002	} elsif ($format eq 'plain') {
				8003	local $/ = undef;
				8004	print <$fd>;
				8005	close $fd
				8006	or print "Reading git-diff-tree failed\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	8007	} elsif ($format eq 'patch') {
				8008	local $/ = undef;
				8009	print <$fd>;
				8010	close $fd
				8011	or print "Reading git-format-patch failed\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	8012	}
				8013	}
				8014
				8015	sub git_commitdiff_plain {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	8016	git_commitdiff(-format => 'plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8017	}
				8018
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	8019	# format-patch-style patches
				8020	sub git_patch {
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	8021	git_commitdiff(-format => 'patch', -single => 1);
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	8022	}
				8023
				8024	sub git_patches {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	8025	git_commitdiff(-format => 'patch');
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	8026	}
				8027
				8028	sub git_history {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	8029	git_log_generic('history', \&git_history_body,
				8030	$hash_base, $hash_parent_base,
				8031	$file_name, $hash);
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	8032	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8033
				8034	sub git_search {
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	8035	$searchtype \|\|= 'commit';
				8036
				8037	# check if appropriate features are enabled
				8038	gitweb_check_feature('search')
				8039	or die_error(403, "Search is disabled");
				8040	if ($searchtype eq 'pickaxe') {
				8041	# pickaxe may take all resources of your box and run for several minutes
				8042	# with every query - so decide by yourself how public you make this feature
				8043	gitweb_check_feature('pickaxe')
				8044	or die_error(403, "Pickaxe search is disabled");
				8045	}
				8046	if ($searchtype eq 'grep') {
				8047	# grep search might be potentially CPU-intensive, too
				8048	gitweb_check_feature('grep')
				8049	or die_error(403, "Grep search is disabled");
				8050	}
				8051
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8052	if (!defined $searchtext) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	8053	die_error(400, "Text field is empty");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8054	}
				8055	if (!defined $hash) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8056	$hash = git_get_head_hash($project);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8057	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8058	my %co = parse_commit($hash);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8059	if (!%co) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	8060	die_error(404, "Unknown commit object");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8061	}
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	8062	if (!defined $page) {
				8063	$page = 0;
				8064	}
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	8065
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	8066	if ($searchtype eq 'commit' \|\|
				8067	$searchtype eq 'author' \|\|
				8068	$searchtype eq 'committer') {
				8069	git_search_message(%co);
				8070	} elsif ($searchtype eq 'pickaxe') {
				8071	git_search_changes(%co);
				8072	} elsif ($searchtype eq 'grep') {
				8073	git_search_files(%co);
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	8074	} else {
				8075	die_error(400, "Unknown search type");
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	8076	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8077	}
				8078
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	8079	sub git_search_help {
				8080	git_header_html();
				8081	git_print_page_nav('','', $hash,$hash,$hash);
				8082	print <<EOT;
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	8083	<p><strong>Pattern</strong> is by default a normal string that is matched precisely (but without
				8084	regard to case, except in the case of pickaxe). However, when you check the <em>re</em> checkbox,
				8085	the pattern entered is recognized as the POSIX extended
Sven Strickroth	5e68729	2017-05-13 11:54:51 +0200	[diff] [blame]	8086	<a href="https://en.wikipedia.org/wiki/Regular_expression">regular expression</a> (also case
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	8087	insensitive).</p>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	8088	<dl>
				8089	<dt><b>commit</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	8090	<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]	8091	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	8092	my $have_grep = gitweb_check_feature('grep');
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	8093	if ($have_grep) {
				8094	print <<EOT;
				8095	<dt><b>grep</b></dt>
				8096	<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]	8097	a different one) are searched for the given pattern. On large trees, this search can take
				8098	a while and put some strain on the server, so please use it with some consideration. Note that
				8099	due to git-grep peculiarity, currently if regexp mode is turned off, the matches are
				8100	case-sensitive.</dd>
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	8101	EOT
				8102	}
				8103	print <<EOT;
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	8104	<dt><b>author</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	8105	<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]	8106	<dt><b>committer</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	8107	<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]	8108	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	8109	my $have_pickaxe = gitweb_check_feature('pickaxe');
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	8110	if ($have_pickaxe) {
				8111	print <<EOT;
				8112	<dt><b>pickaxe</b></dt>
				8113	<dd>All commits that caused the string to appear or disappear from any file (changes that
				8114	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]	8115	takes a lot of strain on the server, so please use it wisely. Note that since you may be
				8116	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]	8117	EOT
				8118	}
				8119	print "</dl>\n";
				8120	git_footer_html();
				8121	}
				8122
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8123	sub git_shortlog {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	8124	git_log_generic('shortlog', \&git_shortlog_body,
				8125	$hash, $hash_parent);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	8126	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8127
				8128	## ......................................................................
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8129	## feeds (RSS, Atom; OPML)
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8130
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8131	sub git_feed {
				8132	my $format = shift \|\| 'atom';
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	8133	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8134
				8135	# Atom: http://www.atomenabled.org/developers/syndication/
				8136	# RSS: http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
				8137	if ($format ne 'rss' && $format ne 'atom') {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	8138	die_error(400, "Unknown web feed format");
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8139	}
				8140
				8141	# log/feed of current (HEAD) branch, log of given branch, history of file/directory
				8142	my $head = $hash \|\| 'HEAD';
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	8143	my @commitlist = parse_commits($head, 150, 0, $file_name);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8144
				8145	my %latest_commit;
				8146	my %latest_date;
				8147	my $content_type = "application/$format+xml";
				8148	if (defined $cgi->http('HTTP_ACCEPT') &&
				8149	$cgi->Accept('text/xml') > $cgi->Accept($content_type)) {
				8150	# browser (feed reader) prefers text/xml
				8151	$content_type = 'text/xml';
				8152	}
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8153	if (defined($commitlist[0])) {
				8154	%latest_commit = %{$commitlist[0]};
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	8155	my $latest_epoch = $latest_commit{'committer_epoch'};
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	8156	exit_if_unmodified_since($latest_epoch);
Dylan Alex Simon	debf29d	2012-10-11 16:40:35 -0400	[diff] [blame]	8157	%latest_date = parse_date($latest_epoch, $latest_commit{'committer_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8158	}
W. Trevor King	b7d565e	2012-03-29 08:45:48 -0400	[diff] [blame]	8159	print $cgi->header(
				8160	-type => $content_type,
				8161	-charset => 'utf-8',
				8162	%latest_date ? (-last_modified => $latest_date{'rfc2822'}) : (),
				8163	-status => '200 OK');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8164
				8165	# Optimization: skip generating the body if client asks only
				8166	# for Last-Modified date.
				8167	return if ($cgi->request_method() eq 'HEAD');
				8168
				8169	# header variables
				8170	my $title = "$site_name - $project/$action";
				8171	my $feed_type = 'log';
				8172	if (defined $hash) {
				8173	$title .= " - '$hash'";
				8174	$feed_type = 'branch log';
				8175	if (defined $file_name) {
				8176	$title .= " :: $file_name";
				8177	$feed_type = 'history';
				8178	}
				8179	} elsif (defined $file_name) {
				8180	$title .= " - $file_name";
				8181	$feed_type = 'history';
				8182	}
				8183	$title .= " $feed_type";
Jeff King	0f0ecf6	2012-11-12 16:34:28 -0500	[diff] [blame]	8184	$title = esc_html($title);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8185	my $descr = git_get_project_description($project);
				8186	if (defined $descr) {
				8187	$descr = esc_html($descr);
				8188	} else {
				8189	$descr = "$project " .
				8190	($format eq 'rss' ? 'RSS' : 'Atom') .
				8191	" feed";
				8192	}
				8193	my $owner = git_get_project_owner($project);
				8194	$owner = esc_html($owner);
				8195
				8196	#header
				8197	my $alt_url;
				8198	if (defined $file_name) {
				8199	$alt_url = href(-full=>1, action=>"history", hash=>$hash, file_name=>$file_name);
				8200	} elsif (defined $hash) {
				8201	$alt_url = href(-full=>1, action=>"log", hash=>$hash);
				8202	} else {
				8203	$alt_url = href(-full=>1, action=>"summary");
				8204	}
				8205	print qq!<?xml version="1.0" encoding="utf-8"?>\n!;
				8206	if ($format eq 'rss') {
				8207	print <<XML;
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8208	<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">
				8209	<channel>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8210	XML
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8211	print "<title>$title</title>\n" .
				8212	"<link>$alt_url</link>\n" .
				8213	"<description>$descr</description>\n" .
Giuseppe Bilotta	3ac109a	2009-01-26 12:50:13 +0100	[diff] [blame]	8214	"<language>en</language>\n" .
				8215	# project owner is responsible for 'editorial' content
				8216	"<managingEditor>$owner</managingEditor>\n";
Giuseppe Bilotta	1ba68ce	2009-01-26 12:50:11 +0100	[diff] [blame]	8217	if (defined $logo \|\| defined $favicon) {
				8218	# prefer the logo to the favicon, since RSS
				8219	# doesn't allow both
				8220	my $img = esc_url($logo \|\| $favicon);
				8221	print "<image>\n" .
				8222	"<url>$img</url>\n" .
				8223	"<title>$title</title>\n" .
				8224	"<link>$alt_url</link>\n" .
				8225	"</image>\n";
				8226	}
Giuseppe Bilotta	0cf3128	2009-01-26 12:50:14 +0100	[diff] [blame]	8227	if (%latest_date) {
				8228	print "<pubDate>$latest_date{'rfc2822'}</pubDate>\n";
				8229	print "<lastBuildDate>$latest_date{'rfc2822'}</lastBuildDate>\n";
				8230	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	8231	print "<generator>gitweb v.$version/$git_version</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8232	} elsif ($format eq 'atom') {
				8233	print <<XML;
				8234	<feed xmlns="http://www.w3.org/2005/Atom">
				8235	XML
				8236	print "<title>$title</title>\n" .
				8237	"<subtitle>$descr</subtitle>\n" .
				8238	'<link rel="alternate" type="text/html" href="' .
				8239	$alt_url . '" />' . "\n" .
				8240	'<link rel="self" type="' . $content_type . '" href="' .
				8241	$cgi->self_url() . '" />' . "\n" .
				8242	"<id>" . href(-full=>1) . "</id>\n" .
				8243	# use project owner for feed author
				8244	"<author><name>$owner</name></author>\n";
				8245	if (defined $favicon) {
				8246	print "<icon>" . esc_url($favicon) . "</icon>\n";
				8247	}
Jonathan Nieder	9d9f5e7	2010-09-03 19:44:39 -0500	[diff] [blame]	8248	if (defined $logo) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8249	# not twice as wide as tall: 72 x 27 pixels
Jakub Narebski	e114726	2006-12-04 14:09:43 +0100	[diff] [blame]	8250	print "<logo>" . esc_url($logo) . "</logo>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8251	}
				8252	if (! %latest_date) {
				8253	# dummy date to keep the feed valid until commits trickle in:
				8254	print "<updated>1970-01-01T00:00:00Z</updated>\n";
				8255	} else {
				8256	print "<updated>$latest_date{'iso-8601'}</updated>\n";
				8257	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	8258	print "<generator version='$version/$git_version'>gitweb</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8259	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8260
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8261	# contents
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8262	for (my $i = 0; $i <= $#commitlist; $i++) {
				8263	my %co = %{$commitlist[$i]};
				8264	my $commit = $co{'id'};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8265	# 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]	8266	if (($i >= 20) && ((time - $co{'author_epoch'}) > 486060)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8267	last;
				8268	}
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	8269	my %cd = parse_date($co{'author_epoch'}, $co{'author_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8270
				8271	# get list of changed files
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	8272	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	c906b18	2007-05-19 02:47:51 +0200	[diff] [blame]	8273	$co{'parent'} \|\| "--root",
				8274	$co{'id'}, "--", (defined $file_name ? $file_name : ())
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	8275	or next;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8276	my @difftree = map { chomp; $_ } <$fd>;
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	8277	close $fd
				8278	or next;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8279
				8280	# print element (entry, item)
Florian La Roche	e62a641	2008-02-03 12:38:46 +0100	[diff] [blame]	8281	my $co_url = href(-full=>1, action=>"commitdiff", hash=>$commit);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8282	if ($format eq 'rss') {
				8283	print "<item>\n" .
				8284	"<title>" . esc_html($co{'title'}) . "</title>\n" .
				8285	"<author>" . esc_html($co{'author'}) . "</author>\n" .
				8286	"<pubDate>$cd{'rfc2822'}</pubDate>\n" .
				8287	"<guid isPermaLink=\"true\">$co_url</guid>\n" .
				8288	"<link>$co_url</link>\n" .
				8289	"<description>" . esc_html($co{'title'}) . "</description>\n" .
				8290	"<content:encoded>" .
				8291	"<![CDATA[\n";
				8292	} elsif ($format eq 'atom') {
				8293	print "<entry>\n" .
				8294	"<title type=\"html\">" . esc_html($co{'title'}) . "</title>\n" .
				8295	"<updated>$cd{'iso-8601'}</updated>\n" .
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	8296	"<author>\n" .
				8297	" <name>" . esc_html($co{'author_name'}) . "</name>\n";
				8298	if ($co{'author_email'}) {
				8299	print " <email>" . esc_html($co{'author_email'}) . "</email>\n";
				8300	}
				8301	print "</author>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8302	# use committer for contributor
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	8303	"<contributor>\n" .
				8304	" <name>" . esc_html($co{'committer_name'}) . "</name>\n";
				8305	if ($co{'committer_email'}) {
				8306	print " <email>" . esc_html($co{'committer_email'}) . "</email>\n";
				8307	}
				8308	print "</contributor>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8309	"<published>$cd{'iso-8601'}</published>\n" .
				8310	"<link rel=\"alternate\" type=\"text/html\" href=\"$co_url\" />\n" .
				8311	"<id>$co_url</id>\n" .
				8312	"<content type=\"xhtml\" xml:base=\"" . esc_url($my_url) . "\">\n" .
				8313	"<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
				8314	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8315	my $comment = $co{'comment'};
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8316	print "<pre>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8317	foreach my $line (@$comment) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8318	$line = esc_html($line);
				8319	print "$line\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8320	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8321	print "</pre><ul>\n";
				8322	foreach my $difftree_line (@difftree) {
				8323	my %difftree = parse_difftree_raw_line($difftree_line);
				8324	next if !$difftree{'from_id'};
				8325
				8326	my $file = $difftree{'file'} \|\| $difftree{'to_file'};
				8327
				8328	print "<li>" .
				8329	"[" .
				8330	$cgi->a({-href => href(-full=>1, action=>"blobdiff",
				8331	hash=>$difftree{'to_id'}, hash_parent=>$difftree{'from_id'},
				8332	hash_base=>$co{'id'}, hash_parent_base=>$co{'parent'},
				8333	file_name=>$file, file_parent=>$difftree{'from_file'}),
				8334	-title => "diff"}, 'D');
				8335	if ($have_blame) {
				8336	print $cgi->a({-href => href(-full=>1, action=>"blame",
				8337	file_name=>$file, hash_base=>$commit),
				8338	-title => "blame"}, 'B');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8339	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8340	# if this is not a feed of a file history
				8341	if (!defined $file_name \|\| $file_name ne $file) {
				8342	print $cgi->a({-href => href(-full=>1, action=>"history",
				8343	file_name=>$file, hash=>$commit),
				8344	-title => "history"}, 'H');
				8345	}
				8346	$file = esc_path($file);
				8347	print "] ".
				8348	"$file</li>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8349	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8350	if ($format eq 'rss') {
				8351	print "</ul>]]>\n" .
				8352	"</content:encoded>\n" .
				8353	"</item>\n";
				8354	} elsif ($format eq 'atom') {
				8355	print "</ul>\n</div>\n" .
				8356	"</content>\n" .
				8357	"</entry>\n";
				8358	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8359	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8360
				8361	# end of feed
				8362	if ($format eq 'rss') {
				8363	print "</channel>\n</rss>\n";
Jakub Narebski	3278fbc	2009-05-11 19:37:28 +0200	[diff] [blame]	8364	} elsif ($format eq 'atom') {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	8365	print "</feed>\n";
				8366	}
				8367	}
				8368
				8369	sub git_rss {
				8370	git_feed('rss');
				8371	}
				8372
				8373	sub git_atom {
				8374	git_feed('atom');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8375	}
				8376
				8377	sub git_opml {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8378	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	8379	if (!@list) {
				8380	die_error(404, "No projects found");
				8381	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8382
Giuseppe Bilotta	ae35785	2009-01-02 13:49:30 +0100	[diff] [blame]	8383	print $cgi->header(
				8384	-type => 'text/xml',
				8385	-charset => 'utf-8',
				8386	-content_disposition => 'inline; filename="opml.xml"');
				8387
Jürgen Kreileder	5d79105	2011-12-17 10:22:22 +0100	[diff] [blame]	8388	my $title = esc_html($site_name);
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8389	my $filter = " within subdirectory ";
				8390	if (defined $project_filter) {
				8391	$filter .= esc_html($project_filter);
				8392	} else {
				8393	$filter = "";
				8394	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8395	print <<XML;
				8396	<?xml version="1.0" encoding="utf-8"?>
				8397	<opml version="1.0">
				8398	<head>
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	8399	<title>$title OPML Export$filter</title>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8400	</head>
				8401	<body>
				8402	<outline text="git RSS feeds">
				8403	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8404
				8405	foreach my $pr (@list) {
				8406	my %proj = %$pr;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8407	my $head = git_get_head_hash($proj{'path'});
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8408	if (!defined $head) {
				8409	next;
				8410	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	8411	$git_dir = "$projectroot/$proj{'path'}";
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	8412	my %co = parse_commit($head);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8413	if (!%co) {
				8414	next;
				8415	}
				8416
				8417	my $path = esc_html(chop_str($proj{'path'}, 25, 5));
Giuseppe Bilotta	df63fbb	2009-01-02 13:15:28 +0100	[diff] [blame]	8418	my $rss = href('project' => $proj{'path'}, 'action' => 'rss', -full => 1);
				8419	my $html = href('project' => $proj{'path'}, 'action' => 'summary', -full => 1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8420	print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
				8421	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	8422	print <<XML;
				8423	</outline>
				8424	</body>
				8425	</opml>
				8426	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	8427	}