Blame - gitweb/gitweb.perl - jrn/git

blob: 3fc7380a5ea510b705eb49542c3e698b0dddb02c [file] [log] [blame]

Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	1	#!/usr/bin/perl
				2
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	3	# gitweb - simple web interface to track changes in git repositories
Kay Sievers	22fafb9	2005-08-07 19:56:59 +0200	[diff] [blame]	4	#
Kay Sievers	00cd079	2006-05-22 14:30:47 +0200	[diff] [blame]	5	# (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org>
				6	# (C) 2005, Christian Gierke
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	7	#
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	8	# This program is licensed under the GPLv2
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	9
Ævar Arnfjörð Bjarmason	d48b284	2010-09-24 20:00:52 +0000	[diff] [blame]	10	use 5.008;
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	11	use strict;
				12	use warnings;
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	13	use CGI qw(:standard :escapeHTML -nosticky);
Kay Sievers	7403d50	2005-08-07 20:23:49 +0200	[diff] [blame]	14	use CGI::Util qw(unescape);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	15	use CGI::Carp qw(fatalsToBrowser set_message);
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	16	use Encode;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	17	use Fcntl ':mode';
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	18	use File::Find qw();
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	19	use File::Basename qw(basename);
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	20	use Time::HiRes qw(gettimeofday tv_interval);
Kay Sievers	10bb903	2005-11-23 04:26:40 +0100	[diff] [blame]	21	binmode STDOUT, ':utf8';
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	22
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	23	our $t0 = [ gettimeofday() ];
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	24	our $number_of_git_cmds = 0;
				25
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	26	BEGIN {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	27	CGI->compile() if $ENV{'MOD_PERL'};
Jakub Narebski	b1f5f64	2006-12-28 00:00:52 +0100	[diff] [blame]	28	}
				29
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	30	our $version = "++GIT_VERSION++";
Kay Sievers	44ad297	2005-08-07 19:59:24 +0200	[diff] [blame]	31
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	32	our ($my_url, $my_uri, $base_url, $path_info, $home_link);
				33	sub evaluate_uri {
				34	our $cgi;
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	35
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	36	our $my_url = $cgi->url();
				37	our $my_uri = $cgi->url(-absolute => 1);
				38
				39	# Base URL for relative URLs in gitweb ($logo, $favicon, ...),
				40	# needed and used only for URLs with nonempty PATH_INFO
				41	our $base_url = $my_url;
				42
				43	# When the script is used as DirectoryIndex, the URL does not contain the name
				44	# of the script file itself, and $cgi->url() fails to strip PATH_INFO, so we
				45	# have to do it ourselves. We make $path_info global because it's also used
				46	# later on.
				47	#
				48	# Another issue with the script being the DirectoryIndex is that the resulting
				49	# $my_url data is not the full script URL: this is good, because we want
				50	# generated links to keep implying the script name if it wasn't explicitly
				51	# indicated in the URL we're handling, but it means that $my_url cannot be used
				52	# as base URL.
				53	# Therefore, if we needed to strip PATH_INFO, then we know that we have
				54	# to build the base URL ourselves:
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	55	our $path_info = decode_utf8($ENV{"PATH_INFO"});
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	56	if ($path_info) {
				57	if ($my_url =~ s,\Q$path_info\E$,, &&
				58	$my_uri =~ s,\Q$path_info\E$,, &&
				59	defined $ENV{'SCRIPT_NAME'}) {
				60	$base_url = $cgi->url(-base => 1) . $ENV{'SCRIPT_NAME'};
				61	}
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	62	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	63
				64	# target of the home link on top of all pages
				65	our $home_link = $my_uri \|\| "/";
Giuseppe Bilotta	b65910f	2008-09-29 15:07:42 +0200	[diff] [blame]	66	}
				67
Alp Toker	e130dda	2006-07-12 23:55:10 +0100	[diff] [blame]	68	# core git executable to use
				69	# this can just be "git" if your webserver has a sensible PATH
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	70	our $GIT = "++GIT_BINDIR++/git";
Jakub Narebski	3f7f2710	2006-06-21 09:48:04 +0200	[diff] [blame]	71
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	72	# absolute fs-path which will be prepended to the project path
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	73	#our $projectroot = "/pub/scm";
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	74	our $projectroot = "++GITWEB_PROJECTROOT++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	75
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	76	# fs traversing limit for getting project list
				77	# the number is relative to the projectroot
				78	our $project_maxdepth = "++GITWEB_PROJECT_MAXDEPTH++";
				79
Yasushi SHOJI	2de21fa	2006-08-15 07:50:49 +0900	[diff] [blame]	80	# string of the home link on top of all pages
				81	our $home_link_str = "++GITWEB_HOME_LINK_STR++";
				82
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	83	# name of your site or organization to appear in page titles
				84	# replace this with something more descriptive for clearer bookmarks
Petr Baudis	8be2890	2006-10-24 05:18:39 +0200	[diff] [blame]	85	our $site_name = "++GITWEB_SITENAME++"
				86	\|\| ($ENV{'SERVER_NAME'} \|\| "Untitled") . " Git";
Alp Toker	49da1da	2006-07-11 21:10:26 +0100	[diff] [blame]	87
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	88	# html snippet to include in the <head> section of each page
				89	our $site_html_head_string = "++GITWEB_SITE_HTML_HEAD_STRING++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	90	# filename of html text to include at top of each page
				91	our $site_header = "++GITWEB_SITE_HEADER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	92	# html text to include at home page
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	93	our $home_text = "++GITWEB_HOMETEXT++";
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	94	# filename of html text to include at bottom of each page
				95	our $site_footer = "++GITWEB_SITE_FOOTER++";
Kay Sievers	8ab1da2	2005-08-07 20:22:53 +0200	[diff] [blame]	96
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	97	# URI of stylesheets
				98	our @stylesheets = ("++GITWEB_CSS++");
Petr Baudis	887a612	2006-10-26 14:41:25 +0200	[diff] [blame]	99	# URI of a single stylesheet, which can be overridden in GITWEB_CONFIG.
				100	our $stylesheet = undef;
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	101	# URI of GIT logo (72x27 size)
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	102	our $logo = "++GITWEB_LOGO++";
Jakub Narebski	0b5deba	2006-09-04 20:32:13 +0200	[diff] [blame]	103	# URI of GIT favicon, assumed to be image/png type
				104	our $favicon = "++GITWEB_FAVICON++";
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	105	# URI of gitweb.js (JavaScript code for gitweb)
				106	our $javascript = "++GITWEB_JS++";
Jakub Narebski	aedd942	2006-06-17 11:23:56 +0200	[diff] [blame]	107
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	108	# URI and label (title) of GIT logo link
				109	#our $logo_url = "http://www.kernel.org/pub/software/scm/git/docs/";
				110	#our $logo_label = "git documentation";
Wincent Colaiuta	69fb828	2009-07-12 14:31:28 +0200	[diff] [blame]	111	our $logo_url = "http://git-scm.com/";
Jakub Narebski	9a7a62f	2006-10-06 12:31:05 +0200	[diff] [blame]	112	our $logo_label = "git homepage";
Junio C Hamano	51a7c66	2006-09-23 12:36:01 -0700	[diff] [blame]	113
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	114	# source of projects list
Junio C Hamano	06c084d	2006-08-02 13:50:20 -0700	[diff] [blame]	115	our $projects_list = "++GITWEB_LIST++";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	116
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	117	# the width (in characters) of the projects list "Description" column
				118	our $projects_list_description_width = 25;
				119
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	120	# group projects by category on the projects list
				121	# (enabled if this variable evaluates to true)
				122	our $projects_list_group_categories = 0;
				123
				124	# default category if none specified
				125	# (leave the empty string for no category)
				126	our $project_list_default_category = "";
				127
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	128	# default order of projects list
				129	# valid values are none, project, descr, owner, and age
				130	our $default_projects_order = "project";
				131
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	132	# show repository only if this file exists
				133	# (only effective if this variable evaluates to true)
				134	our $export_ok = "++GITWEB_EXPORT_OK++";
				135
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	136	# show repository only if this subroutine returns true
				137	# when given the path to the project, for example:
				138	# sub { return -e "$_[0]/git-daemon-export-ok"; }
				139	our $export_auth_hook = undef;
				140
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	141	# only allow viewing of repositories also shown on the overview page
				142	our $strict_export = "++GITWEB_STRICT_EXPORT++";
				143
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	144	# list of git base URLs used for URL to where fetch project from,
				145	# i.e. full URL is "$git_base_url/$project"
Jakub Narebski	d6b7e0b	2006-10-26 12:26:44 +0200	[diff] [blame]	146	our @git_base_url_list = grep { $_ ne '' } ("++GITWEB_BASE_URL++");
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	147
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	148	# default blob_plain mimetype and default charset for text/plain blob
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	149	our $default_blob_plain_mimetype = 'text/plain';
				150	our $default_text_plain_charset = undef;
Jakub Narebski	f5aa79d	2006-06-17 13:32:15 +0200	[diff] [blame]	151
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	152	# file to use for guessing MIME types before trying /etc/mime.types
				153	# (relative to the current git repository)
Dennis Stosberg	4a87b43	2006-06-21 15:07:08 +0200	[diff] [blame]	154	our $mimetypes_file = undef;
Petr Baudis	2d00737	2006-06-18 00:01:06 +0200	[diff] [blame]	155
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	156	# assume this charset if line contains non-UTF-8 characters;
				157	# it should be valid encoding (see Encoding::Supported(3pm) for list),
				158	# for which encoding all byte sequences are valid, for example
				159	# 'iso-8859-1' aka 'latin1' (it is decoded without checking, so it
				160	# could be even 'utf-8' for the old behavior)
				161	our $fallback_encoding = 'latin1';
				162
Jakub Narebski	69a9b41	2007-07-20 02:15:09 +0200	[diff] [blame]	163	# rename detection options for git-diff and git-diff-tree
				164	# - default is '-M', with the cost proportional to
				165	# (number of removed files) * (number of new files).
				166	# - more costly is '-C' (which implies '-M'), with the cost proportional to
				167	# (number of changed files + number of removed files) * (number of new files)
				168	# - even more costly is '-C', '--find-copies-harder' with cost
				169	# (number of files in the original tree) * (number of new files)
				170	# - one might want to include '-B' option, e.g. '-B', '-M'
				171	our @diff_opts = ('-M'); # taken from git_commit
				172
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	173	# Disables features that would allow repository owners to inject script into
				174	# the gitweb domain.
				175	our $prevent_xss = 0;
				176
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	177	# Path to the highlight executable to use (must be the one from
				178	# http://www.andre-simon.de due to assumptions about parameters and output).
				179	# Useful if highlight is not installed on your webserver's PATH.
				180	# [Default: highlight]
				181	our $highlight_bin = "++HIGHLIGHT_BIN++";
				182
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	183	# information about snapshot formats that gitweb is capable of serving
				184	our %known_snapshot_formats = (
				185	# name => {
				186	# 'display' => display name,
				187	# 'type' => mime type,
				188	# 'suffix' => filename suffix,
				189	# 'format' => --format for git-archive,
				190	# 'compressor' => [compressor command and arguments]
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	191	# (array reference, optional)
				192	# 'disabled' => boolean (optional)}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	193	#
				194	'tgz' => {
				195	'display' => 'tar.gz',
				196	'type' => 'application/x-gzip',
				197	'suffix' => '.tar.gz',
				198	'format' => 'tar',
Fraser Tweedale	0c8c385	2011-04-26 11:32:00 +1000	[diff] [blame]	199	'compressor' => ['gzip', '-n']},
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	200
				201	'tbz2' => {
				202	'display' => 'tar.bz2',
				203	'type' => 'application/x-bzip2',
				204	'suffix' => '.tar.bz2',
				205	'format' => 'tar',
				206	'compressor' => ['bzip2']},
				207
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	208	'txz' => {
				209	'display' => 'tar.xz',
				210	'type' => 'application/x-xz',
				211	'suffix' => '.tar.xz',
				212	'format' => 'tar',
				213	'compressor' => ['xz'],
				214	'disabled' => 1},
				215
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	216	'zip' => {
				217	'display' => 'zip',
				218	'type' => 'application/x-zip',
				219	'suffix' => '.zip',
				220	'format' => 'zip'},
				221	);
				222
				223	# Aliases so we understand old gitweb.snapshot values in repository
				224	# configuration.
				225	our %known_snapshot_format_aliases = (
				226	'gzip' => 'tgz',
				227	'bzip2' => 'tbz2',
Mark A Rada	cbdefb5	2009-08-06 10:28:25 -0400	[diff] [blame]	228	'xz' => 'txz',
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	229
				230	# backward compatibility: legacy gitweb config support
				231	'x-gzip' => undef, 'gz' => undef,
				232	'x-bzip2' => undef, 'bz2' => undef,
				233	'x-zip' => undef, '' => undef,
				234	);
				235
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	236	# Pixel sizes for icons and avatars. If the default font sizes or lineheights
				237	# are changed, it may be appropriate to change these values too via
				238	# $GITWEB_CONFIG.
				239	our %avatar_size = (
				240	'default' => 16,
				241	'double' => 32
				242	);
				243
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	244	# Used to set the maximum load that we will still respond to gitweb queries.
				245	# If server load exceed this value then return "503 server busy" error.
				246	# If gitweb cannot determined server load, it is taken to be 0.
				247	# Leave it undefined (or set to 'undef') to turn off load checking.
				248	our $maxload = 300;
				249
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	250	# configuration for 'highlight' (http://www.andre-simon.de/)
				251	# match by basename
				252	our %highlight_basename = (
				253	#'Program' => 'py',
				254	#'Library' => 'py',
				255	'SConstruct' => 'py', # SCons equivalent of Makefile
				256	'Makefile' => 'make',
				257	);
				258	# match by extension
				259	our %highlight_ext = (
				260	# main extensions, defining name of syntax;
				261	# see files in /usr/share/highlight/langDefs/ directory
				262	map { $_ => $_ }
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	263	qw(py c cpp rb java css php sh pl js tex bib xml awk bat ini spec tcl sql make),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	264	# alternate extensions, see /etc/highlight/filetypes.conf
				265	'h' => 'c',
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	266	map { $_ => 'sh' } qw(bash zsh ksh),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	267	map { $_ => 'cpp' } qw(cxx c++ cc),
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	268	map { $_ => 'php' } qw(php3 php4 php5 phps),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	269	map { $_ => 'pl' } qw(perl pm), # perhaps also 'cgi'
Sylvain Rabot	3ce19eb	2010-12-30 22:20:28 +0100	[diff] [blame]	270	map { $_ => 'make'} qw(mak mk),
Alejandro R. Sedeño	61bf126	2010-07-28 14:40:53 -0400	[diff] [blame]	271	map { $_ => 'xml' } qw(xhtml html htm),
				272	);
				273
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	274	# You define site-wide feature defaults here; override them with
				275	# $GITWEB_CONFIG as necessary.
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	276	our %feature = (
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	277	# feature => {
				278	# 'sub' => feature-sub (subroutine),
				279	# 'override' => allow-override (boolean),
				280	# 'default' => [ default options...] (array reference)}
				281	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	282	# if feature is overridable (it means that allow-override has true value),
Jakub Narebski	17848fc	2006-08-26 19:14:22 +0200	[diff] [blame]	283	# then feature-sub will be called with default options as parameters;
				284	# return value of feature-sub indicates if to enable specified feature
				285	#
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	286	# if there is no 'sub' key (no feature-sub), then feature cannot be
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	287	# overridden
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	288	#
Giuseppe Bilotta	ff3c0ff	2008-12-02 14:57:28 -0800	[diff] [blame]	289	# use gitweb_get_feature(<feature>) to retrieve the <feature> value
				290	# (an array) or gitweb_check_feature(<feature>) to check if <feature>
				291	# is enabled
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	292
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	293	# Enable the 'blame' blob view, showing the last commit that modified
				294	# each line in the file. This can be very CPU-intensive.
				295
				296	# To enable system wide have in $GITWEB_CONFIG
				297	# $feature{'blame'}{'default'} = [1];
				298	# To have project specific config enable override in $GITWEB_CONFIG
				299	# $feature{'blame'}{'override'} = 1;
				300	# and in project config gitweb.blame = 0\|1;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	301	'blame' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	302	'sub' => sub { feature_bool('blame', @_) },
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	303	'override' => 0,
				304	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	305
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	306	# Enable the 'snapshot' link, providing a compressed archive of any
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	307	# tree. This can potentially generate high traffic if you have large
				308	# project.
				309
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	310	# Value is a list of formats defined in %known_snapshot_formats that
				311	# you wish to offer.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	312	# To disable system wide have in $GITWEB_CONFIG
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	313	# $feature{'snapshot'}{'default'} = [];
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	314	# To have project specific config enable override in $GITWEB_CONFIG
Uwe Zeisberger	bbee1d9	2006-12-08 12:44:31 +0100	[diff] [blame]	315	# $feature{'snapshot'}{'override'} = 1;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	316	# and in project config, a comma-separated list of formats or "none"
				317	# to disable. Example: gitweb.snapshot = tbz2,zip;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	318	'snapshot' => {
				319	'sub' => \&feature_snapshot,
				320	'override' => 0,
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	321	'default' => ['tgz']},
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	322
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	323	# Enable text search, which will list the commits which match author,
				324	# committer or commit text to a given string. Enabled by default.
Jakub Narebski	b4b20b2	2007-05-15 01:55:44 +0200	[diff] [blame]	325	# Project specific override is not supported.
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	326	#
				327	# Note that this controls all search features, which means that if
				328	# it is disabled, then 'grep' and 'pickaxe' search would also be
				329	# disabled.
Robert Fitzsimons	6be9351	2006-12-23 03:35:16 +0000	[diff] [blame]	330	'search' => {
				331	'override' => 0,
				332	'default' => [1]},
				333
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	334	# Enable grep search, which will list the files in currently selected
				335	# tree containing the given string. Enabled by default. This can be
				336	# potentially CPU-intensive, of course.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	337	# Note that you need to have 'search' feature enabled too.
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	338
				339	# To enable system wide have in $GITWEB_CONFIG
				340	# $feature{'grep'}{'default'} = [1];
				341	# To have project specific config enable override in $GITWEB_CONFIG
				342	# $feature{'grep'}{'override'} = 1;
				343	# and in project config gitweb.grep = 0\|1;
				344	'grep' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	345	'sub' => sub { feature_bool('grep', @_) },
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	346	'override' => 0,
				347	'default' => [1]},
				348
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	349	# Enable the pickaxe search, which will list the commits that modified
				350	# a given string in a file. This can be practical and quite faster
				351	# alternative to 'blame', but still potentially CPU-intensive.
Jakub Narebski	a598ded	2011-06-21 08:41:16 +0200	[diff] [blame]	352	# Note that you need to have 'search' feature enabled too.
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	353
				354	# To enable system wide have in $GITWEB_CONFIG
				355	# $feature{'pickaxe'}{'default'} = [1];
				356	# To have project specific config enable override in $GITWEB_CONFIG
				357	# $feature{'pickaxe'}{'override'} = 1;
				358	# and in project config gitweb.pickaxe = 0\|1;
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	359	'pickaxe' => {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	360	'sub' => sub { feature_bool('pickaxe', @_) },
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	361	'override' => 0,
				362	'default' => [1]},
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	363
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	364	# Enable showing size of blobs in a 'tree' view, in a separate
				365	# column, similar to what 'ls -l' does. This cost a bit of IO.
				366
				367	# To disable system wide have in $GITWEB_CONFIG
				368	# $feature{'show-sizes'}{'default'} = [0];
				369	# To have project specific config enable override in $GITWEB_CONFIG
				370	# $feature{'show-sizes'}{'override'} = 1;
				371	# and in project config gitweb.showsizes = 0\|1;
				372	'show-sizes' => {
				373	'sub' => sub { feature_bool('showsizes', @_) },
				374	'override' => 0,
				375	'default' => [1]},
				376
Petr Baudis	45a3b12	2006-10-07 15:17:47 +0200	[diff] [blame]	377	# Make gitweb use an alternative format of the URLs which can be
				378	# more readable and natural-looking: project name is embedded
				379	# directly in the path and the query string contains other
				380	# auxiliary information. All gitweb installations recognize
				381	# URL in either format; this configures in which formats gitweb
				382	# generates links.
				383
				384	# To enable system wide have in $GITWEB_CONFIG
				385	# $feature{'pathinfo'}{'default'} = [1];
				386	# Project specific override is not supported.
				387
				388	# Note that you will need to change the default location of CSS,
				389	# favicon, logo and possibly other files to an absolute URL. Also,
				390	# if gitweb.cgi serves as your indexfile, you will need to force
				391	# $my_uri to contain the script name in your $GITWEB_CONFIG.
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	392	'pathinfo' => {
				393	'override' => 0,
				394	'default' => [0]},
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	395
				396	# Make gitweb consider projects in project root subdirectories
				397	# to be forks of existing projects. Given project $projname.git,
				398	# projects matching $projname/*.git will not be shown in the main
				399	# projects list, instead a '+' mark will be added to $projname
				400	# there and a 'forks' view will be enabled for the project, listing
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	401	# all the forks. If project list is taken from a file, forks have
				402	# to be listed after the main project.
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	403
				404	# To enable system wide have in $GITWEB_CONFIG
				405	# $feature{'forks'}{'default'} = [1];
				406	# Project specific override is not supported.
				407	'forks' => {
				408	'override' => 0,
				409	'default' => [0]},
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	410
				411	# Insert custom links to the action bar of all project pages.
				412	# This enables you mainly to link to third-party scripts integrating
				413	# into gitweb; e.g. git-browser for graphical history representation
				414	# or custom web-based repository administration interface.
				415
				416	# The 'default' value consists of a list of triplets in the form
				417	# (label, link, position) where position is the label after which
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	418	# to insert the link and link is a format string where %n expands
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	419	# to the project name, %f to the project path within the filesystem,
				420	# %h to the current hash (h gitweb parameter) and %b to the current
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	421	# hash base (hb gitweb parameter); %% expands to %.
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	422
				423	# To enable system wide have in $GITWEB_CONFIG e.g.
				424	# $feature{'actions'}{'default'} = [('graphiclog',
				425	# '/git-browser/by-commit.html?r=%n', 'summary')];
				426	# Project specific override is not supported.
				427	'actions' => {
				428	'override' => 0,
				429	'default' => []},
Shawn O. Pearce	3e3d4ee	2008-10-03 07:41:25 -0700	[diff] [blame]	430
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	431	# Allow gitweb scan project content tags of project repository,
				432	# and display the popular Web 2.0-ish "tag cloud" near the projects
				433	# list. Note that this is something COMPLETELY different from the
				434	# normal Git tags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	435
				436	# gitweb by itself can show existing tags, but it does not handle
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	437	# tagging itself; you need to do it externally, outside gitweb.
				438	# The format is described in git_get_project_ctags() subroutine.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	439	# You may want to install the HTML::TagCloud Perl module to get
				440	# a pretty tag cloud instead of just a list of tags.
				441
				442	# To enable system wide have in $GITWEB_CONFIG
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	443	# $feature{'ctags'}{'default'} = [1];
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	444	# Project specific override is not supported.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	445
				446	# In the future whether ctags editing is enabled might depend
				447	# on the value, but using 1 should always mean no editing of ctags.
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	448	'ctags' => {
				449	'override' => 0,
				450	'default' => [0]},
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	451
				452	# The maximum number of patches in a patchset generated in patch
				453	# view. Set this to 0 or undef to disable patch view, or to a
				454	# negative number to remove any limit.
				455
				456	# To disable system wide have in $GITWEB_CONFIG
				457	# $feature{'patches'}{'default'} = [0];
				458	# To have project specific config enable override in $GITWEB_CONFIG
				459	# $feature{'patches'}{'override'} = 1;
				460	# and in project config gitweb.patches = 0\|n;
				461	# where n is the maximum number of patches allowed in a patchset.
				462	'patches' => {
				463	'sub' => \&feature_patches,
				464	'override' => 0,
				465	'default' => [16]},
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	466
				467	# Avatar support. When this feature is enabled, views such as
				468	# shortlog or commit will display an avatar associated with
				469	# the email of the committer(s) and/or author(s).
				470
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	471	# Currently available providers are gravatar and picon.
				472	# If an unknown provider is specified, the feature is disabled.
				473
				474	# Gravatar depends on Digest::MD5.
				475	# Picon currently relies on the indiana.edu database.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	476
				477	# To enable system wide have in $GITWEB_CONFIG
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	478	# $feature{'avatar'}{'default'} = ['<provider>'];
				479	# where <provider> is either gravatar or picon.
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	480	# To have project specific config enable override in $GITWEB_CONFIG
				481	# $feature{'avatar'}{'override'} = 1;
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	482	# and in project config gitweb.avatar = <provider>;
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	483	'avatar' => {
				484	'sub' => \&feature_avatar,
				485	'override' => 0,
				486	'default' => ['']},
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	487
				488	# Enable displaying how much time and how many git commands
				489	# it took to generate and display page. Disabled by default.
				490	# Project specific override is not supported.
				491	'timed' => {
				492	'override' => 0,
				493	'default' => [0]},
Jakub Narebski	e627e50	2009-11-26 21:12:15 +0100	[diff] [blame]	494
				495	# Enable turning some links into links to actions which require
				496	# JavaScript to run (like 'blame_incremental'). Not enabled by
				497	# default. Project specific override is currently not supported.
				498	'javascript-actions' => {
				499	'override' => 0,
				500	'default' => [0]},
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	501
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	502	# Enable and configure ability to change common timezone for dates
				503	# in gitweb output via JavaScript. Enabled by default.
				504	# Project specific override is not supported.
				505	'javascript-timezone' => {
				506	'override' => 0,
				507	'default' => [
				508	'local', # default timezone: 'utc', 'local', or '(-\|+)HHMM' format,
				509	# or undef to turn off this feature
				510	'gitweb_tz', # name of cookie where to store selected timezone
				511	'datetime', # CSS class used to mark up dates for manipulation
				512	]},
				513
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	514	# Syntax highlighting support. This is based on Daniel Svensson's
				515	# and Sham Chukoury's work in gitweb-xmms2.git.
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	516	# It requires the 'highlight' program present in $PATH,
				517	# and therefore is disabled by default.
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	518
				519	# To enable system wide have in $GITWEB_CONFIG
				520	# $feature{'highlight'}{'default'} = [1];
				521
				522	'highlight' => {
				523	'sub' => sub { feature_bool('highlight', @_) },
				524	'override' => 0,
				525	'default' => [0]},
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	526
				527	# Enable displaying of remote heads in the heads list
				528
				529	# To enable system wide have in $GITWEB_CONFIG
				530	# $feature{'remote_heads'}{'default'} = [1];
				531	# To have project specific config enable override in $GITWEB_CONFIG
				532	# $feature{'remote_heads'}{'override'} = 1;
				533	# and in project config gitweb.remote_heads = 0\|1;
				534	'remote_heads' => {
				535	'sub' => sub { feature_bool('remote_heads', @_) },
				536	'override' => 0,
				537	'default' => [0]},
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	538	);
				539
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	540	sub gitweb_get_feature {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	541	my ($name) = @_;
Jakub Narebski	dd1ad5f	2006-09-26 01:56:17 +0200	[diff] [blame]	542	return unless exists $feature{$name};
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	543	my ($sub, $override, @defaults) = (
				544	$feature{$name}{'sub'},
				545	$feature{$name}{'override'},
				546	@{$feature{$name}{'default'}});
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	547	# project specific override is possible only if we have project
				548	our $git_dir; # global variable, declared later
				549	if (!$override \|\| !defined $git_dir) {
				550	return @defaults;
				551	}
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	552	if (!defined $sub) {
Nanako Shiraishi	9319789	2009-08-28 12:18:49 +0900	[diff] [blame]	553	warn "feature $name is not overridable";
Martin Waitz	a945591	2006-10-03 20:07:43 +0200	[diff] [blame]	554	return @defaults;
				555	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	556	return $sub->(@defaults);
				557	}
				558
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	559	# A wrapper to check if a given feature is enabled.
				560	# With this, you can say
				561	#
				562	# my $bool_feat = gitweb_check_feature('bool_feat');
				563	# gitweb_check_feature('bool_feat') or somecode;
				564	#
				565	# instead of
				566	#
				567	# my ($bool_feat) = gitweb_get_feature('bool_feat');
				568	# (gitweb_get_feature('bool_feat'))[0] or somecode;
				569	#
				570	sub gitweb_check_feature {
				571	return (gitweb_get_feature(@_))[0];
				572	}
				573
				574
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	575	sub feature_bool {
				576	my $key = shift;
				577	my ($val) = git_get_project_config($key, '--bool');
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	578
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	579	if (!defined $val) {
				580	return ($_[0]);
				581	} elsif ($val eq 'true') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	582	return (1);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	583	} elsif ($val eq 'false') {
Matt Kraai	cdad817	2008-12-15 22:16:19 -0800	[diff] [blame]	584	return (0);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	585	}
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	586	}
				587
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	588	sub feature_snapshot {
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	589	my (@fmts) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	590
				591	my ($val) = git_get_project_config('snapshot');
				592
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	593	if ($val) {
				594	@fmts = ($val eq 'none' ? () : split /\s[,\s]\s/, $val);
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	595	}
				596
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	597	return @fmts;
Luben Tuikov	de9272f	2006-09-28 16:49:21 -0700	[diff] [blame]	598	}
				599
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	600	sub feature_patches {
				601	my @val = (git_get_project_config('patches', '--int'));
				602
				603	if (@val) {
				604	return @val;
				605	}
				606
				607	return ($_[0]);
				608	}
				609
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	610	sub feature_avatar {
				611	my @val = (git_get_project_config('avatar'));
				612
				613	return @val ? @val : @_;
				614	}
				615
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	616	# checking HEAD file with -e is fragile if the repository was
				617	# initialized long time ago (i.e. symlink HEAD) and was pack-ref'ed
				618	# and then pruned.
				619	sub check_head_link {
				620	my ($dir) = @_;
				621	my $headfile = "$dir/HEAD";
				622	return ((-e $headfile) \|\|
				623	(-l $headfile && readlink($headfile) =~ /^refs\/heads\//));
				624	}
				625
				626	sub check_export_ok {
				627	my ($dir) = @_;
				628	return (check_head_link($dir) &&
Alexander Gavrilov	dd7f5f1	2008-11-06 01:36:23 +0300	[diff] [blame]	629	(!$export_ok \|\| -e "$dir/$export_ok") &&
				630	(!$export_auth_hook \|\| $export_auth_hook->($dir)));
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	631	}
				632
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	633	# process alternate names for backward compatibility
				634	# filter out unsupported (unknown) snapshot formats
				635	sub filter_snapshot_fmts {
				636	my @fmts = @_;
				637
				638	@fmts = map {
				639	exists $known_snapshot_format_aliases{$_} ?
				640	$known_snapshot_format_aliases{$_} : $_} @fmts;
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	641	@fmts = grep {
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	642	exists $known_snapshot_formats{$_} &&
				643	!$known_snapshot_formats{$_}{'disabled'}} @fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	644	}
				645
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	646	# If it is set to code reference, it is code that it is to be run once per
				647	# request, allowing updating configurations that change with each request,
				648	# while running other code in config file only once.
				649	#
				650	# Otherwise, if it is false then gitweb would process config file only once;
				651	# if it is true then gitweb config would be run for each request.
				652	our $per_request_config = 1;
				653
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	654	# read and parse gitweb config file given by its parameter.
				655	# returns true on success, false on recoverable error, allowing
				656	# to chain this subroutine, using first file that exists.
				657	# dies on errors during parsing config file, as it is unrecoverable.
				658	sub read_config_file {
				659	my $filename = shift;
				660	return unless defined $filename;
				661	# die if there are errors parsing config file
				662	if (-e $filename) {
				663	do $filename;
				664	die $@ if $@;
				665	return 1;
				666	}
				667	return;
				668	}
				669
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	670	our ($GITWEB_CONFIG, $GITWEB_CONFIG_SYSTEM, $GITWEB_CONFIG_COMMON);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	671	sub evaluate_gitweb_config {
				672	our $GITWEB_CONFIG = $ENV{'GITWEB_CONFIG'} \|\| "++GITWEB_CONFIG++";
				673	our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} \|\| "++GITWEB_CONFIG_SYSTEM++";
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	674	our $GITWEB_CONFIG_COMMON = $ENV{'GITWEB_CONFIG_COMMON'} \|\| "++GITWEB_CONFIG_COMMON++";
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	675
Jakub Narebski	131d6af	2011-07-25 00:29:18 +0200	[diff] [blame]	676	# Protect agains duplications of file names, to not read config twice.
				677	# Only one of $GITWEB_CONFIG and $GITWEB_CONFIG_SYSTEM is used, so
				678	# there possibility of duplication of filename there doesn't matter.
				679	$GITWEB_CONFIG = "" if ($GITWEB_CONFIG eq $GITWEB_CONFIG_COMMON);
				680	$GITWEB_CONFIG_SYSTEM = "" if ($GITWEB_CONFIG_SYSTEM eq $GITWEB_CONFIG_COMMON);
				681
				682	# Common system-wide settings for convenience.
				683	# Those settings can be ovverriden by GITWEB_CONFIG or GITWEB_CONFIG_SYSTEM.
				684	read_config_file($GITWEB_CONFIG_COMMON);
				685
				686	# Use first config file that exists. This means use the per-instance
				687	# GITWEB_CONFIG if exists, otherwise use GITWEB_SYSTEM_CONFIG.
				688	read_config_file($GITWEB_CONFIG) and return;
Jakub Narebski	f612a71	2011-05-25 18:35:26 +0200	[diff] [blame]	689	read_config_file($GITWEB_CONFIG_SYSTEM);
Gerrit Pape	17a8b25	2008-03-26 18:11:19 +0000	[diff] [blame]	690	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	691
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	692	# Get loadavg of system, to compare against $maxload.
				693	# Currently it requires '/proc/loadavg' present to get loadavg;
				694	# if it is not present it returns 0, which means no load checking.
				695	sub get_loadavg {
				696	if( -e '/proc/loadavg' ){
				697	open my $fd, '<', '/proc/loadavg'
				698	or return 0;
				699	my @load = split(/\s+/, scalar <$fd>);
				700	close $fd;
				701
				702	# The first three columns measure CPU and IO utilization of the last one,
				703	# five, and 10 minute periods. The fourth column shows the number of
				704	# currently running processes and the total number of processes in the m/n
				705	# format. The last column displays the last process ID used.
				706	return $load[0] \|\| 0;
				707	}
				708	# additional checks for load average should go here for things that don't export
				709	# /proc/loadavg
				710
				711	return 0;
				712	}
				713
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	714	# version of the core git binary
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	715	our $git_version;
				716	sub evaluate_git_version {
				717	our $git_version = qx("$GIT" --version) =~ m/git version (.*)$/ ? $1 : "unknown";
				718	$number_of_git_cmds++;
				719	}
Jeff King	c8d138a	2006-08-02 15:23:34 -0400	[diff] [blame]	720
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	721	sub check_loadavg {
				722	if (defined $maxload && get_loadavg() > $maxload) {
				723	die_error(503, "The load average on the server is too high");
				724	}
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	725	}
				726
Jakub Narebski	154b4d7	2006-08-05 12:55:20 +0200	[diff] [blame]	727	# ======================================================================
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	728	# input validation and dispatch
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	729
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	730	# input parameters can be collected from a variety of sources (presently, CGI
				731	# and PATH_INFO), so we define an %input_params hash that collects them all
				732	# together during validation: this allows subsequent uses (e.g. href()) to be
				733	# agnostic of the parameter origin
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	734
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	735	our %input_params = ();
Martin Waitz	5c95fab	2006-08-17 00:28:38 +0200	[diff] [blame]	736
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	737	# input parameters are stored with the long parameter name as key. This will
				738	# also be used in the href subroutine to convert parameters to their CGI
				739	# equivalent, and since the href() usage is the most frequent one, we store
				740	# the name -> CGI key mapping here, instead of the reverse.
				741	#
				742	# XXX: Warning: If you touch this, check the search form for updating,
				743	# too.
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	744
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	745	our @cgi_param_mapping = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	746	project => "p",
				747	action => "a",
				748	file_name => "f",
				749	file_parent => "fp",
				750	hash => "h",
				751	hash_parent => "hp",
				752	hash_base => "hb",
				753	hash_parent_base => "hpb",
				754	page => "pg",
				755	order => "o",
				756	searchtext => "s",
				757	searchtype => "st",
				758	snapshot_format => "sf",
				759	extra_options => "opt",
				760	search_use_regexp => "sr",
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	761	ctag => "by_tag",
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	762	diff_style => "ds",
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	763	project_filter => "pf",
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	764	# this must be last entry (for manipulation from JavaScript)
				765	javascript => "js"
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	766	);
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	767	our %cgi_param_mapping = @cgi_param_mapping;
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	768
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	769	# we will also need to know the possible actions, for validation
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	770	our %actions = (
Rafael Garcia-Suarez	3a5b919	2008-06-06 09:53:32 +0200	[diff] [blame]	771	"blame" => \&git_blame,
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	772	"blame_incremental" => \&git_blame_incremental,
				773	"blame_data" => \&git_blame_data,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	774	"blobdiff" => \&git_blobdiff,
				775	"blobdiff_plain" => \&git_blobdiff_plain,
				776	"blob" => \&git_blob,
				777	"blob_plain" => \&git_blob_plain,
				778	"commitdiff" => \&git_commitdiff,
				779	"commitdiff_plain" => \&git_commitdiff_plain,
				780	"commit" => \&git_commit,
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	781	"forks" => \&git_forks,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	782	"heads" => \&git_heads,
				783	"history" => \&git_history,
				784	"log" => \&git_log,
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	785	"patch" => \&git_patch,
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	786	"patches" => \&git_patches,
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	787	"remotes" => \&git_remotes,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	788	"rss" => \&git_rss,
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	789	"atom" => \&git_atom,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	790	"search" => \&git_search,
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	791	"search_help" => \&git_search_help,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	792	"shortlog" => \&git_shortlog,
				793	"summary" => \&git_summary,
				794	"tag" => \&git_tag,
				795	"tags" => \&git_tags,
				796	"tree" => \&git_tree,
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	797	"snapshot" => \&git_snapshot,
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	798	"object" => \&git_object,
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	799	# those below don't need $project
				800	"opml" => \&git_opml,
				801	"project_list" => \&git_project_list,
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	802	"project_index" => \&git_project_index,
Matthias Lederhofer	8e85cdc	2006-07-31 23:46:25 +0200	[diff] [blame]	803	);
				804
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	805	# finally, we have the hash of allowed extra_options for the commands that
				806	# allow them
Alexander Gavrilov	dde80d9	2008-11-06 01:10:07 +0300	[diff] [blame]	807	our %allowed_options = (
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	808	"--no-merges" => [ qw(rss atom log shortlog history) ],
				809	);
				810
				811	# fill %input_params with the CGI parameters. All values except for 'opt'
				812	# should be single values, but opt can be an array. We should probably
				813	# build an array of parameters that can be multi-valued, but since for the time
				814	# being it's only this one, we just single it out
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	815	sub evaluate_query_params {
				816	our $cgi;
				817
				818	while (my ($name, $symbol) = each %cgi_param_mapping) {
				819	if ($symbol eq 'opt') {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	820	$input_params{$name} = [ map { decode_utf8($_) } $cgi->param($symbol) ];
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	821	} else {
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	822	$input_params{$name} = decode_utf8($cgi->param($symbol));
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	823	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	824	}
				825	}
				826
				827	# now read PATH_INFO and update the parameter list for missing parameters
				828	sub evaluate_path_info {
				829	return if defined $input_params{'project'};
				830	return if !$path_info;
				831	$path_info =~ s,^/+,,;
				832	return if !$path_info;
				833
				834	# find which part of PATH_INFO is project
				835	my $project = $path_info;
				836	$project =~ s,/+$,,;
				837	while ($project && !check_head_link("$projectroot/$project")) {
				838	$project =~ s,/[^/]$,,;
				839	}
				840	return unless $project;
				841	$input_params{'project'} = $project;
				842
				843	# do not change any parameters if an action is given using the query string
				844	return if $input_params{'action'};
				845	$path_info =~ s,^\Q$project\E/*,,;
				846
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	847	# next, check if we have an action
				848	my $action = $path_info;
				849	$action =~ s,/.*$,,;
				850	if (exists $actions{$action}) {
				851	$path_info =~ s,^$action/*,,;
				852	$input_params{'action'} = $action;
				853	}
				854
				855	# list of actions that want hash_base instead of hash, but can have no
				856	# pathname (f) parameter
				857	my @wants_base = (
				858	'tree',
				859	'history',
				860	);
				861
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	862	# we want to catch, among others
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	863	# [$hash_parent_base[:$file_parent]..]$hash_parent[:$file_name]
				864	my ($parentrefname, $parentpathname, $refname, $pathname) =
Jakub Narebski	7e00dc5	2010-10-13 13:33:48 +0200	[diff] [blame]	865	($path_info =~ /^(?:(.+?)(?::(.+))?\.\.)?([^:]+?)?(?::(.+))?$/);
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	866
				867	# first, analyze the 'current' part
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	868	if (defined $pathname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	869	# we got "branch:filename" or "branch:dir/"
				870	# we could use git_get_type(branch:pathname), but:
				871	# - it needs $git_dir
				872	# - it does a git() call
				873	# - the convention of terminating directories with a slash
				874	# makes it superfluous
				875	# - embedding the action in the PATH_INFO would make it even
				876	# more superfluous
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	877	$pathname =~ s,^/+,,;
				878	if (!$pathname \|\| substr($pathname, -1) eq "/") {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	879	$input_params{'action'} \|\|= "tree";
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	880	$pathname =~ s,/$,,;
				881	} else {
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	882	# the default action depends on whether we had parent info
				883	# or not
				884	if ($parentrefname) {
				885	$input_params{'action'} \|\|= "blobdiff_plain";
				886	} else {
				887	$input_params{'action'} \|\|= "blob_plain";
				888	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	889	}
				890	$input_params{'hash_base'} \|\|= $refname;
				891	$input_params{'file_name'} \|\|= $pathname;
				892	} elsif (defined $refname) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	893	# we got "branch". In this case we have to choose if we have to
				894	# set hash or hash_base.
				895	#
				896	# Most of the actions without a pathname only want hash to be
				897	# set, except for the ones specified in @wants_base that want
				898	# hash_base instead. It should also be noted that hand-crafted
				899	# links having 'history' as an action and no pathname or hash
				900	# set will fail, but that happens regardless of PATH_INFO.
Jakub Narebski	d0af373	2010-10-13 13:35:20 +0200	[diff] [blame]	901	if (defined $parentrefname) {
				902	# if there is parent let the default be 'shortlog' action
				903	# (for http://git.example.com/repo.git/A..B links); if there
				904	# is no parent, dispatch will detect type of object and set
				905	# action appropriately if required (if action is not set)
				906	$input_params{'action'} \|\|= "shortlog";
				907	}
				908	if ($input_params{'action'} &&
				909	grep { $_ eq $input_params{'action'} } @wants_base) {
Giuseppe Bilotta	d8c2882	2008-10-21 21:34:50 +0200	[diff] [blame]	910	$input_params{'hash_base'} \|\|= $refname;
				911	} else {
				912	$input_params{'hash'} \|\|= $refname;
				913	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	914	}
Giuseppe Bilotta	b0be383	2008-10-21 21:34:53 +0200	[diff] [blame]	915
				916	# next, handle the 'parent' part, if present
				917	if (defined $parentrefname) {
				918	# a missing pathspec defaults to the 'current' filename, allowing e.g.
				919	# someproject/blobdiff/oldrev..newrev:/filename
				920	if ($parentpathname) {
				921	$parentpathname =~ s,^/+,,;
				922	$parentpathname =~ s,/$,,;
				923	$input_params{'file_parent'} \|\|= $parentpathname;
				924	} else {
				925	$input_params{'file_parent'} \|\|= $input_params{'file_name'};
				926	}
				927	# we assume that hash_parent_base is wanted if a path was specified,
				928	# or if the action wants hash_base instead of hash
				929	if (defined $input_params{'file_parent'} \|\|
				930	grep { $_ eq $input_params{'action'} } @wants_base) {
				931	$input_params{'hash_parent_base'} \|\|= $parentrefname;
				932	} else {
				933	$input_params{'hash_parent'} \|\|= $parentrefname;
				934	}
				935	}
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	936
				937	# for the snapshot action, we allow URLs in the form
				938	# $project/snapshot/$hash.ext
				939	# where .ext determines the snapshot and gets removed from the
				940	# passed $refname to provide the $hash.
				941	#
				942	# To be able to tell that $refname includes the format extension, we
				943	# require the following two conditions to be satisfied:
				944	# - the hash input parameter MUST have been set from the $refname part
				945	# of the URL (i.e. they must be equal)
				946	# - the snapshot format MUST NOT have been defined already (e.g. from
				947	# CGI parameter sf)
				948	# It's also useless to try any matching unless $refname has a dot,
				949	# so we check for that too
				950	if (defined $input_params{'action'} &&
				951	$input_params{'action'} eq 'snapshot' &&
				952	defined $refname && index($refname, '.') != -1 &&
				953	$refname eq $input_params{'hash'} &&
				954	!defined $input_params{'snapshot_format'}) {
				955	# We loop over the known snapshot formats, checking for
				956	# extensions. Allowed extensions are both the defined suffix
				957	# (which includes the initial dot already) and the snapshot
				958	# format key itself, with a prepended dot
Holger Weiß	ccb4b53	2009-03-31 18:16:36 +0200	[diff] [blame]	959	while (my ($fmt, $opt) = each %known_snapshot_formats) {
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	960	my $hash = $refname;
Jakub Narebski	095e914	2009-05-11 19:42:47 +0200	[diff] [blame]	961	unless ($hash =~ s/(\Q$opt->{'suffix'}\E\|\Q.$fmt\E)$//) {
				962	next;
				963	}
				964	my $sfx = $1;
Giuseppe Bilotta	1ec2fb5	2008-11-02 10:21:38 +0100	[diff] [blame]	965	# a valid suffix was found, so set the snapshot format
				966	# and reset the hash parameter
				967	$input_params{'snapshot_format'} = $fmt;
				968	$input_params{'hash'} = $hash;
				969	# we also set the format suffix to the one requested
				970	# in the URL: this way a request for e.g. .tgz returns
				971	# a .tgz instead of a .tar.gz
				972	$known_snapshot_formats{$fmt}{'suffix'} = $sfx;
				973	last;
				974	}
				975	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	976	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	977
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	978	our ($action, $project, $file_name, $file_parent, $hash, $hash_parent, $hash_base,
				979	$hash_parent_base, @extra_options, $page, $searchtype, $search_use_regexp,
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	980	$searchtext, $search_regexp, $project_filter);
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	981	sub evaluate_and_validate_params {
				982	our $action = $input_params{'action'};
				983	if (defined $action) {
				984	if (!validate_action($action)) {
				985	die_error(400, "Invalid action parameter");
				986	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	987	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	988
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	989	# parameters which are pathnames
				990	our $project = $input_params{'project'};
				991	if (defined $project) {
				992	if (!validate_project($project)) {
				993	undef $project;
				994	die_error(404, "No such project");
				995	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	996	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	997
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	998	our $project_filter = $input_params{'project_filter'};
				999	if (defined $project_filter) {
				1000	if (!validate_pathname($project_filter)) {
				1001	die_error(404, "Invalid project_filter parameter");
				1002	}
				1003	}
				1004
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1005	our $file_name = $input_params{'file_name'};
				1006	if (defined $file_name) {
				1007	if (!validate_pathname($file_name)) {
				1008	die_error(400, "Invalid file parameter");
				1009	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1010	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1011
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1012	our $file_parent = $input_params{'file_parent'};
				1013	if (defined $file_parent) {
				1014	if (!validate_pathname($file_parent)) {
				1015	die_error(400, "Invalid file parent parameter");
				1016	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1017	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1018
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1019	# parameters which are refnames
				1020	our $hash = $input_params{'hash'};
				1021	if (defined $hash) {
				1022	if (!validate_refname($hash)) {
				1023	die_error(400, "Invalid hash parameter");
				1024	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1025	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1026
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1027	our $hash_parent = $input_params{'hash_parent'};
				1028	if (defined $hash_parent) {
				1029	if (!validate_refname($hash_parent)) {
				1030	die_error(400, "Invalid hash parent parameter");
				1031	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1032	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1033
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1034	our $hash_base = $input_params{'hash_base'};
				1035	if (defined $hash_base) {
				1036	if (!validate_refname($hash_base)) {
				1037	die_error(400, "Invalid hash base parameter");
				1038	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1039	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1040
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1041	our @extra_options = @{$input_params{'extra_options'}};
				1042	# @extra_options is always defined, since it can only be (currently) set from
				1043	# CGI, and $cgi->param() returns the empty array in array context if the param
				1044	# is not set
				1045	foreach my $opt (@extra_options) {
				1046	if (not exists $allowed_options{$opt}) {
				1047	die_error(400, "Invalid option parameter");
				1048	}
				1049	if (not grep(/^$action$/, @{$allowed_options{$opt}})) {
				1050	die_error(400, "Invalid option parameter for this action");
				1051	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1052	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1053
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1054	our $hash_parent_base = $input_params{'hash_parent_base'};
				1055	if (defined $hash_parent_base) {
				1056	if (!validate_refname($hash_parent_base)) {
				1057	die_error(400, "Invalid hash parent base parameter");
				1058	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1059	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1060
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1061	# other parameters
				1062	our $page = $input_params{'page'};
				1063	if (defined $page) {
				1064	if ($page =~ m/[^0-9]/) {
				1065	die_error(400, "Invalid page parameter");
				1066	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1067	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1068
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1069	our $searchtype = $input_params{'searchtype'};
				1070	if (defined $searchtype) {
				1071	if ($searchtype =~ m/[^a-z]/) {
				1072	die_error(400, "Invalid searchtype parameter");
				1073	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1074	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1075
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1076	our $search_use_regexp = $input_params{'search_use_regexp'};
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1077
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1078	our $searchtext = $input_params{'searchtext'};
				1079	our $search_regexp;
				1080	if (defined $searchtext) {
				1081	if (length($searchtext) < 2) {
				1082	die_error(403, "At least two characters are required for search parameter");
				1083	}
				1084	$search_regexp = $search_use_regexp ? $searchtext : quotemeta $searchtext;
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1085	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1086	}
				1087
				1088	# path to the current git repository
				1089	our $git_dir;
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1090	sub evaluate_git_dir {
				1091	our $git_dir = "$projectroot/$project" if $project;
				1092	}
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1093
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1094	our (@snapshot_fmts, $git_avatar);
				1095	sub configure_gitweb_features {
				1096	# list of supported snapshot formats
				1097	our @snapshot_fmts = gitweb_get_feature('snapshot');
				1098	@snapshot_fmts = filter_snapshot_fmts(@snapshot_fmts);
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	1099
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1100	# check that the avatar feature is set to a known provider name,
				1101	# and for each provider check if the dependencies are satisfied.
				1102	# if the provider name is invalid or the dependencies are not met,
				1103	# reset $git_avatar to the empty string.
				1104	our ($git_avatar) = gitweb_get_feature('avatar');
				1105	if ($git_avatar eq 'gravatar') {
				1106	$git_avatar = '' unless (eval { require Digest::MD5; 1; });
				1107	} elsif ($git_avatar eq 'picon') {
				1108	# no dependencies
				1109	} else {
				1110	$git_avatar = '';
				1111	}
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1112	}
				1113
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	1114	# custom error handler: 'die <message>' is Internal Server Error
				1115	sub handle_errors_html {
				1116	my $msg = shift; # it is already HTML escaped
				1117
				1118	# to avoid infinite loop where error occurs in die_error,
				1119	# change handler to default handler, disabling handle_errors_html
				1120	set_message("Error occured when inside die_error:\n$msg");
				1121
				1122	# you cannot jump out of die_error when called as error handler;
				1123	# the subroutine set via CGI::Carp::set_message is called _after_
				1124	# HTTP headers are already written, so it cannot write them itself
				1125	die_error(undef, undef, $msg, -error_handler => 1, -no_http_header => 1);
				1126	}
				1127	set_message(\&handle_errors_html);
				1128
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1129	# dispatch
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1130	sub dispatch {
				1131	if (!defined $action) {
				1132	if (defined $hash) {
				1133	$action = git_get_type($hash);
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1134	$action or die_error(404, "Object does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1135	} elsif (defined $hash_base && defined $file_name) {
				1136	$action = git_get_type("$hash_base:$file_name");
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	1137	$action or die_error(404, "File or directory does not exist");
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1138	} elsif (defined $project) {
				1139	$action = 'summary';
				1140	} else {
				1141	$action = 'project_list';
				1142	}
Gerrit Pape	7f9778b	2007-05-10 07:32:07 +0000	[diff] [blame]	1143	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1144	if (!defined($actions{$action})) {
				1145	die_error(400, "Unknown action");
				1146	}
				1147	if ($action !~ m/^(?:opml\|project_list\|project_index)$/ &&
				1148	!$project) {
				1149	die_error(400, "Project needed");
				1150	}
				1151	$actions{$action}->();
Jakub Narebski	77a153f	2006-08-22 16:59:20 +0200	[diff] [blame]	1152	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1153
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1154	sub reset_timer {
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	1155	our $t0 = [ gettimeofday() ]
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1156	if defined $t0;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1157	our $number_of_git_cmds = 0;
				1158	}
				1159
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1160	our $first_request = 1;
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1161	sub run_request {
				1162	reset_timer();
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1163
				1164	evaluate_uri();
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1165	if ($first_request) {
				1166	evaluate_gitweb_config();
				1167	evaluate_git_version();
				1168	}
				1169	if ($per_request_config) {
				1170	if (ref($per_request_config) eq 'CODE') {
				1171	$per_request_config->();
				1172	} elsif (!$first_request) {
				1173	evaluate_gitweb_config();
				1174	}
				1175	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1176	check_loadavg();
				1177
Jonathan Nieder	7f425db	2010-07-30 22:01:59 -0500	[diff] [blame]	1178	# $projectroot and $projects_list might be set in gitweb config file
				1179	$projects_list \|\|= $projectroot;
				1180
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1181	evaluate_query_params();
				1182	evaluate_path_info();
				1183	evaluate_and_validate_params();
				1184	evaluate_git_dir();
				1185
				1186	configure_gitweb_features();
				1187
				1188	dispatch();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1189	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1190
				1191	our $is_last_request = sub { 1 };
				1192	our ($pre_dispatch_hook, $post_dispatch_hook, $pre_listen_hook);
				1193	our $CGI = 'CGI';
				1194	our $cgi;
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1195	sub configure_as_fcgi {
				1196	require CGI::Fast;
				1197	our $CGI = 'CGI::Fast';
				1198
				1199	my $request_number = 0;
				1200	# let each child service 100 requests
				1201	our $is_last_request = sub { ++$request_number > 100 };
Jakub Narebski	d04d3d4	2006-09-19 21:53:22 +0200	[diff] [blame]	1202	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1203	sub evaluate_argv {
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1204	my $script_name = $ENV{'SCRIPT_NAME'} \|\| $ENV{'SCRIPT_FILENAME'} \|\| __FILE__;
				1205	configure_as_fcgi()
				1206	if $script_name =~ /\.fcgi$/;
				1207
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1208	return unless (@ARGV);
				1209
				1210	require Getopt::Long;
				1211	Getopt::Long::GetOptions(
Jakub Narebski	45aa989	2010-06-05 23:11:18 +0200	[diff] [blame]	1212	'fastcgi\|fcgi\|f' => \&configure_as_fcgi,
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1213	'nproc\|n=i' => sub {
				1214	my ($arg, $val) = @_;
				1215	return unless eval { require FCGI::ProcManager; 1; };
				1216	my $proc_manager = FCGI::ProcManager->new({
				1217	n_processes => $val,
				1218	});
				1219	our $pre_listen_hook = sub { $proc_manager->pm_manage() };
				1220	our $pre_dispatch_hook = sub { $proc_manager->pm_pre_dispatch() };
				1221	our $post_dispatch_hook = sub { $proc_manager->pm_post_dispatch() };
				1222	},
				1223	);
				1224	}
				1225
				1226	sub run {
				1227	evaluate_argv();
Jakub Narebski	869d588	2010-07-05 20:52:43 +0200	[diff] [blame]	1228
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1229	$first_request = 1;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1230	$pre_listen_hook->()
				1231	if $pre_listen_hook;
				1232
				1233	REQUEST:
				1234	while ($cgi = $CGI->new()) {
				1235	$pre_dispatch_hook->()
				1236	if $pre_dispatch_hook;
				1237
				1238	run_request();
				1239
Jakub Narebski	0b45010	2010-08-02 22:21:47 +0200	[diff] [blame]	1240	$post_dispatch_hook->()
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1241	if $post_dispatch_hook;
Jakub Narebski	da4b243	2010-11-25 19:43:59 +0100	[diff] [blame]	1242	$first_request = 0;
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1243
				1244	last REQUEST if ($is_last_request->());
				1245	}
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1246
				1247	DONE_GITWEB:
				1248	1;
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1249	}
Sam Vilain	a0446e7	2010-05-07 14:54:05 +0200	[diff] [blame]	1250
Jakub Narebski	c2394fe	2010-05-07 14:54:04 +0200	[diff] [blame]	1251	run();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	1252
Jakub Narebski	5ed2ec1	2010-06-13 12:09:32 +0200	[diff] [blame]	1253	if (defined caller) {
				1254	# wrapped in a subroutine processing requests,
				1255	# e.g. mod_perl with ModPerl::Registry, or PSGI with Plack::App::WrapCGI
				1256	return;
				1257	} else {
				1258	# pure CGI script, serving single request
				1259	exit;
				1260	}
Kay Sievers	823d5dc	2005-08-07 19:57:58 +0200	[diff] [blame]	1261
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1262	## ======================================================================
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1263	## action links
				1264
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1265	# possible values of extra options
				1266	# -full => 0\|1 - use absolute/full URL ($my_uri/$my_url as base)
				1267	# -replay => 1 - start from a current view (replay with modifications)
				1268	# -path_info => 0\|1 - don't use/use path_info URL (if possible)
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1269	# -anchor => ANCHOR - add #ANCHOR to end of URL, implies -replay if used alone
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1270	sub href {
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1271	my %params = @_;
Jakub Narebski	bd5d1e4	2006-11-19 15:05:21 +0100	[diff] [blame]	1272	# default is to use -absolute url() i.e. $my_uri
				1273	my $href = $params{-full} ? $my_url : $my_uri;
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1274
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1275	# implicit -replay, must be first of implicit params
				1276	$params{-replay} = 1 if (keys %params == 1 && $params{-anchor});
				1277
Jakub Narebski	afa9b62	2008-02-14 09:22:30 +0100	[diff] [blame]	1278	$params{'project'} = $project unless exists $params{'project'};
				1279
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1280	if ($params{-replay}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1281	while (my ($name, $symbol) = each %cgi_param_mapping) {
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1282	if (!exists $params{$name}) {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1283	$params{$name} = $input_params{$name};
Jakub Narebski	1cad283	2007-11-01 13:06:27 +0100	[diff] [blame]	1284	}
				1285	}
				1286	}
				1287
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	1288	my $use_pathinfo = gitweb_check_feature('pathinfo');
Jakub Narebski	377bee3	2010-04-24 15:53:19 +0200	[diff] [blame]	1289	if (defined $params{'project'} &&
				1290	(exists $params{-path_info} ? $params{-path_info} : $use_pathinfo)) {
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1291	# try to put as many parameters as possible in PATH_INFO:
				1292	# - project name
				1293	# - action
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1294	# - hash_parent or hash_parent_base:/file_parent
Giuseppe Bilotta	3550ea7	2008-10-21 21:34:52 +0200	[diff] [blame]	1295	# - hash or hash_base:/filename
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1296	# - the snapshot_format as an appropriate suffix
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1297
				1298	# When the script is the root DirectoryIndex for the domain,
				1299	# $href here would be something like http://gitweb.example.com/
				1300	# Thus, we strip any trailing / from $href, to spare us double
				1301	# slashes in the final URL
				1302	$href =~ s,/$,,;
				1303
				1304	# Then add the project name, if present
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1305	$href .= "/".esc_path_info($params{'project'});
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1306	delete $params{'project'};
				1307
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1308	# since we destructively absorb parameters, we keep this
				1309	# boolean that remembers if we're handling a snapshot
				1310	my $is_snapshot = $params{'action'} eq 'snapshot';
				1311
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1312	# Summary just uses the project path URL, any other action is
				1313	# added to the URL
				1314	if (defined $params{'action'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1315	$href .= "/".esc_path_info($params{'action'})
				1316	unless $params{'action'} eq 'summary';
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1317	delete $params{'action'};
				1318	}
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1319
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1320	# Next, we put hash_parent_base:/file_parent..hash_base:/file_name,
				1321	# stripping nonexistent or useless pieces
				1322	$href .= "/" if ($params{'hash_base'} \|\| $params{'hash_parent_base'}
				1323	\|\| $params{'hash_parent'} \|\| $params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1324	if (defined $params{'hash_base'}) {
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1325	if (defined $params{'hash_parent_base'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1326	$href .= esc_path_info($params{'hash_parent_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1327	# skip the file_parent if it's the same as the file_name
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1328	if (defined $params{'file_parent'}) {
				1329	if (defined $params{'file_name'} && $params{'file_parent'} eq $params{'file_name'}) {
				1330	delete $params{'file_parent'};
				1331	} elsif ($params{'file_parent'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1332	$href .= ":/".esc_path_info($params{'file_parent'});
Giuseppe Bilotta	b7da721	2009-07-31 08:48:49 +0200	[diff] [blame]	1333	delete $params{'file_parent'};
				1334	}
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1335	}
				1336	$href .= "..";
				1337	delete $params{'hash_parent'};
				1338	delete $params{'hash_parent_base'};
				1339	} elsif (defined $params{'hash_parent'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1340	$href .= esc_path_info($params{'hash_parent'}). "..";
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1341	delete $params{'hash_parent'};
				1342	}
				1343
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1344	$href .= esc_path_info($params{'hash_base'});
Giuseppe Bilotta	8db49a7	2008-10-21 21:34:54 +0200	[diff] [blame]	1345	if (defined $params{'file_name'} && $params{'file_name'} !~ /\.\./) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1346	$href .= ":/".esc_path_info($params{'file_name'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1347	delete $params{'file_name'};
				1348	}
				1349	delete $params{'hash'};
				1350	delete $params{'hash_base'};
				1351	} elsif (defined $params{'hash'}) {
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1352	$href .= esc_path_info($params{'hash'});
Giuseppe Bilotta	b02bd7a	2008-10-21 21:34:51 +0200	[diff] [blame]	1353	delete $params{'hash'};
				1354	}
Giuseppe Bilotta	c752a0e	2008-11-02 10:21:39 +0100	[diff] [blame]	1355
				1356	# If the action was a snapshot, we can absorb the
				1357	# snapshot_format parameter too
				1358	if ($is_snapshot) {
				1359	my $fmt = $params{'snapshot_format'};
				1360	# snapshot_format should always be defined when href()
				1361	# is called, but just in case some code forgets, we
				1362	# fall back to the default
				1363	$fmt \|\|= $snapshot_fmts[0];
				1364	$href .= $known_snapshot_formats{$fmt}{'suffix'};
				1365	delete $params{'snapshot_format'};
				1366	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1367	}
				1368
				1369	# now encode the parameters explicitly
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1370	my @result = ();
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1371	for (my $i = 0; $i < @cgi_param_mapping; $i += 2) {
				1372	my ($name, $symbol) = ($cgi_param_mapping[$i], $cgi_param_mapping[$i+1]);
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1373	if (defined $params{$name}) {
Jakub Narebski	f22cca4	2007-07-29 01:04:09 +0200	[diff] [blame]	1374	if (ref($params{$name}) eq "ARRAY") {
				1375	foreach my $par (@{$params{$name}}) {
				1376	push @result, $symbol . "=" . esc_param($par);
				1377	}
				1378	} else {
				1379	push @result, $symbol . "=" . esc_param($params{$name});
				1380	}
Jakub Narebski	498fe00	2006-08-22 19:05:25 +0200	[diff] [blame]	1381	}
				1382	}
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1383	$href .= "?" . join(';', @result) if scalar @result;
				1384
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1385	# final transformation: trailing spaces must be escaped (URI-encoded)
				1386	$href =~ s/(\s+)$/CGI::escape($1)/e;
				1387
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	1388	if ($params{-anchor}) {
				1389	$href .= "#".esc_param($params{-anchor});
				1390	}
				1391
Martin Waitz	9e75690	2006-10-01 23:57:48 +0200	[diff] [blame]	1392	return $href;
Martin Waitz	06a9d86	2006-08-16 00:23:50 +0200	[diff] [blame]	1393	}
				1394
				1395
				1396	## ======================================================================
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1397	## validation, quoting/unquoting and escaping
				1398
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1399	sub validate_action {
				1400	my $input = shift \|\| return undef;
				1401	return undef unless exists $actions{$input};
				1402	return $input;
				1403	}
				1404
				1405	sub validate_project {
				1406	my $input = shift \|\| return undef;
				1407	if (!validate_pathname($input) \|\|
				1408	!(-d "$projectroot/$input") \|\|
Alexander Gavrilov	ec26f09	2008-11-06 01:15:56 +0300	[diff] [blame]	1409	!check_export_ok("$projectroot/$input") \|\|
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	1410	($strict_export && !project_in_list($input))) {
				1411	return undef;
				1412	} else {
				1413	return $input;
				1414	}
				1415	}
				1416
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1417	sub validate_pathname {
				1418	my $input = shift \|\| return undef;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1419
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1420	# no '.' or '..' as elements of path, i.e. no '.' nor '..'
				1421	# at the beginning, at the end, and between slashes.
				1422	# also this catches doubled slashes
				1423	if ($input =~ m!(^\|/)(\|\.\|\.\.)(/\|$)!) {
				1424	return undef;
				1425	}
				1426	# no null characters
				1427	if ($input =~ m!\0!) {
				1428	return undef;
				1429	}
				1430	return $input;
				1431	}
				1432
				1433	sub validate_refname {
				1434	my $input = shift \|\| return undef;
				1435
				1436	# textual hashes are O.K.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1437	if ($input =~ m/^[0-9a-fA-F]{40}$/) {
				1438	return $input;
				1439	}
Jakub Narebski	24d0693	2006-09-26 01:57:02 +0200	[diff] [blame]	1440	# it must be correct pathname
				1441	$input = validate_pathname($input)
				1442	or return undef;
				1443	# restrictions on ref name according to git-check-ref-format
				1444	if ($input =~ m!(/\.\|\.\.\|[\000-\040\177 ~^:?*\[]\|/$)!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1445	return undef;
				1446	}
				1447	return $input;
				1448	}
				1449
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1450	# decode sequences of octets in utf8 into Perl's internal form,
				1451	# which is utf-8 with utf8 flag set if needed. gitweb writes out
				1452	# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning
				1453	sub to_utf8 {
				1454	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1455	return undef unless defined $str;
Jakub Narebski	b13e3ea	2011-12-18 23:00:58 +0100	[diff] [blame]	1456
				1457	if (utf8::is_utf8($str) \|\| utf8::decode($str)) {
İsmail Dönmez	e5d3de5	2007-12-04 10:55:41 +0200	[diff] [blame]	1458	return $str;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1459	} else {
				1460	return decode($fallback_encoding, $str, Encode::FB_DEFAULT);
				1461	}
				1462	}
				1463
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1464	# quote unsafe chars, but keep the slash, even when it's not
				1465	# correct, but quoted slashes look too horrible in bookmarks
				1466	sub esc_param {
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1467	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1468	return undef unless defined $str;
Giuseppe Bilotta	452e225	2009-10-13 21:51:36 +0200	[diff] [blame]	1469	$str =~ s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;
Kay Sievers	a9e60b7	2005-11-14 15:15:12 +0100	[diff] [blame]	1470	$str =~ s/ /\+/g;
Kay Sievers	353347b	2005-11-14 05:47:18 +0100	[diff] [blame]	1471	return $str;
				1472	}
				1473
Jakub Narebski	67976c6	2010-12-14 16:54:31 +0100	[diff] [blame]	1474	# the quoting rules for path_info fragment are slightly different
				1475	sub esc_path_info {
				1476	my $str = shift;
				1477	return undef unless defined $str;
				1478
				1479	# path_info doesn't treat '+' as space (specially), but '?' must be escaped
				1480	$str =~ s/([^A-Za-z0-9\-_.~();\/;:@&= +]+)/CGI::escape($1)/eg;
				1481
				1482	return $str;
				1483	}
				1484
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	1485	# quote unsafe chars in whole URL, so some characters cannot be quoted
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1486	sub esc_url {
				1487	my $str = shift;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1488	return undef unless defined $str;
Pavan Kumar Sunkara	109988f	2010-07-15 12:59:01 +0530	[diff] [blame]	1489	$str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&= ]+)/CGI::escape($1)/eg;
Jakub Narebski	f93bff8	2006-09-26 01:58:41 +0200	[diff] [blame]	1490	$str =~ s/ /\+/g;
				1491	return $str;
				1492	}
				1493
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1494	# quote unsafe characters in HTML attributes
				1495	sub esc_attr {
				1496
				1497	# for XHTML conformance escaping '"' to '"' is not enough
				1498	return esc_html(@_);
				1499	}
				1500
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1501	# replace invalid utf8 character with SUBSTITUTION sequence
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1502	sub esc_html {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1503	my $str = shift;
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1504	my %opts = @_;
				1505
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1506	return undef unless defined $str;
				1507
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1508	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1509	$str = $cgi->escapeHTML($str);
Jakub Narebski	6255ef0	2006-11-01 14:33:21 +0100	[diff] [blame]	1510	if ($opts{'-nbsp'}) {
				1511	$str =~ s/ / /g;
				1512	}
Junio C Hamano	25ffbb2	2006-11-08 15:11:10 -0800	[diff] [blame]	1513	$str =~ s\|([[:cntrl:]])\|(($1 ne "\t") ? quot_cec($1) : $1)\|eg;
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	1514	return $str;
				1515	}
				1516
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1517	# quote control characters and escape filename to HTML
				1518	sub esc_path {
				1519	my $str = shift;
				1520	my %opts = @_;
				1521
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	1522	return undef unless defined $str;
				1523
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1524	$str = to_utf8($str);
Li Yang	c390ae9	2007-03-06 11:58:56 +0800	[diff] [blame]	1525	$str = $cgi->escapeHTML($str);
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1526	if ($opts{'-nbsp'}) {
				1527	$str =~ s/ / /g;
				1528	}
				1529	$str =~ s\|([[:cntrl:]])\|quot_cec($1)\|eg;
				1530	return $str;
				1531	}
				1532
Jakub Narebski	0866786	2011-09-16 14:41:57 +0200	[diff] [blame]	1533	# Sanitize for use in XHTML + application/xml+xhtm (valid XML 1.0)
				1534	sub sanitize {
				1535	my $str = shift;
				1536
				1537	return undef unless defined $str;
				1538
				1539	$str = to_utf8($str);
				1540	$str =~ s\|([[:cntrl:]])\|($1 =~ /[\t\n\r]/ ? $1 : quot_cec($1))\|eg;
				1541	return $str;
				1542	}
				1543
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1544	# Make control characters "printable", using character escape codes (CEC)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1545	sub quot_cec {
				1546	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1547	my %opts = @_;
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1548	my %es = ( # character escape codes, aka escape sequences
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1549	"\t" => '\t', # tab (HT)
				1550	"\n" => '\n', # line feed (LF)
				1551	"\r" => '\r', # carrige return (CR)
				1552	"\f" => '\f', # form feed (FF)
				1553	"\b" => '\b', # backspace (BS)
				1554	"\a" => '\a', # alarm (bell) (BEL)
				1555	"\e" => '\e', # escape (ESC)
				1556	"\013" => '\v', # vertical tab (VT)
				1557	"\000" => '\0', # nul character (NUL)
				1558	);
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1559	my $chr = ( (exists $es{$cntrl})
				1560	? $es{$cntrl}
Petr Baudis	25dfd17	2008-10-01 22:11:54 +0200	[diff] [blame]	1561	: sprintf('\%2x', ord($cntrl)) );
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1562	if ($opts{-nohtml}) {
				1563	return $chr;
				1564	} else {
				1565	return "<span class=\"cntrl\">$chr</span>";
				1566	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1567	}
				1568
Jakub Narebski	391862e	2006-11-25 09:43:59 +0100	[diff] [blame]	1569	# Alternatively use unicode control pictures codepoints,
				1570	# Unicode "printable representation" (PR)
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1571	sub quot_upr {
				1572	my $cntrl = shift;
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1573	my %opts = @_;
				1574
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1575	my $chr = sprintf('&#%04d;', 0x2400+ord($cntrl));
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1576	if ($opts{-nohtml}) {
				1577	return $chr;
				1578	} else {
				1579	return "<span class=\"cntrl\">$chr</span>";
				1580	}
Jakub Narebski	1d3bc0c	2006-11-08 11:50:07 +0100	[diff] [blame]	1581	}
				1582
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1583	# git may return quoted and escaped filenames
				1584	sub unquote {
				1585	my $str = shift;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1586
				1587	sub unq {
				1588	my $seq = shift;
				1589	my %es = ( # character escape codes, aka escape sequences
				1590	't' => "\t", # tab (HT, TAB)
				1591	'n' => "\n", # newline (NL)
				1592	'r' => "\r", # return (CR)
				1593	'f' => "\f", # form feed (FF)
				1594	'b' => "\b", # backspace (BS)
				1595	'a' => "\a", # alarm (bell) (BEL)
				1596	'e' => "\e", # escape (ESC)
				1597	'v' => "\013", # vertical tab (VT)
				1598	);
				1599
				1600	if ($seq =~ m/^[0-7]{1,3}$/) {
				1601	# octal char sequence
				1602	return chr(oct($seq));
				1603	} elsif (exists $es{$seq}) {
				1604	# C escape sequence, aka character escape code
Jakub Narebski	c84c483	2008-02-17 18:48:13 +0100	[diff] [blame]	1605	return $es{$seq};
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1606	}
				1607	# quoted ordinary character
				1608	return $seq;
				1609	}
				1610
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1611	if ($str =~ m/^"(.*)"$/) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1612	# needs unquoting
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1613	$str = $1;
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	1614	$str =~ s/\\([^0-7]\|[0-7]{1,3})/unq($1)/eg;
Kay Sievers	232ff55	2005-11-24 16:56:55 +0100	[diff] [blame]	1615	}
				1616	return $str;
				1617	}
				1618
Jakub Narebski	f16db17	2006-08-06 02:08:31 +0200	[diff] [blame]	1619	# escape tabs (convert tabs to spaces)
				1620	sub untabify {
				1621	my $line = shift;
				1622
				1623	while ((my $pos = index($line, "\t")) != -1) {
				1624	if (my $count = (8 - ($pos % 8))) {
				1625	my $spaces = ' ' x $count;
				1626	$line =~ s/\t/$spaces/;
				1627	}
				1628	}
				1629
				1630	return $line;
				1631	}
				1632
Matthias Lederhofer	32f4aac	2006-09-17 00:31:01 +0200	[diff] [blame]	1633	sub project_in_list {
				1634	my $project = shift;
				1635	my @list = git_get_projects_list();
				1636	return @list && scalar(grep { $_->{'path'} eq $project } @list);
				1637	}
				1638
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1639	## ----------------------------------------------------------------------
				1640	## HTML aware string manipulation
				1641
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1642	# Try to chop given string on a word boundary between position
				1643	# $len and $len+$add_len. If there is no word boundary there,
				1644	# chop at $len+$add_len. Do not chop if chopped part plus ellipsis
				1645	# (marking chopped part) would be longer than given string.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1646	sub chop_str {
				1647	my $str = shift;
				1648	my $len = shift;
				1649	my $add_len = shift \|\| 10;
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1650	my $where = shift \|\| 'right'; # 'left' \| 'center' \| 'right'
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1651
Anders Waldenborg	dee2775	2008-05-21 13:44:43 +0200	[diff] [blame]	1652	# Make sure perl knows it is utf8 encoded so we don't
				1653	# cut in the middle of a utf8 multibyte char.
				1654	$str = to_utf8($str);
				1655
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1656	# allow only $len chars, but don't cut a word if it would fit in $add_len
				1657	# if it doesn't fit, cut it if it's still longer than the dots we would add
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1658	# remove chopped character entities entirely
				1659
				1660	# when chopping in the middle, distribute $len into left and right part
				1661	# return early if chopping wouldn't make string shorter
				1662	if ($where eq 'center') {
				1663	return $str if ($len + 5 >= length($str)); # filler is length 5
				1664	$len = int($len/2);
				1665	} else {
				1666	return $str if ($len + 4 >= length($str)); # filler is length 4
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1667	}
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1668
				1669	# regexps: ending and beginning with word part up to $add_len
				1670	my $endre = qr/.{$len}\w{0,$add_len}/;
				1671	my $begre = qr/\w{0,$add_len}.{$len}/;
				1672
				1673	if ($where eq 'left') {
				1674	$str =~ m/^(.*?)($begre)$/;
				1675	my ($lead, $body) = ($1, $2);
				1676	if (length($lead) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1677	$lead = " ...";
				1678	}
				1679	return "$lead$body";
				1680
				1681	} elsif ($where eq 'center') {
				1682	$str =~ m/^($endre)(.*)$/;
				1683	my ($left, $str) = ($1, $2);
				1684	$str =~ m/^(.*?)($begre)$/;
				1685	my ($mid, $right) = ($1, $2);
				1686	if (length($mid) > 5) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1687	$mid = " ... ";
				1688	}
				1689	return "$left$mid$right";
				1690
				1691	} else {
				1692	$str =~ m/^($endre)(.*)$/;
				1693	my $body = $1;
				1694	my $tail = $2;
				1695	if (length($tail) > 4) {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1696	$tail = "... ";
				1697	}
				1698	return "$body$tail";
				1699	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1700	}
				1701
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1702	# takes the same arguments as chop_str, but also wraps a <span> around the
				1703	# result with a title attribute if it does get chopped. Additionally, the
				1704	# string is HTML-escaped.
				1705	sub chop_and_escape_str {
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1706	my ($str) = @_;
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1707
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	1708	my $chopped = chop_str(@_);
Jürgen Kreileder	168c1e0	2011-12-17 10:22:21 +0100	[diff] [blame]	1709	$str = to_utf8($str);
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1710	if ($chopped eq $str) {
				1711	return esc_html($chopped);
				1712	} else {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1713	$str =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	850b90a	2008-02-16 23:07:46 +0100	[diff] [blame]	1714	return $cgi->span({-title=>$str}, esc_html($chopped));
David Symonds	ce58ec9	2007-10-23 11:31:22 +1000	[diff] [blame]	1715	}
				1716	}
				1717
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1718	## ----------------------------------------------------------------------
				1719	## functions returning short strings
				1720
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1721	# CSS class for given age value (in seconds)
				1722	sub age_class {
				1723	my $age = shift;
				1724
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	1725	if (!defined $age) {
				1726	return "noage";
				1727	} elsif ($age < 60602) {
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	1728	return "age0";
				1729	} elsif ($age < 606024*2) {
				1730	return "age1";
				1731	} else {
				1732	return "age2";
				1733	}
				1734	}
				1735
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1736	# convert age in seconds to "nn units ago" string
				1737	sub age_string {
				1738	my $age = shift;
				1739	my $age_str;
				1740
				1741	if ($age > 6060243652) {
				1742	$age_str = (int $age/60/60/24/365);
				1743	$age_str .= " years ago";
				1744	} elsif ($age > 606024(365/12)2) {
				1745	$age_str = int $age/60/60/24/(365/12);
				1746	$age_str .= " months ago";
				1747	} elsif ($age > 60602472) {
				1748	$age_str = int $age/60/60/24/7;
				1749	$age_str .= " weeks ago";
				1750	} elsif ($age > 606024*2) {
				1751	$age_str = int $age/60/60/24;
				1752	$age_str .= " days ago";
				1753	} elsif ($age > 60602) {
				1754	$age_str = int $age/60/60;
				1755	$age_str .= " hours ago";
				1756	} elsif ($age > 60*2) {
				1757	$age_str = int $age/60;
				1758	$age_str .= " min ago";
				1759	} elsif ($age > 2) {
				1760	$age_str = int $age;
				1761	$age_str .= " sec ago";
				1762	} else {
				1763	$age_str .= " right now";
				1764	}
				1765	return $age_str;
				1766	}
				1767
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1768	use constant {
				1769	S_IFINVALID => 0030000,
				1770	S_IFGITLINK => 0160000,
				1771	};
				1772
				1773	# submodule/subproject, a commit object reference
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	1774	sub S_ISGITLINK {
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1775	my $mode = shift;
				1776
				1777	return (($mode & S_IFMT) == S_IFGITLINK)
				1778	}
				1779
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1780	# convert file mode in octal to symbolic file mode string
				1781	sub mode_str {
				1782	my $mode = oct shift;
				1783
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1784	if (S_ISGITLINK($mode)) {
				1785	return 'm---------';
				1786	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1787	return 'drwxr-xr-x';
				1788	} elsif (S_ISLNK($mode)) {
				1789	return 'lrwxrwxrwx';
				1790	} elsif (S_ISREG($mode)) {
				1791	# git cares only about the executable bit
				1792	if ($mode & S_IXUSR) {
				1793	return '-rwxr-xr-x';
				1794	} else {
				1795	return '-rw-r--r--';
				1796	};
				1797	} else {
				1798	return '----------';
				1799	}
				1800	}
				1801
				1802	# convert file mode in octal to file type string
				1803	sub file_type {
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	1804	my $mode = shift;
				1805
				1806	if ($mode !~ m/^[0-7]+$/) {
				1807	return $mode;
				1808	} else {
				1809	$mode = oct $mode;
				1810	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1811
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1812	if (S_ISGITLINK($mode)) {
				1813	return "submodule";
				1814	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1815	return "directory";
				1816	} elsif (S_ISLNK($mode)) {
				1817	return "symlink";
				1818	} elsif (S_ISREG($mode)) {
				1819	return "file";
				1820	} else {
				1821	return "unknown";
				1822	}
				1823	}
				1824
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1825	# convert file mode in octal to file type description string
				1826	sub file_type_long {
				1827	my $mode = shift;
				1828
				1829	if ($mode !~ m/^[0-7]+$/) {
				1830	return $mode;
				1831	} else {
				1832	$mode = oct $mode;
				1833	}
				1834
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	1835	if (S_ISGITLINK($mode)) {
				1836	return "submodule";
				1837	} elsif (S_ISDIR($mode & S_IFMT)) {
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	1838	return "directory";
				1839	} elsif (S_ISLNK($mode)) {
				1840	return "symlink";
				1841	} elsif (S_ISREG($mode)) {
				1842	if ($mode & S_IXUSR) {
				1843	return "executable";
				1844	} else {
				1845	return "file";
				1846	};
				1847	} else {
				1848	return "unknown";
				1849	}
				1850	}
				1851
				1852
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1853	## ----------------------------------------------------------------------
				1854	## functions returning short HTML fragments, or transforming HTML fragments
Pavel Roskin	3dff537	2007-02-03 23:49:16 -0500	[diff] [blame]	1855	## which don't belong to other sections
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1856
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1857	# format line of commit message.
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1858	sub format_log_line_html {
				1859	my $line = shift;
				1860
Junio C Hamano	225932e	2006-11-09 00:57:13 -0800	[diff] [blame]	1861	$line = esc_html($line, -nbsp=>1);
Marcel M. Cary	7d233de	2009-02-17 19:00:43 -0800	[diff] [blame]	1862	$line =~ s{\b([0-9a-fA-F]{8,40})\b}{
				1863	$cgi->a({-href => href(action=>"object", hash=>$1),
				1864	-class => "text"}, $1);
				1865	}eg;
				1866
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1867	return $line;
				1868	}
				1869
				1870	# format marker of refs pointing to given object
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1871
				1872	# the destination action is chosen based on object type and current context:
				1873	# - for annotated tags, we choose the tag view unless it's the current view
				1874	# already, in which case we go to shortlog view
				1875	# - for other refs, we keep the current view if we're in history, shortlog or
				1876	# log view, and select shortlog otherwise
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	1877	sub format_ref_marker {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1878	my ($refs, $id) = @_;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1879	my $markers = '';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1880
				1881	if (defined $refs->{$id}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1882	foreach my $ref (@{$refs->{$id}}) {
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1883	# this code exploits the fact that non-lightweight tags are the
				1884	# only indirect objects, and that they are the only objects for which
				1885	# we want to use tag instead of shortlog as action
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1886	my ($type, $name) = qw();
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1887	my $indirect = ($ref =~ s/\^\{\}$//);
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1888	# e.g. tags/v2.6.11 or heads/next
				1889	if ($ref =~ m!^(.?)s?/(.)$!) {
				1890	$type = $1;
				1891	$name = $2;
				1892	} else {
				1893	$type = "ref";
				1894	$name = $ref;
				1895	}
				1896
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1897	my $class = $type;
				1898	$class .= " indirect" if $indirect;
				1899
				1900	my $dest_action = "shortlog";
				1901
				1902	if ($indirect) {
				1903	$dest_action = "tag" unless $action eq "tag";
				1904	} elsif ($action =~ /^(history\|(short)?log)$/) {
				1905	$dest_action = $action;
				1906	}
				1907
				1908	my $dest = "";
				1909	$dest .= "refs/" unless $ref =~ m!^refs/!;
				1910	$dest .= $ref;
				1911
				1912	my $link = $cgi->a({
				1913	-href => href(
				1914	action=>$dest_action,
				1915	hash=>$dest
				1916	)}, $name);
				1917
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	1918	$markers .= " <span class=\"".esc_attr($class)."\" title=\"".esc_attr($ref)."\">" .
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	1919	$link . "</span>";
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	1920	}
				1921	}
				1922
				1923	if ($markers) {
				1924	return ' <span class="refs">'. $markers . '</span>';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	1925	} else {
				1926	return "";
				1927	}
				1928	}
				1929
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1930	# format, perhaps shortened and with markers, title line
				1931	sub format_subject_html {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	1932	my ($long, $short, $href, $extra) = @_;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1933	$extra = '' unless defined($extra);
				1934
				1935	if (length($short) < length($long)) {
Jakub Narebski	14afe77	2009-05-22 17:35:46 +0200	[diff] [blame]	1936	$long =~ s/[[:cntrl:]]/?/g;
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	1937	return $cgi->a({-href => $href, -class => "list subject",
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	1938	-title => to_utf8($long)},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	1939	esc_html($short)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1940	} else {
Jakub Narebski	7c27801	2006-08-22 12:02:48 +0200	[diff] [blame]	1941	return $cgi->a({-href => $href, -class => "list subject"},
Giuseppe Bilotta	01b89f0	2009-08-23 10:28:09 +0200	[diff] [blame]	1942	esc_html($long)) . $extra;
Jakub Narebski	17d0744	2006-08-14 02:08:27 +0200	[diff] [blame]	1943	}
				1944	}
				1945
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	1946	# Rather than recomputing the url for an email multiple times, we cache it
				1947	# after the first hit. This gives a visible benefit in views where the avatar
				1948	# for the same email is used repeatedly (e.g. shortlog).
				1949	# The cache is shared by all avatar engines (currently gravatar only), which
				1950	# are free to use it as preferred. Since only one avatar engine is used for any
				1951	# given page, there's no risk for cache conflicts.
				1952	our %avatar_cache = ();
				1953
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	1954	# Compute the picon url for a given email, by using the picon search service over at
				1955	# http://www.cs.indiana.edu/picons/search.html
				1956	sub picon_url {
				1957	my $email = lc shift;
				1958	if (!$avatar_cache{$email}) {
				1959	my ($user, $domain) = split('@', $email);
				1960	$avatar_cache{$email} =
				1961	"http://www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/" .
				1962	"$domain/$user/" .
				1963	"users+domains+unknown/up/single";
				1964	}
				1965	return $avatar_cache{$email};
				1966	}
				1967
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	1968	# Compute the gravatar url for a given email, if it's not in the cache already.
				1969	# Gravatar stores only the part of the URL before the size, since that's the
				1970	# one computationally more expensive. This also allows reuse of the cache for
				1971	# different sizes (for this particular engine).
				1972	sub gravatar_url {
				1973	my $email = lc shift;
				1974	my $size = shift;
				1975	$avatar_cache{$email} \|\|=
				1976	"http://www.gravatar.com/avatar/" .
				1977	Digest::MD5::md5_hex($email) . "?s=";
				1978	return $avatar_cache{$email} . $size;
				1979	}
				1980
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1981	# Insert an avatar for the given $email at the given $size if the feature
				1982	# is enabled.
				1983	sub git_get_avatar {
				1984	my ($email, %opts) = @_;
				1985	my $pre_white = ($opts{-pad_before} ? " " : "");
				1986	my $post_white = ($opts{-pad_after} ? " " : "");
				1987	$opts{-size} \|\|= 'default';
				1988	my $size = $avatar_size{$opts{-size}} \|\| $avatar_size{'default'};
				1989	my $url = "";
				1990	if ($git_avatar eq 'gravatar') {
Giuseppe Bilotta	5a371b7	2009-06-30 00:00:52 +0200	[diff] [blame]	1991	$url = gravatar_url($email, $size);
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	1992	} elsif ($git_avatar eq 'picon') {
				1993	$url = picon_url($email);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1994	}
Giuseppe Bilotta	679a1a1	2009-06-30 00:00:53 +0200	[diff] [blame]	1995	# Other providers can be added by extending the if chain, defining $url
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	1996	# as needed. If no variant puts something in $url, we assume avatars
				1997	# are completely disabled/unavailable.
				1998	if ($url) {
				1999	return $pre_white .
				2000	"<img width=\"$size\" " .
				2001	"class=\"avatar\" " .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	2002	"src=\"".esc_url($url)."\" " .
Giuseppe Bilotta	7d25ef4	2009-06-30 00:00:54 +0200	[diff] [blame]	2003	"alt=\"\" " .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2004	"/>" . $post_white;
				2005	} else {
				2006	return "";
				2007	}
				2008	}
				2009
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2010	sub format_search_author {
				2011	my ($author, $searchtype, $displaytext) = @_;
				2012	my $have_search = gitweb_check_feature('search');
				2013
				2014	if ($have_search) {
				2015	my $performed = "";
				2016	if ($searchtype eq 'author') {
				2017	$performed = "authored";
				2018	} elsif ($searchtype eq 'committer') {
				2019	$performed = "committed";
				2020	}
				2021
				2022	return $cgi->a({-href => href(action=>"search", hash=>$hash,
				2023	searchtext=>$author,
				2024	searchtype=>$searchtype), class=>"list",
				2025	title=>"Search for commits $performed by $author"},
				2026	$displaytext);
				2027
				2028	} else {
				2029	return $displaytext;
				2030	}
				2031	}
				2032
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2033	# format the author name of the given commit with the given tag
				2034	# the author name is chopped and escaped according to the other
				2035	# optional parameters (see chop_str).
				2036	sub format_author_html {
				2037	my $tag = shift;
				2038	my $co = shift;
				2039	my $author = chop_and_escape_str($co->{'author_name'}, @_);
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	2040	return "<$tag class=\"author\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	2041	format_search_author($co->{'author_name'}, "author",
				2042	git_get_avatar($co->{'author_email'}, -pad_after => 1) .
				2043	$author) .
				2044	"</$tag>";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	2045	}
				2046
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2047	# format git diff header line, i.e. "diff --(git\|combined\|cc) ..."
				2048	sub format_git_diff_header_line {
				2049	my $line = shift;
				2050	my $diffinfo = shift;
				2051	my ($from, $to) = @_;
				2052
				2053	if ($diffinfo->{'nparents'}) {
				2054	# combined diff
				2055	$line =~ s!^(diff (.?) )"?.$!$1!;
				2056	if ($to->{'href'}) {
				2057	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2058	esc_path($to->{'file'}));
				2059	} else { # file was deleted (no href)
				2060	$line .= esc_path($to->{'file'});
				2061	}
				2062	} else {
				2063	# "ordinary" diff
				2064	$line =~ s!^(diff (.?) )"?a/.$!$1!;
				2065	if ($from->{'href'}) {
				2066	$line .= $cgi->a({-href => $from->{'href'}, -class => "path"},
				2067	'a/' . esc_path($from->{'file'}));
				2068	} else { # file was added (no href)
				2069	$line .= 'a/' . esc_path($from->{'file'});
				2070	}
				2071	$line .= ' ';
				2072	if ($to->{'href'}) {
				2073	$line .= $cgi->a({-href => $to->{'href'}, -class => "path"},
				2074	'b/' . esc_path($to->{'file'}));
				2075	} else { # file was deleted
				2076	$line .= 'b/' . esc_path($to->{'file'});
				2077	}
				2078	}
				2079
				2080	return "<div class=\"diff header\">$line</div>\n";
				2081	}
				2082
				2083	# format extended diff header line, before patch itself
				2084	sub format_extended_diff_header_line {
				2085	my $line = shift;
				2086	my $diffinfo = shift;
				2087	my ($from, $to) = @_;
				2088
				2089	# match <path>
				2090	if ($line =~ s!^((copy\|rename) from ).*$!$1! && $from->{'href'}) {
				2091	$line .= $cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2092	esc_path($from->{'file'}));
				2093	}
				2094	if ($line =~ s!^((copy\|rename) to ).*$!$1! && $to->{'href'}) {
				2095	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2096	esc_path($to->{'file'}));
				2097	}
				2098	# match single <mode>
				2099	if ($line =~ m/\s(\d{6})$/) {
				2100	$line .= '<span class="info"> (' .
				2101	file_type_long($1) .
				2102	')</span>';
				2103	}
				2104	# match <hash>
				2105	if ($line =~ m/^index [0-9a-fA-F]{40},[0-9a-fA-F]{40}/) {
				2106	# can match only for combined diff
				2107	$line = 'index ';
				2108	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2109	if ($from->{'href'}[$i]) {
				2110	$line .= $cgi->a({-href=>$from->{'href'}[$i],
				2111	-class=>"hash"},
				2112	substr($diffinfo->{'from_id'}[$i],0,7));
				2113	} else {
				2114	$line .= '0' x 7;
				2115	}
				2116	# separator
				2117	$line .= ',' if ($i < $diffinfo->{'nparents'} - 1);
				2118	}
				2119	$line .= '..';
				2120	if ($to->{'href'}) {
				2121	$line .= $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2122	substr($diffinfo->{'to_id'},0,7));
				2123	} else {
				2124	$line .= '0' x 7;
				2125	}
				2126
				2127	} elsif ($line =~ m/^index [0-9a-fA-F]{40}..[0-9a-fA-F]{40}/) {
				2128	# can match only for ordinary diff
				2129	my ($from_link, $to_link);
				2130	if ($from->{'href'}) {
				2131	$from_link = $cgi->a({-href=>$from->{'href'}, -class=>"hash"},
				2132	substr($diffinfo->{'from_id'},0,7));
				2133	} else {
				2134	$from_link = '0' x 7;
				2135	}
				2136	if ($to->{'href'}) {
				2137	$to_link = $cgi->a({-href=>$to->{'href'}, -class=>"hash"},
				2138	substr($diffinfo->{'to_id'},0,7));
				2139	} else {
				2140	$to_link = '0' x 7;
				2141	}
				2142	my ($from_id, $to_id) = ($diffinfo->{'from_id'}, $diffinfo->{'to_id'});
				2143	$line =~ s!$from_id\.\.$to_id!$from_link..$to_link!;
				2144	}
				2145
				2146	return $line . "<br/>\n";
				2147	}
				2148
				2149	# format from-file/to-file diff header
				2150	sub format_diff_from_to_header {
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2151	my ($from_line, $to_line, $diffinfo, $from, $to, @parents) = @_;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2152	my $line;
				2153	my $result = '';
				2154
				2155	$line = $from_line;
				2156	#assert($line =~ m/^---/) if DEBUG;
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2157	# no extra formatting for "^--- /dev/null"
				2158	if (! $diffinfo->{'nparents'}) {
				2159	# ordinary (single parent) diff
				2160	if ($line =~ m!^--- "?a/!) {
				2161	if ($from->{'href'}) {
				2162	$line = '--- a/' .
				2163	$cgi->a({-href=>$from->{'href'}, -class=>"path"},
				2164	esc_path($from->{'file'}));
				2165	} else {
				2166	$line = '--- a/' .
				2167	esc_path($from->{'file'});
				2168	}
				2169	}
				2170	$result .= qq!<div class="diff from_file">$line</div>\n!;
				2171
				2172	} else {
				2173	# combined diff (merge commit)
				2174	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
				2175	if ($from->{'href'}[$i]) {
				2176	$line = '--- ' .
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	2177	$cgi->a({-href=>href(action=>"blobdiff",
				2178	hash_parent=>$diffinfo->{'from_id'}[$i],
				2179	hash_parent_base=>$parents[$i],
				2180	file_parent=>$from->{'file'}[$i],
				2181	hash=>$diffinfo->{'to_id'},
				2182	hash_base=>$hash,
				2183	file_name=>$to->{'file'}),
				2184	-class=>"path",
				2185	-title=>"diff" . ($i+1)},
				2186	$i+1) .
				2187	'/' .
Jakub Narebski	deaa01a	2007-06-08 13:29:49 +0200	[diff] [blame]	2188	$cgi->a({-href=>$from->{'href'}[$i], -class=>"path"},
				2189	esc_path($from->{'file'}[$i]));
				2190	} else {
				2191	$line = '--- /dev/null';
				2192	}
				2193	$result .= qq!<div class="diff from_file">$line</div>\n!;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2194	}
				2195	}
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	2196
				2197	$line = $to_line;
				2198	#assert($line =~ m/^\+\+\+/) if DEBUG;
				2199	# no extra formatting for "^+++ /dev/null"
				2200	if ($line =~ m!^\+\+\+ "?b/!) {
				2201	if ($to->{'href'}) {
				2202	$line = '+++ b/' .
				2203	$cgi->a({-href=>$to->{'href'}, -class=>"path"},
				2204	esc_path($to->{'file'}));
				2205	} else {
				2206	$line = '+++ b/' .
				2207	esc_path($to->{'file'});
				2208	}
				2209	}
				2210	$result .= qq!<div class="diff to_file">$line</div>\n!;
				2211
				2212	return $result;
				2213	}
				2214
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	2215	# create note for patch simplified by combined diff
				2216	sub format_diff_cc_simplified {
				2217	my ($diffinfo, @parents) = @_;
				2218	my $result = '';
				2219
				2220	$result .= "<div class=\"diff header\">" .
				2221	"diff --cc ";
				2222	if (!is_deleted($diffinfo)) {
				2223	$result .= $cgi->a({-href => href(action=>"blob",
				2224	hash_base=>$hash,
				2225	hash=>$diffinfo->{'to_id'},
				2226	file_name=>$diffinfo->{'to_file'}),
				2227	-class => "path"},
				2228	esc_path($diffinfo->{'to_file'}));
				2229	} else {
				2230	$result .= esc_path($diffinfo->{'to_file'});
				2231	}
				2232	$result .= "</div>\n" . # class="diff header"
				2233	"<div class=\"diff nodifferences\">" .
				2234	"Simple merge" .
				2235	"</div>\n"; # class="diff nodifferences"
				2236
				2237	return $result;
				2238	}
				2239
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2240	sub diff_line_class {
				2241	my ($line, $from, $to) = @_;
				2242
				2243	# ordinary diff
				2244	my $num_sign = 1;
				2245	# combined diff
				2246	if ($from && $to && ref($from->{'href'}) eq "ARRAY") {
				2247	$num_sign = scalar @{$from->{'href'}};
				2248	}
				2249
				2250	my @diff_line_classifier = (
				2251	{ regexp => qr/^\@\@{$num_sign} /, class => "chunk_header"},
				2252	{ regexp => qr/^\\/, class => "incomplete" },
				2253	{ regexp => qr/^ {$num_sign}/, class => "ctx" },
				2254	# classifier for context must come before classifier add/rem,
				2255	# or we would have to use more complicated regexp, for example
				2256	# qr/(?= {0,$m}\+)[+ ]{$num_sign}/, where $m = $num_sign - 1;
				2257	{ regexp => qr/^[+ ]{$num_sign}/, class => "add" },
				2258	{ regexp => qr/^[- ]{$num_sign}/, class => "rem" },
				2259	);
				2260	for my $clsfy (@diff_line_classifier) {
				2261	return $clsfy->{'class'}
				2262	if ($line =~ $clsfy->{'regexp'});
				2263	}
				2264
				2265	# fallback
				2266	return "";
				2267	}
				2268
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2269	# assumes that $from and $to are defined and correctly filled,
				2270	# and that $line holds a line of chunk header for unified diff
				2271	sub format_unidiff_chunk_header {
				2272	my ($line, $from, $to) = @_;
				2273
				2274	my ($from_text, $from_start, $from_lines, $to_text, $to_start, $to_lines, $section) =
				2275	$line =~ m/^\@{2} (-(\d+)(?:,(\d+))?) (\+(\d+)(?:,(\d+))?) \@{2}(.*)$/;
				2276
				2277	$from_lines = 0 unless defined $from_lines;
				2278	$to_lines = 0 unless defined $to_lines;
				2279
				2280	if ($from->{'href'}) {
				2281	$from_text = $cgi->a({-href=>"$from->{'href'}#l$from_start",
				2282	-class=>"list"}, $from_text);
				2283	}
				2284	if ($to->{'href'}) {
				2285	$to_text = $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2286	-class=>"list"}, $to_text);
				2287	}
				2288	$line = "<span class=\"chunk_info\">@@ $from_text $to_text @@</span>" .
				2289	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2290	return $line;
				2291	}
				2292
				2293	# assumes that $from and $to are defined and correctly filled,
				2294	# and that $line holds a line of chunk header for combined diff
				2295	sub format_cc_diff_chunk_header {
				2296	my ($line, $from, $to) = @_;
				2297
				2298	my ($prefix, $ranges, $section) = $line =~ m/^(\@+) (.?) \@+(.)$/;
				2299	my (@from_text, @from_start, @from_nlines, $to_text, $to_start, $to_nlines);
				2300
				2301	@from_text = split(' ', $ranges);
				2302	for (my $i = 0; $i < @from_text; ++$i) {
				2303	($from_start[$i], $from_nlines[$i]) =
				2304	(split(',', substr($from_text[$i], 1)), 0);
				2305	}
				2306
				2307	$to_text = pop @from_text;
				2308	$to_start = pop @from_start;
				2309	$to_nlines = pop @from_nlines;
				2310
				2311	$line = "<span class=\"chunk_info\">$prefix ";
				2312	for (my $i = 0; $i < @from_text; ++$i) {
				2313	if ($from->{'href'}[$i]) {
				2314	$line .= $cgi->a({-href=>"$from->{'href'}[$i]#l$from_start[$i]",
				2315	-class=>"list"}, $from_text[$i]);
				2316	} else {
				2317	$line .= $from_text[$i];
				2318	}
				2319	$line .= " ";
				2320	}
				2321	if ($to->{'href'}) {
				2322	$line .= $cgi->a({-href=>"$to->{'href'}#l$to_start",
				2323	-class=>"list"}, $to_text);
				2324	} else {
				2325	$line .= $to_text;
				2326	}
				2327	$line .= " $prefix</span>" .
				2328	"<span class=\"section\">" . esc_html($section, -nbsp=>1) . "</span>";
				2329	return $line;
				2330	}
				2331
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2332	# process patch (diff) line (not to be used for diff headers),
				2333	# returning class and HTML-formatted (but not wrapped) line
				2334	sub process_diff_line {
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2335	my $line = shift;
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2336	my ($from, $to) = @_;
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2337
				2338	my $diff_class = diff_line_class($line, $from, $to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2339
				2340	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2341	$line = untabify($line);
Jakub Narebski	20a864c	2011-10-31 00:36:20 +0100	[diff] [blame]	2342
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2343	if ($from && $to && $line =~ m/^\@{2} /) {
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2344	$line = format_unidiff_chunk_header($line, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2345	return $diff_class, $line;
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2346
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	2347	} elsif ($from && $to && $line =~ m/^\@{3}/) {
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2348	$line = format_cc_diff_chunk_header($line, $from, $to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2349	return $diff_class, $line;
Jakub Narebski	f1310cf	2011-10-31 00:36:21 +0100	[diff] [blame]	2350
Jakub Narebski	59e3b14	2006-11-18 23:35:40 +0100	[diff] [blame]	2351	}
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	2352	return $diff_class, esc_html($line, -nbsp=>1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	2353	}
				2354
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2355	# Generates undef or something like "_snapshot_" or "snapshot (_tbz2_ _zip_)",
				2356	# linked. Pass the hash of the tree/commit to snapshot.
				2357	sub format_snapshot_links {
				2358	my ($hash) = @_;
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2359	my $num_fmts = @snapshot_fmts;
				2360	if ($num_fmts > 1) {
				2361	# A parenthesized list of links bearing format names.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2362	# e.g. "snapshot (_tar.gz_ _zip_)"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2363	return "snapshot (" . join(' ', map
				2364	$cgi->a({
				2365	-href => href(
				2366	action=>"snapshot",
				2367	hash=>$hash,
				2368	snapshot_format=>$_
				2369	)
				2370	}, $known_snapshot_formats{$_}{'display'})
				2371	, @snapshot_fmts) . ")";
				2372	} elsif ($num_fmts == 1) {
				2373	# A single "snapshot" link whose tooltip bears the format name.
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2374	# i.e. "_snapshot_"
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2375	my ($fmt) = @snapshot_fmts;
Jakub Narebski	a781785	2007-07-22 23:41:20 +0200	[diff] [blame]	2376	return
				2377	$cgi->a({
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	2378	-href => href(
				2379	action=>"snapshot",
				2380	hash=>$hash,
				2381	snapshot_format=>$fmt
				2382	),
				2383	-title => "in format: $known_snapshot_formats{$fmt}{'display'}"
				2384	}, "snapshot");
				2385	} else { # $num_fmts == 0
				2386	return undef;
				2387	}
				2388	}
				2389
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2390	## ......................................................................
				2391	## functions returning values to be passed, perhaps after some
				2392	## transformation, to other functions; e.g. returning arguments to href()
				2393
				2394	# returns hash to be passed to href to generate gitweb URL
				2395	# in -title key it returns description of link
				2396	sub get_feed_info {
				2397	my $format = shift \|\| 'Atom';
				2398	my %res = (action => lc($format));
				2399
				2400	# feed links are possible only for project views
				2401	return unless (defined $project);
				2402	# some views should link to OPML, or to generic project feed,
				2403	# or don't have specific feed yet (so they should use generic)
Jakub Narebski	18ab83e	2012-01-07 11:47:38 +0100	[diff] [blame]	2404	return if (!$action \|\| $action =~ /^(?:tags\|heads\|forks\|tag\|search)$/x);
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	2405
				2406	my $branch;
				2407	# branches refs uses 'refs/heads/' prefix (fullname) to differentiate
				2408	# from tag links; this also makes possible to detect branch links
				2409	if ((defined $hash_base && $hash_base =~ m!^refs/heads/(.*)$!) \|\|
				2410	(defined $hash && $hash =~ m!^refs/heads/(.*)$!)) {
				2411	$branch = $1;
				2412	}
				2413	# find log type for feed description (title)
				2414	my $type = 'log';
				2415	if (defined $file_name) {
				2416	$type = "history of $file_name";
				2417	$type .= "/" if ($action eq 'tree');
				2418	$type .= " on '$branch'" if (defined $branch);
				2419	} else {
				2420	$type = "log of $branch" if (defined $branch);
				2421	}
				2422
				2423	$res{-title} = $type;
				2424	$res{'hash'} = (defined $branch ? "refs/heads/$branch" : undef);
				2425	$res{'file_name'} = $file_name;
				2426
				2427	return %res;
				2428	}
				2429
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2430	## ----------------------------------------------------------------------
				2431	## git utility subroutines, invoking git commands
				2432
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2433	# returns path to the core git executable and the --git-dir parameter as list
				2434	sub git_cmd {
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	2435	$number_of_git_cmds++;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2436	return $GIT, '--git-dir='.$git_dir;
				2437	}
				2438
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	2439	# quote the given arguments for passing them to the shell
				2440	# quote_command("command", "arg 1", "arg with ' and ! characters")
				2441	# => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"
				2442	# Try to avoid using this function wherever possible.
				2443	sub quote_command {
				2444	return join(' ',
Jakub Narebski	68cedb1	2009-05-10 02:40:37 +0200	[diff] [blame]	2445	map { my $a = $_; $a =~ s/(['!])/'\\$1'/g; "'$a'" } @_ );
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2446	}
				2447
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2448	# get HEAD ref of given project as hash
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2449	sub git_get_head_hash {
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2450	return git_get_full_hash(shift, 'HEAD');
				2451	}
				2452
				2453	sub git_get_full_hash {
				2454	return git_get_hash(@_);
				2455	}
				2456
				2457	sub git_get_short_hash {
				2458	return git_get_hash(@_, '--short=7');
				2459	}
				2460
				2461	sub git_get_hash {
				2462	my ($project, $hash, @options) = @_;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2463	my $o_git_dir = $git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2464	my $retval = undef;
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2465	$git_dir = "$projectroot/$project";
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	2466	if (open my $fd, '-\|', git_cmd(), 'rev-parse',
				2467	'--verify', '-q', @options, $hash) {
				2468	$retval = <$fd>;
				2469	chomp $retval if defined $retval;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2470	close $fd;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2471	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2472	if (defined $o_git_dir) {
				2473	$git_dir = $o_git_dir;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2474	}
				2475	return $retval;
				2476	}
				2477
				2478	# get type of given object
				2479	sub git_get_type {
				2480	my $hash = shift;
				2481
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2482	open my $fd, "-\|", git_cmd(), "cat-file", '-t', $hash or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2483	my $type = <$fd>;
				2484	close $fd or return;
				2485	chomp $type;
				2486	return $type;
				2487	}
				2488
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2489	# repository configuration
				2490	our $config_file = '';
				2491	our %config;
				2492
				2493	# store multiple values for single key as anonymous array reference
				2494	# single values stored directly in the hash, not as [ <value> ]
				2495	sub hash_set_multi {
				2496	my ($hash, $key, $value) = @_;
				2497
				2498	if (!exists $hash->{$key}) {
				2499	$hash->{$key} = $value;
				2500	} elsif (!ref $hash->{$key}) {
				2501	$hash->{$key} = [ $hash->{$key}, $value ];
				2502	} else {
				2503	push @{$hash->{$key}}, $value;
				2504	}
				2505	}
				2506
				2507	# return hash of git project configuration
				2508	# optionally limited to some section, e.g. 'gitweb'
				2509	sub git_parse_project_config {
				2510	my $section_regexp = shift;
				2511	my %config;
				2512
				2513	local $/ = "\0";
				2514
				2515	open my $fh, "-\|", git_cmd(), "config", '-z', '-l',
				2516	or return;
				2517
				2518	while (my $keyval = <$fh>) {
				2519	chomp $keyval;
				2520	my ($key, $value) = split(/\n/, $keyval, 2);
				2521
				2522	hash_set_multi(\%config, $key, $value)
				2523	if (!defined $section_regexp \|\| $key =~ /^(?:$section_regexp)\./o);
				2524	}
				2525	close $fh;
				2526
				2527	return %config;
				2528	}
				2529
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2530	# convert config value to boolean: 'true' or 'false'
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2531	# no value, number > 0, 'true' and 'yes' values are true
				2532	# rest of values are treated as false (never as error)
				2533	sub config_to_bool {
				2534	my $val = shift;
				2535
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2536	return 1 if !defined $val; # section.key
				2537
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2538	# strip leading and trailing whitespace
				2539	$val =~ s/^\s+//;
				2540	$val =~ s/\s+$//;
				2541
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2542	return (($val =~ /^\d+$/ && $val) \|\| # section.key = 1
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2543	($val =~ /^(?:true\|yes)$/i)); # section.key = true
				2544	}
				2545
				2546	# convert config value to simple decimal number
				2547	# an optional value suffix of 'k', 'm', or 'g' will cause the value
				2548	# to be multiplied by 1024, 1048576, or 1073741824
				2549	sub config_to_int {
				2550	my $val = shift;
				2551
				2552	# strip leading and trailing whitespace
				2553	$val =~ s/^\s+//;
				2554	$val =~ s/\s+$//;
				2555
				2556	if (my ($num, $unit) = ($val =~ /^([0-9]*)([kmg])$/i)) {
				2557	$unit = lc($unit);
				2558	# unknown unit is treated as 1
				2559	return $num * ($unit eq 'g' ? 1073741824 :
				2560	$unit eq 'm' ? 1048576 :
				2561	$unit eq 'k' ? 1024 : 1);
				2562	}
				2563	return $val;
				2564	}
				2565
				2566	# convert config value to array reference, if needed
				2567	sub config_to_multi {
				2568	my $val = shift;
				2569
Jakub Narebski	d76a585	2007-12-20 10:48:09 +0100	[diff] [blame]	2570	return ref($val) ? $val : (defined($val) ? [ $val ] : []);
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2571	}
				2572
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2573	sub git_get_project_config {
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	2574	my ($key, $type) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2575
Jakub Narebski	7a49c25	2010-03-27 20:26:59 +0100	[diff] [blame]	2576	return unless defined $git_dir;
Jakub Narebski	9be3614	2010-03-01 22:51:34 +0100	[diff] [blame]	2577
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2578	# key sanity check
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2579	return unless ($key);
Jakub Narebski	14569cd	2011-07-28 23:38:03 +0200	[diff] [blame]	2580	# only subsection, if exists, is case sensitive,
				2581	# and not lowercased by 'git config -z -l'
				2582	if (my ($hi, $mi, $lo) = ($key =~ /^([^.])\.(.)\.([^.]*)$/)) {
				2583	$key = join(".", lc($hi), $mi, lc($lo));
				2584	} else {
				2585	$key = lc($key);
				2586	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2587	$key =~ s/^gitweb\.//;
				2588	return if ($key =~ m/\W/);
				2589
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2590	# type sanity check
				2591	if (defined $type) {
				2592	$type =~ s/^--//;
				2593	$type = undef
				2594	unless ($type eq 'bool' \|\| $type eq 'int');
				2595	}
				2596
				2597	# get config
				2598	if (!defined $config_file \|\|
				2599	$config_file ne "$git_dir/config") {
				2600	%config = git_parse_project_config('gitweb');
				2601	$config_file = "$git_dir/config";
				2602	}
				2603
Marcel M. Cary	df5d10a	2009-02-18 14:09:41 +0100	[diff] [blame]	2604	# check if config variable (key) exists
				2605	return unless exists $config{"gitweb.$key"};
				2606
Jakub Narebski	b201927	2007-11-03 00:41:19 +0100	[diff] [blame]	2607	# ensure given type
				2608	if (!defined $type) {
				2609	return $config{"gitweb.$key"};
				2610	} elsif ($type eq 'bool') {
				2611	# backward compatibility: 'git config --bool' returns true/false
				2612	return config_to_bool($config{"gitweb.$key"}) ? 'true' : 'false';
				2613	} elsif ($type eq 'int') {
				2614	return config_to_int($config{"gitweb.$key"});
				2615	}
				2616	return $config{"gitweb.$key"};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2617	}
				2618
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2619	# get hash of given path at given ref
				2620	sub git_get_hash_by_path {
				2621	my $base = shift;
				2622	my $path = shift \|\| return undef;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2623	my $type = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2624
Jakub Narebski	4b02f48	2006-09-26 01:54:24 +0200	[diff] [blame]	2625	$path =~ s,/+$,,;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2626
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	2627	open my $fd, "-\|", git_cmd(), "ls-tree", $base, "--", $path
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	2628	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2629	my $line = <$fd>;
				2630	close $fd or return undef;
				2631
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	2632	if (!defined $line) {
				2633	# there is no tree or hash given by $path at $base
				2634	return undef;
				2635	}
				2636
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2637	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
Jakub Narebski	8b4b94c	2006-10-30 22:25:11 +0100	[diff] [blame]	2638	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/;
Jakub Narebski	1d782b0	2006-09-21 18:09:12 +0200	[diff] [blame]	2639	if (defined $type && $type ne $2) {
				2640	# type doesn't match
				2641	return undef;
				2642	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2643	return $3;
				2644	}
				2645
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	2646	# get path of entry with given hash at given tree-ish (ref)
				2647	# used to get 'from' filename for combined diff (merge commit) for renames
				2648	sub git_get_path_by_hash {
				2649	my $base = shift \|\| return;
				2650	my $hash = shift \|\| return;
				2651
				2652	local $/ = "\0";
				2653
				2654	open my $fd, "-\|", git_cmd(), "ls-tree", '-r', '-t', '-z', $base
				2655	or return undef;
				2656	while (my $line = <$fd>) {
				2657	chomp $line;
				2658
				2659	#'040000 tree 595596a6a9117ddba9fe379b6b012b558bac8423 gitweb'
				2660	#'100644 blob e02e90f0429be0d2a69b76571101f20b8f75530f gitweb/README'
				2661	if ($line =~ m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {
				2662	close $fd;
				2663	return $1;
				2664	}
				2665	}
				2666	close $fd;
				2667	return undef;
				2668	}
				2669
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2670	## ......................................................................
				2671	## git utility functions, directly accessing git repository
				2672
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2673	# get the value of config variable either from file named as the variable
				2674	# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name
				2675	# configuration variable in the repository config file.
				2676	sub git_get_file_or_project_config {
				2677	my ($path, $name) = @_;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2678
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2679	$git_dir = "$projectroot/$path";
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2680	open my $fd, '<', "$git_dir/$name"
				2681	or return git_get_project_config($name);
				2682	my $conf = <$fd>;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2683	close $fd;
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2684	if (defined $conf) {
				2685	chomp $conf;
Junio C Hamano	2eb54ef	2007-05-16 21:04:16 -0700	[diff] [blame]	2686	}
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2687	return $conf;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2688	}
				2689
Sebastien Cevey	e4e3b32	2011-04-29 19:52:00 +0200	[diff] [blame]	2690	sub git_get_project_description {
				2691	my $path = shift;
				2692	return git_get_file_or_project_config($path, 'description');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2693	}
				2694
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	2695	sub git_get_project_category {
				2696	my $path = shift;
				2697	return git_get_file_or_project_config($path, 'category');
				2698	}
				2699
				2700
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2701	# supported formats:
				2702	# * $GIT_DIR/ctags/<tagname> file (in 'ctags' subdirectory)
				2703	# - if its contents is a number, use it as tag weight,
				2704	# - otherwise add a tag with weight 1
				2705	# * $GIT_DIR/ctags file, each line is a tag (with weight 1)
				2706	# the same value multiple times increases tag weight
				2707	# * `gitweb.ctag' multi-valued repo config variable
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2708	sub git_get_project_ctags {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2709	my $project = shift;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2710	my $ctags = {};
				2711
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2712	$git_dir = "$projectroot/$project";
				2713	if (opendir my $dh, "$git_dir/ctags") {
				2714	my @files = grep { -f $_ } map { "$git_dir/ctags/$_" } readdir($dh);
				2715	foreach my $tagfile (@files) {
				2716	open my $ct, '<', $tagfile
				2717	or next;
				2718	my $val = <$ct>;
				2719	chomp $val if $val;
				2720	close $ct;
				2721
				2722	(my $ctag = $tagfile) =~ s#.*/##;
Jonathan Nieder	2c162b5	2011-06-09 02:08:57 -0500	[diff] [blame]	2723	if ($val =~ /^\d+$/) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2724	$ctags->{$ctag} = $val;
				2725	} else {
				2726	$ctags->{$ctag} = 1;
				2727	}
				2728	}
				2729	closedir $dh;
				2730
				2731	} elsif (open my $fh, '<', "$git_dir/ctags") {
				2732	while (my $line = <$fh>) {
				2733	chomp $line;
				2734	$ctags->{$line}++ if $line;
				2735	}
				2736	close $fh;
				2737
				2738	} else {
				2739	my $taglist = config_to_multi(git_get_project_config('ctag'));
				2740	foreach my $tag (@$taglist) {
				2741	$ctags->{$tag}++;
				2742	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2743	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2744
				2745	return $ctags;
				2746	}
				2747
				2748	# return hash, where keys are content tags ('ctags'),
				2749	# and values are sum of weights of given tag in every project
				2750	sub git_gather_all_ctags {
				2751	my $projects = shift;
				2752	my $ctags = {};
				2753
				2754	foreach my $p (@$projects) {
				2755	foreach my $ct (keys %{$p->{'ctags'}}) {
				2756	$ctags->{$ct} += $p->{'ctags'}->{$ct};
				2757	}
				2758	}
				2759
				2760	return $ctags;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2761	}
				2762
				2763	sub git_populate_project_tagcloud {
				2764	my $ctags = shift;
				2765
				2766	# First, merge different-cased tags; tags vote on casing
				2767	my %ctags_lc;
				2768	foreach (keys %$ctags) {
				2769	$ctags_lc{lc $_}->{count} += $ctags->{$_};
				2770	if (not $ctags_lc{lc $_}->{topcount}
				2771	or $ctags_lc{lc $_}->{topcount} < $ctags->{$_}) {
				2772	$ctags_lc{lc $_}->{topcount} = $ctags->{$_};
				2773	$ctags_lc{lc $_}->{topname} = $_;
				2774	}
				2775	}
				2776
				2777	my $cloud;
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	2778	my $matched = $input_params{'ctag'};
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2779	if (eval { require HTML::TagCloud; 1; }) {
				2780	$cloud = HTML::TagCloud->new;
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2781	foreach my $ctag (sort keys %ctags_lc) {
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2782	# Pad the title with spaces so that the cloud looks
				2783	# less crammed.
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2784	my $title = esc_html($ctags_lc{$ctag}->{topname});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2785	$title =~ s/ / /g;
				2786	$title =~ s/^/ /g;
				2787	$title =~ s/$/ /g;
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2788	if (defined $matched && $matched eq $ctag) {
				2789	$title = qq(<span class="match">$title</span>);
				2790	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2791	$cloud->add($title, href(project=>undef, ctag=>$ctag),
				2792	$ctags_lc{$ctag}->{count});
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2793	}
				2794	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2795	$cloud = {};
				2796	foreach my $ctag (keys %ctags_lc) {
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2797	my $title = esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);
				2798	if (defined $matched && $matched eq $ctag) {
				2799	$title = qq(<span class="match">$title</span>);
				2800	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2801	$cloud->{$ctag}{count} = $ctags_lc{$ctag}->{count};
				2802	$cloud->{$ctag}{ctag} =
Jakub Narebski	4b9447f	2011-04-29 19:51:58 +0200	[diff] [blame]	2803	$cgi->a({-href=>href(project=>undef, ctag=>$ctag)}, $title);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2804	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2805	}
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2806	return $cloud;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2807	}
				2808
				2809	sub git_show_project_tagcloud {
				2810	my ($cloud, $count) = @_;
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2811	if (ref $cloud eq 'HTML::TagCloud') {
				2812	return $cloud->html_and_css($count);
				2813	} else {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	2814	my @tags = sort { $cloud->{$a}->{'count'} <=> $cloud->{$b}->{'count'} } keys %$cloud;
				2815	return
				2816	'<div id="htmltagcloud"'.($project ? '' : ' align="center"').'>' .
				2817	join (', ', map {
				2818	$cloud->{$_}->{'ctag'}
				2819	} splice(@tags, 0, $count)) .
				2820	'</div>';
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	2821	}
				2822	}
				2823
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2824	sub git_get_project_url_list {
				2825	my $path = shift;
				2826
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2827	$git_dir = "$projectroot/$path";
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	2828	open my $fd, '<', "$git_dir/cloneurl"
Jakub Narebski	0e121a2	2007-11-03 00:41:20 +0100	[diff] [blame]	2829	or return wantarray ?
				2830	@{ config_to_multi(git_get_project_config('url')) } :
				2831	config_to_multi(git_get_project_config('url'));
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	2832	my @git_project_url_list = map { chomp; $_ } <$fd>;
				2833	close $fd;
				2834
				2835	return wantarray ? @git_project_url_list : \@git_project_url_list;
				2836	}
				2837
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	2838	sub git_get_projects_list {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2839	my $filter = shift \|\| '';
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2840	my $paranoid = shift;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2841	my @list;
				2842
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2843	if (-d $projects_list) {
				2844	# search in directory
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2845	my $dir = $projects_list;
Aneesh Kumar K.V	6768d6b	2006-11-03 10:41:45 +0530	[diff] [blame]	2846	# remove the trailing "/"
				2847	$dir =~ s!/+$!!;
Matthieu Moy	ac593b7	2012-01-04 11:07:45 +0100	[diff] [blame]	2848	my $pfxlen = length("$dir");
				2849	my $pfxdepth = ($dir =~ tr!/!!);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2850	# when filtering, search only given subdirectory
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2851	if ($filter && !$paranoid) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2852	$dir .= "/$filter";
				2853	$dir =~ s!/+$!!;
				2854	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2855
				2856	File::Find::find({
				2857	follow_fast => 1, # follow symbolic links
Junio C Hamano	d20602e	2007-07-27 01:23:03 -0700	[diff] [blame]	2858	follow_skip => 2, # ignore duplicates
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2859	dangling_symlinks => 0, # ignore dangling symlinks, silently
				2860	wanted => sub {
Jakub Narebski	ee1d8ee	2010-04-30 18:30:31 +0200	[diff] [blame]	2861	# global variables
				2862	our $project_maxdepth;
				2863	our $projectroot;
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2864	# skip project-list toplevel, if we get it.
				2865	return if (m!^[/.]$!);
				2866	# only directories can be git repositories
				2867	return unless (-d $_);
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2868	# don't traverse too deep (Find is super slow on os x)
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2869	# $project_maxdepth excludes depth of $projectroot
Luke Lu	ca5e949	2007-10-16 20:45:25 -0700	[diff] [blame]	2870	if (($File::Find::name =~ tr!/!!) - $pfxdepth > $project_maxdepth) {
				2871	$File::Find::prune = 1;
				2872	return;
				2873	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2874
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2875	my $path = substr($File::Find::name, $pfxlen + 1);
Bernhard R. Link	348a658	2012-01-30 21:06:38 +0100	[diff] [blame]	2876	# paranoidly only filter here
				2877	if ($paranoid && $filter && $path !~ m!^\Q$filter\E/!) {
				2878	next;
				2879	}
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2880	# we check related file in $projectroot
Devin Doucette	fb3bb3d	2008-12-27 02:39:31 -0700	[diff] [blame]	2881	if (check_export_ok("$projectroot/$path")) {
				2882	push @list, { path => $path };
Jakub Narebski	c0011ff	2006-09-14 22:18:59 +0200	[diff] [blame]	2883	$File::Find::prune = 1;
				2884	}
				2885	},
				2886	}, "$dir");
				2887
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2888	} elsif (-f $projects_list) {
				2889	# read from file(url-encoded):
				2890	# 'git%2Fgit.git Linus+Torvalds'
				2891	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				2892	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	2893	open my $fd, '<', $projects_list or return;
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	2894	PROJECT:
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2895	while (my $line = <$fd>) {
				2896	chomp $line;
				2897	my ($path, $owner) = split ' ', $line;
				2898	$path = unescape($path);
				2899	$owner = unescape($owner);
				2900	if (!defined $path) {
				2901	next;
				2902	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2903	# if $filter is rpovided, check if $path begins with $filter
				2904	if ($filter && $path !~ m!^\Q$filter\E/!) {
				2905	next;
Junio C Hamano	83ee94c	2006-11-07 22:37:17 -0800	[diff] [blame]	2906	}
Junio C Hamano	2172ce4	2006-10-03 02:30:47 -0700	[diff] [blame]	2907	if (check_export_ok("$projectroot/$path")) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2908	my $pr = {
				2909	path => $path,
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	2910	owner => to_utf8($owner),
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2911	};
Frank Lichtenheld	c2b8b13	2007-04-06 23:58:11 +0200	[diff] [blame]	2912	push @list, $pr;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2913	}
				2914	}
				2915	close $fd;
				2916	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	2917	return @list;
				2918	}
				2919
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2920	# written with help of Tree::Trie module (Perl Artistic License, GPL compatibile)
				2921	# as side effects it sets 'forks' field to list of forks for forked projects
				2922	sub filter_forks_from_projects_list {
				2923	my $projects = shift;
				2924
				2925	my %trie; # prefix tree of directories (path components)
				2926	# generate trie out of those directories that might contain forks
				2927	foreach my $pr (@$projects) {
				2928	my $path = $pr->{'path'};
				2929	$path =~ s/\.git$//; # forks of 'repo.git' are in 'repo/' directory
				2930	next if ($path =~ m!/$!); # skip non-bare repositories, e.g. 'repo/.git'
				2931	next unless ($path); # skip '.git' repository: tests, git-instaweb
Julien Muchembled	53c632f	2011-10-21 21:04:21 +0200	[diff] [blame]	2932	next unless (-d "$projectroot/$path"); # containing directory exists
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	2933	$pr->{'forks'} = []; # there can be 0 or more forks of project
				2934
				2935	# add to trie
				2936	my @dirs = split('/', $path);
				2937	# walk the trie, until either runs out of components or out of trie
				2938	my $ref = \%trie;
				2939	while (scalar @dirs &&
				2940	exists($ref->{$dirs[0]})) {
				2941	$ref = $ref->{shift @dirs};
				2942	}
				2943	# create rest of trie structure from rest of components
				2944	foreach my $dir (@dirs) {
				2945	$ref = $ref->{$dir} = {};
				2946	}
				2947	# create end marker, store $pr as a data
				2948	$ref->{''} = $pr if (!exists $ref->{''});
				2949	}
				2950
				2951	# filter out forks, by finding shortest prefix match for paths
				2952	my @filtered;
				2953	PROJECT:
				2954	foreach my $pr (@$projects) {
				2955	# trie lookup
				2956	my $ref = \%trie;
				2957	DIR:
				2958	foreach my $dir (split('/', $pr->{'path'})) {
				2959	if (exists $ref->{''}) {
				2960	# found [shortest] prefix, is a fork - skip it
				2961	push @{$ref->{''}{'forks'}}, $pr;
				2962	next PROJECT;
				2963	}
				2964	if (!exists $ref->{$dir}) {
				2965	# not in trie, cannot have prefix, not a fork
				2966	push @filtered, $pr;
				2967	next PROJECT;
				2968	}
				2969	# If the dir is there, we just walk one step down the trie.
				2970	$ref = $ref->{$dir};
				2971	}
				2972	# we ran out of trie
				2973	# (shouldn't happen: it's either no match, or end marker)
				2974	push @filtered, $pr;
				2975	}
				2976
				2977	return @filtered;
				2978	}
				2979
				2980	# note: fill_project_list_info must be run first,
				2981	# for 'descr_long' and 'ctags' to be filled
				2982	sub search_projects_list {
				2983	my ($projlist, %opts) = @_;
				2984	my $tagfilter = $opts{'tagfilter'};
				2985	my $searchtext = $opts{'searchtext'};
				2986
				2987	return @$projlist
				2988	unless ($tagfilter \|\| $searchtext);
				2989
				2990	my @projects;
				2991	PROJECT:
				2992	foreach my $pr (@$projlist) {
				2993
				2994	if ($tagfilter) {
				2995	next unless ref($pr->{'ctags'}) eq 'HASH';
				2996	next unless
				2997	grep { lc($_) eq lc($tagfilter) } keys %{$pr->{'ctags'}};
				2998	}
				2999
				3000	if ($searchtext) {
				3001	next unless
				3002	$pr->{'path'} =~ /$searchtext/ \|\|
				3003	$pr->{'descr_long'} =~ /$searchtext/;
				3004	}
				3005
				3006	push @projects, $pr;
				3007	}
				3008
				3009	return @projects;
				3010	}
				3011
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3012	our $gitweb_project_owner = undef;
				3013	sub git_get_project_list_from_file {
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3014
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3015	return if (defined $gitweb_project_owner);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3016
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3017	$gitweb_project_owner = {};
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3018	# read from file (url-encoded):
				3019	# 'git%2Fgit.git Linus+Torvalds'
				3020	# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'
				3021	# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'
				3022	if (-f $projects_list) {
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3023	open(my $fd, '<', $projects_list);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3024	while (my $line = <$fd>) {
				3025	chomp $line;
				3026	my ($pr, $ow) = split ' ', $line;
				3027	$pr = unescape($pr);
				3028	$ow = unescape($ow);
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3029	$gitweb_project_owner->{$pr} = to_utf8($ow);
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3030	}
				3031	close $fd;
				3032	}
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3033	}
				3034
				3035	sub git_get_project_owner {
				3036	my $project = shift;
				3037	my $owner;
				3038
				3039	return undef unless $project;
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3040	$git_dir = "$projectroot/$project";
Junio C Hamano	4785245	2007-07-03 22:10:42 -0700	[diff] [blame]	3041
				3042	if (!defined $gitweb_project_owner) {
				3043	git_get_project_list_from_file();
				3044	}
				3045
				3046	if (exists $gitweb_project_owner->{$project}) {
				3047	$owner = $gitweb_project_owner->{$project};
				3048	}
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3049	if (!defined $owner){
				3050	$owner = git_get_project_config('owner');
				3051	}
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3052	if (!defined $owner) {
Bruno Ribas	b59012e	2008-02-08 14:38:04 -0200	[diff] [blame]	3053	$owner = get_file_owner("$git_dir");
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	3054	}
				3055
				3056	return $owner;
				3057	}
				3058
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3059	sub git_get_last_activity {
				3060	my ($path) = @_;
				3061	my $fd;
				3062
				3063	$git_dir = "$projectroot/$path";
				3064	open($fd, "-\|", git_cmd(), 'for-each-ref',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3065	'--format=%(committer)',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3066	'--sort=-committerdate',
Robert Fitzsimons	0ff5ec7	2006-12-22 19:38:13 +0000	[diff] [blame]	3067	'--count=1',
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3068	'refs/heads') or return;
				3069	my $most_recent = <$fd>;
				3070	close $fd or return;
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	3071	if (defined $most_recent &&
				3072	$most_recent =~ / (\d+) [-+][01]\d\d\d$/) {
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3073	my $timestamp = $1;
				3074	my $age = time - $timestamp;
				3075	return ($age, age_string($age));
				3076	}
Matt McCutchen	c956395	2007-06-28 18:15:22 -0400	[diff] [blame]	3077	return (undef, undef);
Jakub Narebski	c60c56c	2006-10-28 19:43:40 +0200	[diff] [blame]	3078	}
				3079
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	3080	# Implementation note: when a single remote is wanted, we cannot use 'git
				3081	# remote show -n' because that command always work (assuming it's a remote URL
				3082	# if it's not defined), and we cannot use 'git remote show' because that would
				3083	# try to make a network roundtrip. So the only way to find if that particular
				3084	# remote is defined is to walk the list provided by 'git remote -v' and stop if
				3085	# and when we find what we want.
				3086	sub git_get_remotes_list {
				3087	my $wanted = shift;
				3088	my %remotes = ();
				3089
				3090	open my $fd, '-\|' , git_cmd(), 'remote', '-v';
				3091	return unless $fd;
				3092	while (my $remote = <$fd>) {
				3093	chomp $remote;
				3094	$remote =~ s!\t(.*?)\s+$(\w+)$$!!;
				3095	next if $wanted and not $remote eq $wanted;
				3096	my ($url, $key) = ($1, $2);
				3097
				3098	$remotes{$remote} \|\|= { 'heads' => () };
				3099	$remotes{$remote}{$key} = $url;
				3100	}
				3101	close $fd or return;
				3102	return wantarray ? %remotes : \%remotes;
				3103	}
				3104
				3105	# Takes a hash of remotes as first parameter and fills it by adding the
				3106	# available remote heads for each of the indicated remotes.
				3107	sub fill_remote_heads {
				3108	my $remotes = shift;
				3109	my @heads = map { "remotes/$_" } keys %$remotes;
				3110	my @remoteheads = git_get_heads_list(undef, @heads);
				3111	foreach my $remote (keys %$remotes) {
				3112	$remotes->{$remote}{'heads'} = [ grep {
				3113	$_->{'name'} =~ s!^$remote/!!
				3114	} @remoteheads ];
				3115	}
				3116	}
				3117
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3118	sub git_get_references {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3119	my $type = shift \|\| "";
				3120	my %refs;
Jakub Narebski	28b9d9f	2006-11-25 11:32:08 +0100	[diff] [blame]	3121	# 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11
				3122	# c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}
				3123	open my $fd, "-\|", git_cmd(), "show-ref", "--dereference",
				3124	($type ? ("--", "refs/$type") : ()) # use -- <pattern> if $type
Jakub Narebski	9704d75	2006-09-19 14:31:49 +0200	[diff] [blame]	3125	or return;
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3126
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3127	while (my $line = <$fd>) {
				3128	chomp $line;
Giuseppe Bilotta	4afbaef	2008-09-02 21:47:05 +0200	[diff] [blame]	3129	if ($line =~ m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3130	if (defined $refs{$1}) {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3131	push @{$refs{$1}}, $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3132	} else {
Jakub Narebski	d294e1c	2006-08-14 02:14:20 +0200	[diff] [blame]	3133	$refs{$1} = [ $2 ];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3134	}
				3135	}
				3136	}
				3137	close $fd or return;
				3138	return \%refs;
				3139	}
				3140
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3141	sub git_get_rev_name_tags {
				3142	my $hash = shift \|\| return undef;
				3143
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3144	open my $fd, "-\|", git_cmd(), "name-rev", "--tags", $hash
Jakub Narebski	56a322f	2006-08-24 19:41:23 +0200	[diff] [blame]	3145	or return;
				3146	my $name_rev = <$fd>;
				3147	close $fd;
				3148
				3149	if ($name_rev =~ m\|^$hash tags/(.*)$\|) {
				3150	return $1;
				3151	} else {
				3152	# catches also '$hash undefined' output
				3153	return undef;
				3154	}
				3155	}
				3156
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3157	## ----------------------------------------------------------------------
				3158	## parse to hash functions
				3159
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3160	sub parse_date {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3161	my $epoch = shift;
				3162	my $tz = shift \|\| "-0000";
				3163
				3164	my %date;
				3165	my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
				3166	my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
				3167	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
				3168	$date{'hour'} = $hour;
				3169	$date{'minute'} = $min;
				3170	$date{'mday'} = $mday;
				3171	$date{'day'} = $days[$wday];
				3172	$date{'month'} = $months[$mon];
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3173	$date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000",
				3174	$days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3175	$date{'mday-time'} = sprintf "%d %s %02d:%02d",
				3176	$mday, $months[$mon], $hour ,$min;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3177	$date{'iso-8601'} = sprintf "%04d-%02d-%02dT%02d:%02d:%02dZ",
Vincent Zanotti	a62d6d8	2007-11-10 19:55:27 +0100	[diff] [blame]	3178	1900+$year, 1+$mon, $mday, $hour ,$min, $sec;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3179
Jakub Narebski	2b1e172	2011-03-25 20:20:49 +0100	[diff] [blame]	3180	my ($tz_sign, $tz_hour, $tz_min) =
				3181	($tz =~ m/^([-+])(\d\d)(\d\d)$/);
				3182	$tz_sign = ($tz_sign eq '-' ? -1 : +1);
				3183	my $local = $epoch + $tz_sign((($tz_hour60) + $tz_min)*60);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3184	($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local);
				3185	$date{'hour_local'} = $hour;
				3186	$date{'minute_local'} = $min;
				3187	$date{'tz_local'} = $tz;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	3188	$date{'iso-tz'} = sprintf("%04d-%02d-%02d %02d:%02d:%02d %s",
				3189	1900+$year, $mon+1, $mday,
				3190	$hour, $min, $sec, $tz);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3191	return %date;
				3192	}
				3193
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3194	sub parse_tag {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3195	my $tag_id = shift;
				3196	my %tag;
				3197	my @comment;
				3198
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	3199	open my $fd, "-\|", git_cmd(), "cat-file", "tag", $tag_id or return;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3200	$tag{'id'} = $tag_id;
				3201	while (my $line = <$fd>) {
				3202	chomp $line;
				3203	if ($line =~ m/^object ([0-9a-fA-F]{40})$/) {
				3204	$tag{'object'} = $1;
				3205	} elsif ($line =~ m/^type (.+)$/) {
				3206	$tag{'type'} = $1;
				3207	} elsif ($line =~ m/^tag (.+)$/) {
				3208	$tag{'name'} = $1;
				3209	} elsif ($line =~ m/^tagger (.) ([0-9]+) (.)$/) {
				3210	$tag{'author'} = $1;
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	3211	$tag{'author_epoch'} = $2;
				3212	$tag{'author_tz'} = $3;
				3213	if ($tag{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3214	$tag{'author_name'} = $1;
				3215	$tag{'author_email'} = $2;
				3216	} else {
				3217	$tag{'author_name'} = $tag{'author'};
				3218	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3219	} elsif ($line =~ m/--BEGIN/) {
				3220	push @comment, $line;
				3221	last;
				3222	} elsif ($line eq "") {
				3223	last;
				3224	}
				3225	}
				3226	push @comment, <$fd>;
				3227	$tag{'comment'} = \@comment;
				3228	close $fd or return;
				3229	if (!defined $tag{'name'}) {
				3230	return
				3231	};
				3232	return %tag
				3233	}
				3234
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3235	sub parse_commit_text {
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3236	my ($commit_text, $withparents) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3237	my @commit_lines = split '\n', $commit_text;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3238	my %co;
				3239
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3240	pop @commit_lines; # Remove '\0'
				3241
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3242	if (! @commit_lines) {
				3243	return;
				3244	}
				3245
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3246	my $header = shift @commit_lines;
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	3247	if ($header !~ m/^[0-9a-fA-F]{40}/) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3248	return;
				3249	}
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3250	($co{'id'}, my @parents) = split ' ', $header;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3251	while (my $line = shift @commit_lines) {
				3252	last if $line eq "\n";
				3253	if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) {
				3254	$co{'tree'} = $1;
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3255	} elsif ((!defined $withparents) && ($line =~ m/^parent ([0-9a-fA-F]{40})$/)) {
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3256	push @parents, $1;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3257	} elsif ($line =~ m/^author (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3258	$co{'author'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3259	$co{'author_epoch'} = $2;
				3260	$co{'author_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3261	if ($co{'author'} =~ m/^([^<]+) <([^>]*)>/) {
				3262	$co{'author_name'} = $1;
				3263	$co{'author_email'} = $2;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3264	} else {
				3265	$co{'author_name'} = $co{'author'};
				3266	}
				3267	} elsif ($line =~ m/^committer (.) ([0-9]+) (.)$/) {
Zoltán Füzesi	5ed5bbc	2009-08-02 09:42:24 +0200	[diff] [blame]	3268	$co{'committer'} = to_utf8($1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3269	$co{'committer_epoch'} = $2;
				3270	$co{'committer_tz'} = $3;
Jakub Narebski	ba00b8c	2006-11-25 15:54:32 +0100	[diff] [blame]	3271	if ($co{'committer'} =~ m/^([^<]+) <([^>]*)>/) {
				3272	$co{'committer_name'} = $1;
				3273	$co{'committer_email'} = $2;
				3274	} else {
				3275	$co{'committer_name'} = $co{'committer'};
				3276	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3277	}
				3278	}
				3279	if (!defined $co{'tree'}) {
				3280	return;
				3281	};
Robert Fitzsimons	208b2df	2006-12-24 14:31:43 +0000	[diff] [blame]	3282	$co{'parents'} = \@parents;
				3283	$co{'parent'} = $parents[0];
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3284
				3285	foreach my $title (@commit_lines) {
				3286	$title =~ s/^ //;
				3287	if ($title ne "") {
				3288	$co{'title'} = chop_str($title, 80, 5);
				3289	# remove leading stuff of merges to make the interesting part visible
				3290	if (length($title) > 50) {
				3291	$title =~ s/^Automatic //;
				3292	$title =~ s/^merge (of\|with) /Merge ... /i;
				3293	if (length($title) > 50) {
				3294	$title =~ s/(http\|rsync):\/\///;
				3295	}
				3296	if (length($title) > 50) {
				3297	$title =~ s/(master\|www\|rsync)\.//;
				3298	}
				3299	if (length($title) > 50) {
				3300	$title =~ s/kernel.org:?//;
				3301	}
				3302	if (length($title) > 50) {
				3303	$title =~ s/\/pub\/scm//;
				3304	}
				3305	}
				3306	$co{'title_short'} = chop_str($title, 50, 5);
				3307	last;
				3308	}
				3309	}
Joey Hess	53c3967	2008-09-05 14:26:29 -0400	[diff] [blame]	3310	if (! defined $co{'title'} \|\| $co{'title'} eq "") {
Petr Baudis	7e0fe5c	2006-10-06 18:55:04 +0200	[diff] [blame]	3311	$co{'title'} = $co{'title_short'} = '(no commit message)';
				3312	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3313	# remove added spaces
				3314	foreach my $line (@commit_lines) {
				3315	$line =~ s/^ //;
				3316	}
				3317	$co{'comment'} = \@commit_lines;
				3318
				3319	my $age = time - $co{'committer_epoch'};
				3320	$co{'age'} = $age;
				3321	$co{'age_string'} = age_string($age);
				3322	my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'});
				3323	if ($age > 60602472) {
				3324	$co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3325	$co{'age_string_age'} = $co{'age_string'};
				3326	} else {
				3327	$co{'age_string_date'} = $co{'age_string'};
				3328	$co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday;
				3329	}
				3330	return %co;
				3331	}
				3332
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3333	sub parse_commit {
				3334	my ($commit_id) = @_;
				3335	my %co;
				3336
				3337	local $/ = "\0";
				3338
				3339	open my $fd, "-\|", git_cmd(), "rev-list",
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3340	"--parents",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3341	"--header",
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3342	"--max-count=1",
				3343	$commit_id,
				3344	"--",
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3345	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	ccdfdea	2006-12-27 14:22:21 +0000	[diff] [blame]	3346	%co = parse_commit_text(<$fd>, 1);
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3347	close $fd;
				3348
				3349	return %co;
				3350	}
				3351
				3352	sub parse_commits {
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3353	my ($commit_id, $maxcount, $skip, $filename, @args) = @_;
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3354	my @cos;
				3355
				3356	$maxcount \|\|= 1;
				3357	$skip \|\|= 0;
				3358
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3359	local $/ = "\0";
				3360
				3361	open my $fd, "-\|", git_cmd(), "rev-list",
				3362	"--header",
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	3363	@args,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3364	("--max-count=" . $maxcount),
Robert Fitzsimons	f47efbb	2006-12-24 14:31:49 +0000	[diff] [blame]	3365	("--skip=" . $skip),
Miklos Vajna	868bc06	2007-07-12 20:39:27 +0200	[diff] [blame]	3366	@extra_options,
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3367	$commit_id,
				3368	"--",
				3369	($filename ? ($filename) : ())
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	3370	or die_error(500, "Open git-rev-list failed");
Robert Fitzsimons	756bbf5	2006-12-24 14:31:42 +0000	[diff] [blame]	3371	while (my $line = <$fd>) {
				3372	my %co = parse_commit_text($line);
				3373	push @cos, \%co;
				3374	}
				3375	close $fd;
				3376
				3377	return wantarray ? @cos : \@cos;
				3378	}
				3379
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3380	# parse line of git-diff-tree "raw" output
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3381	sub parse_difftree_raw_line {
				3382	my $line = shift;
				3383	my %res;
				3384
				3385	# ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'
				3386	# ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'
				3387	if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/) {
				3388	$res{'from_mode'} = $1;
				3389	$res{'to_mode'} = $2;
				3390	$res{'from_id'} = $3;
				3391	$res{'to_id'} = $4;
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	3392	$res{'status'} = $5;
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3393	$res{'similarity'} = $6;
				3394	if ($res{'status'} eq 'R' \|\| $res{'status'} eq 'C') { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	3395	($res{'from_file'}, $res{'to_file'}) = map { unquote($_) } split("\t", $7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3396	} else {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3397	$res{'from_file'} = $res{'to_file'} = $res{'file'} = unquote($7);
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3398	}
				3399	}
Jakub Narebski	78bc403	2007-05-07 01:10:03 +0200	[diff] [blame]	3400	# '::100755 100755 100755 60e79ca1b01bc8b057abe17ddab484699a7f5fdb 94067cc5f73388f33722d52ae02f44692bc07490 94067cc5f73388f33722d52ae02f44692bc07490 MR git-gui/git-gui.sh'
				3401	# combined diff (for merge commit)
				3402	elsif ($line =~ s/^(::+)((?:[0-7]{6} )+)((?:[0-9a-fA-F]{40} )+)([a-zA-Z]+)\t(.*)$//) {
				3403	$res{'nparents'} = length($1);
				3404	$res{'from_mode'} = [ split(' ', $2) ];
				3405	$res{'to_mode'} = pop @{$res{'from_mode'}};
				3406	$res{'from_id'} = [ split(' ', $3) ];
				3407	$res{'to_id'} = pop @{$res{'from_id'}};
				3408	$res{'status'} = [ split('', $4) ];
				3409	$res{'to_file'} = unquote($5);
				3410	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3411	# 'c512b523472485aef4fff9e57b229d9d243c967f'
Jakub Narebski	0edcb37	2006-08-31 00:36:04 +0200	[diff] [blame]	3412	elsif ($line =~ m/^([0-9a-fA-F]{40})$/) {
				3413	$res{'commit'} = $1;
				3414	}
Jakub Narebski	740e67f	2006-08-21 23:07:00 +0200	[diff] [blame]	3415
				3416	return wantarray ? %res : \%res;
				3417	}
				3418
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3419	# wrapper: return parsed line of git-diff-tree "raw" output
				3420	# (the argument might be raw line, or parsed info)
				3421	sub parsed_difftree_line {
				3422	my $line_or_ref = shift;
				3423
				3424	if (ref($line_or_ref) eq "HASH") {
				3425	# pre-parsed (or generated by hand)
				3426	return $line_or_ref;
				3427	} else {
				3428	return parse_difftree_raw_line($line_or_ref);
				3429	}
				3430	}
				3431
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3432	# parse line of git-ls-tree output
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	3433	sub parse_ls_tree_line {
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3434	my $line = shift;
				3435	my %opts = @_;
				3436	my %res;
				3437
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3438	if ($opts{'-l'}) {
				3439	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa 16717 panic.c'
				3440	$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]	3441
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3442	$res{'mode'} = $1;
				3443	$res{'type'} = $2;
				3444	$res{'hash'} = $3;
				3445	$res{'size'} = $4;
				3446	if ($opts{'-z'}) {
				3447	$res{'name'} = $5;
				3448	} else {
				3449	$res{'name'} = unquote($5);
				3450	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3451	} else {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	3452	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				3453	$line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/s;
				3454
				3455	$res{'mode'} = $1;
				3456	$res{'type'} = $2;
				3457	$res{'hash'} = $3;
				3458	if ($opts{'-z'}) {
				3459	$res{'name'} = $4;
				3460	} else {
				3461	$res{'name'} = unquote($4);
				3462	}
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	3463	}
				3464
				3465	return wantarray ? %res : \%res;
				3466	}
				3467
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3468	# generates _two_ hashes, references to which are passed as 2 and 3 argument
				3469	sub parse_from_to_diffinfo {
				3470	my ($diffinfo, $from, $to, @parents) = @_;
				3471
				3472	if ($diffinfo->{'nparents'}) {
				3473	# combined diff
				3474	$from->{'file'} = [];
				3475	$from->{'href'} = [];
				3476	fill_from_file_info($diffinfo, @parents)
				3477	unless exists $diffinfo->{'from_file'};
				3478	for (my $i = 0; $i < $diffinfo->{'nparents'}; $i++) {
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3479	$from->{'file'}[$i] =
				3480	defined $diffinfo->{'from_file'}[$i] ?
				3481	$diffinfo->{'from_file'}[$i] :
				3482	$diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3483	if ($diffinfo->{'status'}[$i] ne "A") { # not new (added) file
				3484	$from->{'href'}[$i] = href(action=>"blob",
				3485	hash_base=>$parents[$i],
				3486	hash=>$diffinfo->{'from_id'}[$i],
				3487	file_name=>$from->{'file'}[$i]);
				3488	} else {
				3489	$from->{'href'}[$i] = undef;
				3490	}
				3491	}
				3492	} else {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	3493	# ordinary (not combined) diff
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3494	$from->{'file'} = $diffinfo->{'from_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3495	if ($diffinfo->{'status'} ne "A") { # not new (added) file
				3496	$from->{'href'} = href(action=>"blob", hash_base=>$hash_parent,
				3497	hash=>$diffinfo->{'from_id'},
				3498	file_name=>$from->{'file'});
				3499	} else {
				3500	delete $from->{'href'};
				3501	}
				3502	}
				3503
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	3504	$to->{'file'} = $diffinfo->{'to_file'};
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	3505	if (!is_deleted($diffinfo)) { # file exists in result
				3506	$to->{'href'} = href(action=>"blob", hash_base=>$hash,
				3507	hash=>$diffinfo->{'to_id'},
				3508	file_name=>$to->{'file'});
				3509	} else {
				3510	delete $to->{'href'};
				3511	}
				3512	}
				3513
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3514	## ......................................................................
				3515	## parse to array of hashes functions
				3516
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3517	sub git_get_heads_list {
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3518	my ($limit, @classes) = @_;
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	3519	@classes = ('heads') unless @classes;
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3520	my @patterns = map { "refs/$_" } @classes;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3521	my @headslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3522
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3523	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3524	($limit ? '--count='.($limit+1) : ()), '--sort=-committerdate',
				3525	'--format=%(objectname) %(refname) %(subject)%00%(committer)',
Giuseppe Bilotta	9b3f3de	2010-11-11 13:26:10 +0100	[diff] [blame]	3526	@patterns
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3527	or return;
				3528	while (my $line = <$fd>) {
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3529	my %ref_item;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	3530
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3531	chomp $line;
				3532	my ($refinfo, $committerinfo) = split(/\0/, $line);
				3533	my ($hash, $name, $title) = split(' ', $refinfo, 3);
				3534	my ($committer, $epoch, $tz) =
				3535	($committerinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3536	$ref_item{'fullname'} = $name;
Giuseppe Bilotta	60efa24	2010-11-11 13:26:09 +0100	[diff] [blame]	3537	$name =~ s!^refs/(?:head\|remote)s/!!;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3538
				3539	$ref_item{'name'} = $name;
				3540	$ref_item{'id'} = $hash;
				3541	$ref_item{'title'} = $title \|\| '(no commit message)';
				3542	$ref_item{'epoch'} = $epoch;
				3543	if ($epoch) {
				3544	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3545	} else {
				3546	$ref_item{'age'} = "unknown";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3547	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3548
				3549	push @headslist, \%ref_item;
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3550	}
				3551	close $fd;
Junio C Hamano	7a13b99	2006-07-31 19:18:34 -0700	[diff] [blame]	3552
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3553	return wantarray ? @headslist : \@headslist;
				3554	}
Jakub Narebski	c83a77e	2006-09-15 03:43:28 +0200	[diff] [blame]	3555
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3556	sub git_get_tags_list {
				3557	my $limit = shift;
				3558	my @tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3559
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3560	open my $fd, '-\|', git_cmd(), 'for-each-ref',
				3561	($limit ? '--count='.($limit+1) : ()), '--sort=-creatordate',
				3562	'--format=%(objectname) %(objecttype) %(refname) '.
				3563	'%(objectname) %(objecttype) %(subject)%00%(creator)',
				3564	'refs/tags'
				3565	or return;
				3566	while (my $line = <$fd>) {
				3567	my %ref_item;
				3568
				3569	chomp $line;
				3570	my ($refinfo, $creatorinfo) = split(/\0/, $line);
				3571	my ($id, $type, $name, $refid, $reftype, $title) = split(' ', $refinfo, 6);
				3572	my ($creator, $epoch, $tz) =
				3573	($creatorinfo =~ /^(.) ([0-9]+) (.)$/);
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	3574	$ref_item{'fullname'} = $name;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3575	$name =~ s!^refs/tags/!!;
				3576
				3577	$ref_item{'type'} = $type;
				3578	$ref_item{'id'} = $id;
				3579	$ref_item{'name'} = $name;
				3580	if ($type eq "tag") {
				3581	$ref_item{'subject'} = $title;
				3582	$ref_item{'reftype'} = $reftype;
				3583	$ref_item{'refid'} = $refid;
				3584	} else {
				3585	$ref_item{'reftype'} = $type;
				3586	$ref_item{'refid'} = $id;
				3587	}
				3588
				3589	if ($type eq "tag" \|\| $type eq "commit") {
				3590	$ref_item{'epoch'} = $epoch;
				3591	if ($epoch) {
				3592	$ref_item{'age'} = age_string(time - $ref_item{'epoch'});
				3593	} else {
				3594	$ref_item{'age'} = "unknown";
				3595	}
				3596	}
				3597
				3598	push @tagslist, \%ref_item;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3599	}
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	3600	close $fd;
				3601
				3602	return wantarray ? @tagslist : \@tagslist;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3603	}
				3604
				3605	## ----------------------------------------------------------------------
				3606	## filesystem-related functions
				3607
				3608	sub get_file_owner {
				3609	my $path = shift;
				3610
				3611	my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path);
				3612	my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid);
				3613	if (!defined $gcos) {
				3614	return undef;
				3615	}
				3616	my $owner = $gcos;
				3617	$owner =~ s/[,;].*$//;
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	3618	return to_utf8($owner);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3619	}
				3620
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3621	# assume that file exists
				3622	sub insert_file {
				3623	my $filename = shift;
				3624
				3625	open my $fd, '<', $filename;
Jakub Narebski	4586864	2008-12-08 14:13:21 +0100	[diff] [blame]	3626	print map { to_utf8($_) } <$fd>;
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3627	close $fd;
				3628	}
				3629
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3630	## ......................................................................
				3631	## mimetype related functions
				3632
				3633	sub mimetype_guess_file {
				3634	my $filename = shift;
				3635	my $mimemap = shift;
				3636	-r $mimemap or return undef;
				3637
				3638	my %mimemap;
Jakub Narebski	dff2b6d	2009-05-10 02:38:34 +0200	[diff] [blame]	3639	open(my $mh, '<', $mimemap) or return undef;
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3640	while (<$mh>) {
Jakub Narebski	618918e	2006-08-14 02:15:22 +0200	[diff] [blame]	3641	next if m/^#/; # skip comments
Ludwig Nussel	93a6ad1	2011-06-15 08:10:08 +0200	[diff] [blame]	3642	my ($mimetype, @exts) = split(/\s+/);
				3643	foreach my $ext (@exts) {
				3644	$mimemap{$ext} = $mimetype;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3645	}
				3646	}
Jakub Narebski	ad87e4f	2009-05-11 03:21:06 +0200	[diff] [blame]	3647	close($mh);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3648
Jakub Narebski	8059319	2006-09-19 13:57:03 +0200	[diff] [blame]	3649	$filename =~ /\.([^.]*)$/;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3650	return $mimemap{$1};
				3651	}
				3652
				3653	sub mimetype_guess {
				3654	my $filename = shift;
				3655	my $mime;
				3656	$filename =~ /\./ or return undef;
				3657
				3658	if ($mimetypes_file) {
				3659	my $file = $mimetypes_file;
Jakub Narebski	d5aa50d	2006-08-14 02:16:33 +0200	[diff] [blame]	3660	if ($file !~ m!^/!) { # if it is relative path
				3661	# it is relative to project
				3662	$file = "$projectroot/$project/$file";
				3663	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3664	$mime = mimetype_guess_file($filename, $file);
				3665	}
				3666	$mime \|\|= mimetype_guess_file($filename, '/etc/mime.types');
				3667	return $mime;
				3668	}
				3669
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3670	sub blob_mimetype {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3671	my $fd = shift;
				3672	my $filename = shift;
				3673
				3674	if ($filename) {
				3675	my $mime = mimetype_guess($filename);
				3676	$mime and return $mime;
				3677	}
				3678
				3679	# just in case
				3680	return $default_blob_plain_mimetype unless $fd;
				3681
				3682	if (-T $fd) {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3683	return 'text/plain';
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3684	} elsif (! $filename) {
				3685	return 'application/octet-stream';
				3686	} elsif ($filename =~ m/\.png$/i) {
				3687	return 'image/png';
				3688	} elsif ($filename =~ m/\.gif$/i) {
				3689	return 'image/gif';
				3690	} elsif ($filename =~ m/\.jpe?g$/i) {
				3691	return 'image/jpeg';
				3692	} else {
				3693	return 'application/octet-stream';
				3694	}
				3695	}
				3696
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	3697	sub blob_contenttype {
				3698	my ($fd, $file_name, $type) = @_;
				3699
				3700	$type \|\|= blob_mimetype($fd, $file_name);
				3701	if ($type eq 'text/plain' && defined $default_text_plain_charset) {
				3702	$type .= "; charset=$default_text_plain_charset";
				3703	}
				3704
				3705	return $type;
				3706	}
				3707
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3708	# guess file syntax for syntax highlighting; return undef if no highlighting
				3709	# the name of syntax can (in the future) depend on syntax highlighter used
				3710	sub guess_file_syntax {
				3711	my ($highlight, $mimetype, $file_name) = @_;
				3712	return undef unless ($highlight && defined $file_name);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3713	my $basename = basename($file_name, '.in');
				3714	return $highlight_basename{$basename}
				3715	if exists $highlight_basename{$basename};
				3716
				3717	$basename =~ /\.([^.]*)$/;
				3718	my $ext = $1 or return undef;
				3719	return $highlight_ext{$ext}
				3720	if exists $highlight_ext{$ext};
				3721
				3722	return undef;
				3723	}
				3724
				3725	# run highlighter and return FD of its output,
				3726	# or return original FD if no highlighting
				3727	sub run_highlighter {
				3728	my ($fd, $highlight, $syntax) = @_;
				3729	return $fd unless ($highlight && defined $syntax);
				3730
Sylvain Rabot	3ca7353	2010-12-30 22:20:29 +0100	[diff] [blame]	3731	close $fd;
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3732	open $fd, quote_command(git_cmd(), "cat-file", "blob", $hash)." \| ".
Christopher Wilson	7ce896b	2010-09-21 00:25:19 -0700	[diff] [blame]	3733	quote_command($highlight_bin).
Kevin Cernekee	6affdbe	2011-03-16 15:34:13 -0700	[diff] [blame]	3734	" --replace-tabs=8 --fragment --syntax $syntax \|"
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	3735	or die_error(500, "Couldn't open file or run syntax highlighter");
				3736	return $fd;
				3737	}
				3738
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	3739	## ======================================================================
				3740	## functions printing HTML: header, footer, error page
				3741
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3742	sub get_page_title {
				3743	my $title = to_utf8($site_name);
				3744
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3745	unless (defined $project) {
				3746	if (defined $project_filter) {
Jakub Narebski	f421208	2012-02-12 16:21:30 +0100	[diff] [blame]	3747	$title .= " - projects in '" . esc_path($project_filter) . "'";
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	3748	}
				3749	return $title;
				3750	}
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3751	$title .= " - " . to_utf8($project);
				3752
				3753	return $title unless (defined $action);
				3754	$title .= "/$action"; # $action is US-ASCII (7bit ASCII)
				3755
				3756	return $title unless (defined $file_name);
				3757	$title .= " - " . esc_path($file_name);
				3758	if ($action eq "tree" && $file_name !~ m\|/$\|) {
				3759	$title .= "/";
				3760	}
				3761
				3762	return $title;
				3763	}
				3764
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3765	sub get_content_type_html {
				3766	# require explicit support from the UA if we are to send the page as
				3767	# 'application/xhtml+xml', otherwise send it as plain old 'text/html'.
				3768	# we have to do this because MSIE sometimes globs '/', pretending to
				3769	# support xhtml+xml but choking when it gets what it asked for.
				3770	if (defined $cgi->http('HTTP_ACCEPT') &&
				3771	$cgi->http('HTTP_ACCEPT') =~ m/(,\|;\|\s\|^)application\/xhtml\+xml(,\|;\|\s\|$)/ &&
				3772	$cgi->Accept('application/xhtml+xml') != 0) {
				3773	return 'application/xhtml+xml';
				3774	} else {
				3775	return 'text/html';
				3776	}
				3777	}
				3778
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3779	sub print_feed_meta {
				3780	if (defined $project) {
				3781	my %href_params = get_feed_info();
				3782	if (!exists $href_params{'-title'}) {
				3783	$href_params{'-title'} = 'log';
				3784	}
				3785
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	3786	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	05bb5a2	2010-12-18 21:02:13 +0100	[diff] [blame]	3787	my $type = lc($format);
				3788	my %link_attr = (
				3789	'-rel' => 'alternate',
				3790	'-title' => esc_attr("$project - $href_params{'-title'} - $format feed"),
				3791	'-type' => "application/$type+xml"
				3792	);
				3793
				3794	$href_params{'action'} = $type;
				3795	$link_attr{'-href'} = href(%href_params);
				3796	print "<link ".
				3797	"rel=\"$link_attr{'-rel'}\" ".
				3798	"title=\"$link_attr{'-title'}\" ".
				3799	"href=\"$link_attr{'-href'}\" ".
				3800	"type=\"$link_attr{'-type'}\" ".
				3801	"/>\n";
				3802
				3803	$href_params{'extra_options'} = '--no-merges';
				3804	$link_attr{'-href'} = href(%href_params);
				3805	$link_attr{'-title'} .= ' (no merges)';
				3806	print "<link ".
				3807	"rel=\"$link_attr{'-rel'}\" ".
				3808	"title=\"$link_attr{'-title'}\" ".
				3809	"href=\"$link_attr{'-href'}\" ".
				3810	"type=\"$link_attr{'-type'}\" ".
				3811	"/>\n";
				3812	}
				3813
				3814	} else {
				3815	printf('<link rel="alternate" title="%s projects list" '.
				3816	'href="%s" type="text/plain; charset=utf-8" />'."\n",
				3817	esc_attr($site_name), href(project=>undef, action=>"project_index"));
				3818	printf('<link rel="alternate" title="%s projects feeds" '.
				3819	'href="%s" type="text/x-opml" />'."\n",
				3820	esc_attr($site_name), href(project=>undef, action=>"opml"));
				3821	}
				3822	}
				3823
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3824	sub print_header_links {
				3825	my $status = shift;
				3826
				3827	# print out each stylesheet that exist, providing backwards capability
				3828	# for those people who defined $stylesheet in a config file
				3829	if (defined $stylesheet) {
				3830	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3831	} else {
				3832	foreach my $stylesheet (@stylesheets) {
				3833	next unless $stylesheet;
				3834	print '<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";
				3835	}
				3836	}
				3837	print_feed_meta()
				3838	if ($status eq '200 OK');
				3839	if (defined $favicon) {
				3840	print qq(<link rel="shortcut icon" href=").esc_url($favicon).qq(" type="image/png" />\n);
				3841	}
				3842	}
				3843
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	3844	sub print_nav_breadcrumbs_path {
				3845	my $dirprefix = undef;
				3846	while (my $part = shift) {
				3847	$dirprefix .= "/" if defined $dirprefix;
				3848	$dirprefix .= $part;
				3849	print $cgi->a({-href => href(project => undef,
				3850	project_filter => $dirprefix,
				3851	action => "project_list")},
				3852	esc_html($part)) . " / ";
				3853	}
				3854	}
				3855
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3856	sub print_nav_breadcrumbs {
				3857	my %opts = @_;
				3858
				3859	print $cgi->a({-href => esc_url($home_link)}, $home_link_str) . " / ";
				3860	if (defined $project) {
Bernhard R. Link	4426ba2	2012-01-30 21:10:23 +0100	[diff] [blame]	3861	my @dirname = split '/', $project;
				3862	my $projectbasename = pop @dirname;
				3863	print_nav_breadcrumbs_path(@dirname);
				3864	print $cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3865	if (defined $action) {
				3866	my $action_print = $action ;
				3867	if (defined $opts{-action_extra}) {
				3868	$action_print = $cgi->a({-href => href(action=>$action)},
				3869	$action);
				3870	}
				3871	print " / $action_print";
				3872	}
				3873	if (defined $opts{-action_extra}) {
				3874	print " / $opts{-action_extra}";
				3875	}
				3876	print "\n";
Bernhard R. Link	40efa22	2012-01-30 21:09:43 +0100	[diff] [blame]	3877	} elsif (defined $project_filter) {
				3878	print_nav_breadcrumbs_path(split '/', $project_filter);
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3879	}
				3880	}
				3881
				3882	sub print_search_form {
				3883	if (!defined $searchtext) {
				3884	$searchtext = "";
				3885	}
				3886	my $search_hash;
				3887	if (defined $hash_base) {
				3888	$search_hash = $hash_base;
				3889	} elsif (defined $hash) {
				3890	$search_hash = $hash;
				3891	} else {
				3892	$search_hash = "HEAD";
				3893	}
				3894	my $action = $my_uri;
				3895	my $use_pathinfo = gitweb_check_feature('pathinfo');
				3896	if ($use_pathinfo) {
				3897	$action .= "/".esc_url($project);
				3898	}
				3899	print $cgi->startform(-method => "get", -action => $action) .
				3900	"<div class=\"search\">\n" .
				3901	(!$use_pathinfo &&
				3902	$cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) . "\n") .
				3903	$cgi->input({-name=>"a", -value=>"search", -type=>"hidden"}) . "\n" .
				3904	$cgi->input({-name=>"h", -value=>$search_hash, -type=>"hidden"}) . "\n" .
				3905	$cgi->popup_menu(-name => 'st', -default => 'commit',
				3906	-values => ['commit', 'grep', 'author', 'committer', 'pickaxe']) .
				3907	$cgi->sup($cgi->a({-href => href(action=>"search_help")}, "?")) .
				3908	" search:\n",
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	3909	$cgi->textfield(-name => "s", -value => $searchtext, -override => 1) . "\n" .
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3910	"<span title=\"Extended regular expression\">" .
				3911	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				3912	-checked => $search_use_regexp) .
				3913	"</span>" .
				3914	"</div>" .
				3915	$cgi->end_form() . "\n";
				3916	}
				3917
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	3918	sub git_header_html {
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3919	my $status = shift \|\| "200 OK";
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	3920	my $expires = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	3921	my %opts = @_;
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3922
Jakub Narebski	efb2d0c	2010-04-24 16:01:10 +0200	[diff] [blame]	3923	my $title = get_page_title();
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3924	my $content_type = get_content_type_html();
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	3925	print $cgi->header(-type=>$content_type, -charset => 'utf-8',
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	3926	-status=> $status, -expires => $expires)
Jakub Narebski	ad709ea	2010-06-13 00:35:59 +0200	[diff] [blame]	3927	unless ($opts{'-no_http_header'});
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	3928	my $mod_perl_version = $ENV{'MOD_PERL'} ? " $ENV{'MOD_PERL'}" : '';
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	3929	print <<EOF;
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	3930	<?xml version="1.0" encoding="utf-8"?>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3931	<!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]	3932	<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]	3933	<!-- 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]	3934	<!-- git core binaries version $git_version -->
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3935	<head>
Alp Toker	f6801d6	2006-07-11 11:19:34 +0100	[diff] [blame]	3936	<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>
Jakub Narebski	45c9a75	2006-12-27 23:59:51 +0100	[diff] [blame]	3937	<meta name="generator" content="gitweb/$version git/$git_version$mod_perl_version"/>
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	3938	<meta name="robots" content="index, nofollow"/>
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	3939	<title>$title</title>
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3940	EOF
Giuseppe Bilotta	41a4d16	2009-01-31 02:31:52 +0100	[diff] [blame]	3941	# the stylesheet, favicon etc urls won't work correctly with path_info
				3942	# unless we set the appropriate base URL
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	3943	if ($ENV{'PATH_INFO'}) {
Giuseppe Bilotta	81d3fe9	2009-02-15 10:18:36 +0100	[diff] [blame]	3944	print "<base href=\"".esc_url($base_url)."\" />\n";
Giuseppe Bilotta	c3254ae	2009-01-31 02:31:50 +0100	[diff] [blame]	3945	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3946	print_header_links($status);
Lénaïc Huard	c1355b7	2011-10-21 09:09:29 +0200	[diff] [blame]	3947
				3948	if (defined $site_html_head_string) {
				3949	print to_utf8($site_html_head_string);
				3950	}
				3951
Matthias Lederhofer	dd04c42	2006-08-06 13:25:41 +0200	[diff] [blame]	3952	print "</head>\n" .
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	3953	"<body>\n";
				3954
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	3955	if (defined $site_header && -f $site_header) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	3956	insert_file($site_header);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	3957	}
				3958
Jonathan Nieder	6822052	2010-09-03 19:45:09 -0500	[diff] [blame]	3959	print "<div class=\"page_header\">\n";
				3960	if (defined $logo) {
				3961	print $cgi->a({-href => esc_url($logo_url),
				3962	-title => $logo_label},
				3963	$cgi->img({-src => esc_url($logo),
				3964	-width => 72, -height => 27,
				3965	-alt => "git",
				3966	-class => "logo"}));
				3967	}
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3968	print_nav_breadcrumbs(%opts);
Petr Baudis	d77b567	2007-05-17 04:24:19 +0200	[diff] [blame]	3969	print "</div>\n";
				3970
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	3971	my $have_search = gitweb_check_feature('search');
Jakub Narebski	f70dda2	2008-06-02 11:54:41 +0200	[diff] [blame]	3972	if (defined $project && $have_search) {
Jakub Narebski	6ee9033	2011-06-22 13:50:46 +0200	[diff] [blame]	3973	print_search_form();
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	3974	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	3975	}
				3976
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	3977	sub git_footer_html {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	3978	my $feed_class = 'rss_logo';
				3979
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	3980	print "<div class=\"page_footer\">\n";
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	3981	if (defined $project) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	3982	my $descr = git_get_project_description($project);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	3983	if (defined $descr) {
Kay Sievers	40c1381	2005-11-19 17:41:29 +0100	[diff] [blame]	3984	print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	3985	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	3986
				3987	my %href_params = get_feed_info();
				3988	if (!%href_params) {
				3989	$feed_class .= ' generic';
				3990	}
				3991	$href_params{'-title'} \|\|= 'log';
				3992
Ævar Arnfjörð Bjarmason	0f54b7d	2011-02-19 15:27:41 +0000	[diff] [blame]	3993	foreach my $format (qw(RSS Atom)) {
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	3994	$href_params{'action'} = lc($format);
				3995	print $cgi->a({-href => href(%href_params),
				3996	-title => "$href_params{'-title'} $format feed",
				3997	-class => $feed_class}, $format)."\n";
				3998	}
				3999
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	4000	} else {
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4001	print $cgi->a({-href => href(project=>undef, action=>"opml",
				4002	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4003	-class => $feed_class}, "OPML") . " ";
Bernhard R. Link	56efd9d	2012-01-30 21:09:00 +0100	[diff] [blame]	4004	print $cgi->a({-href => href(project=>undef, action=>"project_index",
				4005	project_filter => $project_filter),
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4006	-class => $feed_class}, "TXT") . "\n";
Kay Sievers	ff7669a	2005-08-07 20:13:02 +0200	[diff] [blame]	4007	}
Jakub Narebski	3562198	2008-04-20 22:09:48 +0200	[diff] [blame]	4008	print "</div>\n"; # class="page_footer"
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4009
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4010	if (defined $t0 && gitweb_check_feature('timed')) {
				4011	print "<div id=\"generating_info\">\n";
				4012	print 'This page took '.
				4013	'<span id="generating_time" class="time_span">'.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	4014	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	aa7dd05	2009-09-01 13:39:16 +0200	[diff] [blame]	4015	' seconds </span>'.
				4016	' and '.
				4017	'<span id="generating_cmd">'.
				4018	$number_of_git_cmds.
				4019	'</span> git commands '.
				4020	" to generate.\n";
				4021	print "</div>\n"; # class="page_footer"
				4022	}
				4023
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	4024	if (defined $site_footer && -f $site_footer) {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	4025	insert_file($site_footer);
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4026	}
				4027
Junio C Hamano	abf411e	2010-12-15 11:32:57 -0800	[diff] [blame]	4028	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]	4029	if (defined $action &&
				4030	$action eq 'blame_incremental') {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4031	print qq!<script type="text/javascript">\n!.
				4032	qq!startBlame("!. href(action=>"blame_data", -replay=>1) .qq!",\n!.
				4033	qq! "!. href() .qq!");\n!.
				4034	qq!</script>\n!;
John 'Warthog9' Hawley	291e52b	2011-04-28 21:04:09 +0200	[diff] [blame]	4035	} else {
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4036	my ($jstimezone, $tz_cookie, $datetime_class) =
				4037	gitweb_get_feature('javascript-timezone');
				4038
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4039	print qq!<script type="text/javascript">\n!.
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4040	qq!window.onload = function () {\n!;
				4041	if (gitweb_check_feature('javascript-actions')) {
				4042	print qq! fixLinks();\n!;
				4043	}
				4044	if ($jstimezone && $tz_cookie && $datetime_class) {
				4045	print qq! var tz_cookie = { name: '$tz_cookie', expires: 14, path: '/' };\n!. # in days
				4046	qq! onloadTZSetup('$jstimezone', tz_cookie, '$datetime_class');\n!;
				4047	}
				4048	print qq!};\n!.
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	4049	qq!</script>\n!;
				4050	}
				4051
Alan Chandler	b2d3476	2006-10-03 13:49:03 +0100	[diff] [blame]	4052	print "</body>\n" .
Kay Sievers	9cd3d98	2005-08-07 20:17:42 +0200	[diff] [blame]	4053	"</html>";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	4054	}
				4055
Jakub Narebski	453541f	2010-02-07 21:51:18 +0100	[diff] [blame]	4056	# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4057	# Example: die_error(404, 'Hash not found')
				4058	# By convention, use the following status codes (as defined in RFC 2616):
				4059	# 400: Invalid or missing CGI parameters, or
				4060	# requested object exists but has wrong type.
				4061	# 403: Requested feature (like "pickaxe" or "snapshot") not enabled on
				4062	# this server or project.
				4063	# 404: Requested object/revision/project doesn't exist.
				4064	# 500: The server isn't configured properly, or
				4065	# an internal error occurred (e.g. failed assertions caused by bugs), or
				4066	# an unknown error occurred (e.g. the git binary died unexpectedly).
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4067	# 503: The server is currently unavailable (because it is overloaded,
				4068	# or down for maintenance). Generally, this is a temporary state.
Kay Sievers	061cc7c	2005-08-07 20:15:57 +0200	[diff] [blame]	4069	sub die_error {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	4070	my $status = shift \|\| 500;
Jakub Narebski	1df4876	2010-02-07 21:52:25 +0100	[diff] [blame]	4071	my $error = esc_html(shift) \|\| "Internal Server Error";
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4072	my $extra = shift;
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4073	my %opts = @_;
Kay Sievers	664f4cc	2005-08-07 20:17:19 +0200	[diff] [blame]	4074
John 'Warthog9' Hawley	b62a1a9	2010-01-30 23:30:39 +0100	[diff] [blame]	4075	my %http_responses = (
				4076	400 => '400 Bad Request',
				4077	403 => '403 Forbidden',
				4078	404 => '404 Not Found',
				4079	500 => '500 Internal Server Error',
				4080	503 => '503 Service Unavailable',
				4081	);
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4082	git_header_html($http_responses{$status}, undef, %opts);
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4083	print <<EOF;
				4084	<div class="page_body">
				4085	<br /><br />
				4086	$status - $error
				4087	<br />
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	4088	EOF
John 'Warthog9' Hawley	aa14013	2010-01-30 23:30:44 +0100	[diff] [blame]	4089	if (defined $extra) {
				4090	print "<hr />\n" .
				4091	"$extra\n";
				4092	}
				4093	print "</div>\n";
				4094
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4095	git_footer_html();
Jakub Narebski	7a59745	2010-04-24 16:00:04 +0200	[diff] [blame]	4096	goto DONE_GITWEB
				4097	unless ($opts{'-error_handler'});
Kay Sievers	a59d4af	2005-08-07 20:15:44 +0200	[diff] [blame]	4098	}
				4099
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4100	## ----------------------------------------------------------------------
				4101	## functions printing or outputting HTML: navigation
				4102
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4103	sub git_print_page_nav {
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4104	my ($current, $suppress, $head, $treehead, $treebase, $extra) = @_;
				4105	$extra = '' if !defined $extra; # pager or formats
				4106
				4107	my @navs = qw(summary shortlog log commit commitdiff tree);
				4108	if ($suppress) {
				4109	@navs = grep { $_ ne $suppress } @navs;
				4110	}
				4111
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4112	my %arg = map { $_ => {action=>$_} } @navs;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4113	if (defined $head) {
				4114	for (qw(commit commitdiff)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4115	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4116	}
				4117	if ($current =~ m/^(tree \| log \| shortlog \| commit \| commitdiff \| search)$/x) {
				4118	for (qw(shortlog log)) {
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4119	$arg{$_}{'hash'} = $head;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4120	}
				4121	}
				4122	}
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4123
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4124	$arg{'tree'}{'hash'} = $treehead if defined $treehead;
				4125	$arg{'tree'}{'hash_base'} = $treebase if defined $treebase;
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4126
Junio C Hamano	a7c5a28	2008-11-29 13:02:08 -0800	[diff] [blame]	4127	my @actions = gitweb_get_feature('actions');
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4128	my %repl = (
				4129	'%' => '%',
				4130	'n' => $project, # project name
				4131	'f' => $git_dir, # project path within filesystem
				4132	'h' => $treehead \|\| '', # current hash ('h' parameter)
				4133	'b' => $treebase \|\| '', # hash base ('hb' parameter)
				4134	);
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4135	while (@actions) {
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4136	my ($label, $link, $pos) = splice(@actions,0,3);
				4137	# insert
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4138	@navs = map { $_ eq $pos ? ($_, $label) : $_ } @navs;
				4139	# munch munch
Jakub Narebski	2b11e05	2008-10-12 00:02:32 +0200	[diff] [blame]	4140	$link =~ s/%([%nfhb])/$repl{$1}/g;
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4141	$arg{$label}{'_href'} = $link;
				4142	}
				4143
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4144	print "<div class=\"page_nav\">\n" .
				4145	(join " \| ",
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4146	map { $_ eq $current ?
Petr Baudis	d627f68	2008-10-02 16:36:52 +0200	[diff] [blame]	4147	$_ : $cgi->a({-href => ($arg{$_}{_href} ? $arg{$_}{_href} : href(%{$arg{$_}}))}, "$_")
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4148	} @navs);
Jakub Narebski	898a893	2006-07-30 16:14:43 +0200	[diff] [blame]	4149	print "<br/>\n$extra<br/>\n" .
Jakub Narebski	b18f9bf	2006-07-30 14:59:57 +0200	[diff] [blame]	4150	"</div>\n";
				4151	}
				4152
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	4153	# returns a submenu for the nagivation of the refs views (tags, heads,
				4154	# remotes) with the current view disabled and the remotes view only
				4155	# available if the feature is enabled
				4156	sub format_ref_views {
				4157	my ($current) = @_;
				4158	my @ref_views = qw{tags heads};
				4159	push @ref_views, 'remotes' if gitweb_check_feature('remote_heads');
				4160	return join " \| ", map {
				4161	$_ eq $current ? $_ :
				4162	$cgi->a({-href => href(action=>$_)}, $_)
				4163	} @ref_views
				4164	}
				4165
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4166	sub format_paging_nav {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4167	my ($action, $page, $has_next_link) = @_;
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4168	my $paging_nav;
				4169
				4170
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4171	if ($page > 0) {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4172	$paging_nav .=
				4173	$cgi->a({-href => href(-replay=>1, page=>undef)}, "first") .
				4174	" ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4175	$cgi->a({-href => href(-replay=>1, page=>$page-1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4176	-accesskey => "p", -title => "Alt-p"}, "prev");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4177	} else {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	4178	$paging_nav .= "first ⋅ prev";
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4179	}
				4180
Lea Wiemann	1f684dc	2008-05-28 01:25:42 +0200	[diff] [blame]	4181	if ($has_next_link) {
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4182	$paging_nav .= " ⋅ " .
Jakub Narebski	7afd77b	2007-11-01 13:06:28 +0100	[diff] [blame]	4183	$cgi->a({-href => href(-replay=>1, page=>$page+1),
Jakub Narebski	26298b5	2006-08-10 12:38:47 +0200	[diff] [blame]	4184	-accesskey => "n", -title => "Alt-n"}, "next");
Jakub Narebski	43ffc06	2006-07-30 17:49:00 +0200	[diff] [blame]	4185	} else {
				4186	$paging_nav .= " ⋅ next";
				4187	}
				4188
				4189	return $paging_nav;
				4190	}
				4191
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4192	## ......................................................................
				4193	## functions printing or outputting HTML: div
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4194
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	4195	sub git_print_header_div {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4196	my ($action, $title, $hash, $hash_base) = @_;
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4197	my %args = ();
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4198
Jakub Narebski	3be8e72	2007-04-01 22:22:21 +0200	[diff] [blame]	4199	$args{'action'} = $action;
				4200	$args{'hash'} = $hash if $hash;
				4201	$args{'hash_base'} = $hash_base if $hash_base;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4202
				4203	print "<div class=\"header\">\n" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	4204	$cgi->a({-href => href(%args), -class => "title"},
				4205	$title ? $title : $action) .
				4206	"\n</div>\n";
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	4207	}
				4208
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	4209	sub format_repo_url {
				4210	my ($name, $url) = @_;
				4211	return "<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";
				4212	}
				4213
Giuseppe Bilotta	b891d52	2010-11-11 13:26:16 +0100	[diff] [blame]	4214	# Group output by placing it in a DIV element and adding a header.
				4215	# Options for start_div() can be provided by passing a hash reference as the
				4216	# first parameter to the function.
				4217	# Options to git_print_header_div() can be provided by passing an array
				4218	# reference. This must follow the options to start_div if they are present.
				4219	# The content can be a scalar, which is output as-is, a scalar reference, which
				4220	# is output after html escaping, an IO handle passed either as *handle or
				4221	# *handle{IO}, or a function reference. In the latter case all following
				4222	# parameters will be taken as argument to the content function call.
				4223	sub git_print_section {
				4224	my ($div_args, $header_args, $content);
				4225	my $arg = shift;
				4226	if (ref($arg) eq 'HASH') {
				4227	$div_args = $arg;
				4228	$arg = shift;
				4229	}
				4230	if (ref($arg) eq 'ARRAY') {
				4231	$header_args = $arg;
				4232	$arg = shift;
				4233	}
				4234	$content = $arg;
				4235
				4236	print $cgi->start_div($div_args);
				4237	git_print_header_div(@$header_args);
				4238
				4239	if (ref($content) eq 'CODE') {
				4240	$content->(@_);
				4241	} elsif (ref($content) eq 'SCALAR') {
				4242	print esc_html($$content);
				4243	} elsif (ref($content) eq 'GLOB' or ref($content) eq 'IO::Handle') {
				4244	print <$content>;
				4245	} elsif (!ref($content) && defined($content)) {
				4246	print $content;
				4247	}
				4248
				4249	print $cgi->end_div;
				4250	}
				4251
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4252	sub format_timestamp_html {
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4253	my $date = shift;
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4254	my $strtime = $date->{'rfc2822'};
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4255
Jakub Narebski	2e987f9	2011-04-28 21:04:11 +0200	[diff] [blame]	4256	my (undef, undef, $datetime_class) =
				4257	gitweb_get_feature('javascript-timezone');
				4258	if ($datetime_class) {
				4259	$strtime = qq!<span class="$datetime_class">$strtime</span>!;
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4260	}
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4261
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4262	my $localtime_format = '(%02d:%02d %s)';
				4263	if ($date->{'hour_local'} < 6) {
				4264	$localtime_format = '(<span class="atnight">%02d:%02d</span> %s)';
Jakub Narebski	a44465c	2006-08-28 23:17:31 +0200	[diff] [blame]	4265	}
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4266	$strtime .= ' ' .
				4267	sprintf($localtime_format,
				4268	$date->{'hour_local'}, $date->{'minute_local'}, $date->{'tz_local'});
John 'Warthog9' Hawley	0cf207f	2010-01-30 23:30:42 +0100	[diff] [blame]	4269
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4270	return $strtime;
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4271	}
				4272
				4273	# Outputs the author name and date in long form
				4274	sub git_print_authorship {
				4275	my $co = shift;
				4276	my %opts = @_;
				4277	my $tag = $opts{-tag} \|\| 'div';
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4278	my $author = $co->{'author_name'};
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4279
				4280	my %ad = parse_date($co->{'author_epoch'}, $co->{'author_tz'});
				4281	print "<$tag class=\"author_date\">" .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4282	format_search_author($author, "author", esc_html($author)) .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4283	" [".format_timestamp_html(\%ad)."]".
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4284	git_get_avatar($co->{'author_email'}, -pad_before => 1) .
				4285	"</$tag>\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4286	}
				4287
				4288	# Outputs table rows containing the full author or committer information,
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4289	# in the format expected for 'commit' view (& similar).
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4290	# Parameters are a commit hash reference, followed by the list of people
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	4291	# 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]	4292	# author and committer.
				4293	sub git_print_authorship_rows {
				4294	my $co = shift;
				4295	# too bad we can't use @people = @_ \|\| ('author', 'committer')
				4296	my @people = @_;
				4297	@people = ('author', 'committer') unless @people;
				4298	foreach my $who (@people) {
				4299	my %wd = parse_date($co->{"${who}_epoch"}, $co->{"${who}_tz"});
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4300	print "<tr><td>$who</td><td>" .
				4301	format_search_author($co->{"${who}_name"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4302	esc_html($co->{"${who}_name"})) . " " .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4303	format_search_author($co->{"${who}_email"}, $who,
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4304	esc_html("<" . $co->{"${who}_email"} . ">")) .
Stephen Boyd	e133d65	2009-10-15 21:14:59 -0700	[diff] [blame]	4305	"</td><td rowspan=\"2\">" .
Giuseppe Bilotta	e9fdd74	2009-06-30 00:00:51 +0200	[diff] [blame]	4306	git_get_avatar($co->{"${who}_email"}, -size => 'double') .
				4307	"</td></tr>\n" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4308	"<tr>" .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4309	"<td></td><td>" .
Jakub Narebski	ce71b07	2011-04-28 21:04:08 +0200	[diff] [blame]	4310	format_timestamp_html(\%wd) .
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	4311	"</td>" .
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	4312	"</tr>\n";
				4313	}
Jakub Narebski	6fd92a2	2006-08-28 14:48:12 +0200	[diff] [blame]	4314	}
				4315
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4316	sub git_print_page_path {
				4317	my $name = shift;
				4318	my $type = shift;
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4319	my $hb = shift;
Junio C Hamano	df2c37a	2006-01-09 13:13:39 +0100	[diff] [blame]	4320
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4321
				4322	print "<div class=\"page_path\">";
				4323	print $cgi->a({-href => href(action=>"tree", hash_base=>$hb),
Martin Koegler	00f429a	2007-06-03 17:42:44 +0200	[diff] [blame]	4324	-title => 'tree root'}, to_utf8("[$project]"));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4325	print " / ";
				4326	if (defined $name) {
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4327	my @dirname = split '/', $name;
				4328	my $basename = pop @dirname;
				4329	my $fullname = '';
				4330
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4331	foreach my $dir (@dirname) {
Petr Baudis	16fdb48	2006-09-21 02:05:50 +0200	[diff] [blame]	4332	$fullname .= ($fullname ? '/' : '') . $dir;
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4333	print $cgi->a({-href => href(action=>"tree", file_name=>$fullname,
				4334	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4335	-title => $fullname}, esc_path($dir));
Petr Baudis	26d0a97	2006-09-23 01:00:12 +0200	[diff] [blame]	4336	print " / ";
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4337	}
				4338	if (defined $type && $type eq 'blob') {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	4339	print $cgi->a({-href => href(action=>"blob_plain", file_name=>$file_name,
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4340	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4341	-title => $name}, esc_path($basename));
Jakub Narebski	762c720	2006-09-04 18:17:58 +0200	[diff] [blame]	4342	} elsif (defined $type && $type eq 'tree') {
				4343	print $cgi->a({-href => href(action=>"tree", file_name=>$file_name,
				4344	hash_base=>$hb),
Jakub Narebski	edc04e9	2007-03-07 02:21:25 +0100	[diff] [blame]	4345	-title => $name}, esc_path($basename));
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4346	print " / ";
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4347	} else {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4348	print esc_path($basename);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	4349	}
Kay Sievers	8ed23e1	2005-08-07 20:05:44 +0200	[diff] [blame]	4350	}
Jakub Narebski	4df118e	2006-10-21 17:53:55 +0200	[diff] [blame]	4351	print "<br/></div>\n";
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	4352	}
				4353
Jakub Narebski	74fd872	2009-05-07 19:11:29 +0200	[diff] [blame]	4354	sub git_print_log {
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4355	my $log = shift;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4356	my %opts = @_;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4357
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4358	if ($opts{'-remove_title'}) {
				4359	# remove title, i.e. first line of log
				4360	shift @$log;
				4361	}
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4362	# remove leading empty lines
				4363	while (defined $log->[0] && $log->[0] eq "") {
				4364	shift @$log;
				4365	}
				4366
				4367	# print log
				4368	my $signoff = 0;
				4369	my $empty = 0;
				4370	foreach my $line (@$log) {
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4371	if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]\|acked[ \-]by[ :]\|cc[ :])/i) {
				4372	$signoff = 1;
Jakub Narebski	fba20b4	2006-08-28 14:48:13 +0200	[diff] [blame]	4373	$empty = 0;
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4374	if (! $opts{'-remove_signoff'}) {
				4375	print "<span class=\"signoff\">" . esc_html($line) . "</span><br/>\n";
				4376	next;
				4377	} else {
				4378	# remove signoff lines
				4379	next;
				4380	}
				4381	} else {
				4382	$signoff = 0;
				4383	}
				4384
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4385	# print only one empty line
				4386	# do not print empty line after signoff
				4387	if ($line eq "") {
				4388	next if ($empty \|\| $signoff);
				4389	$empty = 1;
				4390	} else {
				4391	$empty = 0;
				4392	}
Jakub Narebski	b7f9253	2006-08-28 14:48:10 +0200	[diff] [blame]	4393
				4394	print format_log_line_html($line) . "<br/>\n";
				4395	}
				4396
				4397	if ($opts{'-final_empty_line'}) {
				4398	# end with single empty line
				4399	print "<br/>\n" unless $empty;
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	4400	}
				4401	}
				4402
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4403	# return link target (what link points to)
				4404	sub git_get_link_target {
				4405	my $hash = shift;
				4406	my $link_target;
				4407
				4408	# read link
				4409	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
				4410	or return;
				4411	{
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	4412	local $/ = undef;
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4413	$link_target = <$fd>;
				4414	}
				4415	close $fd
				4416	or return;
				4417
				4418	return $link_target;
				4419	}
				4420
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4421	# given link target, and the directory (basedir) the link is in,
				4422	# return target of link relative to top directory (top tree);
				4423	# return undef if it is not possible (including absolute links).
				4424	sub normalize_link_target {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4425	my ($link_target, $basedir) = @_;
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4426
				4427	# absolute symlinks (beginning with '/') cannot be normalized
				4428	return if (substr($link_target, 0, 1) eq '/');
				4429
				4430	# normalize link target to path from top (root) tree (dir)
				4431	my $path;
				4432	if ($basedir) {
				4433	$path = $basedir . '/' . $link_target;
				4434	} else {
				4435	# we are in top (root) tree (dir)
				4436	$path = $link_target;
				4437	}
				4438
				4439	# remove //, /./, and /../
				4440	my @path_parts;
				4441	foreach my $part (split('/', $path)) {
				4442	# discard '.' and ''
				4443	next if (!$part \|\| $part eq '.');
				4444	# handle '..'
				4445	if ($part eq '..') {
				4446	if (@path_parts) {
				4447	pop @path_parts;
				4448	} else {
				4449	# link leads outside repository (outside top dir)
				4450	return;
				4451	}
				4452	} else {
				4453	push @path_parts, $part;
				4454	}
				4455	}
				4456	$path = join('/', @path_parts);
				4457
				4458	return $path;
				4459	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4460
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4461	# print tree entry (row of git_tree), but without encompassing <tr> element
				4462	sub git_print_tree_entry {
				4463	my ($t, $basedir, $hash_base, $have_blame) = @_;
				4464
				4465	my %base_key = ();
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4466	$base_key{'hash_base'} = $hash_base if defined $hash_base;
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4467
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4468	# The format of a table row is: mode list link. Where mode is
				4469	# the mode of the entry, list is the name of the entry, an href,
				4470	# and link is the action links of the entry.
				4471
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4472	print "<td class=\"mode\">" . mode_str($t->{'mode'}) . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4473	if (exists $t->{'size'}) {
				4474	print "<td class=\"size\">$t->{'size'}</td>\n";
				4475	}
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4476	if ($t->{'type'} eq "blob") {
				4477	print "<td class=\"list\">" .
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4478	$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4479	file_name=>"$basedir$t->{'name'}", %base_key),
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4480	-class => "list"}, esc_path($t->{'name'}));
				4481	if (S_ISLNK(oct $t->{'mode'})) {
				4482	my $link_target = git_get_link_target($t->{'hash'});
				4483	if ($link_target) {
Jakub Narebski	15c54fe	2009-05-11 19:45:11 +0200	[diff] [blame]	4484	my $norm_target = normalize_link_target($link_target, $basedir);
Jakub Narebski	3bf9d57	2006-12-10 13:25:48 +0100	[diff] [blame]	4485	if (defined $norm_target) {
				4486	print " -> " .
				4487	$cgi->a({-href => href(action=>"object", hash_base=>$hash_base,
				4488	file_name=>$norm_target),
				4489	-title => $norm_target}, esc_path($link_target));
				4490	} else {
				4491	print " -> " . esc_path($link_target);
				4492	}
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4493	}
				4494	}
				4495	print "</td>\n";
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4496	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4497	print $cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4498	file_name=>"$basedir$t->{'name'}", %base_key)},
				4499	"blob");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4500	if ($have_blame) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4501	print " \| " .
				4502	$cgi->a({-href => href(action=>"blame", hash=>$t->{'hash'},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4503	file_name=>"$basedir$t->{'name'}", %base_key)},
				4504	"blame");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4505	}
				4506	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4507	print " \| " .
				4508	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4509	hash=>$t->{'hash'}, file_name=>"$basedir$t->{'name'}")},
				4510	"history");
				4511	}
				4512	print " \| " .
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	4513	$cgi->a({-href => href(action=>"blob_plain", hash_base=>$hash_base,
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4514	file_name=>"$basedir$t->{'name'}")},
				4515	"raw");
Luben Tuikov	4de741b	2006-09-25 22:38:16 -0700	[diff] [blame]	4516	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4517
				4518	} elsif ($t->{'type'} eq "tree") {
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4519	print "<td class=\"list\">";
				4520	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4521	file_name=>"$basedir$t->{'name'}",
				4522	%base_key)},
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	4523	esc_path($t->{'name'}));
Luben Tuikov	0fa105e	2006-09-26 12:45:37 -0700	[diff] [blame]	4524	print "</td>\n";
				4525	print "<td class=\"link\">";
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4526	print $cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	4527	file_name=>"$basedir$t->{'name'}",
				4528	%base_key)},
Jakub Narebski	e33fba4	2006-12-10 13:25:46 +0100	[diff] [blame]	4529	"tree");
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4530	if (defined $hash_base) {
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	4531	print " \| " .
				4532	$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4533	file_name=>"$basedir$t->{'name'}")},
				4534	"history");
				4535	}
				4536	print "</td>\n";
Jakub Narebski	01ac1e3	2007-07-28 16:27:31 +0200	[diff] [blame]	4537	} else {
				4538	# unknown object: we can only present history for it
				4539	# (this includes 'commit' object, i.e. submodule support)
				4540	print "<td class=\"list\">" .
				4541	esc_path($t->{'name'}) .
				4542	"</td>\n";
				4543	print "<td class=\"link\">";
				4544	if (defined $hash_base) {
				4545	print $cgi->a({-href => href(action=>"history",
				4546	hash_base=>$hash_base,
				4547	file_name=>"$basedir$t->{'name'}")},
				4548	"history");
				4549	}
				4550	print "</td>\n";
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	4551	}
				4552	}
				4553
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	4554	## ......................................................................
				4555	## functions printing large fragments of HTML
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	4556
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4557	# get pre-image filenames for merge (combined) diff
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4558	sub fill_from_file_info {
				4559	my ($diff, @parents) = @_;
				4560
				4561	$diff->{'from_file'} = [ ];
				4562	$diff->{'from_file'}[$diff->{'nparents'} - 1] = undef;
				4563	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
				4564	if ($diff->{'status'}[$i] eq 'R' \|\|
				4565	$diff->{'status'}[$i] eq 'C') {
				4566	$diff->{'from_file'}[$i] =
				4567	git_get_path_by_hash($parents[$i], $diff->{'from_id'}[$i]);
				4568	}
				4569	}
				4570
				4571	return $diff;
				4572	}
				4573
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4574	# is current raw difftree line of file deletion
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4575	sub is_deleted {
				4576	my $diffinfo = shift;
				4577
Jakub Narebski	4ed4a34	2008-04-05 21:13:24 +0100	[diff] [blame]	4578	return $diffinfo->{'to_id'} eq ('0' x 40);
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4579	}
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4580
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4581	# does patch correspond to [previous] difftree raw line
				4582	# $diffinfo - hashref of parsed raw diff format
				4583	# $patchinfo - hashref of parsed patch diff format
				4584	# (the same keys as in $diffinfo)
				4585	sub is_patch_split {
				4586	my ($diffinfo, $patchinfo) = @_;
				4587
				4588	return defined $diffinfo && defined $patchinfo
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	4589	&& $diffinfo->{'to_file'} eq $patchinfo->{'to_file'};
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4590	}
				4591
				4592
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4593	sub git_difftree_body {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4594	my ($difftree, $hash, @parents) = @_;
				4595	my ($parent) = $parents[0];
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	4596	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4597	print "<div class=\"list_head\">\n";
				4598	if ($#{$difftree} > 10) {
				4599	print(($#{$difftree} + 1) . " files changed:\n");
				4600	}
				4601	print "</div>\n";
				4602
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4603	print "<table class=\"" .
				4604	(@parents > 1 ? "combined " : "") .
				4605	"diff_tree\">\n";
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4606
				4607	# header only for combined diff in 'commitdiff' view
Jakub Narebski	3ef408a	2007-09-08 21:54:28 +0200	[diff] [blame]	4608	my $has_header = @$difftree && @parents > 1 && $action eq 'commitdiff';
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4609	if ($has_header) {
				4610	# table header
				4611	print "<thead><tr>\n" .
				4612	"<th></th><th></th>\n"; # filename, patchN link
				4613	for (my $i = 0; $i < @parents; $i++) {
				4614	my $par = $parents[$i];
				4615	print "<th>" .
				4616	$cgi->a({-href => href(action=>"commitdiff",
				4617	hash=>$hash, hash_parent=>$par),
				4618	-title => 'commitdiff to parent number ' .
				4619	($i+1) . ': ' . substr($par,0,7)},
				4620	$i+1) .
				4621	" </th>\n";
				4622	}
				4623	print "</tr></thead>\n<tbody>\n";
				4624	}
				4625
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	4626	my $alternate = 1;
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4627	my $patchno = 0;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4628	foreach my $line (@{$difftree}) {
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4629	my $diff = parsed_difftree_line($line);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4630
				4631	if ($alternate) {
				4632	print "<tr class=\"dark\">\n";
				4633	} else {
				4634	print "<tr class=\"light\">\n";
				4635	}
				4636	$alternate ^= 1;
				4637
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4638	if (exists $diff->{'nparents'}) { # combined diff
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4639
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4640	fill_from_file_info($diff, @parents)
				4641	unless exists $diff->{'from_file'};
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4642
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	4643	if (!is_deleted($diff)) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4644	# file exists in the result (child) commit
				4645	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4646	$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4647	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4648	hash_base=>$hash),
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4649	-class => "list"}, esc_path($diff->{'to_file'})) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4650	"</td>\n";
				4651	} else {
				4652	print "<td>" .
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4653	esc_path($diff->{'to_file'}) .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4654	"</td>\n";
				4655	}
				4656
				4657	if ($action eq 'commitdiff') {
				4658	# link to patch
				4659	$patchno++;
				4660	print "<td class=\"link\">" .
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4661	$cgi->a({-href => href(-anchor=>"patch$patchno")},
				4662	"patch") .
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4663	" \| " .
				4664	"</td>\n";
				4665	}
				4666
				4667	my $has_history = 0;
				4668	my $not_deleted = 0;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4669	for (my $i = 0; $i < $diff->{'nparents'}; $i++) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4670	my $hash_parent = $parents[$i];
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4671	my $from_hash = $diff->{'from_id'}[$i];
				4672	my $from_path = $diff->{'from_file'}[$i];
				4673	my $status = $diff->{'status'}[$i];
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4674
				4675	$has_history \|\|= ($status ne 'A');
				4676	$not_deleted \|\|= ($status ne 'D');
				4677
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4678	if ($status eq 'A') {
				4679	print "<td class=\"link\" align=\"right\"> \| </td>\n";
				4680	} elsif ($status eq 'D') {
				4681	print "<td class=\"link\">" .
				4682	$cgi->a({-href => href(action=>"blob",
				4683	hash_base=>$hash,
				4684	hash=>$from_hash,
				4685	file_name=>$from_path)},
				4686	"blob" . ($i+1)) .
				4687	" \| </td>\n";
				4688	} else {
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4689	if ($diff->{'to_id'} eq $from_hash) {
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4690	print "<td class=\"link nochange\">";
				4691	} else {
				4692	print "<td class=\"link\">";
				4693	}
				4694	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4695	hash=>$diff->{'to_id'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4696	hash_parent=>$from_hash,
				4697	hash_base=>$hash,
				4698	hash_parent_base=>$hash_parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4699	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4700	file_parent=>$from_path)},
				4701	"diff" . ($i+1)) .
				4702	" \| </td>\n";
				4703	}
				4704	}
				4705
				4706	print "<td class=\"link\">";
				4707	if ($not_deleted) {
				4708	print $cgi->a({-href => href(action=>"blob",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4709	hash=>$diff->{'to_id'},
				4710	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4711	hash_base=>$hash)},
				4712	"blob");
				4713	print " \| " if ($has_history);
				4714	}
				4715	if ($has_history) {
				4716	print $cgi->a({-href => href(action=>"history",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4717	file_name=>$diff->{'to_file'},
Jakub Narebski	ed224de	2007-05-07 01:10:04 +0200	[diff] [blame]	4718	hash_base=>$hash)},
				4719	"history");
				4720	}
				4721	print "</td>\n";
				4722
				4723	print "</tr>\n";
				4724	next; # instead of 'else' clause, to avoid extra indent
				4725	}
				4726	# else ordinary diff
				4727
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4728	my ($to_mode_oct, $to_mode_str, $to_file_type);
				4729	my ($from_mode_oct, $from_mode_str, $from_file_type);
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4730	if ($diff->{'to_mode'} ne ('0' x 6)) {
				4731	$to_mode_oct = oct $diff->{'to_mode'};
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4732	if (S_ISREG($to_mode_oct)) { # only for regular file
				4733	$to_mode_str = sprintf("%04o", $to_mode_oct & 0777); # permission bits
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4734	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4735	$to_file_type = file_type($diff->{'to_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4736	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4737	if ($diff->{'from_mode'} ne ('0' x 6)) {
				4738	$from_mode_oct = oct $diff->{'from_mode'};
Ævar Arnfjörð Bjarmason	98885c2	2011-02-19 15:27:42 +0000	[diff] [blame]	4739	if (S_ISREG($from_mode_oct)) { # only for regular file
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4740	$from_mode_str = sprintf("%04o", $from_mode_oct & 0777); # permission bits
				4741	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4742	$from_file_type = file_type($diff->{'from_mode'});
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4743	}
				4744
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4745	if ($diff->{'status'} eq "A") { # created
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4746	my $mode_chng = "<span class=\"file_status new\">[new $to_file_type";
				4747	$mode_chng .= " with mode: $to_mode_str" if $to_mode_str;
				4748	$mode_chng .= "]</span>";
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4749	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4750	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4751	hash_base=>$hash, file_name=>$diff->{'file'}),
				4752	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4753	print "</td>\n";
				4754	print "<td>$mode_chng</td>\n";
				4755	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4756	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4757	# link to patch
				4758	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4759	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4760	"patch") .
				4761	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4762	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4763	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4764	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	3faa541	2007-01-08 02:10:42 +0100	[diff] [blame]	4765	"blob");
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4766	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4767
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4768	} elsif ($diff->{'status'} eq "D") { # deleted
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4769	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]	4770	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4771	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4772	hash_base=>$parent, file_name=>$diff->{'file'}),
				4773	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4774	print "</td>\n";
				4775	print "<td>$mode_chng</td>\n";
				4776	print "<td class=\"link\">";
Jakub Narebski	72dbafa	2006-09-04 18:19:58 +0200	[diff] [blame]	4777	if ($action eq 'commitdiff') {
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4778	# link to patch
				4779	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4780	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4781	"patch") .
				4782	" \| ";
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4783	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4784	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},
				4785	hash_base=>$parent, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4786	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4787	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4788	print $cgi->a({-href => href(action=>"blame", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4789	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4790	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4791	}
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	4792	print $cgi->a({-href => href(action=>"history", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4793	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4794	"history");
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4795	print "</td>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4796
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4797	} 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]	4798	my $mode_chnge = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4799	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4800	$mode_chnge = "<span class=\"file_status mode_chnge\">[changed";
Jakub Narebski	6e72cf4	2007-01-03 20:47:24 +0100	[diff] [blame]	4801	if ($from_file_type ne $to_file_type) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4802	$mode_chnge .= " from $from_file_type to $to_file_type";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4803	}
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4804	if (($from_mode_oct & 0777) != ($to_mode_oct & 0777)) {
				4805	if ($from_mode_str && $to_mode_str) {
				4806	$mode_chnge .= " mode: $from_mode_str->$to_mode_str";
				4807	} elsif ($to_mode_str) {
				4808	$mode_chnge .= " mode: $to_mode_str";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4809	}
				4810	}
				4811	$mode_chnge .= "]</span>\n";
				4812	}
				4813	print "<td>";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4814	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4815	hash_base=>$hash, file_name=>$diff->{'file'}),
				4816	-class => "list"}, esc_path($diff->{'file'}));
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4817	print "</td>\n";
				4818	print "<td>$mode_chnge</td>\n";
				4819	print "<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4820	if ($action eq 'commitdiff') {
				4821	# link to patch
				4822	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4823	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4824	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4825	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4826	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4827	# "commit" view and modified file (not onlu mode changed)
				4828	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4829	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4830	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4831	file_name=>$diff->{'file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4832	"diff") .
				4833	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4834	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4835	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4836	hash_base=>$hash, file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4837	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4838	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4839	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4840	file_name=>$diff->{'file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4841	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4842	}
Luben Tuikov	eb51ec9	2006-09-27 17:24:49 -0700	[diff] [blame]	4843	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4844	file_name=>$diff->{'file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4845	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4846	print "</td>\n";
				4847
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4848	} elsif ($diff->{'status'} eq "R" \|\| $diff->{'status'} eq "C") { # renamed or copied
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4849	my %status_name = ('R' => 'moved', 'C' => 'copied');
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4850	my $nstatus = $status_name{$diff->{'status'}};
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4851	my $mode_chng = "";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4852	if ($diff->{'from_mode'} != $diff->{'to_mode'}) {
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4853	# mode also for directories, so we cannot use $to_mode_str
				4854	$mode_chng = sprintf(", mode: %04o", $to_mode_oct & 0777);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4855	}
				4856	print "<td>" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4857	$cgi->a({-href => href(action=>"blob", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4858	hash=>$diff->{'to_id'}, file_name=>$diff->{'to_file'}),
				4859	-class => "list"}, esc_path($diff->{'to_file'})) . "</td>\n" .
Jakub Narebski	e8e41a9	2006-08-21 23:08:52 +0200	[diff] [blame]	4860	"<td><span class=\"file_status $nstatus\">[$nstatus from " .
				4861	$cgi->a({-href => href(action=>"blob", hash_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4862	hash=>$diff->{'from_id'}, file_name=>$diff->{'from_file'}),
				4863	-class => "list"}, esc_path($diff->{'from_file'})) .
				4864	" with " . (int $diff->{'similarity'}) . "% similarity$mode_chng]</span></td>\n" .
Luben Tuikov	499faed	2006-09-27 17:23:25 -0700	[diff] [blame]	4865	"<td class=\"link\">";
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4866	if ($action eq 'commitdiff') {
				4867	# link to patch
				4868	$patchno++;
Kevin Cernekee	5e96a84	2011-03-18 17:00:16 +0100	[diff] [blame]	4869	print $cgi->a({-href => href(-anchor=>"patch$patchno")},
				4870	"patch") .
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4871	" \| ";
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4872	} elsif ($diff->{'to_id'} ne $diff->{'from_id'}) {
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4873	# "commit" view and modified file (not only pure rename or copy)
				4874	print $cgi->a({-href => href(action=>"blobdiff",
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4875	hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4876	hash_base=>$hash, hash_parent_base=>$parent,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4877	file_name=>$diff->{'to_file'}, file_parent=>$diff->{'from_file'})},
Jakub Narebski	241cc59	2006-10-31 17:36:27 +0100	[diff] [blame]	4878	"diff") .
				4879	" \| ";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4880	}
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4881	print $cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},
				4882	hash_base=>$parent, file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4883	"blob") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4884	if ($have_blame) {
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4885	print $cgi->a({-href => href(action=>"blame", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4886	file_name=>$diff->{'to_file'})},
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4887	"blame") . " \| ";
Junio C Hamano	2b2a8c7	2006-11-08 12:22:04 -0800	[diff] [blame]	4888	}
Jakub Narebski	897d1d2	2006-11-19 22:51:39 +0100	[diff] [blame]	4889	print $cgi->a({-href => href(action=>"history", hash_base=>$hash,
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	4890	file_name=>$diff->{'to_file'})},
Jakub Narebski	e7fb022	2006-10-21 17:52:19 +0200	[diff] [blame]	4891	"history");
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4892	print "</td>\n";
				4893
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4894	} # we should not encounter Unmerged (U) or Unknown (X) status
				4895	print "</tr>\n";
				4896	}
Jakub Narebski	47598d7	2007-06-08 13:24:56 +0200	[diff] [blame]	4897	print "</tbody>" if $has_header;
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	4898	print "</table>\n";
				4899	}
				4900
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4901	sub print_sidebyside_diff_chunk {
				4902	my @chunk = @_;
				4903	my (@ctx, @rem, @add);
				4904
				4905	return unless @chunk;
				4906
				4907	# incomplete last line might be among removed or added lines,
				4908	# or both, or among context lines: find which
				4909	for (my $i = 1; $i < @chunk; $i++) {
				4910	if ($chunk[$i][0] eq 'incomplete') {
				4911	$chunk[$i][0] = $chunk[$i-1][0];
				4912	}
				4913	}
				4914
				4915	# guardian
				4916	push @chunk, ["", ""];
				4917
				4918	foreach my $line_info (@chunk) {
				4919	my ($class, $line) = @$line_info;
				4920
				4921	# print chunk headers
				4922	if ($class && $class eq 'chunk_header') {
				4923	print $line;
				4924	next;
				4925	}
				4926
				4927	## print from accumulator when type of class of lines change
				4928	# empty contents block on start rem/add block, or end of chunk
				4929	if (@ctx && (!$class \|\| $class eq 'rem' \|\| $class eq 'add')) {
				4930	print join '',
Jakub Narebski	970fac5	2011-10-31 00:36:23 +0100	[diff] [blame]	4931	'<div class="chunk_block ctx">',
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4932	'<div class="old">',
				4933	@ctx,
				4934	'</div>',
				4935	'<div class="new">',
				4936	@ctx,
				4937	'</div>',
				4938	'</div>';
				4939	@ctx = ();
				4940	}
				4941	# empty add/rem block on start context block, or end of chunk
				4942	if ((@rem \|\| @add) && (!$class \|\| $class eq 'ctx')) {
Jakub Narebski	970fac5	2011-10-31 00:36:23 +0100	[diff] [blame]	4943	if (!@add) {
				4944	# pure removal
				4945	print join '',
				4946	'<div class="chunk_block rem">',
				4947	'<div class="old">',
				4948	@rem,
				4949	'</div>',
				4950	'</div>';
				4951	} elsif (!@rem) {
				4952	# pure addition
				4953	print join '',
				4954	'<div class="chunk_block add">',
				4955	'<div class="new">',
				4956	@add,
				4957	'</div>',
				4958	'</div>';
				4959	} else {
				4960	# assume that it is change
				4961	print join '',
				4962	'<div class="chunk_block chg">',
				4963	'<div class="old">',
				4964	@rem,
				4965	'</div>',
				4966	'<div class="new">',
				4967	@add,
				4968	'</div>',
				4969	'</div>';
				4970	}
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4971	@rem = @add = ();
				4972	}
				4973
				4974	## adding lines to accumulator
				4975	# guardian value
				4976	last unless $line;
				4977	# rem, add or change
				4978	if ($class eq 'rem') {
				4979	push @rem, $line;
				4980	} elsif ($class eq 'add') {
				4981	push @add, $line;
				4982	}
				4983	# context line
				4984	if ($class eq 'ctx') {
				4985	push @ctx, $line;
				4986	}
				4987	}
				4988	}
				4989
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	4990	sub git_patchset_body {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	4991	my ($fd, $diff_style, $difftree, $hash, @hash_parents) = @_;
Jakub Narebski	e72c0ea	2007-05-07 01:10:05 +0200	[diff] [blame]	4992	my ($hash_parent) = $hash_parents[0];
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	4993
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4994	my $is_combined = (@hash_parents > 1);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	4995	my $patch_idx = 0;
Martin Koegler	4280cde	2007-04-22 22:49:25 -0700	[diff] [blame]	4996	my $patch_number = 0;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	4997	my $patch_line;
Jakub Narebski	fe87585	2006-08-25 20:59:39 +0200	[diff] [blame]	4998	my $diffinfo;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	4999	my $to_name;
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5000	my (%from, %to);
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5001	my @chunk; # for side-by-side diff
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5002
				5003	print "<div class=\"patchset\">\n";
				5004
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5005	# skip to first patch
				5006	while ($patch_line = <$fd>) {
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	5007	chomp $patch_line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5008
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5009	last if ($patch_line =~ m/^diff /);
				5010	}
				5011
				5012	PATCH:
				5013	while ($patch_line) {
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5014
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5015	# parse "git diff" header line
				5016	if ($patch_line =~ m/^diff --git (\"(?:[^\\\"](?:\\.[^\\\"]))\"\|[^ "]) (.*)$/) {
				5017	# $1 is from_name, which we do not use
				5018	$to_name = unquote($2);
				5019	$to_name =~ s!^b/!!;
				5020	} elsif ($patch_line =~ m/^diff --(cc\|combined) ("?.*"?)$/) {
				5021	# $1 is 'cc' or 'combined', which we do not use
				5022	$to_name = unquote($2);
				5023	} else {
				5024	$to_name = undef;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5025	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5026
				5027	# check if current patch belong to current raw line
				5028	# and parse raw git-diff line if needed
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5029	if (is_patch_split($diffinfo, { 'to_file' => $to_name })) {
Jakub Narebski	2206537	2007-05-12 12:42:32 +0200	[diff] [blame]	5030	# this is continuation of a split patch
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5031	print "<div class=\"patch cont\">\n";
				5032	} else {
				5033	# advance raw git-diff output if needed
				5034	$patch_idx++ if defined $diffinfo;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5035
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5036	# read and prepare patch information
				5037	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
				5038
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5039	# compact combined diff output can have some patches skipped
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5040	# find which patch (using pathname of result) we are at now;
				5041	if ($is_combined) {
				5042	while ($to_name ne $diffinfo->{'to_file'}) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5043	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5044	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5045	"</div>\n"; # class="patch"
				5046
				5047	$patch_idx++;
				5048	$patch_number++;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5049
				5050	last if $patch_idx > $#$difftree;
				5051	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5052	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5053	}
Jakub Narebski	711fa74	2007-09-08 21:49:11 +0200	[diff] [blame]	5054
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5055	# modifies %from, %to hashes
				5056	parse_from_to_diffinfo($diffinfo, \%from, \%to, @hash_parents);
Jakub Narebski	5f85505	2007-05-17 22:54:28 +0200	[diff] [blame]	5057
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5058	# this is first patch for raw difftree line with $patch_idx index
				5059	# we index @$difftree array from 0, but number patches from 1
				5060	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n";
Jakub Narebski	744d0ac	2006-11-08 17:59:41 +0100	[diff] [blame]	5061	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5062
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5063	# git diff header
				5064	#assert($patch_line =~ m/^diff /) if DEBUG;
				5065	#assert($patch_line !~ m!$/$!) if DEBUG; # is chomp-ed
				5066	$patch_number++;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5067	# print "git diff" header
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5068	print format_git_diff_header_line($patch_line, $diffinfo,
				5069	\%from, \%to);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5070
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5071	# print extended diff header
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5072	print "<div class=\"diff extended_header\">\n";
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5073	EXTENDED_HEADER:
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5074	while ($patch_line = <$fd>) {
				5075	chomp $patch_line;
				5076
				5077	last EXTENDED_HEADER if ($patch_line =~ m/^--- \|^diff /);
				5078
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5079	print format_extended_diff_header_line($patch_line, $diffinfo,
				5080	\%from, \%to);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5081	}
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5082	print "</div>\n"; # class="diff extended_header"
Jakub Narebski	e4e4f82	2006-08-25 21:04:13 +0200	[diff] [blame]	5083
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5084	# from-file/to-file diff header
Jakub Narebski	0bdb28c	2007-01-10 00:07:43 +0100	[diff] [blame]	5085	if (! $patch_line) {
				5086	print "</div>\n"; # class="patch"
				5087	last PATCH;
				5088	}
Jakub Narebski	66399ef	2007-01-07 02:52:25 +0100	[diff] [blame]	5089	next PATCH if ($patch_line =~ m/^diff /);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5090	#assert($patch_line =~ m/^---/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5091
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5092	my $last_patch_line = $patch_line;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5093	$patch_line = <$fd>;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5094	chomp $patch_line;
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5095	#assert($patch_line =~ m/^\+\+\+/) if DEBUG;
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5096
Jakub Narebski	9092174	2007-06-08 13:27:42 +0200	[diff] [blame]	5097	print format_diff_from_to_header($last_patch_line, $patch_line,
Jakub Narebski	91af4ce	2007-06-08 13:32:44 +0200	[diff] [blame]	5098	$diffinfo, \%from, \%to,
				5099	@hash_parents);
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5100
				5101	# the patch itself
				5102	LINE:
				5103	while ($patch_line = <$fd>) {
				5104	chomp $patch_line;
				5105
				5106	next PATCH if ($patch_line =~ m/^diff /);
				5107
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5108	my ($class, $line) = process_diff_line($patch_line, \%from, \%to);
				5109	my $diff_classes = "diff";
				5110	$diff_classes .= " $class" if ($class);
				5111	$line = "<div class=\"$diff_classes\">$line</div>\n";
				5112
				5113	if ($diff_style eq 'sidebyside' && !$is_combined) {
				5114	if ($class eq 'chunk_header') {
				5115	print_sidebyside_diff_chunk(@chunk);
				5116	@chunk = ( [ $class, $line ] );
				5117	} else {
				5118	push @chunk, [ $class, $line ];
				5119	}
				5120	} else {
				5121	# default 'inline' style and unknown styles
				5122	print $line;
				5123	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5124	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5125
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5126	} continue {
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	5127	if (@chunk) {
				5128	print_sidebyside_diff_chunk(@chunk);
				5129	@chunk = ();
				5130	}
Jakub Narebski	6d55f05	2006-11-18 23:35:39 +0100	[diff] [blame]	5131	print "</div>\n"; # class="patch"
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5132	}
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5133
Ralf Wildenhues	22e5e58	2010-08-22 13:12:12 +0200	[diff] [blame]	5134	# for compact combined (--cc) format, with chunk and patch simplification
				5135	# the patchset might be empty, but there might be unprocessed raw lines
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5136	for (++$patch_idx if $patch_number > 0;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5137	$patch_idx < @$difftree;
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5138	++$patch_idx) {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5139	# read and prepare patch information
Jakub Narebski	0cec6db	2007-10-30 01:35:05 +0100	[diff] [blame]	5140	$diffinfo = parsed_difftree_line($difftree->[$patch_idx]);
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	5141
				5142	# generate anchor for "patch" links in difftree / whatchanged part
				5143	print "<div class=\"patch\" id=\"patch". ($patch_idx+1) ."\">\n" .
				5144	format_diff_cc_simplified($diffinfo, @hash_parents) .
				5145	"</div>\n"; # class="patch"
				5146
				5147	$patch_number++;
				5148	}
				5149
Jakub Narebski	d26c426	2007-05-17 00:05:55 +0200	[diff] [blame]	5150	if ($patch_number == 0) {
				5151	if (@hash_parents > 1) {
				5152	print "<div class=\"diff nodifferences\">Trivial merge</div>\n";
				5153	} else {
				5154	print "<div class=\"diff nodifferences\">No differences found</div>\n";
				5155	}
				5156	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	5157
				5158	print "</div>\n"; # class="patchset"
				5159	}
				5160
				5161	# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
				5162
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5163	sub git_project_search_form {
				5164	my ($searchtext, $search_use_regexp);
				5165
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5166	my $limit = '';
				5167	if ($project_filter) {
				5168	$limit = " in '$project_filter/'";
				5169	}
				5170
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5171	print "<div class=\"projsearch\">\n";
				5172	print $cgi->startform(-method => 'get', -action => $my_uri) .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5173	$cgi->hidden(-name => 'a', -value => 'project_list') . "\n";
				5174	print $cgi->hidden(-name => 'pf', -value => $project_filter). "\n"
				5175	if (defined $project_filter);
				5176	print $cgi->textfield(-name => 's', -value => $searchtext,
				5177	-title => "Search project by name and description$limit",
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5178	-size => 60) . "\n" .
				5179	"<span title=\"Extended regular expression\">" .
				5180	$cgi->checkbox(-name => 'sr', -value => 1, -label => 're',
				5181	-checked => $search_use_regexp) .
				5182	"</span>\n" .
				5183	$cgi->submit(-name => 'btnS', -value => 'Search') .
				5184	$cgi->end_form() . "\n" .
Jakub Narebski	abc0c9d	2012-01-31 01:20:55 +0100	[diff] [blame]	5185	$cgi->a({-href => href(project => undef, searchtext => undef,
				5186	project_filter => $project_filter)},
				5187	esc_html("List all projects$limit")) . "<br />\n";
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	5188	print "</div>\n";
				5189	}
				5190
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5191	# fills project list info (age, description, owner, category, forks)
				5192	# for each project in the list, removing invalid projects from
				5193	# returned list
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5194	# NOTE: modifies $projlist, but does not remove entries from it
				5195	sub fill_project_list_info {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5196	my $projlist = shift;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5197	my @projects;
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5198
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5199	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5200	PROJECT:
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5201	foreach my $pr (@$projlist) {
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5202	my (@activity) = git_get_last_activity($pr->{'path'});
				5203	unless (@activity) {
				5204	next PROJECT;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5205	}
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5206	($pr->{'age'}, $pr->{'age_string'}) = @activity;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5207	if (!defined $pr->{'descr'}) {
				5208	my $descr = git_get_project_description($pr->{'path'}) \|\| "";
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5209	$descr = to_utf8($descr);
				5210	$pr->{'descr_long'} = $descr;
Michael Hendricks	55feb12	2007-07-04 18:36:48 -0600	[diff] [blame]	5211	$pr->{'descr'} = chop_str($descr, $projects_list_description_width, 5);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5212	}
				5213	if (!defined $pr->{'owner'}) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	5214	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}") \|\| "";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5215	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5216	if ($show_ctags) {
				5217	$pr->{'ctags'} = git_get_project_ctags($pr->{'path'});
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5218	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5219	if ($projects_list_group_categories && !defined $pr->{'category'}) {
				5220	my $cat = git_get_project_category($pr->{'path'}) \|\|
				5221	$project_list_default_category;
				5222	$pr->{'category'} = to_utf8($cat);
				5223	}
				5224
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5225	push @projects, $pr;
				5226	}
				5227
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5228	return @projects;
				5229	}
				5230
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5231	sub sort_projects_list {
				5232	my ($projlist, $order) = @_;
				5233	my @projects;
				5234
				5235	my %order_info = (
				5236	project => { key => 'path', type => 'str' },
				5237	descr => { key => 'descr_long', type => 'str' },
				5238	owner => { key => 'owner', type => 'str' },
				5239	age => { key => 'age', type => 'num' }
				5240	);
				5241	my $oi = $order_info{$order};
				5242	return @$projlist unless defined $oi;
				5243	if ($oi->{'type'} eq 'str') {
				5244	@projects = sort {$a->{$oi->{'key'}} cmp $b->{$oi->{'key'}}} @$projlist;
				5245	} else {
				5246	@projects = sort {$a->{$oi->{'key'}} <=> $b->{$oi->{'key'}}} @$projlist;
				5247	}
				5248
				5249	return @projects;
				5250	}
				5251
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5252	# returns a hash of categories, containing the list of project
				5253	# belonging to each category
				5254	sub build_projlist_by_category {
				5255	my ($projlist, $from, $to) = @_;
				5256	my %categories;
				5257
				5258	$from = 0 unless defined $from;
				5259	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5260
				5261	for (my $i = $from; $i <= $to; $i++) {
				5262	my $pr = $projlist->[$i];
				5263	push @{$categories{ $pr->{'category'} }}, $pr;
				5264	}
				5265
				5266	return wantarray ? %categories : \%categories;
				5267	}
				5268
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5269	# print 'sort by' <th> element, generating 'sort by $name' replay link
				5270	# if that order is not selected
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5271	sub print_sort_th {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5272	print format_sort_th(@_);
				5273	}
				5274
				5275	sub format_sort_th {
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5276	my ($name, $order, $header) = @_;
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5277	my $sort_th = "";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5278	$header \|\|= ucfirst($name);
				5279
				5280	if ($order eq $name) {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5281	$sort_th .= "<th>$header</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5282	} else {
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5283	$sort_th .= "<th>" .
				5284	$cgi->a({-href => href(-replay=>1, order=>$name),
				5285	-class => "header"}, $header) .
				5286	"</th>\n";
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5287	}
John 'Warthog9' Hawley	1ee4b4e	2010-01-30 23:30:43 +0100	[diff] [blame]	5288
				5289	return $sort_th;
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5290	}
				5291
Sebastien Cevey	0fa920c	2011-04-29 19:51:59 +0200	[diff] [blame]	5292	sub git_project_list_rows {
				5293	my ($projlist, $from, $to, $check_forks) = @_;
				5294
				5295	$from = 0 unless defined $from;
				5296	$to = $#$projlist if (!defined $to \|\| $#$projlist < $to);
				5297
				5298	my $alternate = 1;
				5299	for (my $i = $from; $i <= $to; $i++) {
				5300	my $pr = $projlist->[$i];
				5301
				5302	if ($alternate) {
				5303	print "<tr class=\"dark\">\n";
				5304	} else {
				5305	print "<tr class=\"light\">\n";
				5306	}
				5307	$alternate ^= 1;
				5308
				5309	if ($check_forks) {
				5310	print "<td>";
				5311	if ($pr->{'forks'}) {
				5312	my $nforks = scalar @{$pr->{'forks'}};
				5313	if ($nforks > 0) {
				5314	print $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks"),
				5315	-title => "$nforks forks"}, "+");
				5316	} else {
				5317	print $cgi->span({-title => "$nforks forks"}, "+");
				5318	}
				5319	}
				5320	print "</td>\n";
				5321	}
				5322	print "<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
				5323	-class => "list"}, esc_html($pr->{'path'})) . "</td>\n" .
				5324	"<td>" . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),
				5325	-class => "list", -title => $pr->{'descr_long'}},
				5326	esc_html($pr->{'descr'})) . "</td>\n" .
				5327	"<td><i>" . chop_and_escape_str($pr->{'owner'}, 15) . "</i></td>\n";
				5328	print "<td class=\"". age_class($pr->{'age'}) . "\">" .
				5329	(defined $pr->{'age_string'} ? $pr->{'age_string'} : "No commits") . "</td>\n" .
				5330	"<td class=\"link\">" .
				5331	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary")}, "summary") . " \| " .
				5332	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"shortlog")}, "shortlog") . " \| " .
				5333	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")}, "log") . " \| " .
				5334	$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")}, "tree") .
				5335	($pr->{'forks'} ? " \| " . $cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")}, "forks") : '') .
				5336	"</td>\n" .
				5337	"</tr>\n";
				5338	}
				5339	}
				5340
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5341	sub git_project_list_body {
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5342	# actually uses global variable $project
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5343	my ($projlist, $order, $from, $to, $extra, $no_header) = @_;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5344	my @projects = @$projlist;
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5345
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	5346	my $check_forks = gitweb_check_feature('forks');
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5347	my $show_ctags = gitweb_check_feature('ctags');
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	5348	my $tagfilter = $show_ctags ? $input_params{'ctag'} : undef;
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5349	$check_forks = undef
				5350	if ($tagfilter \|\| $searchtext);
				5351
				5352	# filtering out forks before filling info allows to do less work
				5353	@projects = filter_forks_from_projects_list(\@projects)
				5354	if ($check_forks);
				5355	@projects = fill_project_list_info(\@projects);
				5356	# searching projects require filling to be run before it
				5357	@projects = search_projects_list(\@projects,
				5358	'searchtext' => $searchtext,
				5359	'tagfilter' => $tagfilter)
				5360	if ($tagfilter \|\| $searchtext);
Jakub Narebski	6991341	2008-06-10 19:21:01 +0200	[diff] [blame]	5361
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	5362	$order \|\|= $default_projects_order;
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5363	$from = 0 unless defined $from;
				5364	$to = $#projects if (!defined $to \|\| $#projects < $to);
				5365
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5366	# short circuit
				5367	if ($from > $to) {
				5368	print "<center>\n".
				5369	"<b>No such projects found</b><br />\n".
				5370	"Click ".$cgi->a({-href=>href(project=>undef)},"here")." to view all projects<br />\n".
				5371	"</center>\n<br />\n";
				5372	return;
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5373	}
				5374
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5375	@projects = sort_projects_list(\@projects, $order);
				5376
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5377	if ($show_ctags) {
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	5378	my $ctags = git_gather_all_ctags(\@projects);
				5379	my $cloud = git_populate_project_tagcloud($ctags);
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	5380	print git_show_project_tagcloud($cloud, 64);
				5381	}
				5382
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5383	print "<table class=\"project_list\">\n";
				5384	unless ($no_header) {
				5385	print "<tr>\n";
				5386	if ($check_forks) {
				5387	print "<th></th>\n";
				5388	}
Petr Baudis	6b28da6	2008-09-25 18:48:37 +0200	[diff] [blame]	5389	print_sort_th('project', $order, 'Project');
				5390	print_sort_th('descr', $order, 'Description');
				5391	print_sort_th('owner', $order, 'Owner');
				5392	print_sort_th('age', $order, 'Last Change');
Jakub Narebski	7da0f3a	2008-06-10 19:21:44 +0200	[diff] [blame]	5393	print "<th></th>\n" . # for links
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5394	"</tr>\n";
				5395	}
Petr Baudis	4232611	2008-10-02 17:17:01 +0200	[diff] [blame]	5396
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5397	if ($projects_list_group_categories) {
				5398	# only display categories with projects in the $from-$to window
				5399	@projects = sort {$a->{'category'} cmp $b->{'category'}} @projects[$from..$to];
				5400	my %categories = build_projlist_by_category(\@projects, $from, $to);
				5401	foreach my $cat (sort keys %categories) {
				5402	unless ($cat eq "") {
				5403	print "<tr>\n";
				5404	if ($check_forks) {
				5405	print "<td></td>\n";
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5406	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5407	print "<td class=\"category\" colspan=\"5\">".esc_html($cat)."</td>\n";
				5408	print "</tr>\n";
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5409	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5410
				5411	git_project_list_rows($categories{$cat}, undef, undef, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5412	}
Sebastien Cevey	d940c90	2011-04-29 19:52:01 +0200	[diff] [blame]	5413	} else {
				5414	git_project_list_rows(\@projects, $from, $to, $check_forks);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5415	}
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	5416
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	5417	if (defined $extra) {
				5418	print "<tr>\n";
				5419	if ($check_forks) {
				5420	print "<td></td>\n";
				5421	}
				5422	print "<td colspan=\"5\">$extra</td>\n" .
				5423	"</tr>\n";
				5424	}
				5425	print "</table>\n";
				5426	}
				5427
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5428	sub git_log_body {
				5429	# uses global variable $project
				5430	my ($commitlist, $from, $to, $refs, $extra) = @_;
				5431
				5432	$from = 0 unless defined $from;
				5433	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
				5434
				5435	for (my $i = 0; $i <= $to; $i++) {
				5436	my %co = %{$commitlist->[$i]};
				5437	next if !%co;
				5438	my $commit = $co{'id'};
				5439	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	5440	git_print_header_div('commit',
				5441	"<span class=\"age\">$co{'age_string'}</span>" .
				5442	esc_html($co{'title'}) . $ref,
				5443	$commit);
				5444	print "<div class=\"title_text\">\n" .
				5445	"<div class=\"log_link\">\n" .
				5446	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") .
				5447	" \| " .
				5448	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") .
				5449	" \| " .
				5450	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree") .
				5451	"<br/>\n" .
				5452	"</div>\n";
				5453	git_print_authorship(\%co, -tag => 'span');
				5454	print "<br/>\n</div>\n";
				5455
				5456	print "<div class=\"log_body\">\n";
				5457	git_print_log($co{'comment'}, -final_empty_line=> 1);
				5458	print "</div>\n";
				5459	}
				5460	if ($extra) {
				5461	print "<div class=\"page_nav\">\n";
				5462	print "$extra\n";
				5463	print "</div>\n";
				5464	}
				5465	}
				5466
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5467	sub git_shortlog_body {
				5468	# uses global variable $project
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5469	my ($commitlist, $from, $to, $refs, $extra) = @_;
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	5470
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5471	$from = 0 unless defined $from;
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5472	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5473
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5474	print "<table class=\"shortlog\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5475	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5476	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	190d7fd	2006-12-24 14:31:44 +0000	[diff] [blame]	5477	my %co = %{$commitlist->[$i]};
				5478	my $commit = $co{'id'};
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	5479	my $ref = format_ref_marker($refs, $commit);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5480	if ($alternate) {
				5481	print "<tr class=\"dark\">\n";
				5482	} else {
				5483	print "<tr class=\"light\">\n";
				5484	}
				5485	$alternate ^= 1;
				5486	# git_summary() used print "<td><i>$co{'age_string'}</i></td>\n" .
				5487	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]	5488	format_author_html('td', \%co, 10) . "<td>";
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5489	print format_subject_html($co{'title'}, $co{'title_short'},
				5490	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5491	print "</td>\n" .
				5492	"<td class=\"link\">" .
Petr Baudis	4777b01	2006-10-24 05:36:10 +0200	[diff] [blame]	5493	$cgi->a({-href => href(action=>"commit", hash=>$commit)}, "commit") . " \| " .
Petr Baudis	35749ae	2006-09-22 03:19:44 +0200	[diff] [blame]	5494	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff") . " \| " .
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5495	$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)}, "tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	5496	my $snapshot_links = format_snapshot_links($commit);
				5497	if (defined $snapshot_links) {
				5498	print " \| " . $snapshot_links;
Petr Baudis	55ff35c	2006-10-06 15:57:52 +0200	[diff] [blame]	5499	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	5500	print "</td>\n" .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5501	"</tr>\n";
				5502	}
				5503	if (defined $extra) {
				5504	print "<tr>\n" .
				5505	"<td colspan=\"4\">$extra</td>\n" .
				5506	"</tr>\n";
				5507	}
				5508	print "</table>\n";
				5509	}
				5510
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5511	sub git_history_body {
				5512	# Warning: assumes constant type (blob or tree) during history
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5513	my ($commitlist, $from, $to, $refs, $extra,
				5514	$file_name, $file_hash, $ftype) = @_;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5515
				5516	$from = 0 unless defined $from;
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5517	$to = $#{$commitlist} unless (defined $to && $to <= $#{$commitlist});
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5518
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5519	print "<table class=\"history\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5520	my $alternate = 1;
Jakub Narebski	8be6835	2006-09-11 00:36:04 +0200	[diff] [blame]	5521	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5522	my %co = %{$commitlist->[$i]};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5523	if (!%co) {
				5524	next;
				5525	}
Robert Fitzsimons	a8b983b	2006-12-24 14:31:48 +0000	[diff] [blame]	5526	my $commit = $co{'id'};
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5527
				5528	my $ref = format_ref_marker($refs, $commit);
				5529
				5530	if ($alternate) {
				5531	print "<tr class=\"dark\">\n";
				5532	} else {
				5533	print "<tr class=\"light\">\n";
				5534	}
				5535	$alternate ^= 1;
				5536	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]	5537	# shortlog: format_author_html('td', \%co, 10)
				5538	format_author_html('td', \%co, 15, 3) . "<td>";
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5539	# originally git_history used chop_str($co{'title'}, 50)
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5540	print format_subject_html($co{'title'}, $co{'title_short'},
				5541	href(action=>"commit", hash=>$commit), $ref);
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5542	print "</td>\n" .
				5543	"<td class=\"link\">" .
Luben Tuikov	6d81c5a	2006-09-28 17:21:07 -0700	[diff] [blame]	5544	$cgi->a({-href => href(action=>$ftype, hash_base=>$commit, file_name=>$file_name)}, $ftype) . " \| " .
				5545	$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)}, "commitdiff");
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5546
				5547	if ($ftype eq 'blob') {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	5548	my $blob_current = $file_hash;
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5549	my $blob_parent = git_get_hash_by_path($commit, $file_name);
				5550	if (defined $blob_current && defined $blob_parent &&
				5551	$blob_current ne $blob_parent) {
				5552	print " \| " .
Jakub Narebski	420e92f	2006-08-24 23:53:54 +0200	[diff] [blame]	5553	$cgi->a({-href => href(action=>"blobdiff",
				5554	hash=>$blob_current, hash_parent=>$blob_parent,
				5555	hash_base=>$hash_base, hash_parent_base=>$commit,
				5556	file_name=>$file_name)},
Jakub Narebski	581860e	2006-08-14 02:09:08 +0200	[diff] [blame]	5557	"diff to current");
				5558	}
				5559	}
				5560	print "</td>\n" .
				5561	"</tr>\n";
				5562	}
				5563	if (defined $extra) {
				5564	print "<tr>\n" .
				5565	"<td colspan=\"4\">$extra</td>\n" .
				5566	"</tr>\n";
				5567	}
				5568	print "</table>\n";
				5569	}
				5570
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5571	sub git_tags_body {
				5572	# uses global variable $project
				5573	my ($taglist, $from, $to, $extra) = @_;
				5574	$from = 0 unless defined $from;
				5575	$to = $#{$taglist} if (!defined $to \|\| $#{$taglist} < $to);
				5576
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5577	print "<table class=\"tags\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5578	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5579	for (my $i = $from; $i <= $to; $i++) {
				5580	my $entry = $taglist->[$i];
				5581	my %tag = %$entry;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5582	my $comment = $tag{'subject'};
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5583	my $comment_short;
				5584	if (defined $comment) {
				5585	$comment_short = chop_str($comment, 30, 5);
				5586	}
				5587	if ($alternate) {
				5588	print "<tr class=\"dark\">\n";
				5589	} else {
				5590	print "<tr class=\"light\">\n";
				5591	}
				5592	$alternate ^= 1;
Jakub Narebski	27dd1a8	2007-01-03 22:54:29 +0100	[diff] [blame]	5593	if (defined $tag{'age'}) {
				5594	print "<td><i>$tag{'age'}</i></td>\n";
				5595	} else {
				5596	print "<td></td>\n";
				5597	}
				5598	print "<td>" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5599	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),
Jakub Narebski	63e4220	2006-08-22 12:38:59 +0200	[diff] [blame]	5600	-class => "list name"}, esc_html($tag{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5601	"</td>\n" .
				5602	"<td>";
				5603	if (defined $comment) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	5604	print format_subject_html($comment, $comment_short,
				5605	href(action=>"tag", hash=>$tag{'id'}));
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5606	}
				5607	print "</td>\n" .
				5608	"<td class=\"selflink\">";
				5609	if ($tag{'type'} eq "tag") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5610	print $cgi->a({-href => href(action=>"tag", hash=>$tag{'id'})}, "tag");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5611	} else {
				5612	print " ";
				5613	}
				5614	print "</td>\n" .
				5615	"<td class=\"link\">" . " \| " .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5616	$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'})}, $tag{'reftype'});
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5617	if ($tag{'reftype'} eq "commit") {
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5618	print " \| " . $cgi->a({-href => href(action=>"shortlog", hash=>$tag{'fullname'})}, "shortlog") .
				5619	" \| " . $cgi->a({-href => href(action=>"log", hash=>$tag{'fullname'})}, "log");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5620	} elsif ($tag{'reftype'} eq "blob") {
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	5621	print " \| " . $cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})}, "raw");
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5622	}
				5623	print "</td>\n" .
				5624	"</tr>";
				5625	}
				5626	if (defined $extra) {
				5627	print "<tr>\n" .
				5628	"<td colspan=\"5\">$extra</td>\n" .
				5629	"</tr>\n";
				5630	}
				5631	print "</table>\n";
				5632	}
				5633
				5634	sub git_heads_body {
				5635	# uses global variable $project
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5636	my ($headlist, $head, $from, $to, $extra) = @_;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5637	$from = 0 unless defined $from;
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5638	$to = $#{$headlist} if (!defined $to \|\| $#{$headlist} < $to);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5639
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5640	print "<table class=\"heads\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	5641	my $alternate = 1;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5642	for (my $i = $from; $i <= $to; $i++) {
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	5643	my $entry = $headlist->[$i];
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5644	my %ref = %$entry;
				5645	my $curr = $ref{'id'} eq $head;
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5646	if ($alternate) {
				5647	print "<tr class=\"dark\">\n";
				5648	} else {
				5649	print "<tr class=\"light\">\n";
				5650	}
				5651	$alternate ^= 1;
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5652	print "<td><i>$ref{'age'}</i></td>\n" .
				5653	($curr ? "<td class=\"current_head\">" : "<td>") .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5654	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'}),
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	5655	-class => "list name"},esc_html($ref{'name'})) .
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	5656	"</td>\n" .
				5657	"<td class=\"link\">" .
Jakub Narebski	bf901f8	2007-12-15 15:40:28 +0100	[diff] [blame]	5658	$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'})}, "shortlog") . " \| " .
				5659	$cgi->a({-href => href(action=>"log", hash=>$ref{'fullname'})}, "log") . " \| " .
Giuseppe Bilotta	9e70e15	2010-11-11 13:26:08 +0100	[diff] [blame]	5660	$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]	5661	"</td>\n" .
				5662	"</tr>";
				5663	}
				5664	if (defined $extra) {
				5665	print "<tr>\n" .
				5666	"<td colspan=\"3\">$extra</td>\n" .
				5667	"</tr>\n";
				5668	}
				5669	print "</table>\n";
				5670	}
				5671
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	5672	# Display a single remote block
				5673	sub git_remote_block {
				5674	my ($remote, $rdata, $limit, $head) = @_;
				5675
				5676	my $heads = $rdata->{'heads'};
				5677	my $fetch = $rdata->{'fetch'};
				5678	my $push = $rdata->{'push'};
				5679
				5680	my $urls_table = "<table class=\"projects_list\">\n" ;
				5681
				5682	if (defined $fetch) {
				5683	if ($fetch eq $push) {
				5684	$urls_table .= format_repo_url("URL", $fetch);
				5685	} else {
				5686	$urls_table .= format_repo_url("Fetch URL", $fetch);
				5687	$urls_table .= format_repo_url("Push URL", $push) if defined $push;
				5688	}
				5689	} elsif (defined $push) {
				5690	$urls_table .= format_repo_url("Push URL", $push);
				5691	} else {
				5692	$urls_table .= format_repo_url("", "No remote URL");
				5693	}
				5694
				5695	$urls_table .= "</table>\n";
				5696
				5697	my $dots;
				5698	if (defined $limit && $limit < @$heads) {
				5699	$dots = $cgi->a({-href => href(action=>"remotes", hash=>$remote)}, "...");
				5700	}
				5701
				5702	print $urls_table;
				5703	git_heads_body($heads, $head, 0, $limit, $dots);
				5704	}
				5705
				5706	# Display a list of remote names with the respective fetch and push URLs
				5707	sub git_remotes_list {
				5708	my ($remotedata, $limit) = @_;
				5709	print "<table class=\"heads\">\n";
				5710	my $alternate = 1;
				5711	my @remotes = sort keys %$remotedata;
				5712
				5713	my $limited = $limit && $limit < @remotes;
				5714
				5715	$#remotes = $limit - 1 if $limited;
				5716
				5717	while (my $remote = shift @remotes) {
				5718	my $rdata = $remotedata->{$remote};
				5719	my $fetch = $rdata->{'fetch'};
				5720	my $push = $rdata->{'push'};
				5721	if ($alternate) {
				5722	print "<tr class=\"dark\">\n";
				5723	} else {
				5724	print "<tr class=\"light\">\n";
				5725	}
				5726	$alternate ^= 1;
				5727	print "<td>" .
				5728	$cgi->a({-href=> href(action=>'remotes', hash=>$remote),
				5729	-class=> "list name"},esc_html($remote)) .
				5730	"</td>";
				5731	print "<td class=\"link\">" .
				5732	(defined $fetch ? $cgi->a({-href=> $fetch}, "fetch") : "fetch") .
				5733	" \| " .
				5734	(defined $push ? $cgi->a({-href=> $push}, "push") : "push") .
				5735	"</td>";
				5736
				5737	print "</tr>\n";
				5738	}
				5739
				5740	if ($limited) {
				5741	print "<tr>\n" .
				5742	"<td colspan=\"3\">" .
				5743	$cgi->a({-href => href(action=>"remotes")}, "...") .
				5744	"</td>\n" . "</tr>\n";
				5745	}
				5746
				5747	print "</table>";
				5748	}
				5749
				5750	# Display remote heads grouped by remote, unless there are too many
				5751	# remotes, in which case we only display the remote names
				5752	sub git_remotes_body {
				5753	my ($remotedata, $limit, $head) = @_;
				5754	if ($limit and $limit < keys %$remotedata) {
				5755	git_remotes_list($remotedata, $limit);
				5756	} else {
				5757	fill_remote_heads($remotedata);
				5758	while (my ($remote, $rdata) = each %$remotedata) {
				5759	git_print_section({-class=>"remote", -id=>$remote},
				5760	["remotes", $remote, $remote], sub {
				5761	git_remote_block($remote, $rdata, $limit, $head);
				5762	});
				5763	}
				5764	}
				5765	}
				5766
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5767	sub git_search_message {
				5768	my %co = @_;
				5769
				5770	my $greptype;
				5771	if ($searchtype eq 'commit') {
				5772	$greptype = "--grep=";
				5773	} elsif ($searchtype eq 'author') {
				5774	$greptype = "--author=";
				5775	} elsif ($searchtype eq 'committer') {
				5776	$greptype = "--committer=";
				5777	}
				5778	$greptype .= $searchtext;
				5779	my @commitlist = parse_commits($hash, 101, (100 * $page), undef,
				5780	$greptype, '--regexp-ignore-case',
				5781	$search_use_regexp ? '--extended-regexp' : '--fixed-strings');
				5782
				5783	my $paging_nav = '';
				5784	if ($page > 0) {
				5785	$paging_nav .=
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5786	$cgi->a({-href => href(-replay=>1, page=>undef)},
				5787	"first") .
				5788	" ⋅ " .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5789	$cgi->a({-href => href(-replay=>1, page=>$page-1),
				5790	-accesskey => "p", -title => "Alt-p"}, "prev");
				5791	} else {
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5792	$paging_nav .= "first ⋅ prev";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5793	}
				5794	my $next_link = '';
				5795	if ($#commitlist >= 100) {
				5796	$next_link =
				5797	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				5798	-accesskey => "n", -title => "Alt-n"}, "next");
				5799	$paging_nav .= " ⋅ $next_link";
				5800	} else {
				5801	$paging_nav .= " ⋅ next";
				5802	}
				5803
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5804	git_header_html();
				5805
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5806	git_print_page_nav('','', $hash,$co{'tree'},$hash, $paging_nav);
				5807	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				5808	if ($page == 0 && !@commitlist) {
				5809	print "<p>No match.</p>\n";
				5810	} else {
				5811	git_search_grep_body(\@commitlist, 0, 99, $next_link);
				5812	}
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5813
				5814	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5815	}
				5816
				5817	sub git_search_changes {
				5818	my %co = @_;
				5819
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5820	local $/ = "\n";
				5821	open my $fd, '-\|', git_cmd(), '--no-pager', 'log', @diff_opts,
				5822	'--pretty=format:%H', '--no-abbrev', '--raw', "-S$searchtext",
				5823	($search_use_regexp ? '--pickaxe-regex' : ())
				5824	or die_error(500, "Open git-log failed");
				5825
				5826	git_header_html();
				5827
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5828	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				5829	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				5830
				5831	print "<table class=\"pickaxe search\">\n";
				5832	my $alternate = 1;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5833	undef %co;
				5834	my @files;
				5835	while (my $line = <$fd>) {
				5836	chomp $line;
				5837	next unless $line;
				5838
				5839	my %set = parse_difftree_raw_line($line);
				5840	if (defined $set{'commit'}) {
				5841	# finish previous commit
				5842	if (%co) {
				5843	print "</td>\n" .
				5844	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5845	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				5846	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5847	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5848	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				5849	hash_base=>$co{'id'})},
				5850	"tree") .
				5851	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5852	"</tr>\n";
				5853	}
				5854
				5855	if ($alternate) {
				5856	print "<tr class=\"dark\">\n";
				5857	} else {
				5858	print "<tr class=\"light\">\n";
				5859	}
				5860	$alternate ^= 1;
				5861	%co = parse_commit($set{'commit'});
				5862	my $author = chop_and_escape_str($co{'author_name'}, 15, 5);
				5863	print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" .
				5864	"<td><i>$author</i></td>\n" .
				5865	"<td>" .
				5866	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				5867	-class => "list subject"},
				5868	chop_and_escape_str($co{'title'}, 50) . "<br/>");
				5869	} elsif (defined $set{'to_id'}) {
				5870	next if ($set{'to_id'} =~ m/^0{40}$/);
				5871
				5872	print $cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},
				5873	hash=>$set{'to_id'}, file_name=>$set{'to_file'}),
				5874	-class => "list"},
				5875	"<span class=\"match\">" . esc_path($set{'file'}) . "</span>") .
				5876	"<br/>\n";
				5877	}
				5878	}
				5879	close $fd;
				5880
				5881	# finish last commit (warning: repetition!)
				5882	if (%co) {
				5883	print "</td>\n" .
				5884	"<td class=\"link\">" .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5885	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},
				5886	"commit") .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5887	" \| " .
Jakub Narebski	882541b	2011-06-22 17:28:54 +0200	[diff] [blame]	5888	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},
				5889	hash_base=>$co{'id'})},
				5890	"tree") .
				5891	"</td>\n" .
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5892	"</tr>\n";
				5893	}
				5894
				5895	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5896
				5897	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5898	}
				5899
				5900	sub git_search_files {
				5901	my %co = @_;
				5902
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5903	local $/ = "\n";
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	5904	open my $fd, "-\|", git_cmd(), 'grep', '-n', '-z',
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5905	$search_use_regexp ? ('-E', '-i') : '-F',
				5906	$searchtext, $co{'tree'}
				5907	or die_error(500, "Open git-grep failed");
				5908
				5909	git_header_html();
				5910
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5911	git_print_page_nav('','', $hash,$co{'tree'},$hash);
				5912	git_print_header_div('commit', esc_html($co{'title'}), $hash);
				5913
				5914	print "<table class=\"grep_search\">\n";
				5915	my $alternate = 1;
				5916	my $matches = 0;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5917	my $lastfile = '';
				5918	while (my $line = <$fd>) {
				5919	chomp $line;
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	5920	my ($file, $file_href, $lno, $ltext, $binary);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5921	last if ($matches++ > 1000);
				5922	if ($line =~ /^Binary file (.+) matches$/) {
				5923	$file = $1;
				5924	$binary = 1;
				5925	} else {
Jakub Narebski	8e09fd1	2012-01-05 21:32:56 +0100	[diff] [blame]	5926	($file, $lno, $ltext) = split(/\0/, $line, 3);
				5927	$file =~ s/^$co{'tree'}://;
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5928	}
				5929	if ($file ne $lastfile) {
				5930	$lastfile and print "</td></tr>\n";
				5931	if ($alternate++) {
				5932	print "<tr class=\"dark\">\n";
				5933	} else {
				5934	print "<tr class=\"light\">\n";
				5935	}
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	5936	$file_href = href(action=>"blob", hash_base=>$co{'id'},
				5937	file_name=>$file);
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5938	print "<td class=\"list\">".
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	5939	$cgi->a({-href => $file_href, -class => "list"}, esc_path($file));
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5940	print "</td><td>\n";
				5941	$lastfile = $file;
				5942	}
				5943	if ($binary) {
				5944	print "<div class=\"binary\">Binary file</div>\n";
				5945	} else {
				5946	$ltext = untabify($ltext);
				5947	if ($ltext =~ m/^(.)($search_regexp)(.)$/i) {
				5948	$ltext = esc_html($1, -nbsp=>1);
				5949	$ltext .= '<span class="match">';
				5950	$ltext .= esc_html($2, -nbsp=>1);
				5951	$ltext .= '</span>';
				5952	$ltext .= esc_html($3, -nbsp=>1);
				5953	} else {
				5954	$ltext = esc_html($ltext, -nbsp=>1);
				5955	}
				5956	print "<div class=\"pre\">" .
Jakub Narebski	ff7f218	2012-01-05 21:26:48 +0100	[diff] [blame]	5957	$cgi->a({-href => $file_href.'#l'.$lno,
				5958	-class => "linenr"}, sprintf('%4i', $lno)) .
				5959	' ' . $ltext . "</div>\n";
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5960	}
				5961	}
				5962	if ($lastfile) {
				5963	print "</td></tr>\n";
				5964	if ($matches > 1000) {
				5965	print "<div class=\"diff nodifferences\">Too many matches, listing trimmed</div>\n";
				5966	}
				5967	} else {
				5968	print "<div class=\"diff nodifferences\">No matches found</div>\n";
				5969	}
				5970	close $fd;
				5971
				5972	print "</table>\n";
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	5973
				5974	git_footer_html();
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	5975	}
				5976
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5977	sub git_search_grep_body {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	5978	my ($commitlist, $from, $to, $extra) = @_;
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5979	$from = 0 unless defined $from;
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	5980	$to = $#{$commitlist} if (!defined $to \|\| $#{$commitlist} < $to);
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5981
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	5982	print "<table class=\"commit_search\">\n";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5983	my $alternate = 1;
				5984	for (my $i = $from; $i <= $to; $i++) {
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	5985	my %co = %{$commitlist->[$i]};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5986	if (!%co) {
				5987	next;
				5988	}
Robert Fitzsimons	5ad6608	2006-12-24 14:31:46 +0000	[diff] [blame]	5989	my $commit = $co{'id'};
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5990	if ($alternate) {
				5991	print "<tr class=\"dark\">\n";
				5992	} else {
				5993	print "<tr class=\"light\">\n";
				5994	}
				5995	$alternate ^= 1;
				5996	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]	5997	format_author_html('td', \%co, 15, 5) .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	5998	"<td>" .
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	5999	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),
				6000	-class => "list subject"},
				6001	chop_and_escape_str($co{'title'}, 50) . "<br/>");
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6002	my $comment = $co{'comment'};
				6003	foreach my $line (@$comment) {
Jakub Narebski	6dfbb30	2008-03-02 16:57:14 +0100	[diff] [blame]	6004	if ($line =~ m/^(.?)($search_regexp)(.)$/i) {
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6005	my ($lead, $match, $trail) = ($1, $2, $3);
Jakub Narebski	b8d97d0	2008-02-25 21:07:57 +0100	[diff] [blame]	6006	$match = chop_str($match, 70, 5, 'center');
				6007	my $contextlen = int((80 - length($match))/2);
				6008	$contextlen = 30 if ($contextlen > 30);
				6009	$lead = chop_str($lead, $contextlen, 10, 'left');
				6010	$trail = chop_str($trail, $contextlen, 10, 'right');
Junio C Hamano	be8b906	2008-02-22 17:33:47 +0100	[diff] [blame]	6011
				6012	$lead = esc_html($lead);
				6013	$match = esc_html($match);
				6014	$trail = esc_html($trail);
				6015
				6016	print "$lead<span class=\"match\">$match</span>$trail<br />";
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6017	}
				6018	}
				6019	print "</td>\n" .
				6020	"<td class=\"link\">" .
				6021	$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})}, "commit") .
				6022	" \| " .
Denis Cheng	f1fe8f5	2007-11-26 20:42:06 +0800	[diff] [blame]	6023	$cgi->a({-href => href(action=>"commitdiff", hash=>$co{'id'})}, "commitdiff") .
				6024	" \| " .
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	6025	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$co{'id'})}, "tree");
				6026	print "</td>\n" .
				6027	"</tr>\n";
				6028	}
				6029	if (defined $extra) {
				6030	print "<tr>\n" .
				6031	"<td colspan=\"3\">$extra</td>\n" .
				6032	"</tr>\n";
				6033	}
				6034	print "</table>\n";
				6035	}
				6036
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6037	## ======================================================================
				6038	## ======================================================================
				6039	## actions
				6040
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6041	sub git_project_list {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6042	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6043	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6044	die_error(400, "Unknown order parameter");
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6045	}
				6046
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6047	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6048	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6049	die_error(404, "No projects found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6050	}
Jakub Narebski	6326b60	2006-08-01 02:59:12 +0200	[diff] [blame]	6051
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6052	git_header_html();
John 'Warthog9' Hawley	24d4afc	2010-01-30 23:30:41 +0100	[diff] [blame]	6053	if (defined $home_text && -f $home_text) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6054	print "<div class=\"index_include\">\n";
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6055	insert_file($home_text);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6056	print "</div>\n";
				6057	}
Jakub Narebski	a1e1b2d	2012-01-31 01:20:54 +0100	[diff] [blame]	6058
				6059	git_project_search_form($searchtext, $search_use_regexp);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6060	git_project_list_body(\@list, $order);
				6061	git_footer_html();
				6062	}
				6063
				6064	sub git_forks {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6065	my $order = $input_params{'order'};
Frank Lichtenheld	b06dcf8	2007-04-06 23:58:24 +0200	[diff] [blame]	6066	if (defined $order && $order !~ m/none\|project\|descr\|owner\|age/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6067	die_error(400, "Unknown order parameter");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6068	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6069
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6070	my $filter = $project;
				6071	$filter =~ s/\.git$//;
				6072	my @list = git_get_projects_list($filter);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6073	if (!@list) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6074	die_error(404, "No forks found");
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6075	}
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6076
				6077	git_header_html();
				6078	git_print_page_nav('','');
				6079	git_print_header_div('summary', "$project forks");
				6080	git_project_list_body(\@list, $order);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	6081	git_footer_html();
				6082	}
				6083
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6084	sub git_project_index {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	6085	my @projects = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6086	if (!@projects) {
				6087	die_error(404, "No projects found");
				6088	}
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6089
				6090	print $cgi->header(
				6091	-type => 'text/plain',
				6092	-charset => 'utf-8',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6093	-content_disposition => 'inline; filename="index.aux"');
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6094
				6095	foreach my $pr (@projects) {
				6096	if (!exists $pr->{'owner'}) {
Miklos Vajna	76e4f5d	2007-07-04 00:11:23 +0200	[diff] [blame]	6097	$pr->{'owner'} = git_get_project_owner("$pr->{'path'}");
Jakub Narebski	fc2b2be	2006-09-15 04:56:03 +0200	[diff] [blame]	6098	}
				6099
				6100	my ($path, $owner) = ($pr->{'path'}, $pr->{'owner'});
				6101	# quote as in CGI::Util::encode, but keep the slash, and use '+' for ' '
				6102	$path =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6103	$owner =~ s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X", ord($1))/eg;
				6104	$path =~ s/ /\+/g;
				6105	$owner =~ s/ /\+/g;
				6106
				6107	print "$path $owner\n";
				6108	}
				6109	}
				6110
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6111	sub git_summary {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6112	my $descr = git_get_project_description($project) \|\| "none";
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6113	my %co = parse_commit("HEAD");
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6114	my %cd = %co ? parse_date($co{'committer_epoch'}, $co{'committer_tz'}) : ();
Robert Fitzsimons	a979d12	2006-12-22 19:38:15 +0000	[diff] [blame]	6115	my $head = $co{'id'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6116	my $remote_heads = gitweb_check_feature('remote_heads');
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6117
Jakub Narebski	1e0cf03	2006-08-14 02:10:06 +0200	[diff] [blame]	6118	my $owner = git_get_project_owner($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6119
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6120	my $refs = git_get_references();
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6121	# These get_*_list functions return one more to allow us to see if
				6122	# there are more ...
				6123	my @taglist = git_get_tags_list(16);
				6124	my @headlist = git_get_heads_list(16);
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6125	my %remotedata = $remote_heads ? git_get_remotes_list() : ();
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6126	my @forklist;
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6127	my $check_forks = gitweb_check_feature('forks');
Junio C Hamano	5dd5ed0	2006-11-07 22:00:45 -0800	[diff] [blame]	6128
				6129	if ($check_forks) {
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6130	# find forks of a project
Bernhard R. Link	4c7cd17	2012-01-30 21:05:47 +0100	[diff] [blame]	6131	my $filter = $project;
				6132	$filter =~ s/\.git$//;
				6133	@forklist = git_get_projects_list($filter);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	6134	# filter out forks of forks
				6135	@forklist = filter_forks_from_projects_list(\@forklist)
				6136	if (@forklist);
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6137	}
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6138
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6139	git_header_html();
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6140	git_print_page_nav('summary','', $head);
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6141
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	6142	print "<div class=\"title\"> </div>\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6143	print "<table class=\"projects_list\">\n" .
Petr Baudis	a476142	2008-10-02 16:25:05 +0200	[diff] [blame]	6144	"<tr id=\"metadata_desc\"><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" .
				6145	"<tr id=\"metadata_owner\"><td>owner</td><td>" . esc_html($owner) . "</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6146	if (defined $cd{'rfc2822'}) {
Jakub Narebski	256b7b4	2011-04-28 21:04:07 +0200	[diff] [blame]	6147	print "<tr id=\"metadata_lchange\"><td>last change</td>" .
				6148	"<td>".format_timestamp_html(\%cd)."</td></tr>\n";
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6149	}
				6150
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6151	# use per project git URL list in $projectroot/$project/cloneurl
				6152	# or make project git URL from git base URL and project name
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6153	my $url_tag = "URL";
Jakub Narebski	e79ca7c	2006-08-16 14:50:34 +0200	[diff] [blame]	6154	my @url_list = git_get_project_url_list($project);
				6155	@url_list = map { "$_/$project" } @git_base_url_list unless @url_list;
				6156	foreach my $git_url (@url_list) {
				6157	next unless $git_url;
Giuseppe Bilotta	0e65699	2010-11-11 13:26:15 +0100	[diff] [blame]	6158	print format_repo_url($url_tag, $git_url);
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6159	$url_tag = "";
				6160	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6161
				6162	# Tag cloud
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6163	my $show_ctags = gitweb_check_feature('ctags');
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6164	if ($show_ctags) {
				6165	my $ctags = git_get_project_ctags($project);
Jakub Narebski	0368c49	2011-04-29 19:51:57 +0200	[diff] [blame]	6166	if (%$ctags) {
				6167	# without ability to add tags, don't show if there are none
				6168	my $cloud = git_populate_project_tagcloud($ctags);
				6169	print "<tr id=\"metadata_ctags\">" .
				6170	"<td>content tags</td>" .
				6171	"<td>".git_show_project_tagcloud($cloud, 48)."</td>" .
				6172	"</tr>\n";
				6173	}
Petr Baudis	aed93de	2008-10-02 17:13:02 +0200	[diff] [blame]	6174	}
				6175
Jakub Narebski	19a8721	2006-08-15 23:03:17 +0200	[diff] [blame]	6176	print "</table>\n";
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6177
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6178	# If XSS prevention is on, we don't include README.html.
				6179	# TODO: Allow a readme in some safe format.
				6180	if (!$prevent_xss && -s "$projectroot/$project/README.html") {
Jakub Narebski	2dcb5e1	2008-12-01 19:01:42 +0100	[diff] [blame]	6181	print "<div class=\"title\">readme</div>\n" .
				6182	"<div class=\"readme\">\n";
				6183	insert_file("$projectroot/$project/README.html");
				6184	print "\n</div>\n"; # class="readme"
Petr Baudis	447ef09	2006-10-24 05:23:46 +0200	[diff] [blame]	6185	}
				6186
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6187	# we need to request one more than 16 (0..15) to check if
				6188	# those 16 are all
Jakub Narebski	785cdea	2007-05-13 12:39:22 +0200	[diff] [blame]	6189	my @commitlist = $head ? parse_commits($head, 17) : ();
				6190	if (@commitlist) {
				6191	git_print_header_div('shortlog');
				6192	git_shortlog_body(\@commitlist, 0, 15, $refs,
				6193	$#commitlist <= 15 ? undef :
				6194	$cgi->a({-href => href(action=>"shortlog")}, "..."));
				6195	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6196
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6197	if (@taglist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6198	git_print_header_div('tags');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6199	git_tags_body(\@taglist, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6200	$#taglist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6201	$cgi->a({-href => href(action=>"tags")}, "..."));
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6202	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6203
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6204	if (@headlist) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6205	git_print_header_div('heads');
Jakub Narebski	120ddde	2006-09-19 14:33:22 +0200	[diff] [blame]	6206	git_heads_body(\@headlist, $head, 0, 15,
Robert Fitzsimons	313ce8c	2006-12-19 12:08:54 +0000	[diff] [blame]	6207	$#headlist <= 15 ? undef :
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	6208	$cgi->a({-href => href(action=>"heads")}, "..."));
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6209	}
Jakub Narebski	9f5dcb8	2006-07-31 11:22:13 +0200	[diff] [blame]	6210
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6211	if (%remotedata) {
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6212	git_print_header_div('remotes');
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6213	git_remotes_body(\%remotedata, 15, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6214	}
				6215
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6216	if (@forklist) {
				6217	git_print_header_div('forks');
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6218	git_project_list_body(\@forklist, 'age', 0, 15,
Robert Fitzsimons	aaca967	2006-12-22 19:38:12 +0000	[diff] [blame]	6219	$#forklist <= 15 ? undef :
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6220	$cgi->a({-href => href(action=>"forks")}, "..."),
Mike Ralphson	f04f27e	2008-09-25 18:48:48 +0200	[diff] [blame]	6221	'no_header');
Petr Baudis	e30496d	2006-10-24 05:33:17 +0200	[diff] [blame]	6222	}
				6223
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6224	git_footer_html();
				6225	}
				6226
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6227	sub git_tag {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6228	my %tag = parse_tag($hash);
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6229
				6230	if (! %tag) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6231	die_error(404, "Unknown tag object");
Jakub Narebski	198a2a8	2007-05-12 21:16:34 +0200	[diff] [blame]	6232	}
				6233
Anders Kaseorg	d8a9480	2010-08-27 13:38:16 -0400	[diff] [blame]	6234	my $head = git_get_head_hash($project);
				6235	git_header_html();
				6236	git_print_page_nav('','', $head,undef,$head);
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6237	git_print_header_div('commit', esc_html($tag{'name'}), $hash);
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6238	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6239	"<table class=\"object_header\">\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6240	"<tr>\n" .
				6241	"<td>object</td>\n" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6242	"<td>" . $cgi->a({-class => "list", -href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6243	$tag{'object'}) . "</td>\n" .
				6244	"<td class=\"link\">" . $cgi->a({-href => href(action=>$tag{'type'}, hash=>$tag{'object'})},
				6245	$tag{'type'}) . "</td>\n" .
Kay Sievers	e4669df	2005-08-08 00:02:39 +0200	[diff] [blame]	6246	"</tr>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6247	if (defined($tag{'author'})) {
Giuseppe Bilotta	ba92473	2009-06-30 00:00:50 +0200	[diff] [blame]	6248	git_print_authorship_rows(\%tag, 'author');
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6249	}
				6250	print "</table>\n\n" .
				6251	"</div>\n";
				6252	print "<div class=\"page_body\">";
				6253	my $comment = $tag{'comment'};
				6254	foreach my $line (@$comment) {
Junio C Hamano	7002243	2006-11-24 14:04:01 -0800	[diff] [blame]	6255	chomp $line;
Jakub Narebski	793c400	2006-11-24 22:25:50 +0100	[diff] [blame]	6256	print esc_html($line, -nbsp=>1) . "<br/>\n";
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	6257	}
				6258	print "</div>\n";
				6259	git_footer_html();
				6260	}
				6261
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6262	sub git_blame_common {
				6263	my $format = shift \|\| 'porcelain';
Jakub Narebski	84d9e2d	2012-02-03 13:44:54 +0100	[diff] [blame]	6264	if ($format eq 'porcelain' && $input_params{'javascript'}) {
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6265	$format = 'incremental';
				6266	$action = 'blame_incremental'; # for page title etc
				6267	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6268
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6269	# permissions
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6270	gitweb_check_feature('blame')
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6271	or die_error(403, "Blame view not allowed");
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6272
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6273	# error checking
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6274	die_error(400, "No file name given") unless $file_name;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6275	$hash_base \|\|= git_get_head_hash($project);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6276	die_error(404, "Couldn't find base commit") unless $hash_base;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6277	my %co = parse_commit($hash_base)
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6278	or die_error(404, "Commit not found");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6279	my $ftype = "blob";
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6280	if (!defined $hash) {
				6281	$hash = git_get_hash_by_path($hash_base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6282	or die_error(404, "Error looking up file");
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6283	} else {
				6284	$ftype = git_get_type($hash);
				6285	if ($ftype !~ "blob") {
				6286	die_error(400, "Object is not a blob");
				6287	}
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6288	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6289
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6290	my $fd;
				6291	if ($format eq 'incremental') {
				6292	# get file contents (as base)
				6293	open $fd, "-\|", git_cmd(), 'cat-file', 'blob', $hash
				6294	or die_error(500, "Open git-cat-file failed");
				6295	} elsif ($format eq 'data') {
				6296	# run git-blame --incremental
				6297	open $fd, "-\|", git_cmd(), "blame", "--incremental",
				6298	$hash_base, "--", $file_name
				6299	or die_error(500, "Open git-blame --incremental failed");
				6300	} else {
				6301	# run git-blame --porcelain
				6302	open $fd, "-\|", git_cmd(), "blame", '-p',
				6303	$hash_base, '--', $file_name
				6304	or die_error(500, "Open git-blame --porcelain failed");
				6305	}
				6306
				6307	# incremental blame data returns early
				6308	if ($format eq 'data') {
				6309	print $cgi->header(
				6310	-type=>"text/plain", -charset => "utf-8",
				6311	-status=> "200 OK");
				6312	local $\| = 1; # output autoflush
Jürgen Kreileder	57cf4ad	2011-12-17 10:22:23 +0100	[diff] [blame]	6313	while (my $line = <$fd>) {
				6314	print to_utf8($line);
				6315	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6316	close $fd
				6317	or print "ERROR $!\n";
				6318
				6319	print 'END';
				6320	if (defined $t0 && gitweb_check_feature('timed')) {
				6321	print ' '.
Jakub Narebski	3962f1d7	2010-11-09 19:27:54 +0100	[diff] [blame]	6322	tv_interval($t0, [ gettimeofday() ]).
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6323	' '.$number_of_git_cmds;
				6324	}
				6325	print "\n";
				6326
				6327	return;
				6328	}
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6329
				6330	# page header
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6331	git_header_html();
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6332	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6333	$cgi->a({-href => href(action=>"blob", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6334	"blob") .
Jakub Narebski	87e573f	2009-12-01 17:54:26 +0100	[diff] [blame]	6335	" \| ";
				6336	if ($format eq 'incremental') {
				6337	$formats_nav .=
				6338	$cgi->a({-href => href(action=>"blame", javascript=>0, -replay=>1)},
				6339	"blame") . " (non-incremental)";
				6340	} else {
				6341	$formats_nav .=
				6342	$cgi->a({-href => href(action=>"blame_incremental", -replay=>1)},
				6343	"blame") . " (incremental)";
				6344	}
				6345	$formats_nav .=
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6346	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6347	$cgi->a({-href => href(action=>"history", -replay=>1)},
				6348	"history") .
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6349	" \| " .
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6350	$cgi->a({-href => href(action=>$action, file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6351	"HEAD");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6352	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6353	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6354	git_print_page_path($file_name, $ftype, $hash_base);
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6355
				6356	# page body
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6357	if ($format eq 'incremental') {
				6358	print "<noscript>\n<div class=\"error\"><center><b>\n".
				6359	"This page requires JavaScript to run.\n Use ".
Jakub Narebski	c4ccf61	2009-09-01 13:39:19 +0200	[diff] [blame]	6360	$cgi->a({-href => href(action=>'blame',javascript=>0,-replay=>1)},
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6361	'this page').
				6362	" instead.\n".
				6363	"</b></center></div>\n</noscript>\n";
				6364
				6365	print qq!<div id="progress_bar" style="width: 100%; background-color: yellow"></div>\n!;
				6366	}
				6367
				6368	print qq!<div class="page_body">\n!;
				6369	print qq!<div id="progress_info">... / ...</div>\n!
				6370	if ($format eq 'incremental');
				6371	print qq!<table id="blame_table" class="blame" width="100%">\n!.
				6372	#qq!<col width="5.5em" /><col width="2.5em" /><col width="*" />\n!.
				6373	qq!<thead>\n!.
				6374	qq!<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n!.
				6375	qq!</thead>\n!.
				6376	qq!<tbody>\n!;
				6377
Jakub Narebski	aef3768	2009-07-25 00:44:06 +0200	[diff] [blame]	6378	my @rev_color = qw(light dark);
Luben Tuikov	cc1bf97	2006-07-23 13:37:53 -0700	[diff] [blame]	6379	my $num_colors = scalar(@rev_color);
				6380	my $current_color = 0;
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6381
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6382	if ($format eq 'incremental') {
				6383	my $color_class = $rev_color[$current_color];
				6384
				6385	#contents of a file
				6386	my $linenr = 0;
				6387	LINE:
				6388	while (my $line = <$fd>) {
				6389	chomp $line;
				6390	$linenr++;
				6391
				6392	print qq!<tr id="l$linenr" class="$color_class">!.
				6393	qq!<td class="sha1"><a href=""> </a></td>!.
				6394	qq!<td class="linenr">!.
				6395	qq!<a class="linenr" href="">$linenr</a></td>!;
				6396	print qq!<td class="pre">! . esc_html($line) . "</td>\n";
				6397	print qq!</tr>\n!;
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6398	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6399
				6400	} else { # porcelain, i.e. ordinary blame
				6401	my %metainfo = (); # saves information about commits
				6402
				6403	# blame data
				6404	LINE:
				6405	while (my $line = <$fd>) {
				6406	chomp $line;
				6407	# the header: <SHA-1> <src lineno> <dst lineno> [<lines in group>]
				6408	# no <lines in group> for subsequent lines in group of lines
				6409	my ($full_rev, $orig_lineno, $lineno, $group_size) =
				6410	($line =~ /^([0-9a-f]{40}) (\d+) (\d+)(?: (\d+))?$/);
				6411	if (!exists $metainfo{$full_rev}) {
				6412	$metainfo{$full_rev} = { 'nprevious' => 0 };
Junio C Hamano	eeef88c	2006-10-05 13:55:58 -0700	[diff] [blame]	6413	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6414	my $meta = $metainfo{$full_rev};
				6415	my $data;
				6416	while ($data = <$fd>) {
				6417	chomp $data;
				6418	last if ($data =~ s/^\t//); # contents of line
				6419	if ($data =~ /^(\S+)(?: (.*))?$/) {
				6420	$meta->{$1} = $2 unless exists $meta->{$1};
				6421	}
				6422	if ($data =~ /^previous /) {
				6423	$meta->{'nprevious'}++;
Jakub Narebski	a36817b	2009-07-25 00:44:05 +0200	[diff] [blame]	6424	}
				6425	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6426	my $short_rev = substr($full_rev, 0, 8);
				6427	my $author = $meta->{'author'};
				6428	my %date =
				6429	parse_date($meta->{'author-time'}, $meta->{'author-tz'});
				6430	my $date = $date{'iso-tz'};
				6431	if ($group_size) {
				6432	$current_color = ($current_color + 1) % $num_colors;
				6433	}
				6434	my $tr_class = $rev_color[$current_color];
				6435	$tr_class .= ' boundary' if (exists $meta->{'boundary'});
				6436	$tr_class .= ' no-previous' if ($meta->{'nprevious'} == 0);
				6437	$tr_class .= ' multiple-previous' if ($meta->{'nprevious'} > 1);
				6438	print "<tr id=\"l$lineno\" class=\"$tr_class\">\n";
				6439	if ($group_size) {
				6440	print "<td class=\"sha1\"";
				6441	print " title=\"". esc_html($author) . ", $date\"";
				6442	print " rowspan=\"$group_size\"" if ($group_size > 1);
				6443	print ">";
				6444	print $cgi->a({-href => href(action=>"commit",
				6445	hash=>$full_rev,
				6446	file_name=>$file_name)},
				6447	esc_html($short_rev));
				6448	if ($group_size >= 2) {
				6449	my @author_initials = ($author =~ /\b([[:upper:]])\B/g);
				6450	if (@author_initials) {
				6451	print "<br />" .
				6452	esc_html(join('', @author_initials));
				6453	# or join('.', ...)
				6454	}
				6455	}
				6456	print "</td>\n";
				6457	}
				6458	# 'previous' <sha1 of parent commit> <filename at commit>
				6459	if (exists $meta->{'previous'} &&
				6460	$meta->{'previous'} =~ /^([a-fA-F0-9]{40}) (.*)$/) {
				6461	$meta->{'parent'} = $1;
				6462	$meta->{'file_parent'} = unquote($2);
				6463	}
				6464	my $linenr_commit =
				6465	exists($meta->{'parent'}) ?
				6466	$meta->{'parent'} : $full_rev;
				6467	my $linenr_filename =
				6468	exists($meta->{'file_parent'}) ?
				6469	$meta->{'file_parent'} : unquote($meta->{'filename'});
				6470	my $blamed = href(action => 'blame',
				6471	file_name => $linenr_filename,
				6472	hash_base => $linenr_commit);
				6473	print "<td class=\"linenr\">";
				6474	print $cgi->a({ -href => "$blamed#l$orig_lineno",
				6475	-class => "linenr" },
				6476	esc_html($lineno));
				6477	print "</td>";
				6478	print "<td class=\"pre\">" . esc_html($data) . "</td>\n";
				6479	print "</tr>\n";
				6480	} # end while
				6481
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6482	}
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6483
				6484	# footer
				6485	print "</tbody>\n".
				6486	"</table>\n"; # class="blame"
				6487	print "</div>\n"; # class="blame_body"
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6488	close $fd
				6489	or print "Reading blob failed\n";
Jakub Narebski	d2ce10d	2008-12-09 23:48:51 +0100	[diff] [blame]	6490
Luben Tuikov	1f2857e	2006-07-23 13:34:55 -0700	[diff] [blame]	6491	git_footer_html();
				6492	}
				6493
Jakub Narebski	4af819d	2009-09-01 13:39:17 +0200	[diff] [blame]	6494	sub git_blame {
				6495	git_blame_common();
				6496	}
				6497
				6498	sub git_blame_incremental {
				6499	git_blame_common('incremental');
				6500	}
				6501
				6502	sub git_blame_data {
				6503	git_blame_common('data');
				6504	}
				6505
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6506	sub git_tags {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6507	my $head = git_get_head_hash($project);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6508	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6509	git_print_page_nav('','', $head,undef,$head,format_ref_views('tags'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6510	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6511
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6512	my @tagslist = git_get_tags_list();
				6513	if (@tagslist) {
				6514	git_tags_body(\@tagslist);
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6515	}
Kay Sievers	ede5e10	2005-08-07 20:23:12 +0200	[diff] [blame]	6516	git_footer_html();
				6517	}
				6518
Kay Sievers	d8f1c5c	2005-10-04 01:12:47 +0200	[diff] [blame]	6519	sub git_heads {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6520	my $head = git_get_head_hash($project);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6521	git_header_html();
Giuseppe Bilotta	11e7bec	2010-11-11 13:26:12 +0100	[diff] [blame]	6522	git_print_page_nav('','', $head,undef,$head,format_ref_views('heads'));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6523	git_print_header_div('summary', $project);
Jakub Narebski	27fb8c4	2006-07-30 20:32:01 +0200	[diff] [blame]	6524
Jakub Narebski	cd14640	2006-11-02 20:23:11 +0100	[diff] [blame]	6525	my @headslist = git_get_heads_list();
				6526	if (@headslist) {
				6527	git_heads_body(\@headslist, $head);
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6528	}
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6529	git_footer_html();
				6530	}
				6531
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6532	# 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]	6533	sub git_remotes {
				6534	gitweb_check_feature('remote_heads')
				6535	or die_error(403, "Remote heads view is disabled");
				6536
				6537	my $head = git_get_head_hash($project);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6538	my $remote = $input_params{'hash'};
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6539
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6540	my $remotedata = git_get_remotes_list($remote);
				6541	die_error(500, "Unable to get remote information") unless defined $remotedata;
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6542
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6543	unless (%$remotedata) {
				6544	die_error(404, defined $remote ?
				6545	"Remote $remote not found" :
				6546	"No remotes found");
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6547	}
				6548
				6549	git_header_html(undef, undef, -action_extra => $remote);
				6550	git_print_page_nav('', '', $head, undef, $head,
				6551	format_ref_views($remote ? '' : 'remotes'));
				6552
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6553	fill_remote_heads($remotedata);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6554	if (defined $remote) {
				6555	git_print_header_div('remotes', "$remote remote for $project");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6556	git_remote_block($remote, $remotedata->{$remote}, undef, $head);
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6557	} else {
				6558	git_print_header_div('summary', "$project remotes");
Giuseppe Bilotta	9d0d42f	2010-11-11 13:26:17 +0100	[diff] [blame]	6559	git_remotes_body($remotedata, undef, $head);
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6560	}
Giuseppe Bilotta	bb60776	2010-11-11 13:26:14 +0100	[diff] [blame]	6561
Giuseppe Bilotta	00fa6fe	2010-11-11 13:26:11 +0100	[diff] [blame]	6562	git_footer_html();
				6563	}
				6564
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6565	sub git_blob_plain {
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6566	my $type = shift;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6567	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6568
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6569	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6570	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6571	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6572	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6573	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6574	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6575	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6576	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6577	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6578	# blobs defined by non-textual hash id's can be cached
				6579	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6580	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6581
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6582	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6583	or die_error(500, "Open git-cat-file blob '$hash' failed");
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6584
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6585	# content-type (can include charset)
				6586	$type = blob_contenttype($fd, $file_name, $type);
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6587
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6588	# "save as" filename, even when no $file_name is given
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6589	my $save_as = "$hash";
				6590	if (defined $file_name) {
				6591	$save_as = $file_name;
				6592	} elsif ($type =~ m/^text\//) {
				6593	$save_as .= '.txt';
				6594	}
				6595
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6596	# With XSS prevention on, blobs of all types except a few known safe
				6597	# ones are served with "Content-Disposition: attachment" to make sure
				6598	# they don't run in our security domain. For certain image types,
				6599	# blob view writes an <img> tag referring to blob_plain view, and we
				6600	# want to be sure not to break that by serving the image as an
				6601	# attachment (though Firefox 3 doesn't seem to care).
				6602	my $sandbox = $prevent_xss &&
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6603	$type !~ m!^(?:text/[a-z]+\|image/(?:gif\|png\|jpeg))(?:[ ;]\|$)!;
				6604
				6605	# serve text/* as text/plain
				6606	if ($prevent_xss &&
Jakub Narebski	e8c3531	2011-06-30 11:39:21 +0200	[diff] [blame]	6607	($type =~ m!^text/[a-z]+\b(.*)$! \|\|
				6608	($type =~ m!^[a-z]+/[a-z]\+xml\b(.*)$! && -T $fd))) {
Jakub Narebski	86afbd0	2011-06-30 11:39:20 +0200	[diff] [blame]	6609	my $rest = $1;
				6610	$rest = defined $rest ? $rest : '';
				6611	$type = "text/plain$rest";
				6612	}
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6613
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6614	print $cgi->header(
Jakub Narebski	7f718e8	2008-06-03 16:47:10 +0200	[diff] [blame]	6615	-type => $type,
				6616	-expires => $expires,
Matt McCutchen	7e1100e	2009-02-07 19:00:09 -0500	[diff] [blame]	6617	-content_disposition =>
				6618	($sandbox ? 'attachment' : 'inline')
				6619	. '; filename="' . $save_as . '"');
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6620	local $/ = undef;
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6621	binmode STDOUT, ':raw';
				6622	print <$fd>;
				6623	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6624	close $fd;
				6625	}
				6626
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6627	sub git_blob {
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6628	my $expires;
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6629
Luben Tuikov	cff0771	2006-07-23 13:28:55 -0700	[diff] [blame]	6630	if (!defined $hash) {
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6631	if (defined $file_name) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6632	my $base = $hash_base \|\| git_get_head_hash($project);
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6633	$hash = git_get_hash_by_path($base, $file_name, "blob")
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6634	or die_error(404, "Cannot find file");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6635	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6636	die_error(400, "No file name defined");
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6637	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6638	} elsif ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				6639	# blobs defined by non-textual hash id's can be cached
				6640	$expires = "+1d";
Jakub Narebski	5be01bc	2006-07-29 22:43:40 +0200	[diff] [blame]	6641	}
Martin Waitz	800764c	2006-09-16 23:09:02 +0200	[diff] [blame]	6642
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	6643	my $have_blame = gitweb_check_feature('blame');
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	6644	open my $fd, "-\|", git_cmd(), "cat-file", "blob", $hash
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6645	or die_error(500, "Couldn't cat $file_name, $hash");
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6646	my $mimetype = blob_mimetype($fd, $file_name);
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6647	# use 'blob_plain' (aka 'raw') view for files that cannot be displayed
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6648	if ($mimetype !~ m!^(?:text/\|image/(?:gif\|png\|jpeg)$)! && -B $fd) {
Luben Tuikov	930cf7d	2006-07-09 20:18:57 -0700	[diff] [blame]	6649	close $fd;
				6650	return git_blob_plain($mimetype);
				6651	}
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6652	# we can have blame only for text/* mimetype
				6653	$have_blame &&= ($mimetype =~ m!^text/!);
				6654
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	6655	my $highlight = gitweb_check_feature('highlight');
				6656	my $syntax = guess_file_syntax($highlight, $mimetype, $file_name);
				6657	$fd = run_highlighter($fd, $highlight, $syntax)
				6658	if $syntax;
Johannes Schindelin	b331fe5	2010-04-27 21:34:44 +0200	[diff] [blame]	6659
Jakub Narebski	f2e7330	2006-08-26 19:14:25 +0200	[diff] [blame]	6660	git_header_html(undef, $expires);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6661	my $formats_nav = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6662	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6663	if (defined $file_name) {
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6664	if ($have_blame) {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6665	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6666	$cgi->a({-href => href(action=>"blame", -replay=>1)},
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6667	"blame") .
				6668	" \| ";
Florian Forster	5996ca0	2006-06-12 10:31:57 +0200	[diff] [blame]	6669	}
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6670	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6671	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6672	"history") .
				6673	" \| " .
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6674	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	6675	"raw") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6676	" \| " .
				6677	$cgi->a({-href => href(action=>"blob",
				6678	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6679	"HEAD");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6680	} else {
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6681	$formats_nav .=
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6682	$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},
				6683	"raw");
Kay Sievers	9312944	2005-10-17 03:27:54 +0200	[diff] [blame]	6684	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6685	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				6686	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6687	} else {
				6688	print "<div class=\"page_nav\">\n" .
				6689	"<br/><br/></div>\n" .
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6690	"<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6691	}
Luben Tuikov	59fb1c9	2006-08-17 10:39:29 -0700	[diff] [blame]	6692	git_print_page_path($file_name, "blob", $hash_base);
Kay Sievers	c07ad4b	2005-08-07 20:22:44 +0200	[diff] [blame]	6693	print "<div class=\"page_body\">\n";
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6694	if ($mimetype =~ m!^image/!) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6695	print qq!<img type="!.esc_attr($mimetype).qq!"!;
Jakub Narebski	5a4cf33	2006-12-04 23:47:22 +0100	[diff] [blame]	6696	if ($file_name) {
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6697	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]	6698	}
				6699	print qq! src="! .
				6700	href(action=>"blob_plain", hash=>$hash,
				6701	hash_base=>$hash_base, file_name=>$file_name) .
				6702	qq!" />\n!;
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6703	} else {
				6704	my $nr;
				6705	while (my $line = <$fd>) {
				6706	chomp $line;
				6707	$nr++;
				6708	$line = untabify($line);
Jakub Narebski	592ea41	2010-04-27 21:34:45 +0200	[diff] [blame]	6709	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]	6710	$nr, esc_attr(href(-replay => 1)), $nr, $nr,
				6711	$syntax ? sanitize($line) : esc_html($line, -nbsp=>1);
Jakub Narebski	dfa7c7d	2007-12-15 15:41:49 +0100	[diff] [blame]	6712	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6713	}
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	6714	close $fd
				6715	or print "Reading blob failed.\n";
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	6716	print "</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6717	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6718	}
				6719
				6720	sub git_tree {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	6721	if (!defined $hash_base) {
				6722	$hash_base = "HEAD";
				6723	}
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	6724	if (!defined $hash) {
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6725	if (defined $file_name) {
Luben Tuikov	6f7ea5f	2006-09-29 09:57:43 -0700	[diff] [blame]	6726	$hash = git_get_hash_by_path($hash_base, $file_name, "tree");
				6727	} else {
				6728	$hash = $hash_base;
Kay Sievers	10dba28	2005-08-07 20:25:27 +0200	[diff] [blame]	6729	}
Kay Sievers	e925f38	2005-08-07 20:23:35 +0200	[diff] [blame]	6730	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	6731	die_error(404, "No such tree") unless defined($hash);
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6732
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6733	my $show_sizes = gitweb_check_feature('show-sizes');
				6734	my $have_blame = gitweb_check_feature('blame');
				6735
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6736	my @entries = ();
				6737	{
				6738	local $/ = "\0";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6739	open my $fd, "-\|", git_cmd(), "ls-tree", '-z',
				6740	($show_sizes ? '-l' : ()), @extra_options, $hash
Jakub Narebski	34122b5	2009-05-11 03:29:40 +0200	[diff] [blame]	6741	or die_error(500, "Open git-ls-tree failed");
				6742	@entries = map { chomp; $_ } <$fd>;
				6743	close $fd
				6744	or die_error(404, "Reading tree failed");
				6745	}
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6746
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6747	my $refs = git_get_references();
				6748	my $ref = format_ref_marker($refs, $hash_base);
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6749	git_header_html();
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6750	my $basedir = '';
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6751	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6752	my @views_nav = ();
				6753	if (defined $file_name) {
				6754	push @views_nav,
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	6755	$cgi->a({-href => href(action=>"history", -replay=>1)},
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6756	"history"),
				6757	$cgi->a({-href => href(action=>"tree",
				6758	hash_base=>"HEAD", file_name=>$file_name)},
Petr Baudis	f35274d	2006-09-22 03:19:53 +0200	[diff] [blame]	6759	"HEAD"),
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6760	}
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6761	my $snapshot_links = format_snapshot_links($hash);
				6762	if (defined $snapshot_links) {
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6763	# FIXME: Should be available when we have no hash base as well.
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6764	push @views_nav, $snapshot_links;
Petr Baudis	cae1862	2006-09-22 03:19:41 +0200	[diff] [blame]	6765	}
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6766	git_print_page_nav('tree','', $hash_base, undef, undef,
				6767	join(' \| ', @views_nav));
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6768	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash_base);
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6769	} else {
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	6770	undef $hash_base;
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6771	print "<div class=\"page_nav\">\n";
				6772	print "<br/><br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	6773	print "<div class=\"title\">".esc_html($hash)."</div>\n";
Kay Sievers	d63577d	2005-08-07 20:18:13 +0200	[diff] [blame]	6774	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6775	if (defined $file_name) {
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6776	$basedir = $file_name;
				6777	if ($basedir ne '' && substr($basedir, -1) ne '/') {
				6778	$basedir .= '/';
				6779	}
Jakub Narebski	2d7a353	2008-10-02 16:50:04 +0200	[diff] [blame]	6780	git_print_page_path($file_name, 'tree', $hash_base);
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6781	}
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	6782	print "<div class=\"page_body\">\n";
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	6783	print "<table class=\"tree\">\n";
Luben Tuikov	6dd36ac	2006-09-28 16:47:50 -0700	[diff] [blame]	6784	my $alternate = 1;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6785	# '..' (top directory) link if possible
				6786	if (defined $hash_base &&
				6787	defined $file_name && $file_name =~ m![^/]+$!) {
				6788	if ($alternate) {
				6789	print "<tr class=\"dark\">\n";
				6790	} else {
				6791	print "<tr class=\"light\">\n";
				6792	}
				6793	$alternate ^= 1;
				6794
				6795	my $up = $file_name;
				6796	$up =~ s!/?[^/]+$!!;
				6797	undef $up unless $up;
				6798	# based on git_print_tree_entry
				6799	print '<td class="mode">' . mode_str('040000') . "</td>\n";
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6800	print '<td class="size"> </td>'."\n" if $show_sizes;
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6801	print '<td class="list">';
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6802	print $cgi->a({-href => href(action=>"tree",
				6803	hash_base=>$hash_base,
Jakub Narebski	b6b7fc7	2006-10-21 17:54:44 +0200	[diff] [blame]	6804	file_name=>$up)},
				6805	"..");
				6806	print "</td>\n";
				6807	print "<td class=\"link\"></td>\n";
				6808
				6809	print "</tr>\n";
				6810	}
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6811	foreach my $line (@entries) {
Jakub Narebski	e4b48ea	2009-09-07 14:40:00 +0200	[diff] [blame]	6812	my %t = parse_ls_tree_line($line, -z => 1, -l => $show_sizes);
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	6813
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6814	if ($alternate) {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	6815	print "<tr class=\"dark\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6816	} else {
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	6817	print "<tr class=\"light\">\n";
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	6818	}
				6819	$alternate ^= 1;
Jakub Narebski	cb849b4	2006-08-31 00:32:15 +0200	[diff] [blame]	6820
Jakub Narebski	300454f	2006-10-21 17:53:09 +0200	[diff] [blame]	6821	git_print_tree_entry(\%t, $basedir, $hash_base, $have_blame);
Jakub Narebski	fa70200	2006-08-31 00:35:07 +0200	[diff] [blame]	6822
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	6823	print "</tr>\n";
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6824	}
Kay Sievers	42f7eb9	2005-08-07 20:21:46 +0200	[diff] [blame]	6825	print "</table>\n" .
				6826	"</div>";
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	6827	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6828	}
				6829
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6830	sub snapshot_name {
				6831	my ($project, $hash) = @_;
				6832
				6833	# path/to/project.git -> project
				6834	# path/to/project/.git -> project
				6835	my $name = to_utf8($project);
				6836	$name =~ s,([^/])/*\.git$,$1,;
				6837	$name = basename($name);
				6838	# sanitize name
				6839	$name =~ s/[[:cntrl:]]/?/g;
				6840
				6841	my $ver = $hash;
				6842	if ($hash =~ /^[0-9a-fA-F]+$/) {
				6843	# shorten SHA-1 hash
				6844	my $full_hash = git_get_full_hash($project, $hash);
				6845	if ($full_hash =~ /^$hash/ && length($hash) > 7) {
				6846	$ver = git_get_short_hash($project, $hash);
				6847	}
				6848	} elsif ($hash =~ m!^refs/tags/(.*)$!) {
				6849	# tags don't need shortened SHA-1 hash
				6850	$ver = $1;
				6851	} else {
				6852	# branches and other need shortened SHA-1 hash
				6853	if ($hash =~ m!^refs/(?:heads\|remotes)/(.*)$!) {
				6854	$ver = $1;
				6855	}
				6856	$ver .= '-' . git_get_short_hash($project, $hash);
				6857	}
				6858	# in case of hierarchical branch names
				6859	$ver =~ s!/!.!g;
				6860
				6861	# name = project-version_string
				6862	$name = "$name-$ver";
				6863
				6864	return wantarray ? ($name, $name) : $name;
				6865	}
				6866
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6867	sub git_snapshot {
Giuseppe Bilotta	1b2d297	2008-10-10 20:42:26 +0200	[diff] [blame]	6868	my $format = $input_params{'snapshot_format'};
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	6869	if (!@snapshot_fmts) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6870	die_error(403, "Snapshots not allowed");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6871	}
				6872	# default to first supported snapshot format
Giuseppe Bilotta	5e16684	2008-11-02 10:21:37 +0100	[diff] [blame]	6873	$format \|\|= $snapshot_fmts[0];
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6874	if ($format !~ m/^[a-z0-9]+$/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6875	die_error(400, "Invalid snapshot format parameter");
Jakub Narebski	3473e7d	2007-07-25 01:19:58 +0200	[diff] [blame]	6876	} elsif (!exists($known_snapshot_formats{$format})) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6877	die_error(400, "Unknown snapshot format");
Mark A Rada	1bfd363	2009-08-06 10:25:39 -0400	[diff] [blame]	6878	} elsif ($known_snapshot_formats{$format}{'disabled'}) {
				6879	die_error(403, "Snapshot format not allowed");
Mark Rada	34b31a8	2009-08-25 00:59:48 -0400	[diff] [blame]	6880	} elsif (!grep($_ eq $format, @snapshot_fmts)) {
				6881	die_error(403, "Unsupported snapshot format");
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	6882	}
				6883
Mark Rada	fdb0c36	2009-09-26 13:46:08 -0400	[diff] [blame]	6884	my $type = git_get_type("$hash^{}");
				6885	if (!$type) {
				6886	die_error(404, 'Object does not exist');
				6887	} elsif ($type eq 'blob') {
				6888	die_error(400, 'Object is not a tree-ish');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6889	}
				6890
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6891	my ($name, $prefix) = snapshot_name($project, $hash);
				6892	my $filename = "$name$known_snapshot_formats{$format}{'suffix'}";
				6893	my $cmd = quote_command(
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	6894	git_cmd(), 'archive',
				6895	"--format=$known_snapshot_formats{$format}{'format'}",
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6896	"--prefix=$prefix/", $hash);
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6897	if (exists $known_snapshot_formats{$format}{'compressor'}) {
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	6898	$cmd .= ' \| ' . quote_command(@{$known_snapshot_formats{$format}{'compressor'}});
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	6899	}
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6900
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6901	$filename =~ s/(["\\])/\\$1/g;
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6902	print $cgi->header(
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	6903	-type => $known_snapshot_formats{$format}{'type'},
Mark Rada	b629275	2009-11-07 16:13:29 +0100	[diff] [blame]	6904	-content_disposition => 'inline; filename="' . $filename . '"',
Jakub Narebski	ab41dfb	2006-09-26 01:59:43 +0200	[diff] [blame]	6905	-status => '200 OK');
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6906
Mark Levedahl	072570e	2007-05-20 11:46:46 -0400	[diff] [blame]	6907	open my $fd, "-\|", $cmd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6908	or die_error(500, "Execute git-archive failed");
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6909	binmode STDOUT, ':raw';
				6910	print <$fd>;
				6911	binmode STDOUT, ':utf8'; # as set at the beginning of gitweb.cgi
				6912	close $fd;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	6913	}
				6914
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6915	sub git_log_generic {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6916	my ($fmt_name, $body_subr, $base, $parent, $file_name, $file_hash) = @_;
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6917
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6918	my $head = git_get_head_hash($project);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6919	if (!defined $base) {
				6920	$base = $head;
Kay Sievers	0db3797	2005-08-07 20:24:35 +0200	[diff] [blame]	6921	}
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	6922	if (!defined $page) {
				6923	$page = 0;
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	6924	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	6925	my $refs = git_get_references();
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	6926
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6927	my $commit_hash = $base;
				6928	if (defined $parent) {
				6929	$commit_hash = "$parent..$base";
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6930	}
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6931	my @commitlist =
				6932	parse_commits($commit_hash, 101, (100 * $page),
				6933	defined $file_name ? ($file_name, "--full-history") : ());
Kay Sievers	ea4a6df	2005-08-07 20:26:49 +0200	[diff] [blame]	6934
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6935	my $ftype;
				6936	if (!defined $file_hash && defined $file_name) {
				6937	# some commits could have deleted file in question,
				6938	# and not have it in tree, but one of them has to have it
				6939	for (my $i = 0; $i < @commitlist; $i++) {
				6940	$file_hash = git_get_hash_by_path($commitlist[$i]{'id'}, $file_name);
				6941	last if defined $file_hash;
				6942	}
				6943	}
				6944	if (defined $file_hash) {
				6945	$ftype = git_get_type($file_hash);
				6946	}
				6947	if (defined $file_name && !defined $ftype) {
				6948	die_error(500, "Unknown type of object");
				6949	}
				6950	my %co;
				6951	if (defined $file_name) {
				6952	%co = parse_commit($base)
				6953	or die_error(404, "Unknown commit object");
				6954	}
				6955
				6956
				6957	my $paging_nav = format_paging_nav($fmt_name, $page, $#commitlist >= 100);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6958	my $next_link = '';
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	6959	if ($#commitlist >= 100) {
				6960	$next_link =
				6961	$cgi->a({-href => href(-replay=>1, page=>$page+1),
				6962	-accesskey => "n", -title => "Alt-n"}, "next");
				6963	}
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6964	my $patch_max = gitweb_get_feature('patches');
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6965	if ($patch_max && !defined $file_name) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	6966	if ($patch_max < 0 \|\| @commitlist <= $patch_max) {
				6967	$paging_nav .= " ⋅ " .
				6968	$cgi->a({-href => href(action=>"patches", -replay=>1)},
				6969	"patches");
				6970	}
				6971	}
				6972
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6973	git_header_html();
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6974	git_print_page_nav($fmt_name,'', $hash,$hash,$hash, $paging_nav);
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6975	if (defined $file_name) {
				6976	git_print_header_div('commit', esc_html($co{'title'}), $base);
				6977	} else {
				6978	git_print_header_div('summary', $project)
				6979	}
				6980	git_print_page_path($file_name, $ftype, $hash_base)
				6981	if (defined $file_name);
Jakub Narebski	0d83ddc	2006-07-30 15:01:07 +0200	[diff] [blame]	6982
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6983	$body_subr->(\@commitlist, 0, 99, $refs, $next_link,
				6984	$file_name, $file_hash, $ftype);
Jakub Narebski	42671ca	2009-11-13 02:02:12 +0100	[diff] [blame]	6985
Kay Sievers	034df39	2005-08-07 20:20:07 +0200	[diff] [blame]	6986	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6987	}
				6988
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6989	sub git_log {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	6990	git_log_generic('log', \&git_log_body,
				6991	$hash, $hash_parent);
Jakub Narebski	15f0b11	2009-11-13 02:02:13 +0100	[diff] [blame]	6992	}
				6993
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	6994	sub git_commit {
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	6995	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	6996	my %co = parse_commit($hash)
				6997	or die_error(404, "Unknown commit object");
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	6998
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	6999	my $parent = $co{'parent'};
				7000	my $parents = $co{'parents'}; # listref
				7001
				7002	# we need to prepare $formats_nav before any parameter munging
				7003	my $formats_nav;
				7004	if (!defined $parent) {
				7005	# --root commitdiff
				7006	$formats_nav .= '(initial)';
				7007	} elsif (@$parents == 1) {
				7008	# single parent commit
				7009	$formats_nav .=
				7010	'(parent: ' .
				7011	$cgi->a({-href => href(action=>"commit",
				7012	hash=>$parent)},
				7013	esc_html(substr($parent, 0, 7))) .
				7014	')';
				7015	} else {
				7016	# merge commit
				7017	$formats_nav .=
				7018	'(merge: ' .
				7019	join(' ', map {
Jakub Narebski	f9308a1	2007-03-23 21:04:31 +0100	[diff] [blame]	7020	$cgi->a({-href => href(action=>"commit",
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7021	hash=>$_)},
				7022	esc_html(substr($_, 0, 7)));
				7023	} @$parents ) .
				7024	')';
				7025	}
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7026	if (gitweb_check_feature('patches') && @$parents <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7027	$formats_nav .= " \| " .
				7028	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7029	"patch");
				7030	}
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7031
Kay Sievers	d8a20ba	2005-08-07 20:28:53 +0200	[diff] [blame]	7032	if (!defined $parent) {
Jakub Narebski	b918298	2006-07-30 18:28:34 -0700	[diff] [blame]	7033	$parent = "--root";
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7034	}
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7035	my @difftree;
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7036	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', "--no-commit-id",
				7037	@diff_opts,
				7038	(@$parents <= 1 ? $parent : '-c'),
				7039	$hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7040	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7041	@difftree = map { chomp; $_ } <$fd>;
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7042	close $fd or die_error(404, "Reading git-diff-tree failed");
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7043
				7044	# non-textual hash id's can be cached
				7045	my $expires;
				7046	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7047	$expires = "+1d";
				7048	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7049	my $refs = git_get_references();
				7050	my $ref = format_ref_marker($refs, $co{'id'});
Aneesh Kumar K.V	ddb8d90	2006-08-20 11:53:04 +0530	[diff] [blame]	7051
Jakub Narebski	594e212	2006-07-31 02:21:52 +0200	[diff] [blame]	7052	git_header_html(undef, $expires);
Petr Baudis	a144154	2006-10-06 18:59:33 +0200	[diff] [blame]	7053	git_print_page_nav('commit', '',
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7054	$hash, $co{'tree'}, $hash,
Jakub Narebski	c9d193d	2006-12-15 21:57:16 +0100	[diff] [blame]	7055	$formats_nav);
Luben Tuikov	4f7b34c	2006-07-23 13:36:32 -0700	[diff] [blame]	7056
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7057	if (defined $co{'parent'}) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7058	git_print_header_div('commitdiff', esc_html($co{'title'}) . $ref, $hash);
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7059	} else {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7060	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]	7061	}
Kay Sievers	6191f8e	2005-08-07 20:19:56 +0200	[diff] [blame]	7062	print "<div class=\"title_text\">\n" .
Jakub Narebski	591ebf6	2007-11-19 14:16:11 +0100	[diff] [blame]	7063	"<table class=\"object_header\">\n";
Giuseppe Bilotta	1c49a4e	2009-06-30 00:00:48 +0200	[diff] [blame]	7064	git_print_authorship_rows(\%co);
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7065	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]	7066	print "<tr>" .
				7067	"<td>tree</td>" .
Jakub Narebski	1f1ab5f	2006-06-20 14:58:12 +0000	[diff] [blame]	7068	"<td class=\"sha1\">" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7069	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash),
				7070	class => "list"}, $co{'tree'}) .
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7071	"</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7072	"<td class=\"link\">" .
				7073	$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash)},
				7074	"tree");
Matt McCutchen	a3c8ab3	2007-07-22 01:30:27 +0200	[diff] [blame]	7075	my $snapshot_links = format_snapshot_links($hash);
				7076	if (defined $snapshot_links) {
				7077	print " \| " . $snapshot_links;
Aneesh Kumar K.V	cb9c6e5	2006-08-17 20:59:46 +0530	[diff] [blame]	7078	}
				7079	print "</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7080	"</tr>\n";
Jakub Narebski	549ab4a	2006-12-15 17:53:45 +0100	[diff] [blame]	7081
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7082	foreach my $par (@$parents) {
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7083	print "<tr>" .
				7084	"<td>parent</td>" .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7085	"<td class=\"sha1\">" .
				7086	$cgi->a({-href => href(action=>"commit", hash=>$par),
				7087	class => "list"}, $par) .
				7088	"</td>" .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7089	"<td class=\"link\">" .
Martin Waitz	1c2a4f5	2006-08-16 00:24:30 +0200	[diff] [blame]	7090	$cgi->a({-href => href(action=>"commit", hash=>$par)}, "commit") .
Jakub Narebski	952c65f	2006-08-22 16:52:50 +0200	[diff] [blame]	7091	" \| " .
Jakub Narebski	f2e6094	2006-09-03 23:43:03 +0200	[diff] [blame]	7092	$cgi->a({-href => href(action=>"commitdiff", hash=>$hash, hash_parent=>$par)}, "diff") .
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7093	"</td>" .
				7094	"</tr>\n";
Kay Sievers	3e02929	2005-08-07 20:05:15 +0200	[diff] [blame]	7095	}
Jakub Narebski	7a9b4c5	2006-06-21 09:48:02 +0200	[diff] [blame]	7096	print "</table>".
Kay Sievers	b87d78d	2005-08-07 20:21:04 +0200	[diff] [blame]	7097	"</div>\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7098
Kay Sievers	fbb592a	2005-08-07 20:12:11 +0200	[diff] [blame]	7099	print "<div class=\"page_body\">\n";
Jakub Narebski	d16d093	2006-08-17 11:21:23 +0200	[diff] [blame]	7100	git_print_log($co{'comment'});
Kay Sievers	927dcec	2005-08-07 20:18:44 +0200	[diff] [blame]	7101	print "</div>\n";
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7102
Jakub Narebski	208ecb2	2007-05-07 01:10:08 +0200	[diff] [blame]	7103	git_difftree_body(\@difftree, $hash, @$parents);
Jakub Narebski	4a4a1a5	2006-08-14 02:18:33 +0200	[diff] [blame]	7104
Kay Sievers	12a88f2	2005-08-07 20:02:47 +0200	[diff] [blame]	7105	git_footer_html();
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7106	}
				7107
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7108	sub git_object {
				7109	# object is defined by:
				7110	# - hash or hash_base alone
				7111	# - hash_base and file_name
				7112	my $type;
				7113
				7114	# - hash or hash_base alone
				7115	if ($hash \|\| ($hash_base && !defined $file_name)) {
				7116	my $object_id = $hash \|\| $hash_base;
				7117
Lea Wiemann	516381d	2008-06-17 23:46:35 +0200	[diff] [blame]	7118	open my $fd, "-\|", quote_command(
				7119	git_cmd(), 'cat-file', '-t', $object_id) . ' 2> /dev/null'
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7120	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7121	$type = <$fd>;
				7122	chomp $type;
				7123	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7124	or die_error(404, "Object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7125
				7126	# - hash_base and file_name
				7127	} elsif ($hash_base && defined $file_name) {
				7128	$file_name =~ s,/+$,,;
				7129
				7130	system(git_cmd(), "cat-file", '-e', $hash_base) == 0
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7131	or die_error(404, "Base object does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7132
				7133	# here errors should not hapen
				7134	open my $fd, "-\|", git_cmd(), "ls-tree", $hash_base, "--", $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7135	or die_error(500, "Open git-ls-tree failed");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7136	my $line = <$fd>;
				7137	close $fd;
				7138
				7139	#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'
				7140	unless ($line && $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7141	die_error(404, "File or directory for given base does not exist");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7142	}
				7143	$type = $2;
				7144	$hash = $3;
				7145	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7146	die_error(400, "Not enough information to find object");
Jakub Narebski	ca94601	2006-12-10 13:25:47 +0100	[diff] [blame]	7147	}
				7148
				7149	print $cgi->redirect(-uri => href(action=>$type, -full=>1,
				7150	hash=>$hash, hash_base=>$hash_base,
				7151	file_name=>$file_name),
				7152	-status => '302 Found');
				7153	}
				7154
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7155	sub git_blobdiff {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7156	my $format = shift \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7157	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7158
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7159	my $fd;
				7160	my @difftree;
				7161	my %diffinfo;
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7162	my $expires;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7163
				7164	# preparing $fd and %diffinfo for git_patchset_body
				7165	# new style URI
				7166	if (defined $hash_base && defined $hash_parent_base) {
				7167	if (defined $file_name) {
				7168	# read raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7169	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7170	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7171	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7172	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7173	@difftree = map { chomp; $_ } <$fd>;
				7174	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7175	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7176	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7177	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7178
Jakub Narebski	0aea337	2006-08-27 23:45:26 +0200	[diff] [blame]	7179	} elsif (defined $hash &&
				7180	$hash =~ /[0-9a-fA-F]{40}/) {
				7181	# try to find filename from $hash
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7182
				7183	# read filtered raw output
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7184	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
				7185	$hash_parent_base, $hash_base, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7186	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7187	@difftree =
				7188	# ':100644 100644 03b21826... 3b93d5e7... M ls-files.c'
				7189	# $hash == to_id
				7190	grep { /^:[0-7]{6} [0-7]{6} [0-9a-fA-F]{40} $hash/ }
				7191	map { chomp; $_ } <$fd>;
				7192	close $fd
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7193	or die_error(404, "Reading git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7194	@difftree
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7195	or die_error(404, "Blob diff not found");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7196
				7197	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7198	die_error(400, "Missing one of the blob diff parameters");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7199	}
				7200
				7201	if (@difftree > 1) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7202	die_error(400, "Ambiguous blob diff specification");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7203	}
				7204
				7205	%diffinfo = parse_difftree_raw_line($difftree[0]);
Jakub Narebski	9d30145	2007-11-01 12:38:08 +0100	[diff] [blame]	7206	$file_parent \|\|= $diffinfo{'from_file'} \|\| $file_name;
				7207	$file_name \|\|= $diffinfo{'to_file'};
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7208
				7209	$hash_parent \|\|= $diffinfo{'from_id'};
				7210	$hash \|\|= $diffinfo{'to_id'};
				7211
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7212	# non-textual hash id's can be cached
				7213	if ($hash_base =~ m/^[0-9a-fA-F]{40}$/ &&
				7214	$hash_parent_base =~ m/^[0-9a-fA-F]{40}$/) {
				7215	$expires = '+1d';
				7216	}
				7217
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7218	# open patch output
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7219	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	957d6ea	2007-04-05 13:45:41 +0200	[diff] [blame]	7220	'-p', ($format eq 'html' ? "--full-index" : ()),
				7221	$hash_parent_base, $hash_base,
Jakub Narebski	5ae917a	2007-03-30 23:41:26 +0200	[diff] [blame]	7222	"--", (defined $file_parent ? $file_parent : ()), $file_name
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7223	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7224	}
				7225
Junio C Hamano	b54dc9f	2008-12-16 19:42:02 -0800	[diff] [blame]	7226	# old/legacy style URI -- not generated anymore since 1.4.3.
				7227	if (!%diffinfo) {
				7228	die_error('404 Not Found', "Missing one of the blob diff parameters")
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7229	}
				7230
				7231	# header
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7232	if ($format eq 'html') {
				7233	my $formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7234	$cgi->a({-href => href(action=>"blobdiff_plain", -replay=>1)},
Petr Baudis	35329cc	2006-09-22 03:19:50 +0200	[diff] [blame]	7235	"raw");
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7236	$formats_nav .= diff_style_nav($diff_style);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7237	git_header_html(undef, $expires);
				7238	if (defined $hash_base && (my %co = parse_commit($hash_base))) {
				7239	git_print_page_nav('','', $hash_base,$co{'tree'},$hash_base, $formats_nav);
				7240	git_print_header_div('commit', esc_html($co{'title'}), $hash_base);
				7241	} else {
				7242	print "<div class=\"page_nav\"><br/>$formats_nav<br/></div>\n";
Jakub Narebski	3017ed6	2010-12-15 00:34:01 +0100	[diff] [blame]	7243	print "<div class=\"title\">".esc_html("$hash vs $hash_parent")."</div>\n";
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7244	}
				7245	if (defined $file_name) {
				7246	git_print_page_path($file_name, "blob", $hash_base);
				7247	} else {
				7248	print "<div class=\"page_path\"></div>\n";
				7249	}
				7250
				7251	} elsif ($format eq 'plain') {
				7252	print $cgi->header(
				7253	-type => 'text/plain',
				7254	-charset => 'utf-8',
				7255	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7256	-content_disposition => 'inline; filename="' . "$file_name" . '.patch"');
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7257
				7258	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
				7259
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7260	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7261	die_error(400, "Unknown blobdiff format");
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7262	}
				7263
				7264	# patch
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7265	if ($format eq 'html') {
				7266	print "<div class=\"page_body\">\n";
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7267
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7268	git_patchset_body($fd, $diff_style,
				7269	[ \%diffinfo ], $hash_base, $hash_parent_base);
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7270	close $fd;
Jakub Narebski	7c5e2eb	2006-08-25 21:13:34 +0200	[diff] [blame]	7271
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7272	print "</div>\n"; # class="page_body"
				7273	git_footer_html();
				7274
				7275	} else {
				7276	while (my $line = <$fd>) {
Jakub Narebski	403d090	2006-11-08 11:48:56 +0100	[diff] [blame]	7277	$line =~ s!a/($hash\|$hash_parent)!'a/'.esc_path($diffinfo{'from_file'})!eg;
				7278	$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]	7279
				7280	print $line;
				7281
				7282	last if $line =~ m!^\+\+\+!;
				7283	}
				7284	local $/ = undef;
				7285	print <$fd>;
				7286	close $fd;
				7287	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7288	}
				7289
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7290	sub git_blobdiff_plain {
Jakub Narebski	9b71b1f	2006-08-25 21:14:49 +0200	[diff] [blame]	7291	git_blobdiff('plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7292	}
				7293
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7294	# assumes that it is added as later part of already existing navigation,
				7295	# so it returns "\| foo \| bar" rather than just "foo \| bar"
				7296	sub diff_style_nav {
				7297	my ($diff_style, $is_combined) = @_;
				7298	$diff_style \|\|= 'inline';
				7299
				7300	return "" if ($is_combined);
				7301
				7302	my @styles = (inline => 'inline', 'sidebyside' => 'side by side');
				7303	my %styles = @styles;
				7304	@styles =
				7305	@styles[ map { $_ * 2 } 0..$#styles/2 ];
				7306
				7307	return join '',
				7308	map { " \| ".$_ }
				7309	map {
				7310	$_ eq $diff_style ? $styles{$_} :
				7311	$cgi->a({-href => href(-replay=>1, diff_style => $_)}, $styles{$_})
				7312	} @styles;
				7313	}
				7314
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7315	sub git_commitdiff {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7316	my %params = @_;
				7317	my $format = $params{-format} \|\| 'html';
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7318	my $diff_style = $input_params{'diff_style'} \|\| 'inline';
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7319
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7320	my ($patch_max) = gitweb_get_feature('patches');
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7321	if ($format eq 'patch') {
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7322	die_error(403, "Patch view not allowed") unless $patch_max;
				7323	}
				7324
Jakub Narebski	9954f77	2006-11-18 23:35:41 +0100	[diff] [blame]	7325	$hash \|\|= $hash_base \|\| "HEAD";
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7326	my %co = parse_commit($hash)
				7327	or die_error(404, "Unknown commit object");
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7328
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7329	# choose format for commitdiff for merge
				7330	if (! defined $hash_parent && @{$co{'parents'}} > 1) {
				7331	$hash_parent = '--cc';
				7332	}
				7333	# we need to prepare $formats_nav before almost any parameter munging
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7334	my $formats_nav;
				7335	if ($format eq 'html') {
				7336	$formats_nav =
Jakub Narebski	a3823e5	2007-11-01 13:06:29 +0100	[diff] [blame]	7337	$cgi->a({-href => href(action=>"commitdiff_plain", -replay=>1)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7338	"raw");
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7339	if ($patch_max && @{$co{'parents'}} <= 1) {
Giuseppe Bilotta	75bf2cb	2008-12-18 08:13:19 +0100	[diff] [blame]	7340	$formats_nav .= " \| " .
				7341	$cgi->a({-href => href(action=>"patch", -replay=>1)},
				7342	"patch");
				7343	}
Kato Kazuyoshi	6ae683c	2011-10-31 00:36:27 +0100	[diff] [blame]	7344	$formats_nav .= diff_style_nav($diff_style, @{$co{'parents'}} > 1);
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7345
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7346	if (defined $hash_parent &&
				7347	$hash_parent ne '-c' && $hash_parent ne '--cc') {
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7348	# commitdiff with two commits given
				7349	my $hash_parent_short = $hash_parent;
				7350	if ($hash_parent =~ m/^[0-9a-fA-F]{40}$/) {
				7351	$hash_parent_short = substr($hash_parent, 0, 7);
				7352	}
				7353	$formats_nav .=
Jakub Narebski	ada3e1f	2007-06-08 13:26:31 +0200	[diff] [blame]	7354	' (from';
				7355	for (my $i = 0; $i < @{$co{'parents'}}; $i++) {
				7356	if ($co{'parents'}[$i] eq $hash_parent) {
				7357	$formats_nav .= ' parent ' . ($i+1);
				7358	last;
				7359	}
				7360	}
				7361	$formats_nav .= ': ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7362	$cgi->a({-href => href(-replay=>1,
				7363	hash=>$hash_parent, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7364	esc_html($hash_parent_short)) .
				7365	')';
				7366	} elsif (!$co{'parent'}) {
				7367	# --root commitdiff
				7368	$formats_nav .= ' (initial)';
				7369	} elsif (scalar @{$co{'parents'}} == 1) {
				7370	# single parent commit
				7371	$formats_nav .=
				7372	' (parent: ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7373	$cgi->a({-href => href(-replay=>1,
				7374	hash=>$co{'parent'}, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7375	esc_html(substr($co{'parent'}, 0, 7))) .
				7376	')';
				7377	} else {
				7378	# merge commit
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7379	if ($hash_parent eq '--cc') {
				7380	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7381	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7382	hash=>$hash, hash_parent=>'-c')},
				7383	'combined');
				7384	} else { # $hash_parent eq '-c'
				7385	$formats_nav .= ' \| ' .
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7386	$cgi->a({-href => href(-replay=>1,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7387	hash=>$hash, hash_parent=>'--cc')},
				7388	'compact');
				7389	}
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7390	$formats_nav .=
				7391	' (merge: ' .
				7392	join(' ', map {
Jakub Narebski	d0e6e29	2011-10-31 00:36:26 +0100	[diff] [blame]	7393	$cgi->a({-href => href(-replay=>1,
				7394	hash=>$_, hash_base=>undef)},
Jakub Narebski	151602d	2006-10-23 00:37:56 +0200	[diff] [blame]	7395	esc_html(substr($_, 0, 7)));
				7396	} @{$co{'parents'}} ) .
				7397	')';
				7398	}
				7399	}
				7400
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7401	my $hash_parent_param = $hash_parent;
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7402	if (!defined $hash_parent_param) {
				7403	# --cc for multiple parents, --root for parentless
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7404	$hash_parent_param =
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7405	@{$co{'parents'}} > 1 ? '--cc' : $co{'parent'} \|\| '--root';
Kay Sievers	bddec01	2005-08-07 20:25:42 +0200	[diff] [blame]	7406	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7407
				7408	# read commitdiff
				7409	my $fd;
				7410	my @difftree;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7411	if ($format eq 'html') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7412	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	45bd0c8	2006-10-30 22:29:06 +0100	[diff] [blame]	7413	"--no-commit-id", "--patch-with-raw", "--full-index",
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7414	$hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7415	or die_error(500, "Open git-diff-tree failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7416
Jakub Narebski	04408c3	2006-11-18 23:35:38 +0100	[diff] [blame]	7417	while (my $line = <$fd>) {
				7418	chomp $line;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7419	# empty line ends raw part of diff-tree output
				7420	last unless $line;
Jakub Narebski	493e01d	2007-05-07 01:10:06 +0200	[diff] [blame]	7421	push @difftree, scalar parse_difftree_raw_line($line);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7422	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7423
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7424	} elsif ($format eq 'plain') {
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7425	open $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	fb1dde4	2007-05-07 01:10:07 +0200	[diff] [blame]	7426	'-p', $hash_parent_param, $hash, "--"
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7427	or die_error(500, "Open git-diff-tree failed");
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7428	} elsif ($format eq 'patch') {
				7429	# For commit ranges, we limit the output to the number of
				7430	# patches specified in the 'patches' feature.
				7431	# For single commits, we limit the output to a single patch,
				7432	# diverging from the git-format-patch default.
				7433	my @commit_spec = ();
				7434	if ($hash_parent) {
				7435	if ($patch_max > 0) {
				7436	push @commit_spec, "-$patch_max";
				7437	}
				7438	push @commit_spec, '-n', "$hash_parent..$hash";
				7439	} else {
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7440	if ($params{-single}) {
				7441	push @commit_spec, '-1';
				7442	} else {
				7443	if ($patch_max > 0) {
				7444	push @commit_spec, "-$patch_max";
				7445	}
				7446	push @commit_spec, "-n";
				7447	}
				7448	push @commit_spec, '--root', $hash;
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7449	}
Pavan Kumar Sunkara	04794fd	2010-05-10 18:41:35 +0200	[diff] [blame]	7450	open $fd, "-\|", git_cmd(), "format-patch", @diff_opts,
				7451	'--encoding=utf8', '--stdout', @commit_spec
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7452	or die_error(500, "Open git-format-patch failed");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7453	} else {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7454	die_error(400, "Unknown commitdiff format");
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7455	}
Kay Sievers	4c02e3c	2005-08-07 19:52:52 +0200	[diff] [blame]	7456
Kay Sievers	1104429	2005-10-19 03:18:45 +0200	[diff] [blame]	7457	# non-textual hash id's can be cached
				7458	my $expires;
				7459	if ($hash =~ m/^[0-9a-fA-F]{40}$/) {
				7460	$expires = "+1d";
				7461	}
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7462
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7463	# write commit message
				7464	if ($format eq 'html') {
				7465	my $refs = git_get_references();
				7466	my $ref = format_ref_marker($refs, $co{'id'});
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7467
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7468	git_header_html(undef, $expires);
				7469	git_print_page_nav('commitdiff','', $hash,$co{'tree'},$hash, $formats_nav);
				7470	git_print_header_div('commit', esc_html($co{'title'}) . $ref, $hash);
Giuseppe Bilotta	f88bafa	2009-06-30 00:00:49 +0200	[diff] [blame]	7471	print "<div class=\"title_text\">\n" .
				7472	"<table class=\"object_header\">\n";
				7473	git_print_authorship_rows(\%co);
				7474	print "</table>".
				7475	"</div>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7476	print "<div class=\"page_body\">\n";
Jakub Narebski	8256098	2006-10-24 13:55:33 +0200	[diff] [blame]	7477	if (@{$co{'comment'}} > 1) {
				7478	print "<div class=\"log\">\n";
				7479	git_print_log($co{'comment'}, -final_empty_line=> 1, -remove_title => 1);
				7480	print "</div>\n"; # class="log"
				7481	}
Kay Sievers	1b1cd42	2005-08-07 20:28:01 +0200	[diff] [blame]	7482
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7483	} elsif ($format eq 'plain') {
				7484	my $refs = git_get_references("tags");
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7485	my $tagname = git_get_rev_name_tags($hash);
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7486	my $filename = basename($project) . "-$hash.patch";
				7487
				7488	print $cgi->header(
				7489	-type => 'text/plain',
				7490	-charset => 'utf-8',
				7491	-expires => $expires,
Luben Tuikov	a2a3bf7	2006-09-28 16:51:43 -0700	[diff] [blame]	7492	-content_disposition => 'inline; filename="' . "$filename" . '"');
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7493	my %ad = parse_date($co{'author_epoch'}, $co{'author_tz'});
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7494	print "From: " . to_utf8($co{'author'}) . "\n";
				7495	print "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n";
				7496	print "Subject: " . to_utf8($co{'title'}) . "\n";
				7497
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7498	print "X-Git-Tag: $tagname\n" if $tagname;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7499	print "X-Git-Url: " . $cgi->self_url() . "\n\n";
Jakub Narebski	edf735a	2006-08-24 19:45:30 +0200	[diff] [blame]	7500
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7501	foreach my $line (@{$co{'comment'}}) {
Yasushi SHOJI	7720224	2008-01-29 21:16:02 +0900	[diff] [blame]	7502	print to_utf8($line) . "\n";
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7503	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7504	print "---\n\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7505	} elsif ($format eq 'patch') {
				7506	my $filename = basename($project) . "-$hash.patch";
				7507
				7508	print $cgi->header(
				7509	-type => 'text/plain',
				7510	-charset => 'utf-8',
				7511	-expires => $expires,
				7512	-content_disposition => 'inline; filename="' . "$filename" . '"');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7513	}
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7514
				7515	# write patch
				7516	if ($format eq 'html') {
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7517	my $use_parents = !defined $hash_parent \|\|
				7518	$hash_parent eq '-c' \|\| $hash_parent eq '--cc';
				7519	git_difftree_body(\@difftree, $hash,
				7520	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	b4657e7	2006-08-28 14:48:14 +0200	[diff] [blame]	7521	print "<br/>\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7522
Kato Kazuyoshi	6ba1eb5	2011-10-31 00:36:22 +0100	[diff] [blame]	7523	git_patchset_body($fd, $diff_style,
				7524	\@difftree, $hash,
Jakub Narebski	cd030c3	2007-06-08 13:33:28 +0200	[diff] [blame]	7525	$use_parents ? @{$co{'parents'}} : $hash_parent);
Jakub Narebski	157e43b	2006-08-24 19:34:36 +0200	[diff] [blame]	7526	close $fd;
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7527	print "</div>\n"; # class="page_body"
				7528	git_footer_html();
				7529
				7530	} elsif ($format eq 'plain') {
				7531	local $/ = undef;
				7532	print <$fd>;
				7533	close $fd
				7534	or print "Reading git-diff-tree failed\n";
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7535	} elsif ($format eq 'patch') {
				7536	local $/ = undef;
				7537	print <$fd>;
				7538	close $fd
				7539	or print "Reading git-format-patch failed\n";
Jakub Narebski	eee0890	2006-08-24 00:15:14 +0200	[diff] [blame]	7540	}
				7541	}
				7542
				7543	sub git_commitdiff_plain {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7544	git_commitdiff(-format => 'plain');
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7545	}
				7546
Giuseppe Bilotta	9872cd6	2008-12-18 08:13:16 +0100	[diff] [blame]	7547	# format-patch-style patches
				7548	sub git_patch {
Jakub Narebski	1655c98	2009-10-09 14:26:44 +0200	[diff] [blame]	7549	git_commitdiff(-format => 'patch', -single => 1);
Giuseppe Bilotta	a3411f8	2008-12-18 08:13:18 +0100	[diff] [blame]	7550	}
				7551
				7552	sub git_patches {
Giuseppe Bilotta	2020985	2008-12-18 08:13:17 +0100	[diff] [blame]	7553	git_commitdiff(-format => 'patch');
Kay Sievers	09bd789	2005-08-07 20:21:23 +0200	[diff] [blame]	7554	}
				7555
				7556	sub git_history {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7557	git_log_generic('history', \&git_history_body,
				7558	$hash_base, $hash_parent_base,
				7559	$file_name, $hash);
Kay Sievers	161332a	2005-08-07 19:49:46 +0200	[diff] [blame]	7560	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7561
				7562	sub git_search {
Jakub Narebski	e0ca364	2011-06-22 17:28:52 +0200	[diff] [blame]	7563	$searchtype \|\|= 'commit';
				7564
				7565	# check if appropriate features are enabled
				7566	gitweb_check_feature('search')
				7567	or die_error(403, "Search is disabled");
				7568	if ($searchtype eq 'pickaxe') {
				7569	# pickaxe may take all resources of your box and run for several minutes
				7570	# with every query - so decide by yourself how public you make this feature
				7571	gitweb_check_feature('pickaxe')
				7572	or die_error(403, "Pickaxe search is disabled");
				7573	}
				7574	if ($searchtype eq 'grep') {
				7575	# grep search might be potentially CPU-intensive, too
				7576	gitweb_check_feature('grep')
				7577	or die_error(403, "Grep search is disabled");
				7578	}
				7579
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7580	if (!defined $searchtext) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7581	die_error(400, "Text field is empty");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7582	}
				7583	if (!defined $hash) {
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7584	$hash = git_get_head_hash($project);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7585	}
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7586	my %co = parse_commit($hash);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7587	if (!%co) {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7588	die_error(404, "Unknown commit object");
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7589	}
Robert Fitzsimons	8dbc0fc	2006-12-23 14:57:12 +0000	[diff] [blame]	7590	if (!defined $page) {
				7591	$page = 0;
				7592	}
Jakub Narebski	04f7a94	2006-09-11 00:29:27 +0200	[diff] [blame]	7593
Jakub Narebski	16f2072	2011-06-22 17:28:53 +0200	[diff] [blame]	7594	if ($searchtype eq 'commit' \|\|
				7595	$searchtype eq 'author' \|\|
				7596	$searchtype eq 'committer') {
				7597	git_search_message(%co);
				7598	} elsif ($searchtype eq 'pickaxe') {
				7599	git_search_changes(%co);
				7600	} elsif ($searchtype eq 'grep') {
				7601	git_search_files(%co);
Jakub Narebski	1ae05be	2011-06-22 17:28:55 +0200	[diff] [blame]	7602	} else {
				7603	die_error(400, "Unknown search type");
Kay Sievers	c994d62	2005-08-07 20:27:18 +0200	[diff] [blame]	7604	}
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7605	}
				7606
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7607	sub git_search_help {
				7608	git_header_html();
				7609	git_print_page_nav('','', $hash,$hash,$hash);
				7610	print <<EOT;
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7611	<p><strong>Pattern</strong> is by default a normal string that is matched precisely (but without
				7612	regard to case, except in the case of pickaxe). However, when you check the <em>re</em> checkbox,
				7613	the pattern entered is recognized as the POSIX extended
				7614	<a href="http://en.wikipedia.org/wiki/Regular_expression">regular expression</a> (also case
				7615	insensitive).</p>
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7616	<dl>
				7617	<dt><b>commit</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7618	<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]	7619	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7620	my $have_grep = gitweb_check_feature('grep');
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7621	if ($have_grep) {
				7622	print <<EOT;
				7623	<dt><b>grep</b></dt>
				7624	<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]	7625	a different one) are searched for the given pattern. On large trees, this search can take
				7626	a while and put some strain on the server, so please use it with some consideration. Note that
				7627	due to git-grep peculiarity, currently if regexp mode is turned off, the matches are
				7628	case-sensitive.</dd>
Petr Baudis	e773855	2007-05-17 04:31:12 +0200	[diff] [blame]	7629	EOT
				7630	}
				7631	print <<EOT;
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7632	<dt><b>author</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7633	<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]	7634	<dt><b>committer</b></dt>
Petr Baudis	0e55991	2008-02-26 13:22:08 +0100	[diff] [blame]	7635	<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]	7636	EOT
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7637	my $have_pickaxe = gitweb_check_feature('pickaxe');
Petr Baudis	88ad729	2006-10-24 05:15:46 +0200	[diff] [blame]	7638	if ($have_pickaxe) {
				7639	print <<EOT;
				7640	<dt><b>pickaxe</b></dt>
				7641	<dd>All commits that caused the string to appear or disappear from any file (changes that
				7642	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]	7643	takes a lot of strain on the server, so please use it wisely. Note that since you may be
				7644	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]	7645	EOT
				7646	}
				7647	print "</dl>\n";
				7648	git_footer_html();
				7649	}
				7650
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7651	sub git_shortlog {
Jakub Narebski	69ca37d	2009-11-13 02:02:14 +0100	[diff] [blame]	7652	git_log_generic('shortlog', \&git_shortlog_body,
				7653	$hash, $hash_parent);
Kay Sievers	1980669	2005-08-07 20:26:27 +0200	[diff] [blame]	7654	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7655
				7656	## ......................................................................
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7657	## feeds (RSS, Atom; OPML)
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7658
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7659	sub git_feed {
				7660	my $format = shift \|\| 'atom';
Giuseppe Bilotta	25b2790	2008-11-29 13:07:29 -0800	[diff] [blame]	7661	my $have_blame = gitweb_check_feature('blame');
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7662
				7663	# Atom: http://www.atomenabled.org/developers/syndication/
				7664	# RSS: http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ
				7665	if ($format ne 'rss' && $format ne 'atom') {
Lea Wiemann	074afaa	2008-06-19 22:03:21 +0200	[diff] [blame]	7666	die_error(400, "Unknown web feed format");
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7667	}
				7668
				7669	# log/feed of current (HEAD) branch, log of given branch, history of file/directory
				7670	my $head = $hash \|\| 'HEAD';
Jakub Narebski	311e552	2008-02-26 13:22:06 +0100	[diff] [blame]	7671	my @commitlist = parse_commits($head, 150, 0, $file_name);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7672
				7673	my %latest_commit;
				7674	my %latest_date;
				7675	my $content_type = "application/$format+xml";
				7676	if (defined $cgi->http('HTTP_ACCEPT') &&
				7677	$cgi->Accept('text/xml') > $cgi->Accept($content_type)) {
				7678	# browser (feed reader) prefers text/xml
				7679	$content_type = 'text/xml';
				7680	}
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7681	if (defined($commitlist[0])) {
				7682	%latest_commit = %{$commitlist[0]};
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	7683	my $latest_epoch = $latest_commit{'committer_epoch'};
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	7684	%latest_date = parse_date($latest_epoch, $latest_commit{'comitter_tz'});
Giuseppe Bilotta	cd956c7	2009-01-26 12:50:16 +0100	[diff] [blame]	7685	my $if_modified = $cgi->http('IF_MODIFIED_SINCE');
				7686	if (defined $if_modified) {
				7687	my $since;
				7688	if (eval { require HTTP::Date; 1; }) {
				7689	$since = HTTP::Date::str2time($if_modified);
				7690	} elsif (eval { require Time::ParseDate; 1; }) {
				7691	$since = Time::ParseDate::parsedate($if_modified, GMT => 1);
				7692	}
				7693	if (defined $since && $latest_epoch <= $since) {
				7694	print $cgi->header(
				7695	-type => $content_type,
				7696	-charset => 'utf-8',
				7697	-last_modified => $latest_date{'rfc2822'},
				7698	-status => '304 Not Modified');
				7699	return;
				7700	}
				7701	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7702	print $cgi->header(
				7703	-type => $content_type,
				7704	-charset => 'utf-8',
				7705	-last_modified => $latest_date{'rfc2822'});
				7706	} else {
				7707	print $cgi->header(
				7708	-type => $content_type,
				7709	-charset => 'utf-8');
				7710	}
				7711
				7712	# Optimization: skip generating the body if client asks only
				7713	# for Last-Modified date.
				7714	return if ($cgi->request_method() eq 'HEAD');
				7715
				7716	# header variables
				7717	my $title = "$site_name - $project/$action";
				7718	my $feed_type = 'log';
				7719	if (defined $hash) {
				7720	$title .= " - '$hash'";
				7721	$feed_type = 'branch log';
				7722	if (defined $file_name) {
				7723	$title .= " :: $file_name";
				7724	$feed_type = 'history';
				7725	}
				7726	} elsif (defined $file_name) {
				7727	$title .= " - $file_name";
				7728	$feed_type = 'history';
				7729	}
				7730	$title .= " $feed_type";
				7731	my $descr = git_get_project_description($project);
				7732	if (defined $descr) {
				7733	$descr = esc_html($descr);
				7734	} else {
				7735	$descr = "$project " .
				7736	($format eq 'rss' ? 'RSS' : 'Atom') .
				7737	" feed";
				7738	}
				7739	my $owner = git_get_project_owner($project);
				7740	$owner = esc_html($owner);
				7741
				7742	#header
				7743	my $alt_url;
				7744	if (defined $file_name) {
				7745	$alt_url = href(-full=>1, action=>"history", hash=>$hash, file_name=>$file_name);
				7746	} elsif (defined $hash) {
				7747	$alt_url = href(-full=>1, action=>"log", hash=>$hash);
				7748	} else {
				7749	$alt_url = href(-full=>1, action=>"summary");
				7750	}
				7751	print qq!<?xml version="1.0" encoding="utf-8"?>\n!;
				7752	if ($format eq 'rss') {
				7753	print <<XML;
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7754	<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">
				7755	<channel>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7756	XML
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7757	print "<title>$title</title>\n" .
				7758	"<link>$alt_url</link>\n" .
				7759	"<description>$descr</description>\n" .
Giuseppe Bilotta	3ac109a	2009-01-26 12:50:13 +0100	[diff] [blame]	7760	"<language>en</language>\n" .
				7761	# project owner is responsible for 'editorial' content
				7762	"<managingEditor>$owner</managingEditor>\n";
Giuseppe Bilotta	1ba68ce	2009-01-26 12:50:11 +0100	[diff] [blame]	7763	if (defined $logo \|\| defined $favicon) {
				7764	# prefer the logo to the favicon, since RSS
				7765	# doesn't allow both
				7766	my $img = esc_url($logo \|\| $favicon);
				7767	print "<image>\n" .
				7768	"<url>$img</url>\n" .
				7769	"<title>$title</title>\n" .
				7770	"<link>$alt_url</link>\n" .
				7771	"</image>\n";
				7772	}
Giuseppe Bilotta	0cf3128	2009-01-26 12:50:14 +0100	[diff] [blame]	7773	if (%latest_date) {
				7774	print "<pubDate>$latest_date{'rfc2822'}</pubDate>\n";
				7775	print "<lastBuildDate>$latest_date{'rfc2822'}</lastBuildDate>\n";
				7776	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	7777	print "<generator>gitweb v.$version/$git_version</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7778	} elsif ($format eq 'atom') {
				7779	print <<XML;
				7780	<feed xmlns="http://www.w3.org/2005/Atom">
				7781	XML
				7782	print "<title>$title</title>\n" .
				7783	"<subtitle>$descr</subtitle>\n" .
				7784	'<link rel="alternate" type="text/html" href="' .
				7785	$alt_url . '" />' . "\n" .
				7786	'<link rel="self" type="' . $content_type . '" href="' .
				7787	$cgi->self_url() . '" />' . "\n" .
				7788	"<id>" . href(-full=>1) . "</id>\n" .
				7789	# use project owner for feed author
				7790	"<author><name>$owner</name></author>\n";
				7791	if (defined $favicon) {
				7792	print "<icon>" . esc_url($favicon) . "</icon>\n";
				7793	}
Jonathan Nieder	9d9f5e7	2010-09-03 19:44:39 -0500	[diff] [blame]	7794	if (defined $logo) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7795	# not twice as wide as tall: 72 x 27 pixels
Jakub Narebski	e114726	2006-12-04 14:09:43 +0100	[diff] [blame]	7796	print "<logo>" . esc_url($logo) . "</logo>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7797	}
				7798	if (! %latest_date) {
				7799	# dummy date to keep the feed valid until commits trickle in:
				7800	print "<updated>1970-01-01T00:00:00Z</updated>\n";
				7801	} else {
				7802	print "<updated>$latest_date{'iso-8601'}</updated>\n";
				7803	}
Giuseppe Bilotta	ad59a7a	2009-01-26 12:50:12 +0100	[diff] [blame]	7804	print "<generator version='$version/$git_version'>gitweb</generator>\n";
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7805	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7806
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7807	# contents
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7808	for (my $i = 0; $i <= $#commitlist; $i++) {
				7809	my %co = %{$commitlist[$i]};
				7810	my $commit = $co{'id'};
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7811	# 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]	7812	if (($i >= 20) && ((time - $co{'author_epoch'}) > 486060)) {
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7813	last;
				7814	}
Jakub Narebski	6368d9f	2011-03-19 23:53:55 +0100	[diff] [blame]	7815	my %cd = parse_date($co{'author_epoch'}, $co{'author_tz'});
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7816
				7817	# get list of changed files
Robert Fitzsimons	b6093a5	2006-12-24 14:31:47 +0000	[diff] [blame]	7818	open my $fd, "-\|", git_cmd(), "diff-tree", '-r', @diff_opts,
Jakub Narebski	c906b18	2007-05-19 02:47:51 +0200	[diff] [blame]	7819	$co{'parent'} \|\| "--root",
				7820	$co{'id'}, "--", (defined $file_name ? $file_name : ())
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	7821	or next;
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7822	my @difftree = map { chomp; $_ } <$fd>;
Jakub Narebski	6bcf4b4	2006-08-27 23:49:36 +0200	[diff] [blame]	7823	close $fd
				7824	or next;
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7825
				7826	# print element (entry, item)
Florian La Roche	e62a641	2008-02-03 12:38:46 +0100	[diff] [blame]	7827	my $co_url = href(-full=>1, action=>"commitdiff", hash=>$commit);
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7828	if ($format eq 'rss') {
				7829	print "<item>\n" .
				7830	"<title>" . esc_html($co{'title'}) . "</title>\n" .
				7831	"<author>" . esc_html($co{'author'}) . "</author>\n" .
				7832	"<pubDate>$cd{'rfc2822'}</pubDate>\n" .
				7833	"<guid isPermaLink=\"true\">$co_url</guid>\n" .
				7834	"<link>$co_url</link>\n" .
				7835	"<description>" . esc_html($co{'title'}) . "</description>\n" .
				7836	"<content:encoded>" .
				7837	"<![CDATA[\n";
				7838	} elsif ($format eq 'atom') {
				7839	print "<entry>\n" .
				7840	"<title type=\"html\">" . esc_html($co{'title'}) . "</title>\n" .
				7841	"<updated>$cd{'iso-8601'}</updated>\n" .
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	7842	"<author>\n" .
				7843	" <name>" . esc_html($co{'author_name'}) . "</name>\n";
				7844	if ($co{'author_email'}) {
				7845	print " <email>" . esc_html($co{'author_email'}) . "</email>\n";
				7846	}
				7847	print "</author>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7848	# use committer for contributor
Jakub Narebski	ab23c19	2006-11-25 15:54:33 +0100	[diff] [blame]	7849	"<contributor>\n" .
				7850	" <name>" . esc_html($co{'committer_name'}) . "</name>\n";
				7851	if ($co{'committer_email'}) {
				7852	print " <email>" . esc_html($co{'committer_email'}) . "</email>\n";
				7853	}
				7854	print "</contributor>\n" .
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7855	"<published>$cd{'iso-8601'}</published>\n" .
				7856	"<link rel=\"alternate\" type=\"text/html\" href=\"$co_url\" />\n" .
				7857	"<id>$co_url</id>\n" .
				7858	"<content type=\"xhtml\" xml:base=\"" . esc_url($my_url) . "\">\n" .
				7859	"<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";
				7860	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7861	my $comment = $co{'comment'};
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7862	print "<pre>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7863	foreach my $line (@$comment) {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7864	$line = esc_html($line);
				7865	print "$line\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7866	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7867	print "</pre><ul>\n";
				7868	foreach my $difftree_line (@difftree) {
				7869	my %difftree = parse_difftree_raw_line($difftree_line);
				7870	next if !$difftree{'from_id'};
				7871
				7872	my $file = $difftree{'file'} \|\| $difftree{'to_file'};
				7873
				7874	print "<li>" .
				7875	"[" .
				7876	$cgi->a({-href => href(-full=>1, action=>"blobdiff",
				7877	hash=>$difftree{'to_id'}, hash_parent=>$difftree{'from_id'},
				7878	hash_base=>$co{'id'}, hash_parent_base=>$co{'parent'},
				7879	file_name=>$file, file_parent=>$difftree{'from_file'}),
				7880	-title => "diff"}, 'D');
				7881	if ($have_blame) {
				7882	print $cgi->a({-href => href(-full=>1, action=>"blame",
				7883	file_name=>$file, hash_base=>$commit),
				7884	-title => "blame"}, 'B');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7885	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7886	# if this is not a feed of a file history
				7887	if (!defined $file_name \|\| $file_name ne $file) {
				7888	print $cgi->a({-href => href(-full=>1, action=>"history",
				7889	file_name=>$file, hash=>$commit),
				7890	-title => "history"}, 'H');
				7891	}
				7892	$file = esc_path($file);
				7893	print "] ".
				7894	"$file</li>\n";
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7895	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7896	if ($format eq 'rss') {
				7897	print "</ul>]]>\n" .
				7898	"</content:encoded>\n" .
				7899	"</item>\n";
				7900	} elsif ($format eq 'atom') {
				7901	print "</ul>\n</div>\n" .
				7902	"</content>\n" .
				7903	"</entry>\n";
				7904	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7905	}
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7906
				7907	# end of feed
				7908	if ($format eq 'rss') {
				7909	print "</channel>\n</rss>\n";
Jakub Narebski	3278fbc	2009-05-11 19:37:28 +0200	[diff] [blame]	7910	} elsif ($format eq 'atom') {
Jakub Narebski	af6feeb	2006-11-19 15:05:22 +0100	[diff] [blame]	7911	print "</feed>\n";
				7912	}
				7913	}
				7914
				7915	sub git_rss {
				7916	git_feed('rss');
				7917	}
				7918
				7919	sub git_atom {
				7920	git_feed('atom');
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7921	}
				7922
				7923	sub git_opml {
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	7924	my @list = git_get_projects_list($project_filter, $strict_export);
Jakub Narebski	12b1443	2011-04-29 19:51:56 +0200	[diff] [blame]	7925	if (!@list) {
				7926	die_error(404, "No projects found");
				7927	}
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7928
Giuseppe Bilotta	ae35785	2009-01-02 13:49:30 +0100	[diff] [blame]	7929	print $cgi->header(
				7930	-type => 'text/xml',
				7931	-charset => 'utf-8',
				7932	-content_disposition => 'inline; filename="opml.xml"');
				7933
Jürgen Kreileder	5d79105	2011-12-17 10:22:22 +0100	[diff] [blame]	7934	my $title = esc_html($site_name);
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	7935	my $filter = " within subdirectory ";
				7936	if (defined $project_filter) {
				7937	$filter .= esc_html($project_filter);
				7938	} else {
				7939	$filter = "";
				7940	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7941	print <<XML;
				7942	<?xml version="1.0" encoding="utf-8"?>
				7943	<opml version="1.0">
				7944	<head>
Bernhard R. Link	19d2d23	2012-01-30 21:07:37 +0100	[diff] [blame]	7945	<title>$title OPML Export$filter</title>
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7946	</head>
				7947	<body>
				7948	<outline text="git RSS feeds">
				7949	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7950
				7951	foreach my $pr (@list) {
				7952	my %proj = %$pr;
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7953	my $head = git_get_head_hash($proj{'path'});
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7954	if (!defined $head) {
				7955	next;
				7956	}
Dennis Stosberg	25691fb	2006-08-28 17:49:58 +0200	[diff] [blame]	7957	$git_dir = "$projectroot/$proj{'path'}";
Jakub Narebski	847e01f	2006-08-14 02:05:47 +0200	[diff] [blame]	7958	my %co = parse_commit($head);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7959	if (!%co) {
				7960	next;
				7961	}
				7962
				7963	my $path = esc_html(chop_str($proj{'path'}, 25, 5));
Giuseppe Bilotta	df63fbb	2009-01-02 13:15:28 +0100	[diff] [blame]	7964	my $rss = href('project' => $proj{'path'}, 'action' => 'rss', -full => 1);
				7965	my $html = href('project' => $proj{'path'}, 'action' => 'summary', -full => 1);
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7966	print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n";
				7967	}
Jakub Narebski	59b9f61	2006-08-22 23:42:53 +0200	[diff] [blame]	7968	print <<XML;
				7969	</outline>
				7970	</body>
				7971	</opml>
				7972	XML
Jakub Narebski	717b831	2006-07-31 21:22:15 +0200	[diff] [blame]	7973	}