1#!/usr/bin/perl 2 3# gitweb - simple web interface to track changes in git repositories 4# 5# (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org> 6# (C) 2005, Christian Gierke 7# 8# This program is licensed under the GPLv2 9 10use5.008; 11use strict; 12use warnings; 13# handle ACL in file access tests 14use filetest 'access'; 15use CGI qw(:standard :escapeHTML -nosticky); 16use CGI::Util qw(unescape); 17use CGI::Carp qw(fatalsToBrowser set_message); 18use Encode; 19use Fcntl ':mode'; 20use File::Find qw(); 21use File::Basename qw(basename); 22use Time::HiRes qw(gettimeofday tv_interval); 23binmode STDOUT,':utf8'; 24 25if(!defined($CGI::VERSION) ||$CGI::VERSION <4.08) { 26eval'sub CGI::multi_param { CGI::param(@_) }' 27} 28 29our$t0= [ gettimeofday() ]; 30our$number_of_git_cmds=0; 31 32BEGIN{ 33 CGI->compile()if$ENV{'MOD_PERL'}; 34} 35 36our$version="++GIT_VERSION++"; 37 38our($my_url,$my_uri,$base_url,$path_info,$home_link); 39sub evaluate_uri { 40our$cgi; 41 42our$my_url=$cgi->url(); 43our$my_uri=$cgi->url(-absolute =>1); 44 45# Base URL for relative URLs in gitweb ($logo, $favicon, ...), 46# needed and used only for URLs with nonempty PATH_INFO 47our$base_url=$my_url; 48 49# When the script is used as DirectoryIndex, the URL does not contain the name 50# of the script file itself, and $cgi->url() fails to strip PATH_INFO, so we 51# have to do it ourselves. We make $path_info global because it's also used 52# later on. 53# 54# Another issue with the script being the DirectoryIndex is that the resulting 55# $my_url data is not the full script URL: this is good, because we want 56# generated links to keep implying the script name if it wasn't explicitly 57# indicated in the URL we're handling, but it means that $my_url cannot be used 58# as base URL. 59# Therefore, if we needed to strip PATH_INFO, then we know that we have 60# to build the base URL ourselves: 61our$path_info= decode_utf8($ENV{"PATH_INFO"}); 62if($path_info) { 63# $path_info has already been URL-decoded by the web server, but 64# $my_url and $my_uri have not. URL-decode them so we can properly 65# strip $path_info. 66$my_url= unescape($my_url); 67$my_uri= unescape($my_uri); 68if($my_url=~ s,\Q$path_info\E$,, && 69$my_uri=~ s,\Q$path_info\E$,, && 70defined$ENV{'SCRIPT_NAME'}) { 71$base_url=$cgi->url(-base =>1) .$ENV{'SCRIPT_NAME'}; 72} 73} 74 75# target of the home link on top of all pages 76our$home_link=$my_uri||"/"; 77} 78 79# core git executable to use 80# this can just be "git" if your webserver has a sensible PATH 81our$GIT="++GIT_BINDIR++/git"; 82 83# absolute fs-path which will be prepended to the project path 84#our $projectroot = "/pub/scm"; 85our$projectroot="++GITWEB_PROJECTROOT++"; 86 87# fs traversing limit for getting project list 88# the number is relative to the projectroot 89our$project_maxdepth="++GITWEB_PROJECT_MAXDEPTH++"; 90 91# string of the home link on top of all pages 92our$home_link_str="++GITWEB_HOME_LINK_STR++"; 93 94# extra breadcrumbs preceding the home link 95our@extra_breadcrumbs= (); 96 97# name of your site or organization to appear in page titles 98# replace this with something more descriptive for clearer bookmarks 99our$site_name="++GITWEB_SITENAME++" 100|| ($ENV{'SERVER_NAME'} ||"Untitled") ." Git"; 101 102# html snippet to include in the <head> section of each page 103our$site_html_head_string="++GITWEB_SITE_HTML_HEAD_STRING++"; 104# filename of html text to include at top of each page 105our$site_header="++GITWEB_SITE_HEADER++"; 106# html text to include at home page 107our$home_text="++GITWEB_HOMETEXT++"; 108# filename of html text to include at bottom of each page 109our$site_footer="++GITWEB_SITE_FOOTER++"; 110 111# URI of stylesheets 112our@stylesheets= ("++GITWEB_CSS++"); 113# URI of a single stylesheet, which can be overridden in GITWEB_CONFIG. 114our$stylesheet=undef; 115# URI of GIT logo (72x27 size) 116our$logo="++GITWEB_LOGO++"; 117# URI of GIT favicon, assumed to be image/png type 118our$favicon="++GITWEB_FAVICON++"; 119# URI of gitweb.js (JavaScript code for gitweb) 120our$javascript="++GITWEB_JS++"; 121 122# URI and label (title) of GIT logo link 123#our $logo_url = "http://www.kernel.org/pub/software/scm/git/docs/"; 124#our $logo_label = "git documentation"; 125our$logo_url="http://git-scm.com/"; 126our$logo_label="git homepage"; 127 128# source of projects list 129our$projects_list="++GITWEB_LIST++"; 130 131# the width (in characters) of the projects list "Description" column 132our$projects_list_description_width=25; 133 134# group projects by category on the projects list 135# (enabled if this variable evaluates to true) 136our$projects_list_group_categories=0; 137 138# default category if none specified 139# (leave the empty string for no category) 140our$project_list_default_category=""; 141 142# default order of projects list 143# valid values are none, project, descr, owner, and age 144our$default_projects_order="project"; 145 146# show repository only if this file exists 147# (only effective if this variable evaluates to true) 148our$export_ok="++GITWEB_EXPORT_OK++"; 149 150# don't generate age column on the projects list page 151our$omit_age_column=0; 152 153# don't generate information about owners of repositories 154our$omit_owner=0; 155 156# show repository only if this subroutine returns true 157# when given the path to the project, for example: 158# sub { return -e "$_[0]/git-daemon-export-ok"; } 159our$export_auth_hook=undef; 160 161# only allow viewing of repositories also shown on the overview page 162our$strict_export="++GITWEB_STRICT_EXPORT++"; 163 164# list of git base URLs used for URL to where fetch project from, 165# i.e. full URL is "$git_base_url/$project" 166our@git_base_url_list=grep{$_ne''} ("++GITWEB_BASE_URL++"); 167 168# default blob_plain mimetype and default charset for text/plain blob 169our$default_blob_plain_mimetype='text/plain'; 170our$default_text_plain_charset=undef; 171 172# file to use for guessing MIME types before trying /etc/mime.types 173# (relative to the current git repository) 174our$mimetypes_file=undef; 175 176# assume this charset if line contains non-UTF-8 characters; 177# it should be valid encoding (see Encoding::Supported(3pm) for list), 178# for which encoding all byte sequences are valid, for example 179# 'iso-8859-1' aka 'latin1' (it is decoded without checking, so it 180# could be even 'utf-8' for the old behavior) 181our$fallback_encoding='latin1'; 182 183# rename detection options for git-diff and git-diff-tree 184# - default is '-M', with the cost proportional to 185# (number of removed files) * (number of new files). 186# - more costly is '-C' (which implies '-M'), with the cost proportional to 187# (number of changed files + number of removed files) * (number of new files) 188# - even more costly is '-C', '--find-copies-harder' with cost 189# (number of files in the original tree) * (number of new files) 190# - one might want to include '-B' option, e.g. '-B', '-M' 191our@diff_opts= ('-M');# taken from git_commit 192 193# Disables features that would allow repository owners to inject script into 194# the gitweb domain. 195our$prevent_xss=0; 196 197# Path to the highlight executable to use (must be the one from 198# http://www.andre-simon.de due to assumptions about parameters and output). 199# Useful if highlight is not installed on your webserver's PATH. 200# [Default: highlight] 201our$highlight_bin="++HIGHLIGHT_BIN++"; 202 203# information about snapshot formats that gitweb is capable of serving 204our%known_snapshot_formats= ( 205# name => { 206# 'display' => display name, 207# 'type' => mime type, 208# 'suffix' => filename suffix, 209# 'format' => --format for git-archive, 210# 'compressor' => [compressor command and arguments] 211# (array reference, optional) 212# 'disabled' => boolean (optional)} 213# 214'tgz'=> { 215'display'=>'tar.gz', 216'type'=>'application/x-gzip', 217'suffix'=>'.tar.gz', 218'format'=>'tar', 219'compressor'=> ['gzip','-n']}, 220 221'tbz2'=> { 222'display'=>'tar.bz2', 223'type'=>'application/x-bzip2', 224'suffix'=>'.tar.bz2', 225'format'=>'tar', 226'compressor'=> ['bzip2']}, 227 228'txz'=> { 229'display'=>'tar.xz', 230'type'=>'application/x-xz', 231'suffix'=>'.tar.xz', 232'format'=>'tar', 233'compressor'=> ['xz'], 234'disabled'=>1}, 235 236'zip'=> { 237'display'=>'zip', 238'type'=>'application/x-zip', 239'suffix'=>'.zip', 240'format'=>'zip'}, 241); 242 243# Aliases so we understand old gitweb.snapshot values in repository 244# configuration. 245our%known_snapshot_format_aliases= ( 246'gzip'=>'tgz', 247'bzip2'=>'tbz2', 248'xz'=>'txz', 249 250# backward compatibility: legacy gitweb config support 251'x-gzip'=>undef,'gz'=>undef, 252'x-bzip2'=>undef,'bz2'=>undef, 253'x-zip'=>undef,''=>undef, 254); 255 256# Pixel sizes for icons and avatars. If the default font sizes or lineheights 257# are changed, it may be appropriate to change these values too via 258# $GITWEB_CONFIG. 259our%avatar_size= ( 260'default'=>16, 261'double'=>32 262); 263 264# Used to set the maximum load that we will still respond to gitweb queries. 265# If server load exceed this value then return "503 server busy" error. 266# If gitweb cannot determined server load, it is taken to be 0. 267# Leave it undefined (or set to 'undef') to turn off load checking. 268our$maxload=300; 269 270# configuration for 'highlight' (http://www.andre-simon.de/) 271# match by basename 272our%highlight_basename= ( 273#'Program' => 'py', 274#'Library' => 'py', 275'SConstruct'=>'py',# SCons equivalent of Makefile 276'Makefile'=>'make', 277); 278# match by extension 279our%highlight_ext= ( 280# main extensions, defining name of syntax; 281# see files in /usr/share/highlight/langDefs/ directory 282(map{$_=>$_}qw(py rb java css js tex bib xml awk bat ini spec tcl sql)), 283# alternate extensions, see /etc/highlight/filetypes.conf 284(map{$_=>'c'}qw(c h)), 285(map{$_=>'sh'}qw(sh bash zsh ksh)), 286(map{$_=>'cpp'}qw(cpp cxx c++ cc)), 287(map{$_=>'php'}qw(php php3 php4 php5 phps)), 288(map{$_=>'pl'}qw(pl perl pm)),# perhaps also 'cgi' 289(map{$_=>'make'}qw(make mak mk)), 290(map{$_=>'xml'}qw(xml xhtml html htm)), 291); 292 293# You define site-wide feature defaults here; override them with 294# $GITWEB_CONFIG as necessary. 295our%feature= ( 296# feature => { 297# 'sub' => feature-sub (subroutine), 298# 'override' => allow-override (boolean), 299# 'default' => [ default options...] (array reference)} 300# 301# if feature is overridable (it means that allow-override has true value), 302# then feature-sub will be called with default options as parameters; 303# return value of feature-sub indicates if to enable specified feature 304# 305# if there is no 'sub' key (no feature-sub), then feature cannot be 306# overridden 307# 308# use gitweb_get_feature(<feature>) to retrieve the <feature> value 309# (an array) or gitweb_check_feature(<feature>) to check if <feature> 310# is enabled 311 312# Enable the 'blame' blob view, showing the last commit that modified 313# each line in the file. This can be very CPU-intensive. 314 315# To enable system wide have in $GITWEB_CONFIG 316# $feature{'blame'}{'default'} = [1]; 317# To have project specific config enable override in $GITWEB_CONFIG 318# $feature{'blame'}{'override'} = 1; 319# and in project config gitweb.blame = 0|1; 320'blame'=> { 321'sub'=>sub{ feature_bool('blame',@_) }, 322'override'=>0, 323'default'=> [0]}, 324 325# Enable the 'snapshot' link, providing a compressed archive of any 326# tree. This can potentially generate high traffic if you have large 327# project. 328 329# Value is a list of formats defined in %known_snapshot_formats that 330# you wish to offer. 331# To disable system wide have in $GITWEB_CONFIG 332# $feature{'snapshot'}{'default'} = []; 333# To have project specific config enable override in $GITWEB_CONFIG 334# $feature{'snapshot'}{'override'} = 1; 335# and in project config, a comma-separated list of formats or "none" 336# to disable. Example: gitweb.snapshot = tbz2,zip; 337'snapshot'=> { 338'sub'=> \&feature_snapshot, 339'override'=>0, 340'default'=> ['tgz']}, 341 342# Enable text search, which will list the commits which match author, 343# committer or commit text to a given string. Enabled by default. 344# Project specific override is not supported. 345# 346# Note that this controls all search features, which means that if 347# it is disabled, then 'grep' and 'pickaxe' search would also be 348# disabled. 349'search'=> { 350'override'=>0, 351'default'=> [1]}, 352 353# Enable grep search, which will list the files in currently selected 354# tree containing the given string. Enabled by default. This can be 355# potentially CPU-intensive, of course. 356# Note that you need to have 'search' feature enabled too. 357 358# To enable system wide have in $GITWEB_CONFIG 359# $feature{'grep'}{'default'} = [1]; 360# To have project specific config enable override in $GITWEB_CONFIG 361# $feature{'grep'}{'override'} = 1; 362# and in project config gitweb.grep = 0|1; 363'grep'=> { 364'sub'=>sub{ feature_bool('grep',@_) }, 365'override'=>0, 366'default'=> [1]}, 367 368# Enable the pickaxe search, which will list the commits that modified 369# a given string in a file. This can be practical and quite faster 370# alternative to 'blame', but still potentially CPU-intensive. 371# Note that you need to have 'search' feature enabled too. 372 373# To enable system wide have in $GITWEB_CONFIG 374# $feature{'pickaxe'}{'default'} = [1]; 375# To have project specific config enable override in $GITWEB_CONFIG 376# $feature{'pickaxe'}{'override'} = 1; 377# and in project config gitweb.pickaxe = 0|1; 378'pickaxe'=> { 379'sub'=>sub{ feature_bool('pickaxe',@_) }, 380'override'=>0, 381'default'=> [1]}, 382 383# Enable showing size of blobs in a 'tree' view, in a separate 384# column, similar to what 'ls -l' does. This cost a bit of IO. 385 386# To disable system wide have in $GITWEB_CONFIG 387# $feature{'show-sizes'}{'default'} = [0]; 388# To have project specific config enable override in $GITWEB_CONFIG 389# $feature{'show-sizes'}{'override'} = 1; 390# and in project config gitweb.showsizes = 0|1; 391'show-sizes'=> { 392'sub'=>sub{ feature_bool('showsizes',@_) }, 393'override'=>0, 394'default'=> [1]}, 395 396# Make gitweb use an alternative format of the URLs which can be 397# more readable and natural-looking: project name is embedded 398# directly in the path and the query string contains other 399# auxiliary information. All gitweb installations recognize 400# URL in either format; this configures in which formats gitweb 401# generates links. 402 403# To enable system wide have in $GITWEB_CONFIG 404# $feature{'pathinfo'}{'default'} = [1]; 405# Project specific override is not supported. 406 407# Note that you will need to change the default location of CSS, 408# favicon, logo and possibly other files to an absolute URL. Also, 409# if gitweb.cgi serves as your indexfile, you will need to force 410# $my_uri to contain the script name in your $GITWEB_CONFIG. 411'pathinfo'=> { 412'override'=>0, 413'default'=> [0]}, 414 415# Make gitweb consider projects in project root subdirectories 416# to be forks of existing projects. Given project $projname.git, 417# projects matching $projname/*.git will not be shown in the main 418# projects list, instead a '+' mark will be added to $projname 419# there and a 'forks' view will be enabled for the project, listing 420# all the forks. If project list is taken from a file, forks have 421# to be listed after the main project. 422 423# To enable system wide have in $GITWEB_CONFIG 424# $feature{'forks'}{'default'} = [1]; 425# Project specific override is not supported. 426'forks'=> { 427'override'=>0, 428'default'=> [0]}, 429 430# Insert custom links to the action bar of all project pages. 431# This enables you mainly to link to third-party scripts integrating 432# into gitweb; e.g. git-browser for graphical history representation 433# or custom web-based repository administration interface. 434 435# The 'default' value consists of a list of triplets in the form 436# (label, link, position) where position is the label after which 437# to insert the link and link is a format string where %n expands 438# to the project name, %f to the project path within the filesystem, 439# %h to the current hash (h gitweb parameter) and %b to the current 440# hash base (hb gitweb parameter); %% expands to %. 441 442# To enable system wide have in $GITWEB_CONFIG e.g. 443# $feature{'actions'}{'default'} = [('graphiclog', 444# '/git-browser/by-commit.html?r=%n', 'summary')]; 445# Project specific override is not supported. 446'actions'=> { 447'override'=>0, 448'default'=> []}, 449 450# Allow gitweb scan project content tags of project repository, 451# and display the popular Web 2.0-ish "tag cloud" near the projects 452# list. Note that this is something COMPLETELY different from the 453# normal Git tags. 454 455# gitweb by itself can show existing tags, but it does not handle 456# tagging itself; you need to do it externally, outside gitweb. 457# The format is described in git_get_project_ctags() subroutine. 458# You may want to install the HTML::TagCloud Perl module to get 459# a pretty tag cloud instead of just a list of tags. 460 461# To enable system wide have in $GITWEB_CONFIG 462# $feature{'ctags'}{'default'} = [1]; 463# Project specific override is not supported. 464 465# In the future whether ctags editing is enabled might depend 466# on the value, but using 1 should always mean no editing of ctags. 467'ctags'=> { 468'override'=>0, 469'default'=> [0]}, 470 471# The maximum number of patches in a patchset generated in patch 472# view. Set this to 0 or undef to disable patch view, or to a 473# negative number to remove any limit. 474 475# To disable system wide have in $GITWEB_CONFIG 476# $feature{'patches'}{'default'} = [0]; 477# To have project specific config enable override in $GITWEB_CONFIG 478# $feature{'patches'}{'override'} = 1; 479# and in project config gitweb.patches = 0|n; 480# where n is the maximum number of patches allowed in a patchset. 481'patches'=> { 482'sub'=> \&feature_patches, 483'override'=>0, 484'default'=> [16]}, 485 486# Avatar support. When this feature is enabled, views such as 487# shortlog or commit will display an avatar associated with 488# the email of the committer(s) and/or author(s). 489 490# Currently available providers are gravatar and picon. 491# If an unknown provider is specified, the feature is disabled. 492 493# Gravatar depends on Digest::MD5. 494# Picon currently relies on the indiana.edu database. 495 496# To enable system wide have in $GITWEB_CONFIG 497# $feature{'avatar'}{'default'} = ['<provider>']; 498# where <provider> is either gravatar or picon. 499# To have project specific config enable override in $GITWEB_CONFIG 500# $feature{'avatar'}{'override'} = 1; 501# and in project config gitweb.avatar = <provider>; 502'avatar'=> { 503'sub'=> \&feature_avatar, 504'override'=>0, 505'default'=> ['']}, 506 507# Enable displaying how much time and how many git commands 508# it took to generate and display page. Disabled by default. 509# Project specific override is not supported. 510'timed'=> { 511'override'=>0, 512'default'=> [0]}, 513 514# Enable turning some links into links to actions which require 515# JavaScript to run (like 'blame_incremental'). Not enabled by 516# default. Project specific override is currently not supported. 517'javascript-actions'=> { 518'override'=>0, 519'default'=> [0]}, 520 521# Enable and configure ability to change common timezone for dates 522# in gitweb output via JavaScript. Enabled by default. 523# Project specific override is not supported. 524'javascript-timezone'=> { 525'override'=>0, 526'default'=> [ 527'local',# default timezone: 'utc', 'local', or '(-|+)HHMM' format, 528# or undef to turn off this feature 529'gitweb_tz',# name of cookie where to store selected timezone 530'datetime',# CSS class used to mark up dates for manipulation 531]}, 532 533# Syntax highlighting support. This is based on Daniel Svensson's 534# and Sham Chukoury's work in gitweb-xmms2.git. 535# It requires the 'highlight' program present in $PATH, 536# and therefore is disabled by default. 537 538# To enable system wide have in $GITWEB_CONFIG 539# $feature{'highlight'}{'default'} = [1]; 540 541'highlight'=> { 542'sub'=>sub{ feature_bool('highlight',@_) }, 543'override'=>0, 544'default'=> [0]}, 545 546# Enable displaying of remote heads in the heads list 547 548# To enable system wide have in $GITWEB_CONFIG 549# $feature{'remote_heads'}{'default'} = [1]; 550# To have project specific config enable override in $GITWEB_CONFIG 551# $feature{'remote_heads'}{'override'} = 1; 552# and in project config gitweb.remoteheads = 0|1; 553'remote_heads'=> { 554'sub'=>sub{ feature_bool('remote_heads',@_) }, 555'override'=>0, 556'default'=> [0]}, 557 558# Enable showing branches under other refs in addition to heads 559 560# To set system wide extra branch refs have in $GITWEB_CONFIG 561# $feature{'extra-branch-refs'}{'default'} = ['dirs', 'of', 'choice']; 562# To have project specific config enable override in $GITWEB_CONFIG 563# $feature{'extra-branch-refs'}{'override'} = 1; 564# and in project config gitweb.extrabranchrefs = dirs of choice 565# Every directory is separated with whitespace. 566 567'extra-branch-refs'=> { 568'sub'=> \&feature_extra_branch_refs, 569'override'=>0, 570'default'=> []}, 571); 572 573sub gitweb_get_feature { 574my($name) =@_; 575return unlessexists$feature{$name}; 576my($sub,$override,@defaults) = ( 577$feature{$name}{'sub'}, 578$feature{$name}{'override'}, 579@{$feature{$name}{'default'}}); 580# project specific override is possible only if we have project 581our$git_dir;# global variable, declared later 582if(!$override|| !defined$git_dir) { 583return@defaults; 584} 585if(!defined$sub) { 586warn"feature$nameis not overridable"; 587return@defaults; 588} 589return$sub->(@defaults); 590} 591 592# A wrapper to check if a given feature is enabled. 593# With this, you can say 594# 595# my $bool_feat = gitweb_check_feature('bool_feat'); 596# gitweb_check_feature('bool_feat') or somecode; 597# 598# instead of 599# 600# my ($bool_feat) = gitweb_get_feature('bool_feat'); 601# (gitweb_get_feature('bool_feat'))[0] or somecode; 602# 603sub gitweb_check_feature { 604return(gitweb_get_feature(@_))[0]; 605} 606 607 608sub feature_bool { 609my$key=shift; 610my($val) = git_get_project_config($key,'--bool'); 611 612if(!defined$val) { 613return($_[0]); 614}elsif($valeq'true') { 615return(1); 616}elsif($valeq'false') { 617return(0); 618} 619} 620 621sub feature_snapshot { 622my(@fmts) =@_; 623 624my($val) = git_get_project_config('snapshot'); 625 626if($val) { 627@fmts= ($valeq'none'? () :split/\s*[,\s]\s*/,$val); 628} 629 630return@fmts; 631} 632 633sub feature_patches { 634my@val= (git_get_project_config('patches','--int')); 635 636if(@val) { 637return@val; 638} 639 640return($_[0]); 641} 642 643sub feature_avatar { 644my@val= (git_get_project_config('avatar')); 645 646return@val?@val:@_; 647} 648 649sub feature_extra_branch_refs { 650my(@branch_refs) =@_; 651my$values= git_get_project_config('extrabranchrefs'); 652 653if($values) { 654$values= config_to_multi ($values); 655@branch_refs= (); 656foreachmy$value(@{$values}) { 657push@branch_refs,split/\s+/,$value; 658} 659} 660 661return@branch_refs; 662} 663 664# checking HEAD file with -e is fragile if the repository was 665# initialized long time ago (i.e. symlink HEAD) and was pack-ref'ed 666# and then pruned. 667sub check_head_link { 668my($dir) =@_; 669my$headfile="$dir/HEAD"; 670return((-e $headfile) || 671(-l $headfile&&readlink($headfile) =~/^refs\/heads\//)); 672} 673 674sub check_export_ok { 675my($dir) =@_; 676return(check_head_link($dir) && 677(!$export_ok|| -e "$dir/$export_ok") && 678(!$export_auth_hook||$export_auth_hook->($dir))); 679} 680 681# process alternate names for backward compatibility 682# filter out unsupported (unknown) snapshot formats 683sub filter_snapshot_fmts { 684my@fmts=@_; 685 686@fmts=map{ 687exists$known_snapshot_format_aliases{$_} ? 688$known_snapshot_format_aliases{$_} :$_}@fmts; 689@fmts=grep{ 690exists$known_snapshot_formats{$_} && 691!$known_snapshot_formats{$_}{'disabled'}}@fmts; 692} 693 694sub filter_and_validate_refs { 695my@refs=@_; 696my%unique_refs= (); 697 698foreachmy$ref(@refs) { 699 die_error(500,"Invalid ref '$ref' in 'extra-branch-refs' feature")unless(is_valid_ref_format($ref)); 700# 'heads' are added implicitly in get_branch_refs(). 701$unique_refs{$ref} =1if($refne'heads'); 702} 703returnsort keys%unique_refs; 704} 705 706# If it is set to code reference, it is code that it is to be run once per 707# request, allowing updating configurations that change with each request, 708# while running other code in config file only once. 709# 710# Otherwise, if it is false then gitweb would process config file only once; 711# if it is true then gitweb config would be run for each request. 712our$per_request_config=1; 713 714# read and parse gitweb config file given by its parameter. 715# returns true on success, false on recoverable error, allowing 716# to chain this subroutine, using first file that exists. 717# dies on errors during parsing config file, as it is unrecoverable. 718sub read_config_file { 719my$filename=shift; 720return unlessdefined$filename; 721# die if there are errors parsing config file 722if(-e $filename) { 723do$filename; 724die$@if$@; 725return1; 726} 727return; 728} 729 730our($GITWEB_CONFIG,$GITWEB_CONFIG_SYSTEM,$GITWEB_CONFIG_COMMON); 731sub evaluate_gitweb_config { 732our$GITWEB_CONFIG=$ENV{'GITWEB_CONFIG'} ||"++GITWEB_CONFIG++"; 733our$GITWEB_CONFIG_SYSTEM=$ENV{'GITWEB_CONFIG_SYSTEM'} ||"++GITWEB_CONFIG_SYSTEM++"; 734our$GITWEB_CONFIG_COMMON=$ENV{'GITWEB_CONFIG_COMMON'} ||"++GITWEB_CONFIG_COMMON++"; 735 736# Protect against duplications of file names, to not read config twice. 737# Only one of $GITWEB_CONFIG and $GITWEB_CONFIG_SYSTEM is used, so 738# there possibility of duplication of filename there doesn't matter. 739$GITWEB_CONFIG=""if($GITWEB_CONFIGeq$GITWEB_CONFIG_COMMON); 740$GITWEB_CONFIG_SYSTEM=""if($GITWEB_CONFIG_SYSTEMeq$GITWEB_CONFIG_COMMON); 741 742# Common system-wide settings for convenience. 743# Those settings can be ovverriden by GITWEB_CONFIG or GITWEB_CONFIG_SYSTEM. 744 read_config_file($GITWEB_CONFIG_COMMON); 745 746# Use first config file that exists. This means use the per-instance 747# GITWEB_CONFIG if exists, otherwise use GITWEB_SYSTEM_CONFIG. 748 read_config_file($GITWEB_CONFIG)andreturn; 749 read_config_file($GITWEB_CONFIG_SYSTEM); 750} 751 752# Get loadavg of system, to compare against $maxload. 753# Currently it requires '/proc/loadavg' present to get loadavg; 754# if it is not present it returns 0, which means no load checking. 755sub get_loadavg { 756if( -e '/proc/loadavg'){ 757open my$fd,'<','/proc/loadavg' 758orreturn0; 759my@load=split(/\s+/,scalar<$fd>); 760close$fd; 761 762# The first three columns measure CPU and IO utilization of the last one, 763# five, and 10 minute periods. The fourth column shows the number of 764# currently running processes and the total number of processes in the m/n 765# format. The last column displays the last process ID used. 766return$load[0] ||0; 767} 768# additional checks for load average should go here for things that don't export 769# /proc/loadavg 770 771return0; 772} 773 774# version of the core git binary 775our$git_version; 776sub evaluate_git_version { 777our$git_version=qx("$GIT" --version)=~m/git version (.*)$/?$1:"unknown"; 778$number_of_git_cmds++; 779} 780 781sub check_loadavg { 782if(defined$maxload&& get_loadavg() >$maxload) { 783 die_error(503,"The load average on the server is too high"); 784} 785} 786 787# ====================================================================== 788# input validation and dispatch 789 790# input parameters can be collected from a variety of sources (presently, CGI 791# and PATH_INFO), so we define an %input_params hash that collects them all 792# together during validation: this allows subsequent uses (e.g. href()) to be 793# agnostic of the parameter origin 794 795our%input_params= (); 796 797# input parameters are stored with the long parameter name as key. This will 798# also be used in the href subroutine to convert parameters to their CGI 799# equivalent, and since the href() usage is the most frequent one, we store 800# the name -> CGI key mapping here, instead of the reverse. 801# 802# XXX: Warning: If you touch this, check the search form for updating, 803# too. 804 805our@cgi_param_mapping= ( 806 project =>"p", 807 action =>"a", 808 file_name =>"f", 809 file_parent =>"fp", 810 hash =>"h", 811 hash_parent =>"hp", 812 hash_base =>"hb", 813 hash_parent_base =>"hpb", 814 page =>"pg", 815 order =>"o", 816 searchtext =>"s", 817 searchtype =>"st", 818 snapshot_format =>"sf", 819 extra_options =>"opt", 820 search_use_regexp =>"sr", 821 ctag =>"by_tag", 822 diff_style =>"ds", 823 project_filter =>"pf", 824# this must be last entry (for manipulation from JavaScript) 825 javascript =>"js" 826); 827our%cgi_param_mapping=@cgi_param_mapping; 828 829# we will also need to know the possible actions, for validation 830our%actions= ( 831"blame"=> \&git_blame, 832"blame_incremental"=> \&git_blame_incremental, 833"blame_data"=> \&git_blame_data, 834"blobdiff"=> \&git_blobdiff, 835"blobdiff_plain"=> \&git_blobdiff_plain, 836"blob"=> \&git_blob, 837"blob_plain"=> \&git_blob_plain, 838"commitdiff"=> \&git_commitdiff, 839"commitdiff_plain"=> \&git_commitdiff_plain, 840"commit"=> \&git_commit, 841"forks"=> \&git_forks, 842"heads"=> \&git_heads, 843"history"=> \&git_history, 844"log"=> \&git_log, 845"patch"=> \&git_patch, 846"patches"=> \&git_patches, 847"remotes"=> \&git_remotes, 848"rss"=> \&git_rss, 849"atom"=> \&git_atom, 850"search"=> \&git_search, 851"search_help"=> \&git_search_help, 852"shortlog"=> \&git_shortlog, 853"summary"=> \&git_summary, 854"tag"=> \&git_tag, 855"tags"=> \&git_tags, 856"tree"=> \&git_tree, 857"snapshot"=> \&git_snapshot, 858"object"=> \&git_object, 859# those below don't need $project 860"opml"=> \&git_opml, 861"project_list"=> \&git_project_list, 862"project_index"=> \&git_project_index, 863); 864 865# finally, we have the hash of allowed extra_options for the commands that 866# allow them 867our%allowed_options= ( 868"--no-merges"=> [qw(rss atom log shortlog history)], 869); 870 871# fill %input_params with the CGI parameters. All values except for 'opt' 872# should be single values, but opt can be an array. We should probably 873# build an array of parameters that can be multi-valued, but since for the time 874# being it's only this one, we just single it out 875sub evaluate_query_params { 876our$cgi; 877 878while(my($name,$symbol) =each%cgi_param_mapping) { 879if($symboleq'opt') { 880$input_params{$name} = [map{ decode_utf8($_) }$cgi->multi_param($symbol) ]; 881}else{ 882$input_params{$name} = decode_utf8($cgi->param($symbol)); 883} 884} 885} 886 887# now read PATH_INFO and update the parameter list for missing parameters 888sub evaluate_path_info { 889return ifdefined$input_params{'project'}; 890return if!$path_info; 891$path_info=~ s,^/+,,; 892return if!$path_info; 893 894# find which part of PATH_INFO is project 895my$project=$path_info; 896$project=~ s,/+$,,; 897while($project&& !check_head_link("$projectroot/$project")) { 898$project=~ s,/*[^/]*$,,; 899} 900return unless$project; 901$input_params{'project'} =$project; 902 903# do not change any parameters if an action is given using the query string 904return if$input_params{'action'}; 905$path_info=~ s,^\Q$project\E/*,,; 906 907# next, check if we have an action 908my$action=$path_info; 909$action=~ s,/.*$,,; 910if(exists$actions{$action}) { 911$path_info=~ s,^$action/*,,; 912$input_params{'action'} =$action; 913} 914 915# list of actions that want hash_base instead of hash, but can have no 916# pathname (f) parameter 917my@wants_base= ( 918'tree', 919'history', 920); 921 922# we want to catch, among others 923# [$hash_parent_base[:$file_parent]..]$hash_parent[:$file_name] 924my($parentrefname,$parentpathname,$refname,$pathname) = 925($path_info=~/^(?:(.+?)(?::(.+))?\.\.)?([^:]+?)?(?::(.+))?$/); 926 927# first, analyze the 'current' part 928if(defined$pathname) { 929# we got "branch:filename" or "branch:dir/" 930# we could use git_get_type(branch:pathname), but: 931# - it needs $git_dir 932# - it does a git() call 933# - the convention of terminating directories with a slash 934# makes it superfluous 935# - embedding the action in the PATH_INFO would make it even 936# more superfluous 937$pathname=~ s,^/+,,; 938if(!$pathname||substr($pathname, -1)eq"/") { 939$input_params{'action'} ||="tree"; 940$pathname=~ s,/$,,; 941}else{ 942# the default action depends on whether we had parent info 943# or not 944if($parentrefname) { 945$input_params{'action'} ||="blobdiff_plain"; 946}else{ 947$input_params{'action'} ||="blob_plain"; 948} 949} 950$input_params{'hash_base'} ||=$refname; 951$input_params{'file_name'} ||=$pathname; 952}elsif(defined$refname) { 953# we got "branch". In this case we have to choose if we have to 954# set hash or hash_base. 955# 956# Most of the actions without a pathname only want hash to be 957# set, except for the ones specified in @wants_base that want 958# hash_base instead. It should also be noted that hand-crafted 959# links having 'history' as an action and no pathname or hash 960# set will fail, but that happens regardless of PATH_INFO. 961if(defined$parentrefname) { 962# if there is parent let the default be 'shortlog' action 963# (for http://git.example.com/repo.git/A..B links); if there 964# is no parent, dispatch will detect type of object and set 965# action appropriately if required (if action is not set) 966$input_params{'action'} ||="shortlog"; 967} 968if($input_params{'action'} && 969grep{$_eq$input_params{'action'} }@wants_base) { 970$input_params{'hash_base'} ||=$refname; 971}else{ 972$input_params{'hash'} ||=$refname; 973} 974} 975 976# next, handle the 'parent' part, if present 977if(defined$parentrefname) { 978# a missing pathspec defaults to the 'current' filename, allowing e.g. 979# someproject/blobdiff/oldrev..newrev:/filename 980if($parentpathname) { 981$parentpathname=~ s,^/+,,; 982$parentpathname=~ s,/$,,; 983$input_params{'file_parent'} ||=$parentpathname; 984}else{ 985$input_params{'file_parent'} ||=$input_params{'file_name'}; 986} 987# we assume that hash_parent_base is wanted if a path was specified, 988# or if the action wants hash_base instead of hash 989if(defined$input_params{'file_parent'} || 990grep{$_eq$input_params{'action'} }@wants_base) { 991$input_params{'hash_parent_base'} ||=$parentrefname; 992}else{ 993$input_params{'hash_parent'} ||=$parentrefname; 994} 995} 996 997# for the snapshot action, we allow URLs in the form 998# $project/snapshot/$hash.ext 999# where .ext determines the snapshot and gets removed from the1000# passed $refname to provide the $hash.1001#1002# To be able to tell that $refname includes the format extension, we1003# require the following two conditions to be satisfied:1004# - the hash input parameter MUST have been set from the $refname part1005# of the URL (i.e. they must be equal)1006# - the snapshot format MUST NOT have been defined already (e.g. from1007# CGI parameter sf)1008# It's also useless to try any matching unless $refname has a dot,1009# so we check for that too1010if(defined$input_params{'action'} &&1011$input_params{'action'}eq'snapshot'&&1012defined$refname&&index($refname,'.') != -1&&1013$refnameeq$input_params{'hash'} &&1014!defined$input_params{'snapshot_format'}) {1015# We loop over the known snapshot formats, checking for1016# extensions. Allowed extensions are both the defined suffix1017# (which includes the initial dot already) and the snapshot1018# format key itself, with a prepended dot1019while(my($fmt,$opt) =each%known_snapshot_formats) {1020my$hash=$refname;1021unless($hash=~s/(\Q$opt->{'suffix'}\E|\Q.$fmt\E)$//) {1022next;1023}1024my$sfx=$1;1025# a valid suffix was found, so set the snapshot format1026# and reset the hash parameter1027$input_params{'snapshot_format'} =$fmt;1028$input_params{'hash'} =$hash;1029# we also set the format suffix to the one requested1030# in the URL: this way a request for e.g. .tgz returns1031# a .tgz instead of a .tar.gz1032$known_snapshot_formats{$fmt}{'suffix'} =$sfx;1033last;1034}1035}1036}10371038our($action,$project,$file_name,$file_parent,$hash,$hash_parent,$hash_base,1039$hash_parent_base,@extra_options,$page,$searchtype,$search_use_regexp,1040$searchtext,$search_regexp,$project_filter);1041sub evaluate_and_validate_params {1042our$action=$input_params{'action'};1043if(defined$action) {1044if(!is_valid_action($action)) {1045 die_error(400,"Invalid action parameter");1046}1047}10481049# parameters which are pathnames1050our$project=$input_params{'project'};1051if(defined$project) {1052if(!is_valid_project($project)) {1053undef$project;1054 die_error(404,"No such project");1055}1056}10571058our$project_filter=$input_params{'project_filter'};1059if(defined$project_filter) {1060if(!is_valid_pathname($project_filter)) {1061 die_error(404,"Invalid project_filter parameter");1062}1063}10641065our$file_name=$input_params{'file_name'};1066if(defined$file_name) {1067if(!is_valid_pathname($file_name)) {1068 die_error(400,"Invalid file parameter");1069}1070}10711072our$file_parent=$input_params{'file_parent'};1073if(defined$file_parent) {1074if(!is_valid_pathname($file_parent)) {1075 die_error(400,"Invalid file parent parameter");1076}1077}10781079# parameters which are refnames1080our$hash=$input_params{'hash'};1081if(defined$hash) {1082if(!is_valid_refname($hash)) {1083 die_error(400,"Invalid hash parameter");1084}1085}10861087our$hash_parent=$input_params{'hash_parent'};1088if(defined$hash_parent) {1089if(!is_valid_refname($hash_parent)) {1090 die_error(400,"Invalid hash parent parameter");1091}1092}10931094our$hash_base=$input_params{'hash_base'};1095if(defined$hash_base) {1096if(!is_valid_refname($hash_base)) {1097 die_error(400,"Invalid hash base parameter");1098}1099}11001101our@extra_options= @{$input_params{'extra_options'}};1102# @extra_options is always defined, since it can only be (currently) set from1103# CGI, and $cgi->param() returns the empty array in array context if the param1104# is not set1105foreachmy$opt(@extra_options) {1106if(not exists$allowed_options{$opt}) {1107 die_error(400,"Invalid option parameter");1108}1109if(not grep(/^$action$/, @{$allowed_options{$opt}})) {1110 die_error(400,"Invalid option parameter for this action");1111}1112}11131114our$hash_parent_base=$input_params{'hash_parent_base'};1115if(defined$hash_parent_base) {1116if(!is_valid_refname($hash_parent_base)) {1117 die_error(400,"Invalid hash parent base parameter");1118}1119}11201121# other parameters1122our$page=$input_params{'page'};1123if(defined$page) {1124if($page=~m/[^0-9]/) {1125 die_error(400,"Invalid page parameter");1126}1127}11281129our$searchtype=$input_params{'searchtype'};1130if(defined$searchtype) {1131if($searchtype=~m/[^a-z]/) {1132 die_error(400,"Invalid searchtype parameter");1133}1134}11351136our$search_use_regexp=$input_params{'search_use_regexp'};11371138our$searchtext=$input_params{'searchtext'};1139our$search_regexp=undef;1140if(defined$searchtext) {1141if(length($searchtext) <2) {1142 die_error(403,"At least two characters are required for search parameter");1143}1144if($search_use_regexp) {1145$search_regexp=$searchtext;1146if(!eval{qr/$search_regexp/;1; }) {1147(my$error=$@) =~s/ at \S+ line \d+.*\n?//;1148 die_error(400,"Invalid search regexp '$search_regexp'",1149 esc_html($error));1150}1151}else{1152$search_regexp=quotemeta$searchtext;1153}1154}1155}11561157# path to the current git repository1158our$git_dir;1159sub evaluate_git_dir {1160our$git_dir="$projectroot/$project"if$project;1161}11621163our(@snapshot_fmts,$git_avatar,@extra_branch_refs);1164sub configure_gitweb_features {1165# list of supported snapshot formats1166our@snapshot_fmts= gitweb_get_feature('snapshot');1167@snapshot_fmts= filter_snapshot_fmts(@snapshot_fmts);11681169# check that the avatar feature is set to a known provider name,1170# and for each provider check if the dependencies are satisfied.1171# if the provider name is invalid or the dependencies are not met,1172# reset $git_avatar to the empty string.1173our($git_avatar) = gitweb_get_feature('avatar');1174if($git_avatareq'gravatar') {1175$git_avatar=''unless(eval{require Digest::MD5;1; });1176}elsif($git_avatareq'picon') {1177# no dependencies1178}else{1179$git_avatar='';1180}11811182our@extra_branch_refs= gitweb_get_feature('extra-branch-refs');1183@extra_branch_refs= filter_and_validate_refs (@extra_branch_refs);1184}11851186sub get_branch_refs {1187return('heads',@extra_branch_refs);1188}11891190# custom error handler: 'die <message>' is Internal Server Error1191sub handle_errors_html {1192my$msg=shift;# it is already HTML escaped11931194# to avoid infinite loop where error occurs in die_error,1195# change handler to default handler, disabling handle_errors_html1196 set_message("Error occurred when inside die_error:\n$msg");11971198# you cannot jump out of die_error when called as error handler;1199# the subroutine set via CGI::Carp::set_message is called _after_1200# HTTP headers are already written, so it cannot write them itself1201 die_error(undef,undef,$msg, -error_handler =>1, -no_http_header =>1);1202}1203set_message(\&handle_errors_html);12041205# dispatch1206sub dispatch {1207if(!defined$action) {1208if(defined$hash) {1209$action= git_get_type($hash);1210$actionor die_error(404,"Object does not exist");1211}elsif(defined$hash_base&&defined$file_name) {1212$action= git_get_type("$hash_base:$file_name");1213$actionor die_error(404,"File or directory does not exist");1214}elsif(defined$project) {1215$action='summary';1216}else{1217$action='project_list';1218}1219}1220if(!defined($actions{$action})) {1221 die_error(400,"Unknown action");1222}1223if($action!~m/^(?:opml|project_list|project_index)$/&&1224!$project) {1225 die_error(400,"Project needed");1226}1227$actions{$action}->();1228}12291230sub reset_timer {1231our$t0= [ gettimeofday() ]1232ifdefined$t0;1233our$number_of_git_cmds=0;1234}12351236our$first_request=1;1237sub run_request {1238 reset_timer();12391240 evaluate_uri();1241if($first_request) {1242 evaluate_gitweb_config();1243 evaluate_git_version();1244}1245if($per_request_config) {1246if(ref($per_request_config)eq'CODE') {1247$per_request_config->();1248}elsif(!$first_request) {1249 evaluate_gitweb_config();1250}1251}1252 check_loadavg();12531254# $projectroot and $projects_list might be set in gitweb config file1255$projects_list||=$projectroot;12561257 evaluate_query_params();1258 evaluate_path_info();1259 evaluate_and_validate_params();1260 evaluate_git_dir();12611262 configure_gitweb_features();12631264 dispatch();1265}12661267our$is_last_request=sub{1};1268our($pre_dispatch_hook,$post_dispatch_hook,$pre_listen_hook);1269our$CGI='CGI';1270our$cgi;1271sub configure_as_fcgi {1272require CGI::Fast;1273our$CGI='CGI::Fast';12741275my$request_number=0;1276# let each child service 100 requests1277our$is_last_request=sub{ ++$request_number>100};1278}1279sub evaluate_argv {1280my$script_name=$ENV{'SCRIPT_NAME'} ||$ENV{'SCRIPT_FILENAME'} || __FILE__;1281 configure_as_fcgi()1282if$script_name=~/\.fcgi$/;12831284return unless(@ARGV);12851286require Getopt::Long;1287 Getopt::Long::GetOptions(1288'fastcgi|fcgi|f'=> \&configure_as_fcgi,1289'nproc|n=i'=>sub{1290my($arg,$val) =@_;1291return unlesseval{require FCGI::ProcManager;1; };1292my$proc_manager= FCGI::ProcManager->new({1293 n_processes =>$val,1294});1295our$pre_listen_hook=sub{$proc_manager->pm_manage() };1296our$pre_dispatch_hook=sub{$proc_manager->pm_pre_dispatch() };1297our$post_dispatch_hook=sub{$proc_manager->pm_post_dispatch() };1298},1299);1300}13011302sub run {1303 evaluate_argv();13041305$first_request=1;1306$pre_listen_hook->()1307if$pre_listen_hook;13081309 REQUEST:1310while($cgi=$CGI->new()) {1311$pre_dispatch_hook->()1312if$pre_dispatch_hook;13131314 run_request();13151316$post_dispatch_hook->()1317if$post_dispatch_hook;1318$first_request=0;13191320last REQUEST if($is_last_request->());1321}13221323 DONE_GITWEB:13241;1325}13261327run();13281329if(defined caller) {1330# wrapped in a subroutine processing requests,1331# e.g. mod_perl with ModPerl::Registry, or PSGI with Plack::App::WrapCGI1332return;1333}else{1334# pure CGI script, serving single request1335exit;1336}13371338## ======================================================================1339## action links13401341# possible values of extra options1342# -full => 0|1 - use absolute/full URL ($my_uri/$my_url as base)1343# -replay => 1 - start from a current view (replay with modifications)1344# -path_info => 0|1 - don't use/use path_info URL (if possible)1345# -anchor => ANCHOR - add #ANCHOR to end of URL, implies -replay if used alone1346sub href {1347my%params=@_;1348# default is to use -absolute url() i.e. $my_uri1349my$href=$params{-full} ?$my_url:$my_uri;13501351# implicit -replay, must be first of implicit params1352$params{-replay} =1if(keys%params==1&&$params{-anchor});13531354$params{'project'} =$projectunlessexists$params{'project'};13551356if($params{-replay}) {1357while(my($name,$symbol) =each%cgi_param_mapping) {1358if(!exists$params{$name}) {1359$params{$name} =$input_params{$name};1360}1361}1362}13631364my$use_pathinfo= gitweb_check_feature('pathinfo');1365if(defined$params{'project'} &&1366(exists$params{-path_info} ?$params{-path_info} :$use_pathinfo)) {1367# try to put as many parameters as possible in PATH_INFO:1368# - project name1369# - action1370# - hash_parent or hash_parent_base:/file_parent1371# - hash or hash_base:/filename1372# - the snapshot_format as an appropriate suffix13731374# When the script is the root DirectoryIndex for the domain,1375# $href here would be something like http://gitweb.example.com/1376# Thus, we strip any trailing / from $href, to spare us double1377# slashes in the final URL1378$href=~ s,/$,,;13791380# Then add the project name, if present1381$href.="/".esc_path_info($params{'project'});1382delete$params{'project'};13831384# since we destructively absorb parameters, we keep this1385# boolean that remembers if we're handling a snapshot1386my$is_snapshot=$params{'action'}eq'snapshot';13871388# Summary just uses the project path URL, any other action is1389# added to the URL1390if(defined$params{'action'}) {1391$href.="/".esc_path_info($params{'action'})1392unless$params{'action'}eq'summary';1393delete$params{'action'};1394}13951396# Next, we put hash_parent_base:/file_parent..hash_base:/file_name,1397# stripping nonexistent or useless pieces1398$href.="/"if($params{'hash_base'} ||$params{'hash_parent_base'}1399||$params{'hash_parent'} ||$params{'hash'});1400if(defined$params{'hash_base'}) {1401if(defined$params{'hash_parent_base'}) {1402$href.= esc_path_info($params{'hash_parent_base'});1403# skip the file_parent if it's the same as the file_name1404if(defined$params{'file_parent'}) {1405if(defined$params{'file_name'} &&$params{'file_parent'}eq$params{'file_name'}) {1406delete$params{'file_parent'};1407}elsif($params{'file_parent'} !~/\.\./) {1408$href.=":/".esc_path_info($params{'file_parent'});1409delete$params{'file_parent'};1410}1411}1412$href.="..";1413delete$params{'hash_parent'};1414delete$params{'hash_parent_base'};1415}elsif(defined$params{'hash_parent'}) {1416$href.= esc_path_info($params{'hash_parent'})."..";1417delete$params{'hash_parent'};1418}14191420$href.= esc_path_info($params{'hash_base'});1421if(defined$params{'file_name'} &&$params{'file_name'} !~/\.\./) {1422$href.=":/".esc_path_info($params{'file_name'});1423delete$params{'file_name'};1424}1425delete$params{'hash'};1426delete$params{'hash_base'};1427}elsif(defined$params{'hash'}) {1428$href.= esc_path_info($params{'hash'});1429delete$params{'hash'};1430}14311432# If the action was a snapshot, we can absorb the1433# snapshot_format parameter too1434if($is_snapshot) {1435my$fmt=$params{'snapshot_format'};1436# snapshot_format should always be defined when href()1437# is called, but just in case some code forgets, we1438# fall back to the default1439$fmt||=$snapshot_fmts[0];1440$href.=$known_snapshot_formats{$fmt}{'suffix'};1441delete$params{'snapshot_format'};1442}1443}14441445# now encode the parameters explicitly1446my@result= ();1447for(my$i=0;$i<@cgi_param_mapping;$i+=2) {1448my($name,$symbol) = ($cgi_param_mapping[$i],$cgi_param_mapping[$i+1]);1449if(defined$params{$name}) {1450if(ref($params{$name})eq"ARRAY") {1451foreachmy$par(@{$params{$name}}) {1452push@result,$symbol."=". esc_param($par);1453}1454}else{1455push@result,$symbol."=". esc_param($params{$name});1456}1457}1458}1459$href.="?".join(';',@result)ifscalar@result;14601461# final transformation: trailing spaces must be escaped (URI-encoded)1462$href=~s/(\s+)$/CGI::escape($1)/e;14631464if($params{-anchor}) {1465$href.="#".esc_param($params{-anchor});1466}14671468return$href;1469}147014711472## ======================================================================1473## validation, quoting/unquoting and escaping14741475sub is_valid_action {1476my$input=shift;1477returnundefunlessexists$actions{$input};1478return1;1479}14801481sub is_valid_project {1482my$input=shift;14831484return unlessdefined$input;1485if(!is_valid_pathname($input) ||1486!(-d "$projectroot/$input") ||1487!check_export_ok("$projectroot/$input") ||1488($strict_export&& !project_in_list($input))) {1489returnundef;1490}else{1491return1;1492}1493}14941495sub is_valid_pathname {1496my$input=shift;14971498returnundefunlessdefined$input;1499# no '.' or '..' as elements of path, i.e. no '.' or '..'1500# at the beginning, at the end, and between slashes.1501# also this catches doubled slashes1502if($input=~m!(^|/)(|\.|\.\.)(/|$)!) {1503returnundef;1504}1505# no null characters1506if($input=~m!\0!) {1507returnundef;1508}1509return1;1510}15111512sub is_valid_ref_format {1513my$input=shift;15141515returnundefunlessdefined$input;1516# restrictions on ref name according to git-check-ref-format1517if($input=~m!(/\.|\.\.|[\000-\040\177 ~^:?*\[]|/$)!) {1518returnundef;1519}1520return1;1521}15221523sub is_valid_refname {1524my$input=shift;15251526returnundefunlessdefined$input;1527# textual hashes are O.K.1528if($input=~m/^[0-9a-fA-F]{40}$/) {1529return1;1530}1531# it must be correct pathname1532 is_valid_pathname($input)orreturnundef;1533# check git-check-ref-format restrictions1534 is_valid_ref_format($input)orreturnundef;1535return1;1536}15371538# decode sequences of octets in utf8 into Perl's internal form,1539# which is utf-8 with utf8 flag set if needed. gitweb writes out1540# in utf-8 thanks to "binmode STDOUT, ':utf8'" at beginning1541sub to_utf8 {1542my$str=shift;1543returnundefunlessdefined$str;15441545if(utf8::is_utf8($str) || utf8::decode($str)) {1546return$str;1547}else{1548return decode($fallback_encoding,$str, Encode::FB_DEFAULT);1549}1550}15511552# quote unsafe chars, but keep the slash, even when it's not1553# correct, but quoted slashes look too horrible in bookmarks1554sub esc_param {1555my$str=shift;1556returnundefunlessdefined$str;1557$str=~s/([^A-Za-z0-9\-_.~()\/:@ ]+)/CGI::escape($1)/eg;1558$str=~s/ /\+/g;1559return$str;1560}15611562# the quoting rules for path_info fragment are slightly different1563sub esc_path_info {1564my$str=shift;1565returnundefunlessdefined$str;15661567# path_info doesn't treat '+' as space (specially), but '?' must be escaped1568$str=~s/([^A-Za-z0-9\-_.~();\/;:@&= +]+)/CGI::escape($1)/eg;15691570return$str;1571}15721573# quote unsafe chars in whole URL, so some characters cannot be quoted1574sub esc_url {1575my$str=shift;1576returnundefunlessdefined$str;1577$str=~s/([^A-Za-z0-9\-_.~();\/;?:@&= ]+)/CGI::escape($1)/eg;1578$str=~s/ /\+/g;1579return$str;1580}15811582# quote unsafe characters in HTML attributes1583sub esc_attr {15841585# for XHTML conformance escaping '"' to '"' is not enough1586return esc_html(@_);1587}15881589# replace invalid utf8 character with SUBSTITUTION sequence1590sub esc_html {1591my$str=shift;1592my%opts=@_;15931594returnundefunlessdefined$str;15951596$str= to_utf8($str);1597$str=$cgi->escapeHTML($str);1598if($opts{'-nbsp'}) {1599$str=~s/ / /g;1600}1601$str=~ s|([[:cntrl:]])|(($1ne"\t") ? quot_cec($1) :$1)|eg;1602return$str;1603}16041605# quote control characters and escape filename to HTML1606sub esc_path {1607my$str=shift;1608my%opts=@_;16091610returnundefunlessdefined$str;16111612$str= to_utf8($str);1613$str=$cgi->escapeHTML($str);1614if($opts{'-nbsp'}) {1615$str=~s/ / /g;1616}1617$str=~ s|([[:cntrl:]])|quot_cec($1)|eg;1618return$str;1619}16201621# Sanitize for use in XHTML + application/xml+xhtml (valid XML 1.0)1622sub sanitize {1623my$str=shift;16241625returnundefunlessdefined$str;16261627$str= to_utf8($str);1628$str=~ s|([[:cntrl:]])|(index("\t\n\r",$1) != -1?$1: quot_cec($1))|eg;1629return$str;1630}16311632# Make control characters "printable", using character escape codes (CEC)1633sub quot_cec {1634my$cntrl=shift;1635my%opts=@_;1636my%es= (# character escape codes, aka escape sequences1637"\t"=>'\t',# tab (HT)1638"\n"=>'\n',# line feed (LF)1639"\r"=>'\r',# carrige return (CR)1640"\f"=>'\f',# form feed (FF)1641"\b"=>'\b',# backspace (BS)1642"\a"=>'\a',# alarm (bell) (BEL)1643"\e"=>'\e',# escape (ESC)1644"\013"=>'\v',# vertical tab (VT)1645"\000"=>'\0',# nul character (NUL)1646);1647my$chr= ( (exists$es{$cntrl})1648?$es{$cntrl}1649:sprintf('\%2x',ord($cntrl)) );1650if($opts{-nohtml}) {1651return$chr;1652}else{1653return"<span class=\"cntrl\">$chr</span>";1654}1655}16561657# Alternatively use unicode control pictures codepoints,1658# Unicode "printable representation" (PR)1659sub quot_upr {1660my$cntrl=shift;1661my%opts=@_;16621663my$chr=sprintf('&#%04d;',0x2400+ord($cntrl));1664if($opts{-nohtml}) {1665return$chr;1666}else{1667return"<span class=\"cntrl\">$chr</span>";1668}1669}16701671# git may return quoted and escaped filenames1672sub unquote {1673my$str=shift;16741675sub unq {1676my$seq=shift;1677my%es= (# character escape codes, aka escape sequences1678't'=>"\t",# tab (HT, TAB)1679'n'=>"\n",# newline (NL)1680'r'=>"\r",# return (CR)1681'f'=>"\f",# form feed (FF)1682'b'=>"\b",# backspace (BS)1683'a'=>"\a",# alarm (bell) (BEL)1684'e'=>"\e",# escape (ESC)1685'v'=>"\013",# vertical tab (VT)1686);16871688if($seq=~m/^[0-7]{1,3}$/) {1689# octal char sequence1690returnchr(oct($seq));1691}elsif(exists$es{$seq}) {1692# C escape sequence, aka character escape code1693return$es{$seq};1694}1695# quoted ordinary character1696return$seq;1697}16981699if($str=~m/^"(.*)"$/) {1700# needs unquoting1701$str=$1;1702$str=~s/\\([^0-7]|[0-7]{1,3})/unq($1)/eg;1703}1704return$str;1705}17061707# escape tabs (convert tabs to spaces)1708sub untabify {1709my$line=shift;17101711while((my$pos=index($line,"\t")) != -1) {1712if(my$count= (8- ($pos%8))) {1713my$spaces=' ' x $count;1714$line=~s/\t/$spaces/;1715}1716}17171718return$line;1719}17201721sub project_in_list {1722my$project=shift;1723my@list= git_get_projects_list();1724return@list&&scalar(grep{$_->{'path'}eq$project}@list);1725}17261727## ----------------------------------------------------------------------1728## HTML aware string manipulation17291730# Try to chop given string on a word boundary between position1731# $len and $len+$add_len. If there is no word boundary there,1732# chop at $len+$add_len. Do not chop if chopped part plus ellipsis1733# (marking chopped part) would be longer than given string.1734sub chop_str {1735my$str=shift;1736my$len=shift;1737my$add_len=shift||10;1738my$where=shift||'right';# 'left' | 'center' | 'right'17391740# Make sure perl knows it is utf8 encoded so we don't1741# cut in the middle of a utf8 multibyte char.1742$str= to_utf8($str);17431744# allow only $len chars, but don't cut a word if it would fit in $add_len1745# if it doesn't fit, cut it if it's still longer than the dots we would add1746# remove chopped character entities entirely17471748# when chopping in the middle, distribute $len into left and right part1749# return early if chopping wouldn't make string shorter1750if($whereeq'center') {1751return$strif($len+5>=length($str));# filler is length 51752$len=int($len/2);1753}else{1754return$strif($len+4>=length($str));# filler is length 41755}17561757# regexps: ending and beginning with word part up to $add_len1758my$endre=qr/.{$len}\w{0,$add_len}/;1759my$begre=qr/\w{0,$add_len}.{$len}/;17601761if($whereeq'left') {1762$str=~m/^(.*?)($begre)$/;1763my($lead,$body) = ($1,$2);1764if(length($lead) >4) {1765$lead=" ...";1766}1767return"$lead$body";17681769}elsif($whereeq'center') {1770$str=~m/^($endre)(.*)$/;1771my($left,$str) = ($1,$2);1772$str=~m/^(.*?)($begre)$/;1773my($mid,$right) = ($1,$2);1774if(length($mid) >5) {1775$mid=" ... ";1776}1777return"$left$mid$right";17781779}else{1780$str=~m/^($endre)(.*)$/;1781my$body=$1;1782my$tail=$2;1783if(length($tail) >4) {1784$tail="... ";1785}1786return"$body$tail";1787}1788}17891790# takes the same arguments as chop_str, but also wraps a <span> around the1791# result with a title attribute if it does get chopped. Additionally, the1792# string is HTML-escaped.1793sub chop_and_escape_str {1794my($str) =@_;17951796my$chopped= chop_str(@_);1797$str= to_utf8($str);1798if($choppedeq$str) {1799return esc_html($chopped);1800}else{1801$str=~s/[[:cntrl:]]/?/g;1802return$cgi->span({-title=>$str}, esc_html($chopped));1803}1804}18051806# Highlight selected fragments of string, using given CSS class,1807# and escape HTML. It is assumed that fragments do not overlap.1808# Regions are passed as list of pairs (array references).1809#1810# Example: esc_html_hl_regions("foobar", "mark", [ 0, 3 ]) returns1811# '<span class="mark">foo</span>bar'1812sub esc_html_hl_regions {1813my($str,$css_class,@sel) =@_;1814my%opts=grep{ref($_)ne'ARRAY'}@sel;1815@sel=grep{ref($_)eq'ARRAY'}@sel;1816return esc_html($str,%opts)unless@sel;18171818my$out='';1819my$pos=0;18201821formy$s(@sel) {1822my($begin,$end) =@$s;18231824# Don't create empty <span> elements.1825next if$end<=$begin;18261827my$escaped= esc_html(substr($str,$begin,$end-$begin),1828%opts);18291830$out.= esc_html(substr($str,$pos,$begin-$pos),%opts)1831if($begin-$pos>0);1832$out.=$cgi->span({-class=>$css_class},$escaped);18331834$pos=$end;1835}1836$out.= esc_html(substr($str,$pos),%opts)1837if($pos<length($str));18381839return$out;1840}18411842# return positions of beginning and end of each match1843sub matchpos_list {1844my($str,$regexp) =@_;1845return unless(defined$str&&defined$regexp);18461847my@matches;1848while($str=~/$regexp/g) {1849push@matches, [$-[0],$+[0]];1850}1851return@matches;1852}18531854# highlight match (if any), and escape HTML1855sub esc_html_match_hl {1856my($str,$regexp) =@_;1857return esc_html($str)unlessdefined$regexp;18581859my@matches= matchpos_list($str,$regexp);1860return esc_html($str)unless@matches;18611862return esc_html_hl_regions($str,'match',@matches);1863}186418651866# highlight match (if any) of shortened string, and escape HTML1867sub esc_html_match_hl_chopped {1868my($str,$chopped,$regexp) =@_;1869return esc_html_match_hl($str,$regexp)unlessdefined$chopped;18701871my@matches= matchpos_list($str,$regexp);1872return esc_html($chopped)unless@matches;18731874# filter matches so that we mark chopped string1875my$tail="... ";# see chop_str1876unless($chopped=~s/\Q$tail\E$//) {1877$tail='';1878}1879my$chop_len=length($chopped);1880my$tail_len=length($tail);1881my@filtered;18821883formy$m(@matches) {1884if($m->[0] >$chop_len) {1885push@filtered, [$chop_len,$chop_len+$tail_len]if($tail_len>0);1886last;1887}elsif($m->[1] >$chop_len) {1888push@filtered, [$m->[0],$chop_len+$tail_len];1889last;1890}1891push@filtered,$m;1892}18931894return esc_html_hl_regions($chopped.$tail,'match',@filtered);1895}18961897## ----------------------------------------------------------------------1898## functions returning short strings18991900# CSS class for given age value (in seconds)1901sub age_class {1902my$age=shift;19031904if(!defined$age) {1905return"noage";1906}elsif($age<60*60*2) {1907return"age0";1908}elsif($age<60*60*24*2) {1909return"age1";1910}else{1911return"age2";1912}1913}19141915# convert age in seconds to "nn units ago" string1916sub age_string {1917my$age=shift;1918my$age_str;19191920if($age>60*60*24*365*2) {1921$age_str= (int$age/60/60/24/365);1922$age_str.=" years ago";1923}elsif($age>60*60*24*(365/12)*2) {1924$age_str=int$age/60/60/24/(365/12);1925$age_str.=" months ago";1926}elsif($age>60*60*24*7*2) {1927$age_str=int$age/60/60/24/7;1928$age_str.=" weeks ago";1929}elsif($age>60*60*24*2) {1930$age_str=int$age/60/60/24;1931$age_str.=" days ago";1932}elsif($age>60*60*2) {1933$age_str=int$age/60/60;1934$age_str.=" hours ago";1935}elsif($age>60*2) {1936$age_str=int$age/60;1937$age_str.=" min ago";1938}elsif($age>2) {1939$age_str=int$age;1940$age_str.=" sec ago";1941}else{1942$age_str.=" right now";1943}1944return$age_str;1945}19461947useconstant{1948 S_IFINVALID =>0030000,1949 S_IFGITLINK =>0160000,1950};19511952# submodule/subproject, a commit object reference1953sub S_ISGITLINK {1954my$mode=shift;19551956return(($mode& S_IFMT) == S_IFGITLINK)1957}19581959# convert file mode in octal to symbolic file mode string1960sub mode_str {1961my$mode=oct shift;19621963if(S_ISGITLINK($mode)) {1964return'm---------';1965}elsif(S_ISDIR($mode& S_IFMT)) {1966return'drwxr-xr-x';1967}elsif(S_ISLNK($mode)) {1968return'lrwxrwxrwx';1969}elsif(S_ISREG($mode)) {1970# git cares only about the executable bit1971if($mode& S_IXUSR) {1972return'-rwxr-xr-x';1973}else{1974return'-rw-r--r--';1975};1976}else{1977return'----------';1978}1979}19801981# convert file mode in octal to file type string1982sub file_type {1983my$mode=shift;19841985if($mode!~m/^[0-7]+$/) {1986return$mode;1987}else{1988$mode=oct$mode;1989}19901991if(S_ISGITLINK($mode)) {1992return"submodule";1993}elsif(S_ISDIR($mode& S_IFMT)) {1994return"directory";1995}elsif(S_ISLNK($mode)) {1996return"symlink";1997}elsif(S_ISREG($mode)) {1998return"file";1999}else{2000return"unknown";2001}2002}20032004# convert file mode in octal to file type description string2005sub file_type_long {2006my$mode=shift;20072008if($mode!~m/^[0-7]+$/) {2009return$mode;2010}else{2011$mode=oct$mode;2012}20132014if(S_ISGITLINK($mode)) {2015return"submodule";2016}elsif(S_ISDIR($mode& S_IFMT)) {2017return"directory";2018}elsif(S_ISLNK($mode)) {2019return"symlink";2020}elsif(S_ISREG($mode)) {2021if($mode& S_IXUSR) {2022return"executable";2023}else{2024return"file";2025};2026}else{2027return"unknown";2028}2029}203020312032## ----------------------------------------------------------------------2033## functions returning short HTML fragments, or transforming HTML fragments2034## which don't belong to other sections20352036# format line of commit message.2037sub format_log_line_html {2038my$line=shift;20392040$line= esc_html($line, -nbsp=>1);2041$line=~ s{2042\b2043(2044# The output of "git describe", e.g. v2.10.0-297-gf6727b02045# or hadoop-20160921-113441-20-g094fb7d2046(?<!-)# see strbuf_check_tag_ref(). Tags can't start with -2047[A-Za-z0-9.-]+2048(?!\.)# refs can't end with ".", see check_refname_format()2049-g[0-9a-fA-F]{7,40}2050|2051# Just a normal looking Git SHA12052[0-9a-fA-F]{7,40}2053)2054\b2055}{2056$cgi->a({-href => href(action=>"object", hash=>$1),2057-class=>"text"},$1);2058}egx;20592060return$line;2061}20622063# format marker of refs pointing to given object20642065# the destination action is chosen based on object type and current context:2066# - for annotated tags, we choose the tag view unless it's the current view2067# already, in which case we go to shortlog view2068# - for other refs, we keep the current view if we're in history, shortlog or2069# log view, and select shortlog otherwise2070sub format_ref_marker {2071my($refs,$id) =@_;2072my$markers='';20732074if(defined$refs->{$id}) {2075foreachmy$ref(@{$refs->{$id}}) {2076# this code exploits the fact that non-lightweight tags are the2077# only indirect objects, and that they are the only objects for which2078# we want to use tag instead of shortlog as action2079my($type,$name) =qw();2080my$indirect= ($ref=~s/\^\{\}$//);2081# e.g. tags/v2.6.11 or heads/next2082if($ref=~m!^(.*?)s?/(.*)$!) {2083$type=$1;2084$name=$2;2085}else{2086$type="ref";2087$name=$ref;2088}20892090my$class=$type;2091$class.=" indirect"if$indirect;20922093my$dest_action="shortlog";20942095if($indirect) {2096$dest_action="tag"unless$actioneq"tag";2097}elsif($action=~/^(history|(short)?log)$/) {2098$dest_action=$action;2099}21002101my$dest="";2102$dest.="refs/"unless$ref=~ m!^refs/!;2103$dest.=$ref;21042105my$link=$cgi->a({2106-href => href(2107 action=>$dest_action,2108 hash=>$dest2109)}, esc_html($name));21102111$markers.=" <span class=\"".esc_attr($class)."\"title=\"".esc_attr($ref)."\">".2112$link."</span>";2113}2114}21152116if($markers) {2117return' <span class="refs">'.$markers.'</span>';2118}else{2119return"";2120}2121}21222123# format, perhaps shortened and with markers, title line2124sub format_subject_html {2125my($long,$short,$href,$extra) =@_;2126$extra=''unlessdefined($extra);21272128if(length($short) <length($long)) {2129$long=~s/[[:cntrl:]]/?/g;2130return$cgi->a({-href =>$href, -class=>"list subject",2131-title => to_utf8($long)},2132 esc_html($short)) .$extra;2133}else{2134return$cgi->a({-href =>$href, -class=>"list subject"},2135 esc_html($long)) .$extra;2136}2137}21382139# Rather than recomputing the url for an email multiple times, we cache it2140# after the first hit. This gives a visible benefit in views where the avatar2141# for the same email is used repeatedly (e.g. shortlog).2142# The cache is shared by all avatar engines (currently gravatar only), which2143# are free to use it as preferred. Since only one avatar engine is used for any2144# given page, there's no risk for cache conflicts.2145our%avatar_cache= ();21462147# Compute the picon url for a given email, by using the picon search service over at2148# http://www.cs.indiana.edu/picons/search.html2149sub picon_url {2150my$email=lc shift;2151if(!$avatar_cache{$email}) {2152my($user,$domain) =split('@',$email);2153$avatar_cache{$email} =2154"//www.cs.indiana.edu/cgi-pub/kinzler/piconsearch.cgi/".2155"$domain/$user/".2156"users+domains+unknown/up/single";2157}2158return$avatar_cache{$email};2159}21602161# Compute the gravatar url for a given email, if it's not in the cache already.2162# Gravatar stores only the part of the URL before the size, since that's the2163# one computationally more expensive. This also allows reuse of the cache for2164# different sizes (for this particular engine).2165sub gravatar_url {2166my$email=lc shift;2167my$size=shift;2168$avatar_cache{$email} ||=2169"//www.gravatar.com/avatar/".2170 Digest::MD5::md5_hex($email) ."?s=";2171return$avatar_cache{$email} .$size;2172}21732174# Insert an avatar for the given $email at the given $size if the feature2175# is enabled.2176sub git_get_avatar {2177my($email,%opts) =@_;2178my$pre_white= ($opts{-pad_before} ?" ":"");2179my$post_white= ($opts{-pad_after} ?" ":"");2180$opts{-size} ||='default';2181my$size=$avatar_size{$opts{-size}} ||$avatar_size{'default'};2182my$url="";2183if($git_avatareq'gravatar') {2184$url= gravatar_url($email,$size);2185}elsif($git_avatareq'picon') {2186$url= picon_url($email);2187}2188# Other providers can be added by extending the if chain, defining $url2189# as needed. If no variant puts something in $url, we assume avatars2190# are completely disabled/unavailable.2191if($url) {2192return$pre_white.2193"<img width=\"$size\"".2194"class=\"avatar\"".2195"src=\"".esc_url($url)."\"".2196"alt=\"\"".2197"/>".$post_white;2198}else{2199return"";2200}2201}22022203sub format_search_author {2204my($author,$searchtype,$displaytext) =@_;2205my$have_search= gitweb_check_feature('search');22062207if($have_search) {2208my$performed="";2209if($searchtypeeq'author') {2210$performed="authored";2211}elsif($searchtypeeq'committer') {2212$performed="committed";2213}22142215return$cgi->a({-href => href(action=>"search", hash=>$hash,2216 searchtext=>$author,2217 searchtype=>$searchtype),class=>"list",2218 title=>"Search for commits$performedby$author"},2219$displaytext);22202221}else{2222return$displaytext;2223}2224}22252226# format the author name of the given commit with the given tag2227# the author name is chopped and escaped according to the other2228# optional parameters (see chop_str).2229sub format_author_html {2230my$tag=shift;2231my$co=shift;2232my$author= chop_and_escape_str($co->{'author_name'},@_);2233return"<$tagclass=\"author\">".2234 format_search_author($co->{'author_name'},"author",2235 git_get_avatar($co->{'author_email'}, -pad_after =>1) .2236$author) .2237"</$tag>";2238}22392240# format git diff header line, i.e. "diff --(git|combined|cc) ..."2241sub format_git_diff_header_line {2242my$line=shift;2243my$diffinfo=shift;2244my($from,$to) =@_;22452246if($diffinfo->{'nparents'}) {2247# combined diff2248$line=~s!^(diff (.*?) )"?.*$!$1!;2249if($to->{'href'}) {2250$line.=$cgi->a({-href =>$to->{'href'}, -class=>"path"},2251 esc_path($to->{'file'}));2252}else{# file was deleted (no href)2253$line.= esc_path($to->{'file'});2254}2255}else{2256# "ordinary" diff2257$line=~s!^(diff (.*?) )"?a/.*$!$1!;2258if($from->{'href'}) {2259$line.=$cgi->a({-href =>$from->{'href'}, -class=>"path"},2260'a/'. esc_path($from->{'file'}));2261}else{# file was added (no href)2262$line.='a/'. esc_path($from->{'file'});2263}2264$line.=' ';2265if($to->{'href'}) {2266$line.=$cgi->a({-href =>$to->{'href'}, -class=>"path"},2267'b/'. esc_path($to->{'file'}));2268}else{# file was deleted2269$line.='b/'. esc_path($to->{'file'});2270}2271}22722273return"<div class=\"diff header\">$line</div>\n";2274}22752276# format extended diff header line, before patch itself2277sub format_extended_diff_header_line {2278my$line=shift;2279my$diffinfo=shift;2280my($from,$to) =@_;22812282# match <path>2283if($line=~s!^((copy|rename) from ).*$!$1!&&$from->{'href'}) {2284$line.=$cgi->a({-href=>$from->{'href'}, -class=>"path"},2285 esc_path($from->{'file'}));2286}2287if($line=~s!^((copy|rename) to ).*$!$1!&&$to->{'href'}) {2288$line.=$cgi->a({-href=>$to->{'href'}, -class=>"path"},2289 esc_path($to->{'file'}));2290}2291# match single <mode>2292if($line=~m/\s(\d{6})$/) {2293$line.='<span class="info"> ('.2294 file_type_long($1) .2295')</span>';2296}2297# match <hash>2298if($line=~m/^index [0-9a-fA-F]{40},[0-9a-fA-F]{40}/) {2299# can match only for combined diff2300$line='index ';2301for(my$i=0;$i<$diffinfo->{'nparents'};$i++) {2302if($from->{'href'}[$i]) {2303$line.=$cgi->a({-href=>$from->{'href'}[$i],2304-class=>"hash"},2305substr($diffinfo->{'from_id'}[$i],0,7));2306}else{2307$line.='0' x 7;2308}2309# separator2310$line.=','if($i<$diffinfo->{'nparents'} -1);2311}2312$line.='..';2313if($to->{'href'}) {2314$line.=$cgi->a({-href=>$to->{'href'}, -class=>"hash"},2315substr($diffinfo->{'to_id'},0,7));2316}else{2317$line.='0' x 7;2318}23192320}elsif($line=~m/^index [0-9a-fA-F]{40}..[0-9a-fA-F]{40}/) {2321# can match only for ordinary diff2322my($from_link,$to_link);2323if($from->{'href'}) {2324$from_link=$cgi->a({-href=>$from->{'href'}, -class=>"hash"},2325substr($diffinfo->{'from_id'},0,7));2326}else{2327$from_link='0' x 7;2328}2329if($to->{'href'}) {2330$to_link=$cgi->a({-href=>$to->{'href'}, -class=>"hash"},2331substr($diffinfo->{'to_id'},0,7));2332}else{2333$to_link='0' x 7;2334}2335my($from_id,$to_id) = ($diffinfo->{'from_id'},$diffinfo->{'to_id'});2336$line=~s!$from_id\.\.$to_id!$from_link..$to_link!;2337}23382339return$line."<br/>\n";2340}23412342# format from-file/to-file diff header2343sub format_diff_from_to_header {2344my($from_line,$to_line,$diffinfo,$from,$to,@parents) =@_;2345my$line;2346my$result='';23472348$line=$from_line;2349#assert($line =~ m/^---/) if DEBUG;2350# no extra formatting for "^--- /dev/null"2351if(!$diffinfo->{'nparents'}) {2352# ordinary (single parent) diff2353if($line=~m!^--- "?a/!) {2354if($from->{'href'}) {2355$line='--- a/'.2356$cgi->a({-href=>$from->{'href'}, -class=>"path"},2357 esc_path($from->{'file'}));2358}else{2359$line='--- a/'.2360 esc_path($from->{'file'});2361}2362}2363$result.= qq!<div class="diff from_file">$line</div>\n!;23642365}else{2366# combined diff (merge commit)2367for(my$i=0;$i<$diffinfo->{'nparents'};$i++) {2368if($from->{'href'}[$i]) {2369$line='--- '.2370$cgi->a({-href=>href(action=>"blobdiff",2371 hash_parent=>$diffinfo->{'from_id'}[$i],2372 hash_parent_base=>$parents[$i],2373 file_parent=>$from->{'file'}[$i],2374 hash=>$diffinfo->{'to_id'},2375 hash_base=>$hash,2376 file_name=>$to->{'file'}),2377-class=>"path",2378-title=>"diff". ($i+1)},2379$i+1) .2380'/'.2381$cgi->a({-href=>$from->{'href'}[$i], -class=>"path"},2382 esc_path($from->{'file'}[$i]));2383}else{2384$line='--- /dev/null';2385}2386$result.= qq!<div class="diff from_file">$line</div>\n!;2387}2388}23892390$line=$to_line;2391#assert($line =~ m/^\+\+\+/) if DEBUG;2392# no extra formatting for "^+++ /dev/null"2393if($line=~m!^\+\+\+ "?b/!) {2394if($to->{'href'}) {2395$line='+++ b/'.2396$cgi->a({-href=>$to->{'href'}, -class=>"path"},2397 esc_path($to->{'file'}));2398}else{2399$line='+++ b/'.2400 esc_path($to->{'file'});2401}2402}2403$result.= qq!<div class="diff to_file">$line</div>\n!;24042405return$result;2406}24072408# create note for patch simplified by combined diff2409sub format_diff_cc_simplified {2410my($diffinfo,@parents) =@_;2411my$result='';24122413$result.="<div class=\"diff header\">".2414"diff --cc ";2415if(!is_deleted($diffinfo)) {2416$result.=$cgi->a({-href => href(action=>"blob",2417 hash_base=>$hash,2418 hash=>$diffinfo->{'to_id'},2419 file_name=>$diffinfo->{'to_file'}),2420-class=>"path"},2421 esc_path($diffinfo->{'to_file'}));2422}else{2423$result.= esc_path($diffinfo->{'to_file'});2424}2425$result.="</div>\n".# class="diff header"2426"<div class=\"diff nodifferences\">".2427"Simple merge".2428"</div>\n";# class="diff nodifferences"24292430return$result;2431}24322433sub diff_line_class {2434my($line,$from,$to) =@_;24352436# ordinary diff2437my$num_sign=1;2438# combined diff2439if($from&&$to&&ref($from->{'href'})eq"ARRAY") {2440$num_sign=scalar@{$from->{'href'}};2441}24422443my@diff_line_classifier= (2444{ regexp =>qr/^\@\@{$num_sign} /,class=>"chunk_header"},2445{ regexp =>qr/^\\/,class=>"incomplete"},2446{ regexp =>qr/^ {$num_sign}/,class=>"ctx"},2447# classifier for context must come before classifier add/rem,2448# or we would have to use more complicated regexp, for example2449# qr/(?= {0,$m}\+)[+ ]{$num_sign}/, where $m = $num_sign - 1;2450{ regexp =>qr/^[+ ]{$num_sign}/,class=>"add"},2451{ regexp =>qr/^[- ]{$num_sign}/,class=>"rem"},2452);2453formy$clsfy(@diff_line_classifier) {2454return$clsfy->{'class'}2455if($line=~$clsfy->{'regexp'});2456}24572458# fallback2459return"";2460}24612462# assumes that $from and $to are defined and correctly filled,2463# and that $line holds a line of chunk header for unified diff2464sub format_unidiff_chunk_header {2465my($line,$from,$to) =@_;24662467my($from_text,$from_start,$from_lines,$to_text,$to_start,$to_lines,$section) =2468$line=~m/^\@{2} (-(\d+)(?:,(\d+))?) (\+(\d+)(?:,(\d+))?) \@{2}(.*)$/;24692470$from_lines=0unlessdefined$from_lines;2471$to_lines=0unlessdefined$to_lines;24722473if($from->{'href'}) {2474$from_text=$cgi->a({-href=>"$from->{'href'}#l$from_start",2475-class=>"list"},$from_text);2476}2477if($to->{'href'}) {2478$to_text=$cgi->a({-href=>"$to->{'href'}#l$to_start",2479-class=>"list"},$to_text);2480}2481$line="<span class=\"chunk_info\">@@$from_text$to_text@@</span>".2482"<span class=\"section\">". esc_html($section, -nbsp=>1) ."</span>";2483return$line;2484}24852486# assumes that $from and $to are defined and correctly filled,2487# and that $line holds a line of chunk header for combined diff2488sub format_cc_diff_chunk_header {2489my($line,$from,$to) =@_;24902491my($prefix,$ranges,$section) =$line=~m/^(\@+) (.*?) \@+(.*)$/;2492my(@from_text,@from_start,@from_nlines,$to_text,$to_start,$to_nlines);24932494@from_text=split(' ',$ranges);2495for(my$i=0;$i<@from_text; ++$i) {2496($from_start[$i],$from_nlines[$i]) =2497(split(',',substr($from_text[$i],1)),0);2498}24992500$to_text=pop@from_text;2501$to_start=pop@from_start;2502$to_nlines=pop@from_nlines;25032504$line="<span class=\"chunk_info\">$prefix";2505for(my$i=0;$i<@from_text; ++$i) {2506if($from->{'href'}[$i]) {2507$line.=$cgi->a({-href=>"$from->{'href'}[$i]#l$from_start[$i]",2508-class=>"list"},$from_text[$i]);2509}else{2510$line.=$from_text[$i];2511}2512$line.=" ";2513}2514if($to->{'href'}) {2515$line.=$cgi->a({-href=>"$to->{'href'}#l$to_start",2516-class=>"list"},$to_text);2517}else{2518$line.=$to_text;2519}2520$line.="$prefix</span>".2521"<span class=\"section\">". esc_html($section, -nbsp=>1) ."</span>";2522return$line;2523}25242525# process patch (diff) line (not to be used for diff headers),2526# returning HTML-formatted (but not wrapped) line.2527# If the line is passed as a reference, it is treated as HTML and not2528# esc_html()'ed.2529sub format_diff_line {2530my($line,$diff_class,$from,$to) =@_;25312532if(ref($line)) {2533$line=$$line;2534}else{2535chomp$line;2536$line= untabify($line);25372538if($from&&$to&&$line=~m/^\@{2} /) {2539$line= format_unidiff_chunk_header($line,$from,$to);2540}elsif($from&&$to&&$line=~m/^\@{3}/) {2541$line= format_cc_diff_chunk_header($line,$from,$to);2542}else{2543$line= esc_html($line, -nbsp=>1);2544}2545}25462547my$diff_classes="diff";2548$diff_classes.="$diff_class"if($diff_class);2549$line="<div class=\"$diff_classes\">$line</div>\n";25502551return$line;2552}25532554# Generates undef or something like "_snapshot_" or "snapshot (_tbz2_ _zip_)",2555# linked. Pass the hash of the tree/commit to snapshot.2556sub format_snapshot_links {2557my($hash) =@_;2558my$num_fmts=@snapshot_fmts;2559if($num_fmts>1) {2560# A parenthesized list of links bearing format names.2561# e.g. "snapshot (_tar.gz_ _zip_)"2562return"snapshot (".join(' ',map2563$cgi->a({2564-href => href(2565 action=>"snapshot",2566 hash=>$hash,2567 snapshot_format=>$_2568)2569},$known_snapshot_formats{$_}{'display'})2570,@snapshot_fmts) .")";2571}elsif($num_fmts==1) {2572# A single "snapshot" link whose tooltip bears the format name.2573# i.e. "_snapshot_"2574my($fmt) =@snapshot_fmts;2575return2576$cgi->a({2577-href => href(2578 action=>"snapshot",2579 hash=>$hash,2580 snapshot_format=>$fmt2581),2582-title =>"in format:$known_snapshot_formats{$fmt}{'display'}"2583},"snapshot");2584}else{# $num_fmts == 02585returnundef;2586}2587}25882589## ......................................................................2590## functions returning values to be passed, perhaps after some2591## transformation, to other functions; e.g. returning arguments to href()25922593# returns hash to be passed to href to generate gitweb URL2594# in -title key it returns description of link2595sub get_feed_info {2596my$format=shift||'Atom';2597my%res= (action =>lc($format));2598my$matched_ref=0;25992600# feed links are possible only for project views2601return unless(defined$project);2602# some views should link to OPML, or to generic project feed,2603# or don't have specific feed yet (so they should use generic)2604return if(!$action||$action=~/^(?:tags|heads|forks|tag|search)$/x);26052606my$branch=undef;2607# branches refs uses 'refs/' + $get_branch_refs()[x] + '/' prefix2608# (fullname) to differentiate from tag links; this also makes2609# possible to detect branch links2610formy$ref(get_branch_refs()) {2611if((defined$hash_base&&$hash_base=~m!^refs/\Q$ref\E/(.*)$!) ||2612(defined$hash&&$hash=~m!^refs/\Q$ref\E/(.*)$!)) {2613$branch=$1;2614$matched_ref=$ref;2615last;2616}2617}2618# find log type for feed description (title)2619my$type='log';2620if(defined$file_name) {2621$type="history of$file_name";2622$type.="/"if($actioneq'tree');2623$type.=" on '$branch'"if(defined$branch);2624}else{2625$type="log of$branch"if(defined$branch);2626}26272628$res{-title} =$type;2629$res{'hash'} = (defined$branch?"refs/$matched_ref/$branch":undef);2630$res{'file_name'} =$file_name;26312632return%res;2633}26342635## ----------------------------------------------------------------------2636## git utility subroutines, invoking git commands26372638# returns path to the core git executable and the --git-dir parameter as list2639sub git_cmd {2640$number_of_git_cmds++;2641return$GIT,'--git-dir='.$git_dir;2642}26432644# quote the given arguments for passing them to the shell2645# quote_command("command", "arg 1", "arg with ' and ! characters")2646# => "'command' 'arg 1' 'arg with '\'' and '\!' characters'"2647# Try to avoid using this function wherever possible.2648sub quote_command {2649returnjoin(' ',2650map{my$a=$_;$a=~s/(['!])/'\\$1'/g;"'$a'"}@_);2651}26522653# get HEAD ref of given project as hash2654sub git_get_head_hash {2655return git_get_full_hash(shift,'HEAD');2656}26572658sub git_get_full_hash {2659return git_get_hash(@_);2660}26612662sub git_get_short_hash {2663return git_get_hash(@_,'--short=7');2664}26652666sub git_get_hash {2667my($project,$hash,@options) =@_;2668my$o_git_dir=$git_dir;2669my$retval=undef;2670$git_dir="$projectroot/$project";2671if(open my$fd,'-|', git_cmd(),'rev-parse',2672'--verify','-q',@options,$hash) {2673$retval= <$fd>;2674chomp$retvalifdefined$retval;2675close$fd;2676}2677if(defined$o_git_dir) {2678$git_dir=$o_git_dir;2679}2680return$retval;2681}26822683# get type of given object2684sub git_get_type {2685my$hash=shift;26862687open my$fd,"-|", git_cmd(),"cat-file",'-t',$hashorreturn;2688my$type= <$fd>;2689close$fdorreturn;2690chomp$type;2691return$type;2692}26932694# repository configuration2695our$config_file='';2696our%config;26972698# store multiple values for single key as anonymous array reference2699# single values stored directly in the hash, not as [ <value> ]2700sub hash_set_multi {2701my($hash,$key,$value) =@_;27022703if(!exists$hash->{$key}) {2704$hash->{$key} =$value;2705}elsif(!ref$hash->{$key}) {2706$hash->{$key} = [$hash->{$key},$value];2707}else{2708push@{$hash->{$key}},$value;2709}2710}27112712# return hash of git project configuration2713# optionally limited to some section, e.g. 'gitweb'2714sub git_parse_project_config {2715my$section_regexp=shift;2716my%config;27172718local$/="\0";27192720open my$fh,"-|", git_cmd(),"config",'-z','-l',2721orreturn;27222723while(my$keyval= <$fh>) {2724chomp$keyval;2725my($key,$value) =split(/\n/,$keyval,2);27262727 hash_set_multi(\%config,$key,$value)2728if(!defined$section_regexp||$key=~/^(?:$section_regexp)\./o);2729}2730close$fh;27312732return%config;2733}27342735# convert config value to boolean: 'true' or 'false'2736# no value, number > 0, 'true' and 'yes' values are true2737# rest of values are treated as false (never as error)2738sub config_to_bool {2739my$val=shift;27402741return1if!defined$val;# section.key27422743# strip leading and trailing whitespace2744$val=~s/^\s+//;2745$val=~s/\s+$//;27462747return(($val=~/^\d+$/&&$val) ||# section.key = 12748($val=~/^(?:true|yes)$/i));# section.key = true2749}27502751# convert config value to simple decimal number2752# an optional value suffix of 'k', 'm', or 'g' will cause the value2753# to be multiplied by 1024, 1048576, or 10737418242754sub config_to_int {2755my$val=shift;27562757# strip leading and trailing whitespace2758$val=~s/^\s+//;2759$val=~s/\s+$//;27602761if(my($num,$unit) = ($val=~/^([0-9]*)([kmg])$/i)) {2762$unit=lc($unit);2763# unknown unit is treated as 12764return$num* ($uniteq'g'?1073741824:2765$uniteq'm'?1048576:2766$uniteq'k'?1024:1);2767}2768return$val;2769}27702771# convert config value to array reference, if needed2772sub config_to_multi {2773my$val=shift;27742775returnref($val) ?$val: (defined($val) ? [$val] : []);2776}27772778sub git_get_project_config {2779my($key,$type) =@_;27802781return unlessdefined$git_dir;27822783# key sanity check2784return unless($key);2785# only subsection, if exists, is case sensitive,2786# and not lowercased by 'git config -z -l'2787if(my($hi,$mi,$lo) = ($key=~/^([^.]*)\.(.*)\.([^.]*)$/)) {2788$lo=~s/_//g;2789$key=join(".",lc($hi),$mi,lc($lo));2790return if($lo=~/\W/||$hi=~/\W/);2791}else{2792$key=lc($key);2793$key=~s/_//g;2794return if($key=~/\W/);2795}2796$key=~s/^gitweb\.//;27972798# type sanity check2799if(defined$type) {2800$type=~s/^--//;2801$type=undef2802unless($typeeq'bool'||$typeeq'int');2803}28042805# get config2806if(!defined$config_file||2807$config_filene"$git_dir/config") {2808%config= git_parse_project_config('gitweb');2809$config_file="$git_dir/config";2810}28112812# check if config variable (key) exists2813return unlessexists$config{"gitweb.$key"};28142815# ensure given type2816if(!defined$type) {2817return$config{"gitweb.$key"};2818}elsif($typeeq'bool') {2819# backward compatibility: 'git config --bool' returns true/false2820return config_to_bool($config{"gitweb.$key"}) ?'true':'false';2821}elsif($typeeq'int') {2822return config_to_int($config{"gitweb.$key"});2823}2824return$config{"gitweb.$key"};2825}28262827# get hash of given path at given ref2828sub git_get_hash_by_path {2829my$base=shift;2830my$path=shift||returnundef;2831my$type=shift;28322833$path=~ s,/+$,,;28342835open my$fd,"-|", git_cmd(),"ls-tree",$base,"--",$path2836or die_error(500,"Open git-ls-tree failed");2837my$line= <$fd>;2838close$fdorreturnundef;28392840if(!defined$line) {2841# there is no tree or hash given by $path at $base2842returnundef;2843}28442845#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'2846$line=~m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/;2847if(defined$type&&$typene$2) {2848# type doesn't match2849returnundef;2850}2851return$3;2852}28532854# get path of entry with given hash at given tree-ish (ref)2855# used to get 'from' filename for combined diff (merge commit) for renames2856sub git_get_path_by_hash {2857my$base=shift||return;2858my$hash=shift||return;28592860local$/="\0";28612862open my$fd,"-|", git_cmd(),"ls-tree",'-r','-t','-z',$base2863orreturnundef;2864while(my$line= <$fd>) {2865chomp$line;28662867#'040000 tree 595596a6a9117ddba9fe379b6b012b558bac8423 gitweb'2868#'100644 blob e02e90f0429be0d2a69b76571101f20b8f75530f gitweb/README'2869if($line=~m/(?:[0-9]+) (?:.+) $hash\t(.+)$/) {2870close$fd;2871return$1;2872}2873}2874close$fd;2875returnundef;2876}28772878## ......................................................................2879## git utility functions, directly accessing git repository28802881# get the value of config variable either from file named as the variable2882# itself in the repository ($GIT_DIR/$name file), or from gitweb.$name2883# configuration variable in the repository config file.2884sub git_get_file_or_project_config {2885my($path,$name) =@_;28862887$git_dir="$projectroot/$path";2888open my$fd,'<',"$git_dir/$name"2889orreturn git_get_project_config($name);2890my$conf= <$fd>;2891close$fd;2892if(defined$conf) {2893chomp$conf;2894}2895return$conf;2896}28972898sub git_get_project_description {2899my$path=shift;2900return git_get_file_or_project_config($path,'description');2901}29022903sub git_get_project_category {2904my$path=shift;2905return git_get_file_or_project_config($path,'category');2906}290729082909# supported formats:2910# * $GIT_DIR/ctags/<tagname> file (in 'ctags' subdirectory)2911# - if its contents is a number, use it as tag weight,2912# - otherwise add a tag with weight 12913# * $GIT_DIR/ctags file, each line is a tag (with weight 1)2914# the same value multiple times increases tag weight2915# * `gitweb.ctag' multi-valued repo config variable2916sub git_get_project_ctags {2917my$project=shift;2918my$ctags= {};29192920$git_dir="$projectroot/$project";2921if(opendir my$dh,"$git_dir/ctags") {2922my@files=grep{ -f $_}map{"$git_dir/ctags/$_"}readdir($dh);2923foreachmy$tagfile(@files) {2924open my$ct,'<',$tagfile2925ornext;2926my$val= <$ct>;2927chomp$valif$val;2928close$ct;29292930(my$ctag=$tagfile) =~ s#.*/##;2931if($val=~/^\d+$/) {2932$ctags->{$ctag} =$val;2933}else{2934$ctags->{$ctag} =1;2935}2936}2937closedir$dh;29382939}elsif(open my$fh,'<',"$git_dir/ctags") {2940while(my$line= <$fh>) {2941chomp$line;2942$ctags->{$line}++if$line;2943}2944close$fh;29452946}else{2947my$taglist= config_to_multi(git_get_project_config('ctag'));2948foreachmy$tag(@$taglist) {2949$ctags->{$tag}++;2950}2951}29522953return$ctags;2954}29552956# return hash, where keys are content tags ('ctags'),2957# and values are sum of weights of given tag in every project2958sub git_gather_all_ctags {2959my$projects=shift;2960my$ctags= {};29612962foreachmy$p(@$projects) {2963foreachmy$ct(keys%{$p->{'ctags'}}) {2964$ctags->{$ct} +=$p->{'ctags'}->{$ct};2965}2966}29672968return$ctags;2969}29702971sub git_populate_project_tagcloud {2972my$ctags=shift;29732974# First, merge different-cased tags; tags vote on casing2975my%ctags_lc;2976foreach(keys%$ctags) {2977$ctags_lc{lc$_}->{count} +=$ctags->{$_};2978if(not$ctags_lc{lc$_}->{topcount}2979or$ctags_lc{lc$_}->{topcount} <$ctags->{$_}) {2980$ctags_lc{lc$_}->{topcount} =$ctags->{$_};2981$ctags_lc{lc$_}->{topname} =$_;2982}2983}29842985my$cloud;2986my$matched=$input_params{'ctag'};2987if(eval{require HTML::TagCloud;1; }) {2988$cloud= HTML::TagCloud->new;2989foreachmy$ctag(sort keys%ctags_lc) {2990# Pad the title with spaces so that the cloud looks2991# less crammed.2992my$title= esc_html($ctags_lc{$ctag}->{topname});2993$title=~s/ / /g;2994$title=~s/^/ /g;2995$title=~s/$/ /g;2996if(defined$matched&&$matchedeq$ctag) {2997$title=qq(<span class="match">$title</span>);2998}2999$cloud->add($title, href(project=>undef, ctag=>$ctag),3000$ctags_lc{$ctag}->{count});3001}3002}else{3003$cloud= {};3004foreachmy$ctag(keys%ctags_lc) {3005my$title= esc_html($ctags_lc{$ctag}->{topname}, -nbsp=>1);3006if(defined$matched&&$matchedeq$ctag) {3007$title=qq(<span class="match">$title</span>);3008}3009$cloud->{$ctag}{count} =$ctags_lc{$ctag}->{count};3010$cloud->{$ctag}{ctag} =3011$cgi->a({-href=>href(project=>undef, ctag=>$ctag)},$title);3012}3013}3014return$cloud;3015}30163017sub git_show_project_tagcloud {3018my($cloud,$count) =@_;3019if(ref$cloudeq'HTML::TagCloud') {3020return$cloud->html_and_css($count);3021}else{3022my@tags=sort{$cloud->{$a}->{'count'} <=>$cloud->{$b}->{'count'} }keys%$cloud;3023return3024'<div id="htmltagcloud"'.($project?'':' align="center"').'>'.3025join(', ',map{3026$cloud->{$_}->{'ctag'}3027}splice(@tags,0,$count)) .3028'</div>';3029}3030}30313032sub git_get_project_url_list {3033my$path=shift;30343035$git_dir="$projectroot/$path";3036open my$fd,'<',"$git_dir/cloneurl"3037orreturnwantarray?3038@{ config_to_multi(git_get_project_config('url')) } :3039 config_to_multi(git_get_project_config('url'));3040my@git_project_url_list=map{chomp;$_} <$fd>;3041close$fd;30423043returnwantarray?@git_project_url_list: \@git_project_url_list;3044}30453046sub git_get_projects_list {3047my$filter=shift||'';3048my$paranoid=shift;3049my@list;30503051if(-d $projects_list) {3052# search in directory3053my$dir=$projects_list;3054# remove the trailing "/"3055$dir=~s!/+$!!;3056my$pfxlen=length("$dir");3057my$pfxdepth= ($dir=~tr!/!!);3058# when filtering, search only given subdirectory3059if($filter&& !$paranoid) {3060$dir.="/$filter";3061$dir=~s!/+$!!;3062}30633064 File::Find::find({3065 follow_fast =>1,# follow symbolic links3066 follow_skip =>2,# ignore duplicates3067 dangling_symlinks =>0,# ignore dangling symlinks, silently3068 wanted =>sub{3069# global variables3070our$project_maxdepth;3071our$projectroot;3072# skip project-list toplevel, if we get it.3073return if(m!^[/.]$!);3074# only directories can be git repositories3075return unless(-d $_);3076# need search permission3077return unless(-x $_);3078# don't traverse too deep (Find is super slow on os x)3079# $project_maxdepth excludes depth of $projectroot3080if(($File::Find::name =~tr!/!!) -$pfxdepth>$project_maxdepth) {3081$File::Find::prune =1;3082return;3083}30843085my$path=substr($File::Find::name,$pfxlen+1);3086# paranoidly only filter here3087if($paranoid&&$filter&&$path!~m!^\Q$filter\E/!) {3088next;3089}3090# we check related file in $projectroot3091if(check_export_ok("$projectroot/$path")) {3092push@list, { path =>$path};3093$File::Find::prune =1;3094}3095},3096},"$dir");30973098}elsif(-f $projects_list) {3099# read from file(url-encoded):3100# 'git%2Fgit.git Linus+Torvalds'3101# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'3102# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'3103open my$fd,'<',$projects_listorreturn;3104 PROJECT:3105while(my$line= <$fd>) {3106chomp$line;3107my($path,$owner) =split' ',$line;3108$path= unescape($path);3109$owner= unescape($owner);3110if(!defined$path) {3111next;3112}3113# if $filter is rpovided, check if $path begins with $filter3114if($filter&&$path!~m!^\Q$filter\E/!) {3115next;3116}3117if(check_export_ok("$projectroot/$path")) {3118my$pr= {3119 path =>$path3120};3121if($owner) {3122$pr->{'owner'} = to_utf8($owner);3123}3124push@list,$pr;3125}3126}3127close$fd;3128}3129return@list;3130}31313132# written with help of Tree::Trie module (Perl Artistic License, GPL compatible)3133# as side effects it sets 'forks' field to list of forks for forked projects3134sub filter_forks_from_projects_list {3135my$projects=shift;31363137my%trie;# prefix tree of directories (path components)3138# generate trie out of those directories that might contain forks3139foreachmy$pr(@$projects) {3140my$path=$pr->{'path'};3141$path=~s/\.git$//;# forks of 'repo.git' are in 'repo/' directory3142next if($path=~m!/$!);# skip non-bare repositories, e.g. 'repo/.git'3143next unless($path);# skip '.git' repository: tests, git-instaweb3144next unless(-d "$projectroot/$path");# containing directory exists3145$pr->{'forks'} = [];# there can be 0 or more forks of project31463147# add to trie3148my@dirs=split('/',$path);3149# walk the trie, until either runs out of components or out of trie3150my$ref= \%trie;3151while(scalar@dirs&&3152exists($ref->{$dirs[0]})) {3153$ref=$ref->{shift@dirs};3154}3155# create rest of trie structure from rest of components3156foreachmy$dir(@dirs) {3157$ref=$ref->{$dir} = {};3158}3159# create end marker, store $pr as a data3160$ref->{''} =$prif(!exists$ref->{''});3161}31623163# filter out forks, by finding shortest prefix match for paths3164my@filtered;3165 PROJECT:3166foreachmy$pr(@$projects) {3167# trie lookup3168my$ref= \%trie;3169 DIR:3170foreachmy$dir(split('/',$pr->{'path'})) {3171if(exists$ref->{''}) {3172# found [shortest] prefix, is a fork - skip it3173push@{$ref->{''}{'forks'}},$pr;3174next PROJECT;3175}3176if(!exists$ref->{$dir}) {3177# not in trie, cannot have prefix, not a fork3178push@filtered,$pr;3179next PROJECT;3180}3181# If the dir is there, we just walk one step down the trie.3182$ref=$ref->{$dir};3183}3184# we ran out of trie3185# (shouldn't happen: it's either no match, or end marker)3186push@filtered,$pr;3187}31883189return@filtered;3190}31913192# note: fill_project_list_info must be run first,3193# for 'descr_long' and 'ctags' to be filled3194sub search_projects_list {3195my($projlist,%opts) =@_;3196my$tagfilter=$opts{'tagfilter'};3197my$search_re=$opts{'search_regexp'};31983199return@$projlist3200unless($tagfilter||$search_re);32013202# searching projects require filling to be run before it;3203 fill_project_list_info($projlist,3204$tagfilter?'ctags': (),3205$search_re? ('path','descr') : ());3206my@projects;3207 PROJECT:3208foreachmy$pr(@$projlist) {32093210if($tagfilter) {3211next unlessref($pr->{'ctags'})eq'HASH';3212next unless3213grep{lc($_)eq lc($tagfilter) }keys%{$pr->{'ctags'}};3214}32153216if($search_re) {3217next unless3218$pr->{'path'} =~/$search_re/||3219$pr->{'descr_long'} =~/$search_re/;3220}32213222push@projects,$pr;3223}32243225return@projects;3226}32273228our$gitweb_project_owner=undef;3229sub git_get_project_list_from_file {32303231return if(defined$gitweb_project_owner);32323233$gitweb_project_owner= {};3234# read from file (url-encoded):3235# 'git%2Fgit.git Linus+Torvalds'3236# 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin'3237# 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman'3238if(-f $projects_list) {3239open(my$fd,'<',$projects_list);3240while(my$line= <$fd>) {3241chomp$line;3242my($pr,$ow) =split' ',$line;3243$pr= unescape($pr);3244$ow= unescape($ow);3245$gitweb_project_owner->{$pr} = to_utf8($ow);3246}3247close$fd;3248}3249}32503251sub git_get_project_owner {3252my$project=shift;3253my$owner;32543255returnundefunless$project;3256$git_dir="$projectroot/$project";32573258if(!defined$gitweb_project_owner) {3259 git_get_project_list_from_file();3260}32613262if(exists$gitweb_project_owner->{$project}) {3263$owner=$gitweb_project_owner->{$project};3264}3265if(!defined$owner){3266$owner= git_get_project_config('owner');3267}3268if(!defined$owner) {3269$owner= get_file_owner("$git_dir");3270}32713272return$owner;3273}32743275sub git_get_last_activity {3276my($path) =@_;3277my$fd;32783279$git_dir="$projectroot/$path";3280open($fd,"-|", git_cmd(),'for-each-ref',3281'--format=%(committer)',3282'--sort=-committerdate',3283'--count=1',3284map{"refs/$_"} get_branch_refs ())orreturn;3285my$most_recent= <$fd>;3286close$fdorreturn;3287if(defined$most_recent&&3288$most_recent=~/ (\d+) [-+][01]\d\d\d$/) {3289my$timestamp=$1;3290my$age=time-$timestamp;3291return($age, age_string($age));3292}3293return(undef,undef);3294}32953296# Implementation note: when a single remote is wanted, we cannot use 'git3297# remote show -n' because that command always work (assuming it's a remote URL3298# if it's not defined), and we cannot use 'git remote show' because that would3299# try to make a network roundtrip. So the only way to find if that particular3300# remote is defined is to walk the list provided by 'git remote -v' and stop if3301# and when we find what we want.3302sub git_get_remotes_list {3303my$wanted=shift;3304my%remotes= ();33053306open my$fd,'-|', git_cmd(),'remote','-v';3307return unless$fd;3308while(my$remote= <$fd>) {3309chomp$remote;3310$remote=~s!\t(.*?)\s+\((\w+)\)$!!;3311next if$wantedand not$remoteeq$wanted;3312my($url,$key) = ($1,$2);33133314$remotes{$remote} ||= {'heads'=> () };3315$remotes{$remote}{$key} =$url;3316}3317close$fdorreturn;3318returnwantarray?%remotes: \%remotes;3319}33203321# Takes a hash of remotes as first parameter and fills it by adding the3322# available remote heads for each of the indicated remotes.3323sub fill_remote_heads {3324my$remotes=shift;3325my@heads=map{"remotes/$_"}keys%$remotes;3326my@remoteheads= git_get_heads_list(undef,@heads);3327foreachmy$remote(keys%$remotes) {3328$remotes->{$remote}{'heads'} = [grep{3329$_->{'name'} =~s!^$remote/!!3330}@remoteheads];3331}3332}33333334sub git_get_references {3335my$type=shift||"";3336my%refs;3337# 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.113338# c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{}3339open my$fd,"-|", git_cmd(),"show-ref","--dereference",3340($type? ("--","refs/$type") : ())# use -- <pattern> if $type3341orreturn;33423343while(my$line= <$fd>) {3344chomp$line;3345if($line=~m!^([0-9a-fA-F]{40})\srefs/($type.*)$!) {3346if(defined$refs{$1}) {3347push@{$refs{$1}},$2;3348}else{3349$refs{$1} = [$2];3350}3351}3352}3353close$fdorreturn;3354return \%refs;3355}33563357sub git_get_rev_name_tags {3358my$hash=shift||returnundef;33593360open my$fd,"-|", git_cmd(),"name-rev","--tags",$hash3361orreturn;3362my$name_rev= <$fd>;3363close$fd;33643365if($name_rev=~ m|^$hash tags/(.*)$|) {3366return$1;3367}else{3368# catches also '$hash undefined' output3369returnundef;3370}3371}33723373## ----------------------------------------------------------------------3374## parse to hash functions33753376sub parse_date {3377my$epoch=shift;3378my$tz=shift||"-0000";33793380my%date;3381my@months= ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");3382my@days= ("Sun","Mon","Tue","Wed","Thu","Fri","Sat");3383my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =gmtime($epoch);3384$date{'hour'} =$hour;3385$date{'minute'} =$min;3386$date{'mday'} =$mday;3387$date{'day'} =$days[$wday];3388$date{'month'} =$months[$mon];3389$date{'rfc2822'} =sprintf"%s,%d%s%4d%02d:%02d:%02d+0000",3390$days[$wday],$mday,$months[$mon],1900+$year,$hour,$min,$sec;3391$date{'mday-time'} =sprintf"%d%s%02d:%02d",3392$mday,$months[$mon],$hour,$min;3393$date{'iso-8601'} =sprintf"%04d-%02d-%02dT%02d:%02d:%02dZ",33941900+$year,1+$mon,$mday,$hour,$min,$sec;33953396my($tz_sign,$tz_hour,$tz_min) =3397($tz=~m/^([-+])(\d\d)(\d\d)$/);3398$tz_sign= ($tz_signeq'-'? -1: +1);3399my$local=$epoch+$tz_sign*((($tz_hour*60) +$tz_min)*60);3400($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =gmtime($local);3401$date{'hour_local'} =$hour;3402$date{'minute_local'} =$min;3403$date{'tz_local'} =$tz;3404$date{'iso-tz'} =sprintf("%04d-%02d-%02d%02d:%02d:%02d%s",34051900+$year,$mon+1,$mday,3406$hour,$min,$sec,$tz);3407return%date;3408}34093410sub parse_tag {3411my$tag_id=shift;3412my%tag;3413my@comment;34143415open my$fd,"-|", git_cmd(),"cat-file","tag",$tag_idorreturn;3416$tag{'id'} =$tag_id;3417while(my$line= <$fd>) {3418chomp$line;3419if($line=~m/^object ([0-9a-fA-F]{40})$/) {3420$tag{'object'} =$1;3421}elsif($line=~m/^type (.+)$/) {3422$tag{'type'} =$1;3423}elsif($line=~m/^tag (.+)$/) {3424$tag{'name'} =$1;3425}elsif($line=~m/^tagger (.*) ([0-9]+) (.*)$/) {3426$tag{'author'} =$1;3427$tag{'author_epoch'} =$2;3428$tag{'author_tz'} =$3;3429if($tag{'author'} =~m/^([^<]+) <([^>]*)>/) {3430$tag{'author_name'} =$1;3431$tag{'author_email'} =$2;3432}else{3433$tag{'author_name'} =$tag{'author'};3434}3435}elsif($line=~m/--BEGIN/) {3436push@comment,$line;3437last;3438}elsif($lineeq"") {3439last;3440}3441}3442push@comment, <$fd>;3443$tag{'comment'} = \@comment;3444close$fdorreturn;3445if(!defined$tag{'name'}) {3446return3447};3448return%tag3449}34503451sub parse_commit_text {3452my($commit_text,$withparents) =@_;3453my@commit_lines=split'\n',$commit_text;3454my%co;34553456pop@commit_lines;# Remove '\0'34573458if(!@commit_lines) {3459return;3460}34613462my$header=shift@commit_lines;3463if($header!~m/^[0-9a-fA-F]{40}/) {3464return;3465}3466($co{'id'},my@parents) =split' ',$header;3467while(my$line=shift@commit_lines) {3468last if$lineeq"\n";3469if($line=~m/^tree ([0-9a-fA-F]{40})$/) {3470$co{'tree'} =$1;3471}elsif((!defined$withparents) && ($line=~m/^parent ([0-9a-fA-F]{40})$/)) {3472push@parents,$1;3473}elsif($line=~m/^author (.*) ([0-9]+) (.*)$/) {3474$co{'author'} = to_utf8($1);3475$co{'author_epoch'} =$2;3476$co{'author_tz'} =$3;3477if($co{'author'} =~m/^([^<]+) <([^>]*)>/) {3478$co{'author_name'} =$1;3479$co{'author_email'} =$2;3480}else{3481$co{'author_name'} =$co{'author'};3482}3483}elsif($line=~m/^committer (.*) ([0-9]+) (.*)$/) {3484$co{'committer'} = to_utf8($1);3485$co{'committer_epoch'} =$2;3486$co{'committer_tz'} =$3;3487if($co{'committer'} =~m/^([^<]+) <([^>]*)>/) {3488$co{'committer_name'} =$1;3489$co{'committer_email'} =$2;3490}else{3491$co{'committer_name'} =$co{'committer'};3492}3493}3494}3495if(!defined$co{'tree'}) {3496return;3497};3498$co{'parents'} = \@parents;3499$co{'parent'} =$parents[0];35003501foreachmy$title(@commit_lines) {3502$title=~s/^ //;3503if($titlene"") {3504$co{'title'} = chop_str($title,80,5);3505# remove leading stuff of merges to make the interesting part visible3506if(length($title) >50) {3507$title=~s/^Automatic //;3508$title=~s/^merge (of|with) /Merge ... /i;3509if(length($title) >50) {3510$title=~s/(http|rsync):\/\///;3511}3512if(length($title) >50) {3513$title=~s/(master|www|rsync)\.//;3514}3515if(length($title) >50) {3516$title=~s/kernel.org:?//;3517}3518if(length($title) >50) {3519$title=~s/\/pub\/scm//;3520}3521}3522$co{'title_short'} = chop_str($title,50,5);3523last;3524}3525}3526if(!defined$co{'title'} ||$co{'title'}eq"") {3527$co{'title'} =$co{'title_short'} ='(no commit message)';3528}3529# remove added spaces3530foreachmy$line(@commit_lines) {3531$line=~s/^ //;3532}3533$co{'comment'} = \@commit_lines;35343535my$age=time-$co{'committer_epoch'};3536$co{'age'} =$age;3537$co{'age_string'} = age_string($age);3538my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) =gmtime($co{'committer_epoch'});3539if($age>60*60*24*7*2) {3540$co{'age_string_date'} =sprintf"%4i-%02u-%02i",1900+$year,$mon+1,$mday;3541$co{'age_string_age'} =$co{'age_string'};3542}else{3543$co{'age_string_date'} =$co{'age_string'};3544$co{'age_string_age'} =sprintf"%4i-%02u-%02i",1900+$year,$mon+1,$mday;3545}3546return%co;3547}35483549sub parse_commit {3550my($commit_id) =@_;3551my%co;35523553local$/="\0";35543555open my$fd,"-|", git_cmd(),"rev-list",3556"--parents",3557"--header",3558"--max-count=1",3559$commit_id,3560"--",3561or die_error(500,"Open git-rev-list failed");3562%co= parse_commit_text(<$fd>,1);3563close$fd;35643565return%co;3566}35673568sub parse_commits {3569my($commit_id,$maxcount,$skip,$filename,@args) =@_;3570my@cos;35713572$maxcount||=1;3573$skip||=0;35743575local$/="\0";35763577open my$fd,"-|", git_cmd(),"rev-list",3578"--header",3579@args,3580("--max-count=".$maxcount),3581("--skip=".$skip),3582@extra_options,3583$commit_id,3584"--",3585($filename? ($filename) : ())3586or die_error(500,"Open git-rev-list failed");3587while(my$line= <$fd>) {3588my%co= parse_commit_text($line);3589push@cos, \%co;3590}3591close$fd;35923593returnwantarray?@cos: \@cos;3594}35953596# parse line of git-diff-tree "raw" output3597sub parse_difftree_raw_line {3598my$line=shift;3599my%res;36003601# ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c'3602# ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c'3603if($line=~m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/) {3604$res{'from_mode'} =$1;3605$res{'to_mode'} =$2;3606$res{'from_id'} =$3;3607$res{'to_id'} =$4;3608$res{'status'} =$5;3609$res{'similarity'} =$6;3610if($res{'status'}eq'R'||$res{'status'}eq'C') {# renamed or copied3611($res{'from_file'},$res{'to_file'}) =map{ unquote($_) }split("\t",$7);3612}else{3613$res{'from_file'} =$res{'to_file'} =$res{'file'} = unquote($7);3614}3615}3616# '::100755 100755 100755 60e79ca1b01bc8b057abe17ddab484699a7f5fdb 94067cc5f73388f33722d52ae02f44692bc07490 94067cc5f73388f33722d52ae02f44692bc07490 MR git-gui/git-gui.sh'3617# combined diff (for merge commit)3618elsif($line=~s/^(::+)((?:[0-7]{6} )+)((?:[0-9a-fA-F]{40} )+)([a-zA-Z]+)\t(.*)$//) {3619$res{'nparents'} =length($1);3620$res{'from_mode'} = [split(' ',$2) ];3621$res{'to_mode'} =pop@{$res{'from_mode'}};3622$res{'from_id'} = [split(' ',$3) ];3623$res{'to_id'} =pop@{$res{'from_id'}};3624$res{'status'} = [split('',$4) ];3625$res{'to_file'} = unquote($5);3626}3627# 'c512b523472485aef4fff9e57b229d9d243c967f'3628elsif($line=~m/^([0-9a-fA-F]{40})$/) {3629$res{'commit'} =$1;3630}36313632returnwantarray?%res: \%res;3633}36343635# wrapper: return parsed line of git-diff-tree "raw" output3636# (the argument might be raw line, or parsed info)3637sub parsed_difftree_line {3638my$line_or_ref=shift;36393640if(ref($line_or_ref)eq"HASH") {3641# pre-parsed (or generated by hand)3642return$line_or_ref;3643}else{3644return parse_difftree_raw_line($line_or_ref);3645}3646}36473648# parse line of git-ls-tree output3649sub parse_ls_tree_line {3650my$line=shift;3651my%opts=@_;3652my%res;36533654if($opts{'-l'}) {3655#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa 16717 panic.c'3656$line=~m/^([0-9]+) (.+) ([0-9a-fA-F]{40}) +(-|[0-9]+)\t(.+)$/s;36573658$res{'mode'} =$1;3659$res{'type'} =$2;3660$res{'hash'} =$3;3661$res{'size'} =$4;3662if($opts{'-z'}) {3663$res{'name'} =$5;3664}else{3665$res{'name'} = unquote($5);3666}3667}else{3668#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'3669$line=~m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/s;36703671$res{'mode'} =$1;3672$res{'type'} =$2;3673$res{'hash'} =$3;3674if($opts{'-z'}) {3675$res{'name'} =$4;3676}else{3677$res{'name'} = unquote($4);3678}3679}36803681returnwantarray?%res: \%res;3682}36833684# generates _two_ hashes, references to which are passed as 2 and 3 argument3685sub parse_from_to_diffinfo {3686my($diffinfo,$from,$to,@parents) =@_;36873688if($diffinfo->{'nparents'}) {3689# combined diff3690$from->{'file'} = [];3691$from->{'href'} = [];3692 fill_from_file_info($diffinfo,@parents)3693unlessexists$diffinfo->{'from_file'};3694for(my$i=0;$i<$diffinfo->{'nparents'};$i++) {3695$from->{'file'}[$i] =3696defined$diffinfo->{'from_file'}[$i] ?3697$diffinfo->{'from_file'}[$i] :3698$diffinfo->{'to_file'};3699if($diffinfo->{'status'}[$i]ne"A") {# not new (added) file3700$from->{'href'}[$i] = href(action=>"blob",3701 hash_base=>$parents[$i],3702 hash=>$diffinfo->{'from_id'}[$i],3703 file_name=>$from->{'file'}[$i]);3704}else{3705$from->{'href'}[$i] =undef;3706}3707}3708}else{3709# ordinary (not combined) diff3710$from->{'file'} =$diffinfo->{'from_file'};3711if($diffinfo->{'status'}ne"A") {# not new (added) file3712$from->{'href'} = href(action=>"blob", hash_base=>$hash_parent,3713 hash=>$diffinfo->{'from_id'},3714 file_name=>$from->{'file'});3715}else{3716delete$from->{'href'};3717}3718}37193720$to->{'file'} =$diffinfo->{'to_file'};3721if(!is_deleted($diffinfo)) {# file exists in result3722$to->{'href'} = href(action=>"blob", hash_base=>$hash,3723 hash=>$diffinfo->{'to_id'},3724 file_name=>$to->{'file'});3725}else{3726delete$to->{'href'};3727}3728}37293730## ......................................................................3731## parse to array of hashes functions37323733sub git_get_heads_list {3734my($limit,@classes) =@_;3735@classes= get_branch_refs()unless@classes;3736my@patterns=map{"refs/$_"}@classes;3737my@headslist;37383739open my$fd,'-|', git_cmd(),'for-each-ref',3740($limit?'--count='.($limit+1) : ()),'--sort=-committerdate',3741'--format=%(objectname) %(refname) %(subject)%00%(committer)',3742@patterns3743orreturn;3744while(my$line= <$fd>) {3745my%ref_item;37463747chomp$line;3748my($refinfo,$committerinfo) =split(/\0/,$line);3749my($hash,$name,$title) =split(' ',$refinfo,3);3750my($committer,$epoch,$tz) =3751($committerinfo=~/^(.*) ([0-9]+) (.*)$/);3752$ref_item{'fullname'} =$name;3753my$strip_refs=join'|',map{quotemeta} get_branch_refs();3754$name=~s!^refs/($strip_refs|remotes)/!!;3755$ref_item{'name'} =$name;3756# for refs neither in 'heads' nor 'remotes' we want to3757# show their ref dir3758my$ref_dir= (defined$1) ?$1:'';3759if($ref_dirne''and$ref_dirne'heads'and$ref_dirne'remotes') {3760$ref_item{'name'} .=' ('.$ref_dir.')';3761}37623763$ref_item{'id'} =$hash;3764$ref_item{'title'} =$title||'(no commit message)';3765$ref_item{'epoch'} =$epoch;3766if($epoch) {3767$ref_item{'age'} = age_string(time-$ref_item{'epoch'});3768}else{3769$ref_item{'age'} ="unknown";3770}37713772push@headslist, \%ref_item;3773}3774close$fd;37753776returnwantarray?@headslist: \@headslist;3777}37783779sub git_get_tags_list {3780my$limit=shift;3781my@tagslist;37823783open my$fd,'-|', git_cmd(),'for-each-ref',3784($limit?'--count='.($limit+1) : ()),'--sort=-creatordate',3785'--format=%(objectname) %(objecttype) %(refname) '.3786'%(*objectname) %(*objecttype) %(subject)%00%(creator)',3787'refs/tags'3788orreturn;3789while(my$line= <$fd>) {3790my%ref_item;37913792chomp$line;3793my($refinfo,$creatorinfo) =split(/\0/,$line);3794my($id,$type,$name,$refid,$reftype,$title) =split(' ',$refinfo,6);3795my($creator,$epoch,$tz) =3796($creatorinfo=~/^(.*) ([0-9]+) (.*)$/);3797$ref_item{'fullname'} =$name;3798$name=~s!^refs/tags/!!;37993800$ref_item{'type'} =$type;3801$ref_item{'id'} =$id;3802$ref_item{'name'} =$name;3803if($typeeq"tag") {3804$ref_item{'subject'} =$title;3805$ref_item{'reftype'} =$reftype;3806$ref_item{'refid'} =$refid;3807}else{3808$ref_item{'reftype'} =$type;3809$ref_item{'refid'} =$id;3810}38113812if($typeeq"tag"||$typeeq"commit") {3813$ref_item{'epoch'} =$epoch;3814if($epoch) {3815$ref_item{'age'} = age_string(time-$ref_item{'epoch'});3816}else{3817$ref_item{'age'} ="unknown";3818}3819}38203821push@tagslist, \%ref_item;3822}3823close$fd;38243825returnwantarray?@tagslist: \@tagslist;3826}38273828## ----------------------------------------------------------------------3829## filesystem-related functions38303831sub get_file_owner {3832my$path=shift;38333834my($dev,$ino,$mode,$nlink,$st_uid,$st_gid,$rdev,$size) =stat($path);3835my($name,$passwd,$uid,$gid,$quota,$comment,$gcos,$dir,$shell) =getpwuid($st_uid);3836if(!defined$gcos) {3837returnundef;3838}3839my$owner=$gcos;3840$owner=~s/[,;].*$//;3841return to_utf8($owner);3842}38433844# assume that file exists3845sub insert_file {3846my$filename=shift;38473848open my$fd,'<',$filename;3849print map{ to_utf8($_) } <$fd>;3850close$fd;3851}38523853## ......................................................................3854## mimetype related functions38553856sub mimetype_guess_file {3857my$filename=shift;3858my$mimemap=shift;3859-r $mimemaporreturnundef;38603861my%mimemap;3862open(my$mh,'<',$mimemap)orreturnundef;3863while(<$mh>) {3864next ifm/^#/;# skip comments3865my($mimetype,@exts) =split(/\s+/);3866foreachmy$ext(@exts) {3867$mimemap{$ext} =$mimetype;3868}3869}3870close($mh);38713872$filename=~/\.([^.]*)$/;3873return$mimemap{$1};3874}38753876sub mimetype_guess {3877my$filename=shift;3878my$mime;3879$filename=~/\./orreturnundef;38803881if($mimetypes_file) {3882my$file=$mimetypes_file;3883if($file!~m!^/!) {# if it is relative path3884# it is relative to project3885$file="$projectroot/$project/$file";3886}3887$mime= mimetype_guess_file($filename,$file);3888}3889$mime||= mimetype_guess_file($filename,'/etc/mime.types');3890return$mime;3891}38923893sub blob_mimetype {3894my$fd=shift;3895my$filename=shift;38963897if($filename) {3898my$mime= mimetype_guess($filename);3899$mimeandreturn$mime;3900}39013902# just in case3903return$default_blob_plain_mimetypeunless$fd;39043905if(-T $fd) {3906return'text/plain';3907}elsif(!$filename) {3908return'application/octet-stream';3909}elsif($filename=~m/\.png$/i) {3910return'image/png';3911}elsif($filename=~m/\.gif$/i) {3912return'image/gif';3913}elsif($filename=~m/\.jpe?g$/i) {3914return'image/jpeg';3915}else{3916return'application/octet-stream';3917}3918}39193920sub blob_contenttype {3921my($fd,$file_name,$type) =@_;39223923$type||= blob_mimetype($fd,$file_name);3924if($typeeq'text/plain'&&defined$default_text_plain_charset) {3925$type.="; charset=$default_text_plain_charset";3926}39273928return$type;3929}39303931# guess file syntax for syntax highlighting; return undef if no highlighting3932# the name of syntax can (in the future) depend on syntax highlighter used3933sub guess_file_syntax {3934my($highlight,$file_name) =@_;3935returnundefunless($highlight&&defined$file_name);3936my$basename= basename($file_name,'.in');3937return$highlight_basename{$basename}3938ifexists$highlight_basename{$basename};39393940$basename=~/\.([^.]*)$/;3941my$ext=$1orreturnundef;3942return$highlight_ext{$ext}3943ifexists$highlight_ext{$ext};39443945returnundef;3946}39473948# run highlighter and return FD of its output,3949# or return original FD if no highlighting3950sub run_highlighter {3951my($fd,$highlight,$syntax) =@_;3952return$fdunless($highlight);39533954close$fd;3955my$syntax_arg= (defined$syntax) ?"--syntax$syntax":"--force";3956open$fd, quote_command(git_cmd(),"cat-file","blob",$hash)." | ".3957 quote_command($^X,'-CO','-MEncode=decode,FB_DEFAULT','-pse',3958'$_= decode($fe,$_, FB_DEFAULT) if !utf8::decode($_);',3959'--',"-fe=$fallback_encoding")." | ".3960 quote_command($highlight_bin).3961" --replace-tabs=8 --fragment$syntax_arg|"3962or die_error(500,"Couldn't open file or run syntax highlighter");3963return$fd;3964}39653966## ======================================================================3967## functions printing HTML: header, footer, error page39683969sub get_page_title {3970my$title= to_utf8($site_name);39713972unless(defined$project) {3973if(defined$project_filter) {3974$title.=" - projects in '". esc_path($project_filter) ."'";3975}3976return$title;3977}3978$title.=" - ". to_utf8($project);39793980return$titleunless(defined$action);3981$title.="/$action";# $action is US-ASCII (7bit ASCII)39823983return$titleunless(defined$file_name);3984$title.=" - ". esc_path($file_name);3985if($actioneq"tree"&&$file_name!~ m|/$|) {3986$title.="/";3987}39883989return$title;3990}39913992sub get_content_type_html {3993# require explicit support from the UA if we are to send the page as3994# 'application/xhtml+xml', otherwise send it as plain old 'text/html'.3995# we have to do this because MSIE sometimes globs '*/*', pretending to3996# support xhtml+xml but choking when it gets what it asked for.3997if(defined$cgi->http('HTTP_ACCEPT') &&3998$cgi->http('HTTP_ACCEPT') =~m/(,|;|\s|^)application\/xhtml\+xml(,|;|\s|$)/ &&3999$cgi->Accept('application/xhtml+xml') !=0) {4000return'application/xhtml+xml';4001}else{4002return'text/html';4003}4004}40054006sub print_feed_meta {4007if(defined$project) {4008my%href_params= get_feed_info();4009if(!exists$href_params{'-title'}) {4010$href_params{'-title'} ='log';4011}40124013foreachmy$format(qw(RSS Atom)) {4014my$type=lc($format);4015my%link_attr= (4016'-rel'=>'alternate',4017'-title'=> esc_attr("$project-$href_params{'-title'} -$formatfeed"),4018'-type'=>"application/$type+xml"4019);40204021$href_params{'extra_options'} =undef;4022$href_params{'action'} =$type;4023$link_attr{'-href'} = href(%href_params);4024print"<link ".4025"rel=\"$link_attr{'-rel'}\"".4026"title=\"$link_attr{'-title'}\"".4027"href=\"$link_attr{'-href'}\"".4028"type=\"$link_attr{'-type'}\"".4029"/>\n";40304031$href_params{'extra_options'} ='--no-merges';4032$link_attr{'-href'} = href(%href_params);4033$link_attr{'-title'} .=' (no merges)';4034print"<link ".4035"rel=\"$link_attr{'-rel'}\"".4036"title=\"$link_attr{'-title'}\"".4037"href=\"$link_attr{'-href'}\"".4038"type=\"$link_attr{'-type'}\"".4039"/>\n";4040}40414042}else{4043printf('<link rel="alternate" title="%sprojects list" '.4044'href="%s" type="text/plain; charset=utf-8" />'."\n",4045 esc_attr($site_name), href(project=>undef, action=>"project_index"));4046printf('<link rel="alternate" title="%sprojects feeds" '.4047'href="%s" type="text/x-opml" />'."\n",4048 esc_attr($site_name), href(project=>undef, action=>"opml"));4049}4050}40514052sub print_header_links {4053my$status=shift;40544055# print out each stylesheet that exist, providing backwards capability4056# for those people who defined $stylesheet in a config file4057if(defined$stylesheet) {4058print'<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";4059}else{4060foreachmy$stylesheet(@stylesheets) {4061next unless$stylesheet;4062print'<link rel="stylesheet" type="text/css" href="'.esc_url($stylesheet).'"/>'."\n";4063}4064}4065 print_feed_meta()4066if($statuseq'200 OK');4067if(defined$favicon) {4068printqq(<link rel="shortcut icon" href=").esc_url($favicon).qq(" type="image/png" />\n);4069}4070}40714072sub print_nav_breadcrumbs_path {4073my$dirprefix=undef;4074while(my$part=shift) {4075$dirprefix.="/"ifdefined$dirprefix;4076$dirprefix.=$part;4077print$cgi->a({-href => href(project =>undef,4078 project_filter =>$dirprefix,4079 action =>"project_list")},4080 esc_html($part)) ." / ";4081}4082}40834084sub print_nav_breadcrumbs {4085my%opts=@_;40864087formy$crumb(@extra_breadcrumbs, [$home_link_str=>$home_link]) {4088print$cgi->a({-href => esc_url($crumb->[1])},$crumb->[0]) ." / ";4089}4090if(defined$project) {4091my@dirname=split'/',$project;4092my$projectbasename=pop@dirname;4093 print_nav_breadcrumbs_path(@dirname);4094print$cgi->a({-href => href(action=>"summary")}, esc_html($projectbasename));4095if(defined$action) {4096my$action_print=$action;4097if(defined$opts{-action_extra}) {4098$action_print=$cgi->a({-href => href(action=>$action)},4099$action);4100}4101print" /$action_print";4102}4103if(defined$opts{-action_extra}) {4104print" /$opts{-action_extra}";4105}4106print"\n";4107}elsif(defined$project_filter) {4108 print_nav_breadcrumbs_path(split'/',$project_filter);4109}4110}41114112sub print_search_form {4113if(!defined$searchtext) {4114$searchtext="";4115}4116my$search_hash;4117if(defined$hash_base) {4118$search_hash=$hash_base;4119}elsif(defined$hash) {4120$search_hash=$hash;4121}else{4122$search_hash="HEAD";4123}4124my$action=$my_uri;4125my$use_pathinfo= gitweb_check_feature('pathinfo');4126if($use_pathinfo) {4127$action.="/".esc_url($project);4128}4129print$cgi->start_form(-method=>"get", -action =>$action) .4130"<div class=\"search\">\n".4131(!$use_pathinfo&&4132$cgi->input({-name=>"p", -value=>$project, -type=>"hidden"}) ."\n") .4133$cgi->input({-name=>"a", -value=>"search", -type=>"hidden"}) ."\n".4134$cgi->input({-name=>"h", -value=>$search_hash, -type=>"hidden"}) ."\n".4135$cgi->popup_menu(-name =>'st', -default=>'commit',4136-values=> ['commit','grep','author','committer','pickaxe']) .4137" ".$cgi->a({-href => href(action=>"search_help"),4138-title =>"search help"},"?") ." search:\n",4139$cgi->textfield(-name =>"s", -value =>$searchtext, -override =>1) ."\n".4140"<span title=\"Extended regular expression\">".4141$cgi->checkbox(-name =>'sr', -value =>1, -label =>'re',4142-checked =>$search_use_regexp) .4143"</span>".4144"</div>".4145$cgi->end_form() ."\n";4146}41474148sub git_header_html {4149my$status=shift||"200 OK";4150my$expires=shift;4151my%opts=@_;41524153my$title= get_page_title();4154my$content_type= get_content_type_html();4155print$cgi->header(-type=>$content_type, -charset =>'utf-8',4156-status=>$status, -expires =>$expires)4157unless($opts{'-no_http_header'});4158my$mod_perl_version=$ENV{'MOD_PERL'} ?"$ENV{'MOD_PERL'}":'';4159print<<EOF;4160<?xml version="1.0" encoding="utf-8"?>4161<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">4162<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US">4163<!-- git web interface version$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke -->4164<!-- git core binaries version$git_version-->4165<head>4166<meta http-equiv="content-type" content="$content_type; charset=utf-8"/>4167<meta name="generator" content="gitweb/$versiongit/$git_version$mod_perl_version"/>4168<meta name="robots" content="index, nofollow"/>4169<title>$title</title>4170EOF4171# the stylesheet, favicon etc urls won't work correctly with path_info4172# unless we set the appropriate base URL4173if($ENV{'PATH_INFO'}) {4174print"<base href=\"".esc_url($base_url)."\"/>\n";4175}4176 print_header_links($status);41774178if(defined$site_html_head_string) {4179print to_utf8($site_html_head_string);4180}41814182print"</head>\n".4183"<body>\n";41844185if(defined$site_header&& -f $site_header) {4186 insert_file($site_header);4187}41884189print"<div class=\"page_header\">\n";4190if(defined$logo) {4191print$cgi->a({-href => esc_url($logo_url),4192-title =>$logo_label},4193$cgi->img({-src => esc_url($logo),4194-width =>72, -height =>27,4195-alt =>"git",4196-class=>"logo"}));4197}4198 print_nav_breadcrumbs(%opts);4199print"</div>\n";42004201my$have_search= gitweb_check_feature('search');4202if(defined$project&&$have_search) {4203 print_search_form();4204}4205}42064207sub git_footer_html {4208my$feed_class='rss_logo';42094210print"<div class=\"page_footer\">\n";4211if(defined$project) {4212my$descr= git_get_project_description($project);4213if(defined$descr) {4214print"<div class=\"page_footer_text\">". esc_html($descr) ."</div>\n";4215}42164217my%href_params= get_feed_info();4218if(!%href_params) {4219$feed_class.=' generic';4220}4221$href_params{'-title'} ||='log';42224223foreachmy$format(qw(RSS Atom)) {4224$href_params{'action'} =lc($format);4225print$cgi->a({-href => href(%href_params),4226-title =>"$href_params{'-title'}$formatfeed",4227-class=>$feed_class},$format)."\n";4228}42294230}else{4231print$cgi->a({-href => href(project=>undef, action=>"opml",4232 project_filter =>$project_filter),4233-class=>$feed_class},"OPML") ." ";4234print$cgi->a({-href => href(project=>undef, action=>"project_index",4235 project_filter =>$project_filter),4236-class=>$feed_class},"TXT") ."\n";4237}4238print"</div>\n";# class="page_footer"42394240if(defined$t0&& gitweb_check_feature('timed')) {4241print"<div id=\"generating_info\">\n";4242print'This page took '.4243'<span id="generating_time" class="time_span">'.4244 tv_interval($t0, [ gettimeofday() ]).4245' seconds </span>'.4246' and '.4247'<span id="generating_cmd">'.4248$number_of_git_cmds.4249'</span> git commands '.4250" to generate.\n";4251print"</div>\n";# class="page_footer"4252}42534254if(defined$site_footer&& -f $site_footer) {4255 insert_file($site_footer);4256}42574258print qq!<script type="text/javascript" src="!.esc_url($javascript).qq!"></script>\n!;4259if(defined$action&&4260$actioneq'blame_incremental') {4261print qq!<script type="text/javascript">\n!.4262 qq!startBlame("!. href(action=>"blame_data", -replay=>1) .qq!",\n!.4263 qq!"!. href() .qq!");\n!.4264 qq!</script>\n!;4265}else{4266my($jstimezone,$tz_cookie,$datetime_class) =4267 gitweb_get_feature('javascript-timezone');42684269print qq!<script type="text/javascript">\n!.4270 qq!window.onload = function () {\n!;4271if(gitweb_check_feature('javascript-actions')) {4272print qq! fixLinks();\n!;4273}4274if($jstimezone&&$tz_cookie&&$datetime_class) {4275print qq! var tz_cookie = { name:'$tz_cookie', expires:14, path:'/'};\n!.# in days4276 qq! onloadTZSetup('$jstimezone', tz_cookie,'$datetime_class');\n!;4277}4278print qq!};\n!.4279 qq!</script>\n!;4280}42814282print"</body>\n".4283"</html>";4284}42854286# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])4287# Example: die_error(404, 'Hash not found')4288# By convention, use the following status codes (as defined in RFC 2616):4289# 400: Invalid or missing CGI parameters, or4290# requested object exists but has wrong type.4291# 403: Requested feature (like "pickaxe" or "snapshot") not enabled on4292# this server or project.4293# 404: Requested object/revision/project doesn't exist.4294# 500: The server isn't configured properly, or4295# an internal error occurred (e.g. failed assertions caused by bugs), or4296# an unknown error occurred (e.g. the git binary died unexpectedly).4297# 503: The server is currently unavailable (because it is overloaded,4298# or down for maintenance). Generally, this is a temporary state.4299sub die_error {4300my$status=shift||500;4301my$error= esc_html(shift) ||"Internal Server Error";4302my$extra=shift;4303my%opts=@_;43044305my%http_responses= (4306400=>'400 Bad Request',4307403=>'403 Forbidden',4308404=>'404 Not Found',4309500=>'500 Internal Server Error',4310503=>'503 Service Unavailable',4311);4312 git_header_html($http_responses{$status},undef,%opts);4313print<<EOF;4314<div class="page_body">4315<br /><br />4316$status-$error4317<br />4318EOF4319if(defined$extra) {4320print"<hr />\n".4321"$extra\n";4322}4323print"</div>\n";43244325 git_footer_html();4326goto DONE_GITWEB4327unless($opts{'-error_handler'});4328}43294330## ----------------------------------------------------------------------4331## functions printing or outputting HTML: navigation43324333sub git_print_page_nav {4334my($current,$suppress,$head,$treehead,$treebase,$extra) =@_;4335$extra=''if!defined$extra;# pager or formats43364337my@navs=qw(summary shortlog log commit commitdiff tree);4338if($suppress) {4339@navs=grep{$_ne$suppress}@navs;4340}43414342my%arg=map{$_=> {action=>$_} }@navs;4343if(defined$head) {4344for(qw(commit commitdiff)) {4345$arg{$_}{'hash'} =$head;4346}4347if($current=~m/^(tree | log | shortlog | commit | commitdiff | search)$/x) {4348for(qw(shortlog log)) {4349$arg{$_}{'hash'} =$head;4350}4351}4352}43534354$arg{'tree'}{'hash'} =$treeheadifdefined$treehead;4355$arg{'tree'}{'hash_base'} =$treebaseifdefined$treebase;43564357my@actions= gitweb_get_feature('actions');4358my%repl= (4359'%'=>'%',4360'n'=>$project,# project name4361'f'=>$git_dir,# project path within filesystem4362'h'=>$treehead||'',# current hash ('h' parameter)4363'b'=>$treebase||'',# hash base ('hb' parameter)4364);4365while(@actions) {4366my($label,$link,$pos) =splice(@actions,0,3);4367# insert4368@navs=map{$_eq$pos? ($_,$label) :$_}@navs;4369# munch munch4370$link=~s/%([%nfhb])/$repl{$1}/g;4371$arg{$label}{'_href'} =$link;4372}43734374print"<div class=\"page_nav\">\n".4375(join" | ",4376map{$_eq$current?4377$_:$cgi->a({-href => ($arg{$_}{_href} ?$arg{$_}{_href} : href(%{$arg{$_}}))},"$_")4378}@navs);4379print"<br/>\n$extra<br/>\n".4380"</div>\n";4381}43824383# returns a submenu for the navigation of the refs views (tags, heads,4384# remotes) with the current view disabled and the remotes view only4385# available if the feature is enabled4386sub format_ref_views {4387my($current) =@_;4388my@ref_views=qw{tags heads};4389push@ref_views,'remotes'if gitweb_check_feature('remote_heads');4390returnjoin" | ",map{4391$_eq$current?$_:4392$cgi->a({-href => href(action=>$_)},$_)4393}@ref_views4394}43954396sub format_paging_nav {4397my($action,$page,$has_next_link) =@_;4398my$paging_nav;439944004401if($page>0) {4402$paging_nav.=4403$cgi->a({-href => href(-replay=>1, page=>undef)},"first") .4404" ⋅ ".4405$cgi->a({-href => href(-replay=>1, page=>$page-1),4406-accesskey =>"p", -title =>"Alt-p"},"prev");4407}else{4408$paging_nav.="first ⋅ prev";4409}44104411if($has_next_link) {4412$paging_nav.=" ⋅ ".4413$cgi->a({-href => href(-replay=>1, page=>$page+1),4414-accesskey =>"n", -title =>"Alt-n"},"next");4415}else{4416$paging_nav.=" ⋅ next";4417}44184419return$paging_nav;4420}44214422## ......................................................................4423## functions printing or outputting HTML: div44244425sub git_print_header_div {4426my($action,$title,$hash,$hash_base) =@_;4427my%args= ();44284429$args{'action'} =$action;4430$args{'hash'} =$hashif$hash;4431$args{'hash_base'} =$hash_baseif$hash_base;44324433print"<div class=\"header\">\n".4434$cgi->a({-href => href(%args), -class=>"title"},4435$title?$title:$action) .4436"\n</div>\n";4437}44384439sub format_repo_url {4440my($name,$url) =@_;4441return"<tr class=\"metadata_url\"><td>$name</td><td>$url</td></tr>\n";4442}44434444# Group output by placing it in a DIV element and adding a header.4445# Options for start_div() can be provided by passing a hash reference as the4446# first parameter to the function.4447# Options to git_print_header_div() can be provided by passing an array4448# reference. This must follow the options to start_div if they are present.4449# The content can be a scalar, which is output as-is, a scalar reference, which4450# is output after html escaping, an IO handle passed either as *handle or4451# *handle{IO}, or a function reference. In the latter case all following4452# parameters will be taken as argument to the content function call.4453sub git_print_section {4454my($div_args,$header_args,$content);4455my$arg=shift;4456if(ref($arg)eq'HASH') {4457$div_args=$arg;4458$arg=shift;4459}4460if(ref($arg)eq'ARRAY') {4461$header_args=$arg;4462$arg=shift;4463}4464$content=$arg;44654466print$cgi->start_div($div_args);4467 git_print_header_div(@$header_args);44684469if(ref($content)eq'CODE') {4470$content->(@_);4471}elsif(ref($content)eq'SCALAR') {4472print esc_html($$content);4473}elsif(ref($content)eq'GLOB'or ref($content)eq'IO::Handle') {4474print<$content>;4475}elsif(!ref($content) &&defined($content)) {4476print$content;4477}44784479print$cgi->end_div;4480}44814482sub format_timestamp_html {4483my$date=shift;4484my$strtime=$date->{'rfc2822'};44854486my(undef,undef,$datetime_class) =4487 gitweb_get_feature('javascript-timezone');4488if($datetime_class) {4489$strtime= qq!<span class="$datetime_class">$strtime</span>!;4490}44914492my$localtime_format='(%02d:%02d%s)';4493if($date->{'hour_local'} <6) {4494$localtime_format='(<span class="atnight">%02d:%02d</span>%s)';4495}4496$strtime.=' '.4497sprintf($localtime_format,4498$date->{'hour_local'},$date->{'minute_local'},$date->{'tz_local'});44994500return$strtime;4501}45024503# Outputs the author name and date in long form4504sub git_print_authorship {4505my$co=shift;4506my%opts=@_;4507my$tag=$opts{-tag} ||'div';4508my$author=$co->{'author_name'};45094510my%ad= parse_date($co->{'author_epoch'},$co->{'author_tz'});4511print"<$tagclass=\"author_date\">".4512 format_search_author($author,"author", esc_html($author)) .4513" [".format_timestamp_html(\%ad)."]".4514 git_get_avatar($co->{'author_email'}, -pad_before =>1) .4515"</$tag>\n";4516}45174518# Outputs table rows containing the full author or committer information,4519# in the format expected for 'commit' view (& similar).4520# Parameters are a commit hash reference, followed by the list of people4521# to output information for. If the list is empty it defaults to both4522# author and committer.4523sub git_print_authorship_rows {4524my$co=shift;4525# too bad we can't use @people = @_ || ('author', 'committer')4526my@people=@_;4527@people= ('author','committer')unless@people;4528foreachmy$who(@people) {4529my%wd= parse_date($co->{"${who}_epoch"},$co->{"${who}_tz"});4530print"<tr><td>$who</td><td>".4531 format_search_author($co->{"${who}_name"},$who,4532 esc_html($co->{"${who}_name"})) ." ".4533 format_search_author($co->{"${who}_email"},$who,4534 esc_html("<".$co->{"${who}_email"} .">")) .4535"</td><td rowspan=\"2\">".4536 git_get_avatar($co->{"${who}_email"}, -size =>'double') .4537"</td></tr>\n".4538"<tr>".4539"<td></td><td>".4540 format_timestamp_html(\%wd) .4541"</td>".4542"</tr>\n";4543}4544}45454546sub git_print_page_path {4547my$name=shift;4548my$type=shift;4549my$hb=shift;455045514552print"<div class=\"page_path\">";4553print$cgi->a({-href => href(action=>"tree", hash_base=>$hb),4554-title =>'tree root'}, to_utf8("[$project]"));4555print" / ";4556if(defined$name) {4557my@dirname=split'/',$name;4558my$basename=pop@dirname;4559my$fullname='';45604561foreachmy$dir(@dirname) {4562$fullname.= ($fullname?'/':'') .$dir;4563print$cgi->a({-href => href(action=>"tree", file_name=>$fullname,4564 hash_base=>$hb),4565-title =>$fullname}, esc_path($dir));4566print" / ";4567}4568if(defined$type&&$typeeq'blob') {4569print$cgi->a({-href => href(action=>"blob_plain", file_name=>$file_name,4570 hash_base=>$hb),4571-title =>$name}, esc_path($basename));4572}elsif(defined$type&&$typeeq'tree') {4573print$cgi->a({-href => href(action=>"tree", file_name=>$file_name,4574 hash_base=>$hb),4575-title =>$name}, esc_path($basename));4576print" / ";4577}else{4578print esc_path($basename);4579}4580}4581print"<br/></div>\n";4582}45834584sub git_print_log {4585my$log=shift;4586my%opts=@_;45874588if($opts{'-remove_title'}) {4589# remove title, i.e. first line of log4590shift@$log;4591}4592# remove leading empty lines4593while(defined$log->[0] &&$log->[0]eq"") {4594shift@$log;4595}45964597# print log4598my$skip_blank_line=0;4599foreachmy$line(@$log) {4600if($line=~m/^\s*([A-Z][-A-Za-z]*-[Bb]y|C[Cc]): /) {4601if(!$opts{'-remove_signoff'}) {4602print"<span class=\"signoff\">". esc_html($line) ."</span><br/>\n";4603$skip_blank_line=1;4604}4605next;4606}46074608if($line=~ m,\s*([a-z]*link): (https?://\S+),i) {4609if(!$opts{'-remove_signoff'}) {4610print"<span class=\"signoff\">". esc_html($1) .": ".4611"<a href=\"". esc_html($2) ."\">". esc_html($2) ."</a>".4612"</span><br/>\n";4613$skip_blank_line=1;4614}4615next;4616}46174618# print only one empty line4619# do not print empty line after signoff4620if($lineeq"") {4621next if($skip_blank_line);4622$skip_blank_line=1;4623}else{4624$skip_blank_line=0;4625}46264627print format_log_line_html($line) ."<br/>\n";4628}46294630if($opts{'-final_empty_line'}) {4631# end with single empty line4632print"<br/>\n"unless$skip_blank_line;4633}4634}46354636# return link target (what link points to)4637sub git_get_link_target {4638my$hash=shift;4639my$link_target;46404641# read link4642open my$fd,"-|", git_cmd(),"cat-file","blob",$hash4643orreturn;4644{4645local$/=undef;4646$link_target= <$fd>;4647}4648close$fd4649orreturn;46504651return$link_target;4652}46534654# given link target, and the directory (basedir) the link is in,4655# return target of link relative to top directory (top tree);4656# return undef if it is not possible (including absolute links).4657sub normalize_link_target {4658my($link_target,$basedir) =@_;46594660# absolute symlinks (beginning with '/') cannot be normalized4661return if(substr($link_target,0,1)eq'/');46624663# normalize link target to path from top (root) tree (dir)4664my$path;4665if($basedir) {4666$path=$basedir.'/'.$link_target;4667}else{4668# we are in top (root) tree (dir)4669$path=$link_target;4670}46714672# remove //, /./, and /../4673my@path_parts;4674foreachmy$part(split('/',$path)) {4675# discard '.' and ''4676next if(!$part||$parteq'.');4677# handle '..'4678if($parteq'..') {4679if(@path_parts) {4680pop@path_parts;4681}else{4682# link leads outside repository (outside top dir)4683return;4684}4685}else{4686push@path_parts,$part;4687}4688}4689$path=join('/',@path_parts);46904691return$path;4692}46934694# print tree entry (row of git_tree), but without encompassing <tr> element4695sub git_print_tree_entry {4696my($t,$basedir,$hash_base,$have_blame) =@_;46974698my%base_key= ();4699$base_key{'hash_base'} =$hash_baseifdefined$hash_base;47004701# The format of a table row is: mode list link. Where mode is4702# the mode of the entry, list is the name of the entry, an href,4703# and link is the action links of the entry.47044705print"<td class=\"mode\">". mode_str($t->{'mode'}) ."</td>\n";4706if(exists$t->{'size'}) {4707print"<td class=\"size\">$t->{'size'}</td>\n";4708}4709if($t->{'type'}eq"blob") {4710print"<td class=\"list\">".4711$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},4712 file_name=>"$basedir$t->{'name'}",%base_key),4713-class=>"list"}, esc_path($t->{'name'}));4714if(S_ISLNK(oct$t->{'mode'})) {4715my$link_target= git_get_link_target($t->{'hash'});4716if($link_target) {4717my$norm_target= normalize_link_target($link_target,$basedir);4718if(defined$norm_target) {4719print" -> ".4720$cgi->a({-href => href(action=>"object", hash_base=>$hash_base,4721 file_name=>$norm_target),4722-title =>$norm_target}, esc_path($link_target));4723}else{4724print" -> ". esc_path($link_target);4725}4726}4727}4728print"</td>\n";4729print"<td class=\"link\">";4730print$cgi->a({-href => href(action=>"blob", hash=>$t->{'hash'},4731 file_name=>"$basedir$t->{'name'}",%base_key)},4732"blob");4733if($have_blame) {4734print" | ".4735$cgi->a({-href => href(action=>"blame", hash=>$t->{'hash'},4736 file_name=>"$basedir$t->{'name'}",%base_key)},4737"blame");4738}4739if(defined$hash_base) {4740print" | ".4741$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,4742 hash=>$t->{'hash'}, file_name=>"$basedir$t->{'name'}")},4743"history");4744}4745print" | ".4746$cgi->a({-href => href(action=>"blob_plain", hash_base=>$hash_base,4747 file_name=>"$basedir$t->{'name'}")},4748"raw");4749print"</td>\n";47504751}elsif($t->{'type'}eq"tree") {4752print"<td class=\"list\">";4753print$cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},4754 file_name=>"$basedir$t->{'name'}",4755%base_key)},4756 esc_path($t->{'name'}));4757print"</td>\n";4758print"<td class=\"link\">";4759print$cgi->a({-href => href(action=>"tree", hash=>$t->{'hash'},4760 file_name=>"$basedir$t->{'name'}",4761%base_key)},4762"tree");4763if(defined$hash_base) {4764print" | ".4765$cgi->a({-href => href(action=>"history", hash_base=>$hash_base,4766 file_name=>"$basedir$t->{'name'}")},4767"history");4768}4769print"</td>\n";4770}else{4771# unknown object: we can only present history for it4772# (this includes 'commit' object, i.e. submodule support)4773print"<td class=\"list\">".4774 esc_path($t->{'name'}) .4775"</td>\n";4776print"<td class=\"link\">";4777if(defined$hash_base) {4778print$cgi->a({-href => href(action=>"history",4779 hash_base=>$hash_base,4780 file_name=>"$basedir$t->{'name'}")},4781"history");4782}4783print"</td>\n";4784}4785}47864787## ......................................................................4788## functions printing large fragments of HTML47894790# get pre-image filenames for merge (combined) diff4791sub fill_from_file_info {4792my($diff,@parents) =@_;47934794$diff->{'from_file'} = [ ];4795$diff->{'from_file'}[$diff->{'nparents'} -1] =undef;4796for(my$i=0;$i<$diff->{'nparents'};$i++) {4797if($diff->{'status'}[$i]eq'R'||4798$diff->{'status'}[$i]eq'C') {4799$diff->{'from_file'}[$i] =4800 git_get_path_by_hash($parents[$i],$diff->{'from_id'}[$i]);4801}4802}48034804return$diff;4805}48064807# is current raw difftree line of file deletion4808sub is_deleted {4809my$diffinfo=shift;48104811return$diffinfo->{'to_id'}eq('0' x 40);4812}48134814# does patch correspond to [previous] difftree raw line4815# $diffinfo - hashref of parsed raw diff format4816# $patchinfo - hashref of parsed patch diff format4817# (the same keys as in $diffinfo)4818sub is_patch_split {4819my($diffinfo,$patchinfo) =@_;48204821returndefined$diffinfo&&defined$patchinfo4822&&$diffinfo->{'to_file'}eq$patchinfo->{'to_file'};4823}482448254826sub git_difftree_body {4827my($difftree,$hash,@parents) =@_;4828my($parent) =$parents[0];4829my$have_blame= gitweb_check_feature('blame');4830print"<div class=\"list_head\">\n";4831if($#{$difftree} >10) {4832print(($#{$difftree} +1) ." files changed:\n");4833}4834print"</div>\n";48354836print"<table class=\"".4837(@parents>1?"combined ":"") .4838"diff_tree\">\n";48394840# header only for combined diff in 'commitdiff' view4841my$has_header=@$difftree&&@parents>1&&$actioneq'commitdiff';4842if($has_header) {4843# table header4844print"<thead><tr>\n".4845"<th></th><th></th>\n";# filename, patchN link4846for(my$i=0;$i<@parents;$i++) {4847my$par=$parents[$i];4848print"<th>".4849$cgi->a({-href => href(action=>"commitdiff",4850 hash=>$hash, hash_parent=>$par),4851-title =>'commitdiff to parent number '.4852($i+1) .': '.substr($par,0,7)},4853$i+1) .4854" </th>\n";4855}4856print"</tr></thead>\n<tbody>\n";4857}48584859my$alternate=1;4860my$patchno=0;4861foreachmy$line(@{$difftree}) {4862my$diff= parsed_difftree_line($line);48634864if($alternate) {4865print"<tr class=\"dark\">\n";4866}else{4867print"<tr class=\"light\">\n";4868}4869$alternate^=1;48704871if(exists$diff->{'nparents'}) {# combined diff48724873 fill_from_file_info($diff,@parents)4874unlessexists$diff->{'from_file'};48754876if(!is_deleted($diff)) {4877# file exists in the result (child) commit4878print"<td>".4879$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},4880 file_name=>$diff->{'to_file'},4881 hash_base=>$hash),4882-class=>"list"}, esc_path($diff->{'to_file'})) .4883"</td>\n";4884}else{4885print"<td>".4886 esc_path($diff->{'to_file'}) .4887"</td>\n";4888}48894890if($actioneq'commitdiff') {4891# link to patch4892$patchno++;4893print"<td class=\"link\">".4894$cgi->a({-href => href(-anchor=>"patch$patchno")},4895"patch") .4896" | ".4897"</td>\n";4898}48994900my$has_history=0;4901my$not_deleted=0;4902for(my$i=0;$i<$diff->{'nparents'};$i++) {4903my$hash_parent=$parents[$i];4904my$from_hash=$diff->{'from_id'}[$i];4905my$from_path=$diff->{'from_file'}[$i];4906my$status=$diff->{'status'}[$i];49074908$has_history||= ($statusne'A');4909$not_deleted||= ($statusne'D');49104911if($statuseq'A') {4912print"<td class=\"link\"align=\"right\"> | </td>\n";4913}elsif($statuseq'D') {4914print"<td class=\"link\">".4915$cgi->a({-href => href(action=>"blob",4916 hash_base=>$hash,4917 hash=>$from_hash,4918 file_name=>$from_path)},4919"blob". ($i+1)) .4920" | </td>\n";4921}else{4922if($diff->{'to_id'}eq$from_hash) {4923print"<td class=\"link nochange\">";4924}else{4925print"<td class=\"link\">";4926}4927print$cgi->a({-href => href(action=>"blobdiff",4928 hash=>$diff->{'to_id'},4929 hash_parent=>$from_hash,4930 hash_base=>$hash,4931 hash_parent_base=>$hash_parent,4932 file_name=>$diff->{'to_file'},4933 file_parent=>$from_path)},4934"diff". ($i+1)) .4935" | </td>\n";4936}4937}49384939print"<td class=\"link\">";4940if($not_deleted) {4941print$cgi->a({-href => href(action=>"blob",4942 hash=>$diff->{'to_id'},4943 file_name=>$diff->{'to_file'},4944 hash_base=>$hash)},4945"blob");4946print" | "if($has_history);4947}4948if($has_history) {4949print$cgi->a({-href => href(action=>"history",4950 file_name=>$diff->{'to_file'},4951 hash_base=>$hash)},4952"history");4953}4954print"</td>\n";49554956print"</tr>\n";4957next;# instead of 'else' clause, to avoid extra indent4958}4959# else ordinary diff49604961my($to_mode_oct,$to_mode_str,$to_file_type);4962my($from_mode_oct,$from_mode_str,$from_file_type);4963if($diff->{'to_mode'}ne('0' x 6)) {4964$to_mode_oct=oct$diff->{'to_mode'};4965if(S_ISREG($to_mode_oct)) {# only for regular file4966$to_mode_str=sprintf("%04o",$to_mode_oct&0777);# permission bits4967}4968$to_file_type= file_type($diff->{'to_mode'});4969}4970if($diff->{'from_mode'}ne('0' x 6)) {4971$from_mode_oct=oct$diff->{'from_mode'};4972if(S_ISREG($from_mode_oct)) {# only for regular file4973$from_mode_str=sprintf("%04o",$from_mode_oct&0777);# permission bits4974}4975$from_file_type= file_type($diff->{'from_mode'});4976}49774978if($diff->{'status'}eq"A") {# created4979my$mode_chng="<span class=\"file_status new\">[new$to_file_type";4980$mode_chng.=" with mode:$to_mode_str"if$to_mode_str;4981$mode_chng.="]</span>";4982print"<td>";4983print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},4984 hash_base=>$hash, file_name=>$diff->{'file'}),4985-class=>"list"}, esc_path($diff->{'file'}));4986print"</td>\n";4987print"<td>$mode_chng</td>\n";4988print"<td class=\"link\">";4989if($actioneq'commitdiff') {4990# link to patch4991$patchno++;4992print$cgi->a({-href => href(-anchor=>"patch$patchno")},4993"patch") .4994" | ";4995}4996print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},4997 hash_base=>$hash, file_name=>$diff->{'file'})},4998"blob");4999print"</td>\n";50005001}elsif($diff->{'status'}eq"D") {# deleted5002my$mode_chng="<span class=\"file_status deleted\">[deleted$from_file_type]</span>";5003print"<td>";5004print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},5005 hash_base=>$parent, file_name=>$diff->{'file'}),5006-class=>"list"}, esc_path($diff->{'file'}));5007print"</td>\n";5008print"<td>$mode_chng</td>\n";5009print"<td class=\"link\">";5010if($actioneq'commitdiff') {5011# link to patch5012$patchno++;5013print$cgi->a({-href => href(-anchor=>"patch$patchno")},5014"patch") .5015" | ";5016}5017print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'from_id'},5018 hash_base=>$parent, file_name=>$diff->{'file'})},5019"blob") ." | ";5020if($have_blame) {5021print$cgi->a({-href => href(action=>"blame", hash_base=>$parent,5022 file_name=>$diff->{'file'})},5023"blame") ." | ";5024}5025print$cgi->a({-href => href(action=>"history", hash_base=>$parent,5026 file_name=>$diff->{'file'})},5027"history");5028print"</td>\n";50295030}elsif($diff->{'status'}eq"M"||$diff->{'status'}eq"T") {# modified, or type changed5031my$mode_chnge="";5032if($diff->{'from_mode'} !=$diff->{'to_mode'}) {5033$mode_chnge="<span class=\"file_status mode_chnge\">[changed";5034if($from_file_typene$to_file_type) {5035$mode_chnge.=" from$from_file_typeto$to_file_type";5036}5037if(($from_mode_oct&0777) != ($to_mode_oct&0777)) {5038if($from_mode_str&&$to_mode_str) {5039$mode_chnge.=" mode:$from_mode_str->$to_mode_str";5040}elsif($to_mode_str) {5041$mode_chnge.=" mode:$to_mode_str";5042}5043}5044$mode_chnge.="]</span>\n";5045}5046print"<td>";5047print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},5048 hash_base=>$hash, file_name=>$diff->{'file'}),5049-class=>"list"}, esc_path($diff->{'file'}));5050print"</td>\n";5051print"<td>$mode_chnge</td>\n";5052print"<td class=\"link\">";5053if($actioneq'commitdiff') {5054# link to patch5055$patchno++;5056print$cgi->a({-href => href(-anchor=>"patch$patchno")},5057"patch") .5058" | ";5059}elsif($diff->{'to_id'}ne$diff->{'from_id'}) {5060# "commit" view and modified file (not onlu mode changed)5061print$cgi->a({-href => href(action=>"blobdiff",5062 hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},5063 hash_base=>$hash, hash_parent_base=>$parent,5064 file_name=>$diff->{'file'})},5065"diff") .5066" | ";5067}5068print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},5069 hash_base=>$hash, file_name=>$diff->{'file'})},5070"blob") ." | ";5071if($have_blame) {5072print$cgi->a({-href => href(action=>"blame", hash_base=>$hash,5073 file_name=>$diff->{'file'})},5074"blame") ." | ";5075}5076print$cgi->a({-href => href(action=>"history", hash_base=>$hash,5077 file_name=>$diff->{'file'})},5078"history");5079print"</td>\n";50805081}elsif($diff->{'status'}eq"R"||$diff->{'status'}eq"C") {# renamed or copied5082my%status_name= ('R'=>'moved','C'=>'copied');5083my$nstatus=$status_name{$diff->{'status'}};5084my$mode_chng="";5085if($diff->{'from_mode'} !=$diff->{'to_mode'}) {5086# mode also for directories, so we cannot use $to_mode_str5087$mode_chng=sprintf(", mode:%04o",$to_mode_oct&0777);5088}5089print"<td>".5090$cgi->a({-href => href(action=>"blob", hash_base=>$hash,5091 hash=>$diff->{'to_id'}, file_name=>$diff->{'to_file'}),5092-class=>"list"}, esc_path($diff->{'to_file'})) ."</td>\n".5093"<td><span class=\"file_status$nstatus\">[$nstatusfrom ".5094$cgi->a({-href => href(action=>"blob", hash_base=>$parent,5095 hash=>$diff->{'from_id'}, file_name=>$diff->{'from_file'}),5096-class=>"list"}, esc_path($diff->{'from_file'})) .5097" with ". (int$diff->{'similarity'}) ."% similarity$mode_chng]</span></td>\n".5098"<td class=\"link\">";5099if($actioneq'commitdiff') {5100# link to patch5101$patchno++;5102print$cgi->a({-href => href(-anchor=>"patch$patchno")},5103"patch") .5104" | ";5105}elsif($diff->{'to_id'}ne$diff->{'from_id'}) {5106# "commit" view and modified file (not only pure rename or copy)5107print$cgi->a({-href => href(action=>"blobdiff",5108 hash=>$diff->{'to_id'}, hash_parent=>$diff->{'from_id'},5109 hash_base=>$hash, hash_parent_base=>$parent,5110 file_name=>$diff->{'to_file'}, file_parent=>$diff->{'from_file'})},5111"diff") .5112" | ";5113}5114print$cgi->a({-href => href(action=>"blob", hash=>$diff->{'to_id'},5115 hash_base=>$parent, file_name=>$diff->{'to_file'})},5116"blob") ." | ";5117if($have_blame) {5118print$cgi->a({-href => href(action=>"blame", hash_base=>$hash,5119 file_name=>$diff->{'to_file'})},5120"blame") ." | ";5121}5122print$cgi->a({-href => href(action=>"history", hash_base=>$hash,5123 file_name=>$diff->{'to_file'})},5124"history");5125print"</td>\n";51265127}# we should not encounter Unmerged (U) or Unknown (X) status5128print"</tr>\n";5129}5130print"</tbody>"if$has_header;5131print"</table>\n";5132}51335134# Print context lines and then rem/add lines in a side-by-side manner.5135sub print_sidebyside_diff_lines {5136my($ctx,$rem,$add) =@_;51375138# print context block before add/rem block5139if(@$ctx) {5140print join'',5141'<div class="chunk_block ctx">',5142'<div class="old">',5143@$ctx,5144'</div>',5145'<div class="new">',5146@$ctx,5147'</div>',5148'</div>';5149}51505151if(!@$add) {5152# pure removal5153print join'',5154'<div class="chunk_block rem">',5155'<div class="old">',5156@$rem,5157'</div>',5158'</div>';5159}elsif(!@$rem) {5160# pure addition5161print join'',5162'<div class="chunk_block add">',5163'<div class="new">',5164@$add,5165'</div>',5166'</div>';5167}else{5168print join'',5169'<div class="chunk_block chg">',5170'<div class="old">',5171@$rem,5172'</div>',5173'<div class="new">',5174@$add,5175'</div>',5176'</div>';5177}5178}51795180# Print context lines and then rem/add lines in inline manner.5181sub print_inline_diff_lines {5182my($ctx,$rem,$add) =@_;51835184print@$ctx,@$rem,@$add;5185}51865187# Format removed and added line, mark changed part and HTML-format them.5188# Implementation is based on contrib/diff-highlight5189sub format_rem_add_lines_pair {5190my($rem,$add,$num_parents) =@_;51915192# We need to untabify lines before split()'ing them;5193# otherwise offsets would be invalid.5194chomp$rem;5195chomp$add;5196$rem= untabify($rem);5197$add= untabify($add);51985199my@rem=split(//,$rem);5200my@add=split(//,$add);5201my($esc_rem,$esc_add);5202# Ignore leading +/- characters for each parent.5203my($prefix_len,$suffix_len) = ($num_parents,0);5204my($prefix_has_nonspace,$suffix_has_nonspace);52055206my$shorter= (@rem<@add) ?@rem:@add;5207while($prefix_len<$shorter) {5208last if($rem[$prefix_len]ne$add[$prefix_len]);52095210$prefix_has_nonspace=1if($rem[$prefix_len] !~/\s/);5211$prefix_len++;5212}52135214while($prefix_len+$suffix_len<$shorter) {5215last if($rem[-1-$suffix_len]ne$add[-1-$suffix_len]);52165217$suffix_has_nonspace=1if($rem[-1-$suffix_len] !~/\s/);5218$suffix_len++;5219}52205221# Mark lines that are different from each other, but have some common5222# part that isn't whitespace. If lines are completely different, don't5223# mark them because that would make output unreadable, especially if5224# diff consists of multiple lines.5225if($prefix_has_nonspace||$suffix_has_nonspace) {5226$esc_rem= esc_html_hl_regions($rem,'marked',5227[$prefix_len,@rem-$suffix_len], -nbsp=>1);5228$esc_add= esc_html_hl_regions($add,'marked',5229[$prefix_len,@add-$suffix_len], -nbsp=>1);5230}else{5231$esc_rem= esc_html($rem, -nbsp=>1);5232$esc_add= esc_html($add, -nbsp=>1);5233}52345235return format_diff_line(\$esc_rem,'rem'),5236 format_diff_line(\$esc_add,'add');5237}52385239# HTML-format diff context, removed and added lines.5240sub format_ctx_rem_add_lines {5241my($ctx,$rem,$add,$num_parents) =@_;5242my(@new_ctx,@new_rem,@new_add);5243my$can_highlight=0;5244my$is_combined= ($num_parents>1);52455246# Highlight if every removed line has a corresponding added line.5247if(@$add>0&&@$add==@$rem) {5248$can_highlight=1;52495250# Highlight lines in combined diff only if the chunk contains5251# diff between the same version, e.g.5252#5253# - a5254# - b5255# + c5256# + d5257#5258# Otherwise the highlightling would be confusing.5259if($is_combined) {5260for(my$i=0;$i<@$add;$i++) {5261my$prefix_rem=substr($rem->[$i],0,$num_parents);5262my$prefix_add=substr($add->[$i],0,$num_parents);52635264$prefix_rem=~s/-/+/g;52655266if($prefix_remne$prefix_add) {5267$can_highlight=0;5268last;5269}5270}5271}5272}52735274if($can_highlight) {5275for(my$i=0;$i<@$add;$i++) {5276my($line_rem,$line_add) = format_rem_add_lines_pair(5277$rem->[$i],$add->[$i],$num_parents);5278push@new_rem,$line_rem;5279push@new_add,$line_add;5280}5281}else{5282@new_rem=map{ format_diff_line($_,'rem') }@$rem;5283@new_add=map{ format_diff_line($_,'add') }@$add;5284}52855286@new_ctx=map{ format_diff_line($_,'ctx') }@$ctx;52875288return(\@new_ctx, \@new_rem, \@new_add);5289}52905291# Print context lines and then rem/add lines.5292sub print_diff_lines {5293my($ctx,$rem,$add,$diff_style,$num_parents) =@_;5294my$is_combined=$num_parents>1;52955296($ctx,$rem,$add) = format_ctx_rem_add_lines($ctx,$rem,$add,5297$num_parents);52985299if($diff_styleeq'sidebyside'&& !$is_combined) {5300 print_sidebyside_diff_lines($ctx,$rem,$add);5301}else{5302# default 'inline' style and unknown styles5303 print_inline_diff_lines($ctx,$rem,$add);5304}5305}53065307sub print_diff_chunk {5308my($diff_style,$num_parents,$from,$to,@chunk) =@_;5309my(@ctx,@rem,@add);53105311# The class of the previous line.5312my$prev_class='';53135314return unless@chunk;53155316# incomplete last line might be among removed or added lines,5317# or both, or among context lines: find which5318for(my$i=1;$i<@chunk;$i++) {5319if($chunk[$i][0]eq'incomplete') {5320$chunk[$i][0] =$chunk[$i-1][0];5321}5322}53235324# guardian5325push@chunk, ["",""];53265327foreachmy$line_info(@chunk) {5328my($class,$line) =@$line_info;53295330# print chunk headers5331if($class&&$classeq'chunk_header') {5332print format_diff_line($line,$class,$from,$to);5333next;5334}53355336## print from accumulator when have some add/rem lines or end5337# of chunk (flush context lines), or when have add and rem5338# lines and new block is reached (otherwise add/rem lines could5339# be reordered)5340if(!$class|| ((@rem||@add) &&$classeq'ctx') ||5341(@rem&&@add&&$classne$prev_class)) {5342 print_diff_lines(\@ctx, \@rem, \@add,5343$diff_style,$num_parents);5344@ctx=@rem=@add= ();5345}53465347## adding lines to accumulator5348# guardian value5349last unless$line;5350# rem, add or change5351if($classeq'rem') {5352push@rem,$line;5353}elsif($classeq'add') {5354push@add,$line;5355}5356# context line5357if($classeq'ctx') {5358push@ctx,$line;5359}53605361$prev_class=$class;5362}5363}53645365sub git_patchset_body {5366my($fd,$diff_style,$difftree,$hash,@hash_parents) =@_;5367my($hash_parent) =$hash_parents[0];53685369my$is_combined= (@hash_parents>1);5370my$patch_idx=0;5371my$patch_number=0;5372my$patch_line;5373my$diffinfo;5374my$to_name;5375my(%from,%to);5376my@chunk;# for side-by-side diff53775378print"<div class=\"patchset\">\n";53795380# skip to first patch5381while($patch_line= <$fd>) {5382chomp$patch_line;53835384last if($patch_line=~m/^diff /);5385}53865387 PATCH:5388while($patch_line) {53895390# parse "git diff" header line5391if($patch_line=~m/^diff --git (\"(?:[^\\\"]*(?:\\.[^\\\"]*)*)\"|[^ "]*) (.*)$/) {5392# $1 is from_name, which we do not use5393$to_name= unquote($2);5394$to_name=~s!^b/!!;5395}elsif($patch_line=~m/^diff --(cc|combined) ("?.*"?)$/) {5396# $1 is 'cc' or 'combined', which we do not use5397$to_name= unquote($2);5398}else{5399$to_name=undef;5400}54015402# check if current patch belong to current raw line5403# and parse raw git-diff line if needed5404if(is_patch_split($diffinfo, {'to_file'=>$to_name})) {5405# this is continuation of a split patch5406print"<div class=\"patch cont\">\n";5407}else{5408# advance raw git-diff output if needed5409$patch_idx++ifdefined$diffinfo;54105411# read and prepare patch information5412$diffinfo= parsed_difftree_line($difftree->[$patch_idx]);54135414# compact combined diff output can have some patches skipped5415# find which patch (using pathname of result) we are at now;5416if($is_combined) {5417while($to_namene$diffinfo->{'to_file'}) {5418print"<div class=\"patch\"id=\"patch". ($patch_idx+1) ."\">\n".5419 format_diff_cc_simplified($diffinfo,@hash_parents) .5420"</div>\n";# class="patch"54215422$patch_idx++;5423$patch_number++;54245425last if$patch_idx>$#$difftree;5426$diffinfo= parsed_difftree_line($difftree->[$patch_idx]);5427}5428}54295430# modifies %from, %to hashes5431 parse_from_to_diffinfo($diffinfo, \%from, \%to,@hash_parents);54325433# this is first patch for raw difftree line with $patch_idx index5434# we index @$difftree array from 0, but number patches from 15435print"<div class=\"patch\"id=\"patch". ($patch_idx+1) ."\">\n";5436}54375438# git diff header5439#assert($patch_line =~ m/^diff /) if DEBUG;5440#assert($patch_line !~ m!$/$!) if DEBUG; # is chomp-ed5441$patch_number++;5442# print "git diff" header5443print format_git_diff_header_line($patch_line,$diffinfo,5444 \%from, \%to);54455446# print extended diff header5447print"<div class=\"diff extended_header\">\n";5448 EXTENDED_HEADER:5449while($patch_line= <$fd>) {5450chomp$patch_line;54515452last EXTENDED_HEADER if($patch_line=~m/^--- |^diff /);54535454print format_extended_diff_header_line($patch_line,$diffinfo,5455 \%from, \%to);5456}5457print"</div>\n";# class="diff extended_header"54585459# from-file/to-file diff header5460if(!$patch_line) {5461print"</div>\n";# class="patch"5462last PATCH;5463}5464next PATCH if($patch_line=~m/^diff /);5465#assert($patch_line =~ m/^---/) if DEBUG;54665467my$last_patch_line=$patch_line;5468$patch_line= <$fd>;5469chomp$patch_line;5470#assert($patch_line =~ m/^\+\+\+/) if DEBUG;54715472print format_diff_from_to_header($last_patch_line,$patch_line,5473$diffinfo, \%from, \%to,5474@hash_parents);54755476# the patch itself5477 LINE:5478while($patch_line= <$fd>) {5479chomp$patch_line;54805481next PATCH if($patch_line=~m/^diff /);54825483my$class= diff_line_class($patch_line, \%from, \%to);54845485if($classeq'chunk_header') {5486 print_diff_chunk($diff_style,scalar@hash_parents, \%from, \%to,@chunk);5487@chunk= ();5488}54895490push@chunk, [$class,$patch_line];5491}54925493}continue{5494if(@chunk) {5495 print_diff_chunk($diff_style,scalar@hash_parents, \%from, \%to,@chunk);5496@chunk= ();5497}5498print"</div>\n";# class="patch"5499}55005501# for compact combined (--cc) format, with chunk and patch simplification5502# the patchset might be empty, but there might be unprocessed raw lines5503for(++$patch_idxif$patch_number>0;5504$patch_idx<@$difftree;5505++$patch_idx) {5506# read and prepare patch information5507$diffinfo= parsed_difftree_line($difftree->[$patch_idx]);55085509# generate anchor for "patch" links in difftree / whatchanged part5510print"<div class=\"patch\"id=\"patch". ($patch_idx+1) ."\">\n".5511 format_diff_cc_simplified($diffinfo,@hash_parents) .5512"</div>\n";# class="patch"55135514$patch_number++;5515}55165517if($patch_number==0) {5518if(@hash_parents>1) {5519print"<div class=\"diff nodifferences\">Trivial merge</div>\n";5520}else{5521print"<div class=\"diff nodifferences\">No differences found</div>\n";5522}5523}55245525print"</div>\n";# class="patchset"5526}55275528# . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .55295530sub git_project_search_form {5531my($searchtext,$search_use_regexp) =@_;55325533my$limit='';5534if($project_filter) {5535$limit=" in '$project_filter/'";5536}55375538print"<div class=\"projsearch\">\n";5539print$cgi->start_form(-method=>'get', -action =>$my_uri) .5540$cgi->hidden(-name =>'a', -value =>'project_list') ."\n";5541print$cgi->hidden(-name =>'pf', -value =>$project_filter)."\n"5542if(defined$project_filter);5543print$cgi->textfield(-name =>'s', -value =>$searchtext,5544-title =>"Search project by name and description$limit",5545-size =>60) ."\n".5546"<span title=\"Extended regular expression\">".5547$cgi->checkbox(-name =>'sr', -value =>1, -label =>'re',5548-checked =>$search_use_regexp) .5549"</span>\n".5550$cgi->submit(-name =>'btnS', -value =>'Search') .5551$cgi->end_form() ."\n".5552$cgi->a({-href => href(project =>undef, searchtext =>undef,5553 project_filter =>$project_filter)},5554 esc_html("List all projects$limit")) ."<br />\n";5555print"</div>\n";5556}55575558# entry for given @keys needs filling if at least one of keys in list5559# is not present in %$project_info5560sub project_info_needs_filling {5561my($project_info,@keys) =@_;55625563# return List::MoreUtils::any { !exists $project_info->{$_} } @keys;5564foreachmy$key(@keys) {5565if(!exists$project_info->{$key}) {5566return1;5567}5568}5569return;5570}55715572# fills project list info (age, description, owner, category, forks, etc.)5573# for each project in the list, removing invalid projects from5574# returned list, or fill only specified info.5575#5576# Invalid projects are removed from the returned list if and only if you5577# ask 'age' or 'age_string' to be filled, because they are the only fields5578# that run unconditionally git command that requires repository, and5579# therefore do always check if project repository is invalid.5580#5581# USAGE:5582# * fill_project_list_info(\@project_list, 'descr_long', 'ctags')5583# ensures that 'descr_long' and 'ctags' fields are filled5584# * @project_list = fill_project_list_info(\@project_list)5585# ensures that all fields are filled (and invalid projects removed)5586#5587# NOTE: modifies $projlist, but does not remove entries from it5588sub fill_project_list_info {5589my($projlist,@wanted_keys) =@_;5590my@projects;5591my$filter_set=sub{return@_; };5592if(@wanted_keys) {5593my%wanted_keys=map{$_=>1}@wanted_keys;5594$filter_set=sub{returngrep{$wanted_keys{$_} }@_; };5595}55965597my$show_ctags= gitweb_check_feature('ctags');5598 PROJECT:5599foreachmy$pr(@$projlist) {5600if(project_info_needs_filling($pr,$filter_set->('age','age_string'))) {5601my(@activity) = git_get_last_activity($pr->{'path'});5602unless(@activity) {5603next PROJECT;5604}5605($pr->{'age'},$pr->{'age_string'}) =@activity;5606}5607if(project_info_needs_filling($pr,$filter_set->('descr','descr_long'))) {5608my$descr= git_get_project_description($pr->{'path'}) ||"";5609$descr= to_utf8($descr);5610$pr->{'descr_long'} =$descr;5611$pr->{'descr'} = chop_str($descr,$projects_list_description_width,5);5612}5613if(project_info_needs_filling($pr,$filter_set->('owner'))) {5614$pr->{'owner'} = git_get_project_owner("$pr->{'path'}") ||"";5615}5616if($show_ctags&&5617 project_info_needs_filling($pr,$filter_set->('ctags'))) {5618$pr->{'ctags'} = git_get_project_ctags($pr->{'path'});5619}5620if($projects_list_group_categories&&5621 project_info_needs_filling($pr,$filter_set->('category'))) {5622my$cat= git_get_project_category($pr->{'path'}) ||5623$project_list_default_category;5624$pr->{'category'} = to_utf8($cat);5625}56265627push@projects,$pr;5628}56295630return@projects;5631}56325633sub sort_projects_list {5634my($projlist,$order) =@_;56355636sub order_str {5637my$key=shift;5638return sub{$a->{$key}cmp$b->{$key} };5639}56405641sub order_num_then_undef {5642my$key=shift;5643return sub{5644defined$a->{$key} ?5645(defined$b->{$key} ?$a->{$key} <=>$b->{$key} : -1) :5646(defined$b->{$key} ?1:0)5647};5648}56495650my%orderings= (5651 project => order_str('path'),5652 descr => order_str('descr_long'),5653 owner => order_str('owner'),5654 age => order_num_then_undef('age'),5655);56565657my$ordering=$orderings{$order};5658returndefined$ordering?sort$ordering @$projlist:@$projlist;5659}56605661# returns a hash of categories, containing the list of project5662# belonging to each category5663sub build_projlist_by_category {5664my($projlist,$from,$to) =@_;5665my%categories;56665667$from=0unlessdefined$from;5668$to=$#$projlistif(!defined$to||$#$projlist<$to);56695670for(my$i=$from;$i<=$to;$i++) {5671my$pr=$projlist->[$i];5672push@{$categories{$pr->{'category'} }},$pr;5673}56745675returnwantarray?%categories: \%categories;5676}56775678# print 'sort by' <th> element, generating 'sort by $name' replay link5679# if that order is not selected5680sub print_sort_th {5681print format_sort_th(@_);5682}56835684sub format_sort_th {5685my($name,$order,$header) =@_;5686my$sort_th="";5687$header||=ucfirst($name);56885689if($ordereq$name) {5690$sort_th.="<th>$header</th>\n";5691}else{5692$sort_th.="<th>".5693$cgi->a({-href => href(-replay=>1, order=>$name),5694-class=>"header"},$header) .5695"</th>\n";5696}56975698return$sort_th;5699}57005701sub git_project_list_rows {5702my($projlist,$from,$to,$check_forks) =@_;57035704$from=0unlessdefined$from;5705$to=$#$projlistif(!defined$to||$#$projlist<$to);57065707my$alternate=1;5708for(my$i=$from;$i<=$to;$i++) {5709my$pr=$projlist->[$i];57105711if($alternate) {5712print"<tr class=\"dark\">\n";5713}else{5714print"<tr class=\"light\">\n";5715}5716$alternate^=1;57175718if($check_forks) {5719print"<td>";5720if($pr->{'forks'}) {5721my$nforks=scalar@{$pr->{'forks'}};5722if($nforks>0) {5723print$cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks"),5724-title =>"$nforksforks"},"+");5725}else{5726print$cgi->span({-title =>"$nforksforks"},"+");5727}5728}5729print"</td>\n";5730}5731print"<td>".$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),5732-class=>"list"},5733 esc_html_match_hl($pr->{'path'},$search_regexp)) .5734"</td>\n".5735"<td>".$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary"),5736-class=>"list",5737-title =>$pr->{'descr_long'}},5738$search_regexp5739? esc_html_match_hl_chopped($pr->{'descr_long'},5740$pr->{'descr'},$search_regexp)5741: esc_html($pr->{'descr'})) .5742"</td>\n";5743unless($omit_owner) {5744print"<td><i>". chop_and_escape_str($pr->{'owner'},15) ."</i></td>\n";5745}5746unless($omit_age_column) {5747print"<td class=\"". age_class($pr->{'age'}) ."\">".5748(defined$pr->{'age_string'} ?$pr->{'age_string'} :"No commits") ."</td>\n";5749}5750print"<td class=\"link\">".5751$cgi->a({-href => href(project=>$pr->{'path'}, action=>"summary")},"summary") ." | ".5752$cgi->a({-href => href(project=>$pr->{'path'}, action=>"shortlog")},"shortlog") ." | ".5753$cgi->a({-href => href(project=>$pr->{'path'}, action=>"log")},"log") ." | ".5754$cgi->a({-href => href(project=>$pr->{'path'}, action=>"tree")},"tree") .5755($pr->{'forks'} ?" | ".$cgi->a({-href => href(project=>$pr->{'path'}, action=>"forks")},"forks") :'') .5756"</td>\n".5757"</tr>\n";5758}5759}57605761sub git_project_list_body {5762# actually uses global variable $project5763my($projlist,$order,$from,$to,$extra,$no_header) =@_;5764my@projects=@$projlist;57655766my$check_forks= gitweb_check_feature('forks');5767my$show_ctags= gitweb_check_feature('ctags');5768my$tagfilter=$show_ctags?$input_params{'ctag'} :undef;5769$check_forks=undef5770if($tagfilter||$search_regexp);57715772# filtering out forks before filling info allows to do less work5773@projects= filter_forks_from_projects_list(\@projects)5774if($check_forks);5775# search_projects_list pre-fills required info5776@projects= search_projects_list(\@projects,5777'search_regexp'=>$search_regexp,5778'tagfilter'=>$tagfilter)5779if($tagfilter||$search_regexp);5780# fill the rest5781my@all_fields= ('descr','descr_long','ctags','category');5782push@all_fields, ('age','age_string')unless($omit_age_column);5783push@all_fields,'owner'unless($omit_owner);5784@projects= fill_project_list_info(\@projects,@all_fields);57855786$order||=$default_projects_order;5787$from=0unlessdefined$from;5788$to=$#projectsif(!defined$to||$#projects<$to);57895790# short circuit5791if($from>$to) {5792print"<center>\n".5793"<b>No such projects found</b><br />\n".5794"Click ".$cgi->a({-href=>href(project=>undef)},"here")." to view all projects<br />\n".5795"</center>\n<br />\n";5796return;5797}57985799@projects= sort_projects_list(\@projects,$order);58005801if($show_ctags) {5802my$ctags= git_gather_all_ctags(\@projects);5803my$cloud= git_populate_project_tagcloud($ctags);5804print git_show_project_tagcloud($cloud,64);5805}58065807print"<table class=\"project_list\">\n";5808unless($no_header) {5809print"<tr>\n";5810if($check_forks) {5811print"<th></th>\n";5812}5813 print_sort_th('project',$order,'Project');5814 print_sort_th('descr',$order,'Description');5815 print_sort_th('owner',$order,'Owner')unless$omit_owner;5816 print_sort_th('age',$order,'Last Change')unless$omit_age_column;5817print"<th></th>\n".# for links5818"</tr>\n";5819}58205821if($projects_list_group_categories) {5822# only display categories with projects in the $from-$to window5823@projects=sort{$a->{'category'}cmp$b->{'category'}}@projects[$from..$to];5824my%categories= build_projlist_by_category(\@projects,$from,$to);5825foreachmy$cat(sort keys%categories) {5826unless($cateq"") {5827print"<tr>\n";5828if($check_forks) {5829print"<td></td>\n";5830}5831print"<td class=\"category\"colspan=\"5\">".esc_html($cat)."</td>\n";5832print"</tr>\n";5833}58345835 git_project_list_rows($categories{$cat},undef,undef,$check_forks);5836}5837}else{5838 git_project_list_rows(\@projects,$from,$to,$check_forks);5839}58405841if(defined$extra) {5842print"<tr>\n";5843if($check_forks) {5844print"<td></td>\n";5845}5846print"<td colspan=\"5\">$extra</td>\n".5847"</tr>\n";5848}5849print"</table>\n";5850}58515852sub git_log_body {5853# uses global variable $project5854my($commitlist,$from,$to,$refs,$extra) =@_;58555856$from=0unlessdefined$from;5857$to=$#{$commitlist}if(!defined$to||$#{$commitlist} <$to);58585859for(my$i=0;$i<=$to;$i++) {5860my%co= %{$commitlist->[$i]};5861next if!%co;5862my$commit=$co{'id'};5863my$ref= format_ref_marker($refs,$commit);5864 git_print_header_div('commit',5865"<span class=\"age\">$co{'age_string'}</span>".5866 esc_html($co{'title'}) .$ref,5867$commit);5868print"<div class=\"title_text\">\n".5869"<div class=\"log_link\">\n".5870$cgi->a({-href => href(action=>"commit", hash=>$commit)},"commit") .5871" | ".5872$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)},"commitdiff") .5873" | ".5874$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)},"tree") .5875"<br/>\n".5876"</div>\n";5877 git_print_authorship(\%co, -tag =>'span');5878print"<br/>\n</div>\n";58795880print"<div class=\"log_body\">\n";5881 git_print_log($co{'comment'}, -final_empty_line=>1);5882print"</div>\n";5883}5884if($extra) {5885print"<div class=\"page_nav\">\n";5886print"$extra\n";5887print"</div>\n";5888}5889}58905891sub git_shortlog_body {5892# uses global variable $project5893my($commitlist,$from,$to,$refs,$extra) =@_;58945895$from=0unlessdefined$from;5896$to=$#{$commitlist}if(!defined$to||$#{$commitlist} <$to);58975898print"<table class=\"shortlog\">\n";5899my$alternate=1;5900for(my$i=$from;$i<=$to;$i++) {5901my%co= %{$commitlist->[$i]};5902my$commit=$co{'id'};5903my$ref= format_ref_marker($refs,$commit);5904if($alternate) {5905print"<tr class=\"dark\">\n";5906}else{5907print"<tr class=\"light\">\n";5908}5909$alternate^=1;5910# git_summary() used print "<td><i>$co{'age_string'}</i></td>\n" .5911print"<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n".5912 format_author_html('td', \%co,10) ."<td>";5913print format_subject_html($co{'title'},$co{'title_short'},5914 href(action=>"commit", hash=>$commit),$ref);5915print"</td>\n".5916"<td class=\"link\">".5917$cgi->a({-href => href(action=>"commit", hash=>$commit)},"commit") ." | ".5918$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)},"commitdiff") ." | ".5919$cgi->a({-href => href(action=>"tree", hash=>$commit, hash_base=>$commit)},"tree");5920my$snapshot_links= format_snapshot_links($commit);5921if(defined$snapshot_links) {5922print" | ".$snapshot_links;5923}5924print"</td>\n".5925"</tr>\n";5926}5927if(defined$extra) {5928print"<tr>\n".5929"<td colspan=\"4\">$extra</td>\n".5930"</tr>\n";5931}5932print"</table>\n";5933}59345935sub git_history_body {5936# Warning: assumes constant type (blob or tree) during history5937my($commitlist,$from,$to,$refs,$extra,5938$file_name,$file_hash,$ftype) =@_;59395940$from=0unlessdefined$from;5941$to=$#{$commitlist}unless(defined$to&&$to<=$#{$commitlist});59425943print"<table class=\"history\">\n";5944my$alternate=1;5945for(my$i=$from;$i<=$to;$i++) {5946my%co= %{$commitlist->[$i]};5947if(!%co) {5948next;5949}5950my$commit=$co{'id'};59515952my$ref= format_ref_marker($refs,$commit);59535954if($alternate) {5955print"<tr class=\"dark\">\n";5956}else{5957print"<tr class=\"light\">\n";5958}5959$alternate^=1;5960print"<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n".5961# shortlog: format_author_html('td', \%co, 10)5962 format_author_html('td', \%co,15,3) ."<td>";5963# originally git_history used chop_str($co{'title'}, 50)5964print format_subject_html($co{'title'},$co{'title_short'},5965 href(action=>"commit", hash=>$commit),$ref);5966print"</td>\n".5967"<td class=\"link\">".5968$cgi->a({-href => href(action=>$ftype, hash_base=>$commit, file_name=>$file_name)},$ftype) ." | ".5969$cgi->a({-href => href(action=>"commitdiff", hash=>$commit)},"commitdiff");59705971if($ftypeeq'blob') {5972my$blob_current=$file_hash;5973my$blob_parent= git_get_hash_by_path($commit,$file_name);5974if(defined$blob_current&&defined$blob_parent&&5975$blob_currentne$blob_parent) {5976print" | ".5977$cgi->a({-href => href(action=>"blobdiff",5978 hash=>$blob_current, hash_parent=>$blob_parent,5979 hash_base=>$hash_base, hash_parent_base=>$commit,5980 file_name=>$file_name)},5981"diff to current");5982}5983}5984print"</td>\n".5985"</tr>\n";5986}5987if(defined$extra) {5988print"<tr>\n".5989"<td colspan=\"4\">$extra</td>\n".5990"</tr>\n";5991}5992print"</table>\n";5993}59945995sub git_tags_body {5996# uses global variable $project5997my($taglist,$from,$to,$extra) =@_;5998$from=0unlessdefined$from;5999$to=$#{$taglist}if(!defined$to||$#{$taglist} <$to);60006001print"<table class=\"tags\">\n";6002my$alternate=1;6003for(my$i=$from;$i<=$to;$i++) {6004my$entry=$taglist->[$i];6005my%tag=%$entry;6006my$comment=$tag{'subject'};6007my$comment_short;6008if(defined$comment) {6009$comment_short= chop_str($comment,30,5);6010}6011if($alternate) {6012print"<tr class=\"dark\">\n";6013}else{6014print"<tr class=\"light\">\n";6015}6016$alternate^=1;6017if(defined$tag{'age'}) {6018print"<td><i>$tag{'age'}</i></td>\n";6019}else{6020print"<td></td>\n";6021}6022print"<td>".6023$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'}),6024-class=>"list name"}, esc_html($tag{'name'})) .6025"</td>\n".6026"<td>";6027if(defined$comment) {6028print format_subject_html($comment,$comment_short,6029 href(action=>"tag", hash=>$tag{'id'}));6030}6031print"</td>\n".6032"<td class=\"selflink\">";6033if($tag{'type'}eq"tag") {6034print$cgi->a({-href => href(action=>"tag", hash=>$tag{'id'})},"tag");6035}else{6036print" ";6037}6038print"</td>\n".6039"<td class=\"link\">"." | ".6040$cgi->a({-href => href(action=>$tag{'reftype'}, hash=>$tag{'refid'})},$tag{'reftype'});6041if($tag{'reftype'}eq"commit") {6042print" | ".$cgi->a({-href => href(action=>"shortlog", hash=>$tag{'fullname'})},"shortlog") .6043" | ".$cgi->a({-href => href(action=>"log", hash=>$tag{'fullname'})},"log");6044}elsif($tag{'reftype'}eq"blob") {6045print" | ".$cgi->a({-href => href(action=>"blob_plain", hash=>$tag{'refid'})},"raw");6046}6047print"</td>\n".6048"</tr>";6049}6050if(defined$extra) {6051print"<tr>\n".6052"<td colspan=\"5\">$extra</td>\n".6053"</tr>\n";6054}6055print"</table>\n";6056}60576058sub git_heads_body {6059# uses global variable $project6060my($headlist,$head_at,$from,$to,$extra) =@_;6061$from=0unlessdefined$from;6062$to=$#{$headlist}if(!defined$to||$#{$headlist} <$to);60636064print"<table class=\"heads\">\n";6065my$alternate=1;6066for(my$i=$from;$i<=$to;$i++) {6067my$entry=$headlist->[$i];6068my%ref=%$entry;6069my$curr=defined$head_at&&$ref{'id'}eq$head_at;6070if($alternate) {6071print"<tr class=\"dark\">\n";6072}else{6073print"<tr class=\"light\">\n";6074}6075$alternate^=1;6076print"<td><i>$ref{'age'}</i></td>\n".6077($curr?"<td class=\"current_head\">":"<td>") .6078$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'}),6079-class=>"list name"},esc_html($ref{'name'})) .6080"</td>\n".6081"<td class=\"link\">".6082$cgi->a({-href => href(action=>"shortlog", hash=>$ref{'fullname'})},"shortlog") ." | ".6083$cgi->a({-href => href(action=>"log", hash=>$ref{'fullname'})},"log") ." | ".6084$cgi->a({-href => href(action=>"tree", hash=>$ref{'fullname'}, hash_base=>$ref{'fullname'})},"tree") .6085"</td>\n".6086"</tr>";6087}6088if(defined$extra) {6089print"<tr>\n".6090"<td colspan=\"3\">$extra</td>\n".6091"</tr>\n";6092}6093print"</table>\n";6094}60956096# Display a single remote block6097sub git_remote_block {6098my($remote,$rdata,$limit,$head) =@_;60996100my$heads=$rdata->{'heads'};6101my$fetch=$rdata->{'fetch'};6102my$push=$rdata->{'push'};61036104my$urls_table="<table class=\"projects_list\">\n";61056106if(defined$fetch) {6107if($fetcheq$push) {6108$urls_table.= format_repo_url("URL",$fetch);6109}else{6110$urls_table.= format_repo_url("Fetch URL",$fetch);6111$urls_table.= format_repo_url("Push URL",$push)ifdefined$push;6112}6113}elsif(defined$push) {6114$urls_table.= format_repo_url("Push URL",$push);6115}else{6116$urls_table.= format_repo_url("","No remote URL");6117}61186119$urls_table.="</table>\n";61206121my$dots;6122if(defined$limit&&$limit<@$heads) {6123$dots=$cgi->a({-href => href(action=>"remotes", hash=>$remote)},"...");6124}61256126print$urls_table;6127 git_heads_body($heads,$head,0,$limit,$dots);6128}61296130# Display a list of remote names with the respective fetch and push URLs6131sub git_remotes_list {6132my($remotedata,$limit) =@_;6133print"<table class=\"heads\">\n";6134my$alternate=1;6135my@remotes=sort keys%$remotedata;61366137my$limited=$limit&&$limit<@remotes;61386139$#remotes=$limit-1if$limited;61406141while(my$remote=shift@remotes) {6142my$rdata=$remotedata->{$remote};6143my$fetch=$rdata->{'fetch'};6144my$push=$rdata->{'push'};6145if($alternate) {6146print"<tr class=\"dark\">\n";6147}else{6148print"<tr class=\"light\">\n";6149}6150$alternate^=1;6151print"<td>".6152$cgi->a({-href=> href(action=>'remotes', hash=>$remote),6153-class=>"list name"},esc_html($remote)) .6154"</td>";6155print"<td class=\"link\">".6156(defined$fetch?$cgi->a({-href=>$fetch},"fetch") :"fetch") .6157" | ".6158(defined$push?$cgi->a({-href=>$push},"push") :"push") .6159"</td>";61606161print"</tr>\n";6162}61636164if($limited) {6165print"<tr>\n".6166"<td colspan=\"3\">".6167$cgi->a({-href => href(action=>"remotes")},"...") .6168"</td>\n"."</tr>\n";6169}61706171print"</table>";6172}61736174# Display remote heads grouped by remote, unless there are too many6175# remotes, in which case we only display the remote names6176sub git_remotes_body {6177my($remotedata,$limit,$head) =@_;6178if($limitand$limit<keys%$remotedata) {6179 git_remotes_list($remotedata,$limit);6180}else{6181 fill_remote_heads($remotedata);6182while(my($remote,$rdata) =each%$remotedata) {6183 git_print_section({-class=>"remote", -id=>$remote},6184["remotes",$remote,$remote],sub{6185 git_remote_block($remote,$rdata,$limit,$head);6186});6187}6188}6189}61906191sub git_search_message {6192my%co=@_;61936194my$greptype;6195if($searchtypeeq'commit') {6196$greptype="--grep=";6197}elsif($searchtypeeq'author') {6198$greptype="--author=";6199}elsif($searchtypeeq'committer') {6200$greptype="--committer=";6201}6202$greptype.=$searchtext;6203my@commitlist= parse_commits($hash,101, (100*$page),undef,6204$greptype,'--regexp-ignore-case',6205$search_use_regexp?'--extended-regexp':'--fixed-strings');62066207my$paging_nav='';6208if($page>0) {6209$paging_nav.=6210$cgi->a({-href => href(-replay=>1, page=>undef)},6211"first") .6212" ⋅ ".6213$cgi->a({-href => href(-replay=>1, page=>$page-1),6214-accesskey =>"p", -title =>"Alt-p"},"prev");6215}else{6216$paging_nav.="first ⋅ prev";6217}6218my$next_link='';6219if($#commitlist>=100) {6220$next_link=6221$cgi->a({-href => href(-replay=>1, page=>$page+1),6222-accesskey =>"n", -title =>"Alt-n"},"next");6223$paging_nav.=" ⋅$next_link";6224}else{6225$paging_nav.=" ⋅ next";6226}62276228 git_header_html();62296230 git_print_page_nav('','',$hash,$co{'tree'},$hash,$paging_nav);6231 git_print_header_div('commit', esc_html($co{'title'}),$hash);6232if($page==0&& !@commitlist) {6233print"<p>No match.</p>\n";6234}else{6235 git_search_grep_body(\@commitlist,0,99,$next_link);6236}62376238 git_footer_html();6239}62406241sub git_search_changes {6242my%co=@_;62436244local$/="\n";6245open my$fd,'-|', git_cmd(),'--no-pager','log',@diff_opts,6246'--pretty=format:%H','--no-abbrev','--raw',"-S$searchtext",6247($search_use_regexp?'--pickaxe-regex': ())6248or die_error(500,"Open git-log failed");62496250 git_header_html();62516252 git_print_page_nav('','',$hash,$co{'tree'},$hash);6253 git_print_header_div('commit', esc_html($co{'title'}),$hash);62546255print"<table class=\"pickaxe search\">\n";6256my$alternate=1;6257undef%co;6258my@files;6259while(my$line= <$fd>) {6260chomp$line;6261next unless$line;62626263my%set= parse_difftree_raw_line($line);6264if(defined$set{'commit'}) {6265# finish previous commit6266if(%co) {6267print"</td>\n".6268"<td class=\"link\">".6269$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},6270"commit") .6271" | ".6272$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},6273 hash_base=>$co{'id'})},6274"tree") .6275"</td>\n".6276"</tr>\n";6277}62786279if($alternate) {6280print"<tr class=\"dark\">\n";6281}else{6282print"<tr class=\"light\">\n";6283}6284$alternate^=1;6285%co= parse_commit($set{'commit'});6286my$author= chop_and_escape_str($co{'author_name'},15,5);6287print"<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n".6288"<td><i>$author</i></td>\n".6289"<td>".6290$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),6291-class=>"list subject"},6292 chop_and_escape_str($co{'title'},50) ."<br/>");6293}elsif(defined$set{'to_id'}) {6294next if($set{'to_id'} =~m/^0{40}$/);62956296print$cgi->a({-href => href(action=>"blob", hash_base=>$co{'id'},6297 hash=>$set{'to_id'}, file_name=>$set{'to_file'}),6298-class=>"list"},6299"<span class=\"match\">". esc_path($set{'file'}) ."</span>") .6300"<br/>\n";6301}6302}6303close$fd;63046305# finish last commit (warning: repetition!)6306if(%co) {6307print"</td>\n".6308"<td class=\"link\">".6309$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},6310"commit") .6311" | ".6312$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'},6313 hash_base=>$co{'id'})},6314"tree") .6315"</td>\n".6316"</tr>\n";6317}63186319print"</table>\n";63206321 git_footer_html();6322}63236324sub git_search_files {6325my%co=@_;63266327local$/="\n";6328open my$fd,"-|", git_cmd(),'grep','-n','-z',6329$search_use_regexp? ('-E','-i') :'-F',6330$searchtext,$co{'tree'}6331or die_error(500,"Open git-grep failed");63326333 git_header_html();63346335 git_print_page_nav('','',$hash,$co{'tree'},$hash);6336 git_print_header_div('commit', esc_html($co{'title'}),$hash);63376338print"<table class=\"grep_search\">\n";6339my$alternate=1;6340my$matches=0;6341my$lastfile='';6342my$file_href;6343while(my$line= <$fd>) {6344chomp$line;6345my($file,$lno,$ltext,$binary);6346last if($matches++>1000);6347if($line=~/^Binary file (.+) matches$/) {6348$file=$1;6349$binary=1;6350}else{6351($file,$lno,$ltext) =split(/\0/,$line,3);6352$file=~s/^$co{'tree'}://;6353}6354if($filene$lastfile) {6355$lastfileand print"</td></tr>\n";6356if($alternate++) {6357print"<tr class=\"dark\">\n";6358}else{6359print"<tr class=\"light\">\n";6360}6361$file_href= href(action=>"blob", hash_base=>$co{'id'},6362 file_name=>$file);6363print"<td class=\"list\">".6364$cgi->a({-href =>$file_href, -class=>"list"}, esc_path($file));6365print"</td><td>\n";6366$lastfile=$file;6367}6368if($binary) {6369print"<div class=\"binary\">Binary file</div>\n";6370}else{6371$ltext= untabify($ltext);6372if($ltext=~m/^(.*)($search_regexp)(.*)$/i) {6373$ltext= esc_html($1, -nbsp=>1);6374$ltext.='<span class="match">';6375$ltext.= esc_html($2, -nbsp=>1);6376$ltext.='</span>';6377$ltext.= esc_html($3, -nbsp=>1);6378}else{6379$ltext= esc_html($ltext, -nbsp=>1);6380}6381print"<div class=\"pre\">".6382$cgi->a({-href =>$file_href.'#l'.$lno,6383-class=>"linenr"},sprintf('%4i',$lno)) .6384' '.$ltext."</div>\n";6385}6386}6387if($lastfile) {6388print"</td></tr>\n";6389if($matches>1000) {6390print"<div class=\"diff nodifferences\">Too many matches, listing trimmed</div>\n";6391}6392}else{6393print"<div class=\"diff nodifferences\">No matches found</div>\n";6394}6395close$fd;63966397print"</table>\n";63986399 git_footer_html();6400}64016402sub git_search_grep_body {6403my($commitlist,$from,$to,$extra) =@_;6404$from=0unlessdefined$from;6405$to=$#{$commitlist}if(!defined$to||$#{$commitlist} <$to);64066407print"<table class=\"commit_search\">\n";6408my$alternate=1;6409for(my$i=$from;$i<=$to;$i++) {6410my%co= %{$commitlist->[$i]};6411if(!%co) {6412next;6413}6414my$commit=$co{'id'};6415if($alternate) {6416print"<tr class=\"dark\">\n";6417}else{6418print"<tr class=\"light\">\n";6419}6420$alternate^=1;6421print"<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n".6422 format_author_html('td', \%co,15,5) .6423"<td>".6424$cgi->a({-href => href(action=>"commit", hash=>$co{'id'}),6425-class=>"list subject"},6426 chop_and_escape_str($co{'title'},50) ."<br/>");6427my$comment=$co{'comment'};6428foreachmy$line(@$comment) {6429if($line=~m/^(.*?)($search_regexp)(.*)$/i) {6430my($lead,$match,$trail) = ($1,$2,$3);6431$match= chop_str($match,70,5,'center');6432my$contextlen=int((80-length($match))/2);6433$contextlen=30if($contextlen>30);6434$lead= chop_str($lead,$contextlen,10,'left');6435$trail= chop_str($trail,$contextlen,10,'right');64366437$lead= esc_html($lead);6438$match= esc_html($match);6439$trail= esc_html($trail);64406441print"$lead<span class=\"match\">$match</span>$trail<br />";6442}6443}6444print"</td>\n".6445"<td class=\"link\">".6446$cgi->a({-href => href(action=>"commit", hash=>$co{'id'})},"commit") .6447" | ".6448$cgi->a({-href => href(action=>"commitdiff", hash=>$co{'id'})},"commitdiff") .6449" | ".6450$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$co{'id'})},"tree");6451print"</td>\n".6452"</tr>\n";6453}6454if(defined$extra) {6455print"<tr>\n".6456"<td colspan=\"3\">$extra</td>\n".6457"</tr>\n";6458}6459print"</table>\n";6460}64616462## ======================================================================6463## ======================================================================6464## actions64656466sub git_project_list {6467my$order=$input_params{'order'};6468if(defined$order&&$order!~m/none|project|descr|owner|age/) {6469 die_error(400,"Unknown order parameter");6470}64716472my@list= git_get_projects_list($project_filter,$strict_export);6473if(!@list) {6474 die_error(404,"No projects found");6475}64766477 git_header_html();6478if(defined$home_text&& -f $home_text) {6479print"<div class=\"index_include\">\n";6480 insert_file($home_text);6481print"</div>\n";6482}64836484 git_project_search_form($searchtext,$search_use_regexp);6485 git_project_list_body(\@list,$order);6486 git_footer_html();6487}64886489sub git_forks {6490my$order=$input_params{'order'};6491if(defined$order&&$order!~m/none|project|descr|owner|age/) {6492 die_error(400,"Unknown order parameter");6493}64946495my$filter=$project;6496$filter=~s/\.git$//;6497my@list= git_get_projects_list($filter);6498if(!@list) {6499 die_error(404,"No forks found");6500}65016502 git_header_html();6503 git_print_page_nav('','');6504 git_print_header_div('summary',"$projectforks");6505 git_project_list_body(\@list,$order);6506 git_footer_html();6507}65086509sub git_project_index {6510my@projects= git_get_projects_list($project_filter,$strict_export);6511if(!@projects) {6512 die_error(404,"No projects found");6513}65146515print$cgi->header(6516-type =>'text/plain',6517-charset =>'utf-8',6518-content_disposition =>'inline; filename="index.aux"');65196520foreachmy$pr(@projects) {6521if(!exists$pr->{'owner'}) {6522$pr->{'owner'} = git_get_project_owner("$pr->{'path'}");6523}65246525my($path,$owner) = ($pr->{'path'},$pr->{'owner'});6526# quote as in CGI::Util::encode, but keep the slash, and use '+' for ' '6527$path=~s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X",ord($1))/eg;6528$owner=~s/([^a-zA-Z0-9_.\-\/ ])/sprintf("%%%02X",ord($1))/eg;6529$path=~s/ /\+/g;6530$owner=~s/ /\+/g;65316532print"$path$owner\n";6533}6534}65356536sub git_summary {6537my$descr= git_get_project_description($project) ||"none";6538my%co= parse_commit("HEAD");6539my%cd=%co? parse_date($co{'committer_epoch'},$co{'committer_tz'}) : ();6540my$head=$co{'id'};6541my$remote_heads= gitweb_check_feature('remote_heads');65426543my$owner= git_get_project_owner($project);65446545my$refs= git_get_references();6546# These get_*_list functions return one more to allow us to see if6547# there are more ...6548my@taglist= git_get_tags_list(16);6549my@headlist= git_get_heads_list(16);6550my%remotedata=$remote_heads? git_get_remotes_list() : ();6551my@forklist;6552my$check_forks= gitweb_check_feature('forks');65536554if($check_forks) {6555# find forks of a project6556my$filter=$project;6557$filter=~s/\.git$//;6558@forklist= git_get_projects_list($filter);6559# filter out forks of forks6560@forklist= filter_forks_from_projects_list(\@forklist)6561if(@forklist);6562}65636564 git_header_html();6565 git_print_page_nav('summary','',$head);65666567print"<div class=\"title\"> </div>\n";6568print"<table class=\"projects_list\">\n".6569"<tr id=\"metadata_desc\"><td>description</td><td>". esc_html($descr) ."</td></tr>\n";6570if($ownerand not$omit_owner) {6571print"<tr id=\"metadata_owner\"><td>owner</td><td>". esc_html($owner) ."</td></tr>\n";6572}6573if(defined$cd{'rfc2822'}) {6574print"<tr id=\"metadata_lchange\"><td>last change</td>".6575"<td>".format_timestamp_html(\%cd)."</td></tr>\n";6576}65776578# use per project git URL list in $projectroot/$project/cloneurl6579# or make project git URL from git base URL and project name6580my$url_tag="URL";6581my@url_list= git_get_project_url_list($project);6582@url_list=map{"$_/$project"}@git_base_url_listunless@url_list;6583foreachmy$git_url(@url_list) {6584next unless$git_url;6585print format_repo_url($url_tag,$git_url);6586$url_tag="";6587}65886589# Tag cloud6590my$show_ctags= gitweb_check_feature('ctags');6591if($show_ctags) {6592my$ctags= git_get_project_ctags($project);6593if(%$ctags) {6594# without ability to add tags, don't show if there are none6595my$cloud= git_populate_project_tagcloud($ctags);6596print"<tr id=\"metadata_ctags\">".6597"<td>content tags</td>".6598"<td>".git_show_project_tagcloud($cloud,48)."</td>".6599"</tr>\n";6600}6601}66026603print"</table>\n";66046605# If XSS prevention is on, we don't include README.html.6606# TODO: Allow a readme in some safe format.6607if(!$prevent_xss&& -s "$projectroot/$project/README.html") {6608print"<div class=\"title\">readme</div>\n".6609"<div class=\"readme\">\n";6610 insert_file("$projectroot/$project/README.html");6611print"\n</div>\n";# class="readme"6612}66136614# we need to request one more than 16 (0..15) to check if6615# those 16 are all6616my@commitlist=$head? parse_commits($head,17) : ();6617if(@commitlist) {6618 git_print_header_div('shortlog');6619 git_shortlog_body(\@commitlist,0,15,$refs,6620$#commitlist<=15?undef:6621$cgi->a({-href => href(action=>"shortlog")},"..."));6622}66236624if(@taglist) {6625 git_print_header_div('tags');6626 git_tags_body(\@taglist,0,15,6627$#taglist<=15?undef:6628$cgi->a({-href => href(action=>"tags")},"..."));6629}66306631if(@headlist) {6632 git_print_header_div('heads');6633 git_heads_body(\@headlist,$head,0,15,6634$#headlist<=15?undef:6635$cgi->a({-href => href(action=>"heads")},"..."));6636}66376638if(%remotedata) {6639 git_print_header_div('remotes');6640 git_remotes_body(\%remotedata,15,$head);6641}66426643if(@forklist) {6644 git_print_header_div('forks');6645 git_project_list_body(\@forklist,'age',0,15,6646$#forklist<=15?undef:6647$cgi->a({-href => href(action=>"forks")},"..."),6648'no_header');6649}66506651 git_footer_html();6652}66536654sub git_tag {6655my%tag= parse_tag($hash);66566657if(!%tag) {6658 die_error(404,"Unknown tag object");6659}66606661my$head= git_get_head_hash($project);6662 git_header_html();6663 git_print_page_nav('','',$head,undef,$head);6664 git_print_header_div('commit', esc_html($tag{'name'}),$hash);6665print"<div class=\"title_text\">\n".6666"<table class=\"object_header\">\n".6667"<tr>\n".6668"<td>object</td>\n".6669"<td>".$cgi->a({-class=>"list", -href => href(action=>$tag{'type'}, hash=>$tag{'object'})},6670$tag{'object'}) ."</td>\n".6671"<td class=\"link\">".$cgi->a({-href => href(action=>$tag{'type'}, hash=>$tag{'object'})},6672$tag{'type'}) ."</td>\n".6673"</tr>\n";6674if(defined($tag{'author'})) {6675 git_print_authorship_rows(\%tag,'author');6676}6677print"</table>\n\n".6678"</div>\n";6679print"<div class=\"page_body\">";6680my$comment=$tag{'comment'};6681foreachmy$line(@$comment) {6682chomp$line;6683print esc_html($line, -nbsp=>1) ."<br/>\n";6684}6685print"</div>\n";6686 git_footer_html();6687}66886689sub git_blame_common {6690my$format=shift||'porcelain';6691if($formateq'porcelain'&&$input_params{'javascript'}) {6692$format='incremental';6693$action='blame_incremental';# for page title etc6694}66956696# permissions6697 gitweb_check_feature('blame')6698or die_error(403,"Blame view not allowed");66996700# error checking6701 die_error(400,"No file name given")unless$file_name;6702$hash_base||= git_get_head_hash($project);6703 die_error(404,"Couldn't find base commit")unless$hash_base;6704my%co= parse_commit($hash_base)6705or die_error(404,"Commit not found");6706my$ftype="blob";6707if(!defined$hash) {6708$hash= git_get_hash_by_path($hash_base,$file_name,"blob")6709or die_error(404,"Error looking up file");6710}else{6711$ftype= git_get_type($hash);6712if($ftype!~"blob") {6713 die_error(400,"Object is not a blob");6714}6715}67166717my$fd;6718if($formateq'incremental') {6719# get file contents (as base)6720open$fd,"-|", git_cmd(),'cat-file','blob',$hash6721or die_error(500,"Open git-cat-file failed");6722}elsif($formateq'data') {6723# run git-blame --incremental6724open$fd,"-|", git_cmd(),"blame","--incremental",6725$hash_base,"--",$file_name6726or die_error(500,"Open git-blame --incremental failed");6727}else{6728# run git-blame --porcelain6729open$fd,"-|", git_cmd(),"blame",'-p',6730$hash_base,'--',$file_name6731or die_error(500,"Open git-blame --porcelain failed");6732}6733binmode$fd,':utf8';67346735# incremental blame data returns early6736if($formateq'data') {6737print$cgi->header(6738-type=>"text/plain", -charset =>"utf-8",6739-status=>"200 OK");6740local$| =1;# output autoflush6741while(my$line= <$fd>) {6742print to_utf8($line);6743}6744close$fd6745or print"ERROR$!\n";67466747print'END';6748if(defined$t0&& gitweb_check_feature('timed')) {6749print' '.6750 tv_interval($t0, [ gettimeofday() ]).6751' '.$number_of_git_cmds;6752}6753print"\n";67546755return;6756}67576758# page header6759 git_header_html();6760my$formats_nav=6761$cgi->a({-href => href(action=>"blob", -replay=>1)},6762"blob") .6763" | ";6764if($formateq'incremental') {6765$formats_nav.=6766$cgi->a({-href => href(action=>"blame", javascript=>0, -replay=>1)},6767"blame") ." (non-incremental)";6768}else{6769$formats_nav.=6770$cgi->a({-href => href(action=>"blame_incremental", -replay=>1)},6771"blame") ." (incremental)";6772}6773$formats_nav.=6774" | ".6775$cgi->a({-href => href(action=>"history", -replay=>1)},6776"history") .6777" | ".6778$cgi->a({-href => href(action=>$action, file_name=>$file_name)},6779"HEAD");6780 git_print_page_nav('','',$hash_base,$co{'tree'},$hash_base,$formats_nav);6781 git_print_header_div('commit', esc_html($co{'title'}),$hash_base);6782 git_print_page_path($file_name,$ftype,$hash_base);67836784# page body6785if($formateq'incremental') {6786print"<noscript>\n<div class=\"error\"><center><b>\n".6787"This page requires JavaScript to run.\nUse ".6788$cgi->a({-href => href(action=>'blame',javascript=>0,-replay=>1)},6789'this page').6790" instead.\n".6791"</b></center></div>\n</noscript>\n";67926793print qq!<div id="progress_bar" style="width: 100%; background-color: yellow"></div>\n!;6794}67956796print qq!<div class="page_body">\n!;6797print qq!<div id="progress_info">.../ ...</div>\n!6798if($formateq'incremental');6799print qq!<table id="blame_table"class="blame" width="100%">\n!.6800#qq!<col width="5.5em" /><col width="2.5em" /><col width="*" />\n!.6801 qq!<thead>\n!.6802 qq!<tr><th>Commit</th><th>Line</th><th>Data</th></tr>\n!.6803 qq!</thead>\n!.6804 qq!<tbody>\n!;68056806my@rev_color=qw(light dark);6807my$num_colors=scalar(@rev_color);6808my$current_color=0;68096810if($formateq'incremental') {6811my$color_class=$rev_color[$current_color];68126813#contents of a file6814my$linenr=0;6815 LINE:6816while(my$line= <$fd>) {6817chomp$line;6818$linenr++;68196820print qq!<tr id="l$linenr"class="$color_class">!.6821 qq!<td class="sha1"><a href=""> </a></td>!.6822 qq!<td class="linenr">!.6823 qq!<a class="linenr" href="">$linenr</a></td>!;6824print qq!<td class="pre">! . esc_html($line) ."</td>\n";6825print qq!</tr>\n!;6826}68276828}else{# porcelain, i.e. ordinary blame6829my%metainfo= ();# saves information about commits68306831# blame data6832 LINE:6833while(my$line= <$fd>) {6834chomp$line;6835# the header: <SHA-1> <src lineno> <dst lineno> [<lines in group>]6836# no <lines in group> for subsequent lines in group of lines6837my($full_rev,$orig_lineno,$lineno,$group_size) =6838($line=~/^([0-9a-f]{40}) (\d+) (\d+)(?: (\d+))?$/);6839if(!exists$metainfo{$full_rev}) {6840$metainfo{$full_rev} = {'nprevious'=>0};6841}6842my$meta=$metainfo{$full_rev};6843my$data;6844while($data= <$fd>) {6845chomp$data;6846last if($data=~s/^\t//);# contents of line6847if($data=~/^(\S+)(?: (.*))?$/) {6848$meta->{$1} =$2unlessexists$meta->{$1};6849}6850if($data=~/^previous /) {6851$meta->{'nprevious'}++;6852}6853}6854my$short_rev=substr($full_rev,0,8);6855my$author=$meta->{'author'};6856my%date=6857 parse_date($meta->{'author-time'},$meta->{'author-tz'});6858my$date=$date{'iso-tz'};6859if($group_size) {6860$current_color= ($current_color+1) %$num_colors;6861}6862my$tr_class=$rev_color[$current_color];6863$tr_class.=' boundary'if(exists$meta->{'boundary'});6864$tr_class.=' no-previous'if($meta->{'nprevious'} ==0);6865$tr_class.=' multiple-previous'if($meta->{'nprevious'} >1);6866print"<tr id=\"l$lineno\"class=\"$tr_class\">\n";6867if($group_size) {6868print"<td class=\"sha1\"";6869print" title=\"". esc_html($author) .",$date\"";6870print" rowspan=\"$group_size\""if($group_size>1);6871print">";6872print$cgi->a({-href => href(action=>"commit",6873 hash=>$full_rev,6874 file_name=>$file_name)},6875 esc_html($short_rev));6876if($group_size>=2) {6877my@author_initials= ($author=~/\b([[:upper:]])\B/g);6878if(@author_initials) {6879print"<br />".6880 esc_html(join('',@author_initials));6881# or join('.', ...)6882}6883}6884print"</td>\n";6885}6886# 'previous' <sha1 of parent commit> <filename at commit>6887if(exists$meta->{'previous'} &&6888$meta->{'previous'} =~/^([a-fA-F0-9]{40}) (.*)$/) {6889$meta->{'parent'} =$1;6890$meta->{'file_parent'} = unquote($2);6891}6892my$linenr_commit=6893exists($meta->{'parent'}) ?6894$meta->{'parent'} :$full_rev;6895my$linenr_filename=6896exists($meta->{'file_parent'}) ?6897$meta->{'file_parent'} : unquote($meta->{'filename'});6898my$blamed= href(action =>'blame',6899 file_name =>$linenr_filename,6900 hash_base =>$linenr_commit);6901print"<td class=\"linenr\">";6902print$cgi->a({ -href =>"$blamed#l$orig_lineno",6903-class=>"linenr"},6904 esc_html($lineno));6905print"</td>";6906print"<td class=\"pre\">". esc_html($data) ."</td>\n";6907print"</tr>\n";6908}# end while69096910}69116912# footer6913print"</tbody>\n".6914"</table>\n";# class="blame"6915print"</div>\n";# class="blame_body"6916close$fd6917or print"Reading blob failed\n";69186919 git_footer_html();6920}69216922sub git_blame {6923 git_blame_common();6924}69256926sub git_blame_incremental {6927 git_blame_common('incremental');6928}69296930sub git_blame_data {6931 git_blame_common('data');6932}69336934sub git_tags {6935my$head= git_get_head_hash($project);6936 git_header_html();6937 git_print_page_nav('','',$head,undef,$head,format_ref_views('tags'));6938 git_print_header_div('summary',$project);69396940my@tagslist= git_get_tags_list();6941if(@tagslist) {6942 git_tags_body(\@tagslist);6943}6944 git_footer_html();6945}69466947sub git_heads {6948my$head= git_get_head_hash($project);6949 git_header_html();6950 git_print_page_nav('','',$head,undef,$head,format_ref_views('heads'));6951 git_print_header_div('summary',$project);69526953my@headslist= git_get_heads_list();6954if(@headslist) {6955 git_heads_body(\@headslist,$head);6956}6957 git_footer_html();6958}69596960# used both for single remote view and for list of all the remotes6961sub git_remotes {6962 gitweb_check_feature('remote_heads')6963or die_error(403,"Remote heads view is disabled");69646965my$head= git_get_head_hash($project);6966my$remote=$input_params{'hash'};69676968my$remotedata= git_get_remotes_list($remote);6969 die_error(500,"Unable to get remote information")unlessdefined$remotedata;69706971unless(%$remotedata) {6972 die_error(404,defined$remote?6973"Remote$remotenot found":6974"No remotes found");6975}69766977 git_header_html(undef,undef, -action_extra =>$remote);6978 git_print_page_nav('','',$head,undef,$head,6979 format_ref_views($remote?'':'remotes'));69806981 fill_remote_heads($remotedata);6982if(defined$remote) {6983 git_print_header_div('remotes',"$remoteremote for$project");6984 git_remote_block($remote,$remotedata->{$remote},undef,$head);6985}else{6986 git_print_header_div('summary',"$projectremotes");6987 git_remotes_body($remotedata,undef,$head);6988}69896990 git_footer_html();6991}69926993sub git_blob_plain {6994my$type=shift;6995my$expires;69966997if(!defined$hash) {6998if(defined$file_name) {6999my$base=$hash_base|| git_get_head_hash($project);7000$hash= git_get_hash_by_path($base,$file_name,"blob")7001or die_error(404,"Cannot find file");7002}else{7003 die_error(400,"No file name defined");7004}7005}elsif($hash=~m/^[0-9a-fA-F]{40}$/) {7006# blobs defined by non-textual hash id's can be cached7007$expires="+1d";7008}70097010open my$fd,"-|", git_cmd(),"cat-file","blob",$hash7011or die_error(500,"Open git-cat-file blob '$hash' failed");70127013# content-type (can include charset)7014$type= blob_contenttype($fd,$file_name,$type);70157016# "save as" filename, even when no $file_name is given7017my$save_as="$hash";7018if(defined$file_name) {7019$save_as=$file_name;7020}elsif($type=~m/^text\//) {7021$save_as.='.txt';7022}70237024# With XSS prevention on, blobs of all types except a few known safe7025# ones are served with "Content-Disposition: attachment" to make sure7026# they don't run in our security domain. For certain image types,7027# blob view writes an <img> tag referring to blob_plain view, and we7028# want to be sure not to break that by serving the image as an7029# attachment (though Firefox 3 doesn't seem to care).7030my$sandbox=$prevent_xss&&7031$type!~m!^(?:text/[a-z]+|image/(?:gif|png|jpeg))(?:[ ;]|$)!;70327033# serve text/* as text/plain7034if($prevent_xss&&7035($type=~m!^text/[a-z]+\b(.*)$!||7036($type=~m!^[a-z]+/[a-z]\+xml\b(.*)$!&& -T $fd))) {7037my$rest=$1;7038$rest=defined$rest?$rest:'';7039$type="text/plain$rest";7040}70417042print$cgi->header(7043-type =>$type,7044-expires =>$expires,7045-content_disposition =>7046($sandbox?'attachment':'inline')7047.'; filename="'.$save_as.'"');7048local$/=undef;7049binmode STDOUT,':raw';7050print<$fd>;7051binmode STDOUT,':utf8';# as set at the beginning of gitweb.cgi7052close$fd;7053}70547055sub git_blob {7056my$expires;70577058if(!defined$hash) {7059if(defined$file_name) {7060my$base=$hash_base|| git_get_head_hash($project);7061$hash= git_get_hash_by_path($base,$file_name,"blob")7062or die_error(404,"Cannot find file");7063}else{7064 die_error(400,"No file name defined");7065}7066}elsif($hash=~m/^[0-9a-fA-F]{40}$/) {7067# blobs defined by non-textual hash id's can be cached7068$expires="+1d";7069}70707071my$have_blame= gitweb_check_feature('blame');7072open my$fd,"-|", git_cmd(),"cat-file","blob",$hash7073or die_error(500,"Couldn't cat$file_name,$hash");7074my$mimetype= blob_mimetype($fd,$file_name);7075# use 'blob_plain' (aka 'raw') view for files that cannot be displayed7076if($mimetype!~m!^(?:text/|image/(?:gif|png|jpeg)$)!&& -B $fd) {7077close$fd;7078return git_blob_plain($mimetype);7079}7080# we can have blame only for text/* mimetype7081$have_blame&&= ($mimetype=~m!^text/!);70827083my$highlight= gitweb_check_feature('highlight');7084my$syntax= guess_file_syntax($highlight,$file_name);7085$fd= run_highlighter($fd,$highlight,$syntax);70867087 git_header_html(undef,$expires);7088my$formats_nav='';7089if(defined$hash_base&& (my%co= parse_commit($hash_base))) {7090if(defined$file_name) {7091if($have_blame) {7092$formats_nav.=7093$cgi->a({-href => href(action=>"blame", -replay=>1)},7094"blame") .7095" | ";7096}7097$formats_nav.=7098$cgi->a({-href => href(action=>"history", -replay=>1)},7099"history") .7100" | ".7101$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},7102"raw") .7103" | ".7104$cgi->a({-href => href(action=>"blob",7105 hash_base=>"HEAD", file_name=>$file_name)},7106"HEAD");7107}else{7108$formats_nav.=7109$cgi->a({-href => href(action=>"blob_plain", -replay=>1)},7110"raw");7111}7112 git_print_page_nav('','',$hash_base,$co{'tree'},$hash_base,$formats_nav);7113 git_print_header_div('commit', esc_html($co{'title'}),$hash_base);7114}else{7115print"<div class=\"page_nav\">\n".7116"<br/><br/></div>\n".7117"<div class=\"title\">".esc_html($hash)."</div>\n";7118}7119 git_print_page_path($file_name,"blob",$hash_base);7120print"<div class=\"page_body\">\n";7121if($mimetype=~m!^image/!) {7122print qq!<img class="blob" type="!.esc_attr($mimetype).qq!"!;7123if($file_name) {7124print qq! alt="!.esc_attr($file_name).qq!" title="!.esc_attr($file_name).qq!"!;7125}7126print qq! src="! .7127 href(action=>"blob_plain", hash=>$hash,7128 hash_base=>$hash_base, file_name=>$file_name) .7129 qq!"/>\n!;7130}else{7131my$nr;7132while(my$line= <$fd>) {7133chomp$line;7134$nr++;7135$line= untabify($line);7136printf qq!<div class="pre"><a id="l%i" href="%s#l%i"class="linenr">%4i</a> %s</div>\n!,7137$nr, esc_attr(href(-replay =>1)),$nr,$nr,7138$highlight? sanitize($line) : esc_html($line, -nbsp=>1);7139}7140}7141close$fd7142or print"Reading blob failed.\n";7143print"</div>";7144 git_footer_html();7145}71467147sub git_tree {7148if(!defined$hash_base) {7149$hash_base="HEAD";7150}7151if(!defined$hash) {7152if(defined$file_name) {7153$hash= git_get_hash_by_path($hash_base,$file_name,"tree");7154}else{7155$hash=$hash_base;7156}7157}7158 die_error(404,"No such tree")unlessdefined($hash);71597160my$show_sizes= gitweb_check_feature('show-sizes');7161my$have_blame= gitweb_check_feature('blame');71627163my@entries= ();7164{7165local$/="\0";7166open my$fd,"-|", git_cmd(),"ls-tree",'-z',7167($show_sizes?'-l': ()),@extra_options,$hash7168or die_error(500,"Open git-ls-tree failed");7169@entries=map{chomp;$_} <$fd>;7170close$fd7171or die_error(404,"Reading tree failed");7172}71737174my$refs= git_get_references();7175my$ref= format_ref_marker($refs,$hash_base);7176 git_header_html();7177my$basedir='';7178if(defined$hash_base&& (my%co= parse_commit($hash_base))) {7179my@views_nav= ();7180if(defined$file_name) {7181push@views_nav,7182$cgi->a({-href => href(action=>"history", -replay=>1)},7183"history"),7184$cgi->a({-href => href(action=>"tree",7185 hash_base=>"HEAD", file_name=>$file_name)},7186"HEAD"),7187}7188my$snapshot_links= format_snapshot_links($hash);7189if(defined$snapshot_links) {7190# FIXME: Should be available when we have no hash base as well.7191push@views_nav,$snapshot_links;7192}7193 git_print_page_nav('tree','',$hash_base,undef,undef,7194join(' | ',@views_nav));7195 git_print_header_div('commit', esc_html($co{'title'}) .$ref,$hash_base);7196}else{7197undef$hash_base;7198print"<div class=\"page_nav\">\n";7199print"<br/><br/></div>\n";7200print"<div class=\"title\">".esc_html($hash)."</div>\n";7201}7202if(defined$file_name) {7203$basedir=$file_name;7204if($basedirne''&&substr($basedir, -1)ne'/') {7205$basedir.='/';7206}7207 git_print_page_path($file_name,'tree',$hash_base);7208}7209print"<div class=\"page_body\">\n";7210print"<table class=\"tree\">\n";7211my$alternate=1;7212# '..' (top directory) link if possible7213if(defined$hash_base&&7214defined$file_name&&$file_name=~m![^/]+$!) {7215if($alternate) {7216print"<tr class=\"dark\">\n";7217}else{7218print"<tr class=\"light\">\n";7219}7220$alternate^=1;72217222my$up=$file_name;7223$up=~s!/?[^/]+$!!;7224undef$upunless$up;7225# based on git_print_tree_entry7226print'<td class="mode">'. mode_str('040000') ."</td>\n";7227print'<td class="size"> </td>'."\n"if$show_sizes;7228print'<td class="list">';7229print$cgi->a({-href => href(action=>"tree",7230 hash_base=>$hash_base,7231 file_name=>$up)},7232"..");7233print"</td>\n";7234print"<td class=\"link\"></td>\n";72357236print"</tr>\n";7237}7238foreachmy$line(@entries) {7239my%t= parse_ls_tree_line($line, -z =>1, -l =>$show_sizes);72407241if($alternate) {7242print"<tr class=\"dark\">\n";7243}else{7244print"<tr class=\"light\">\n";7245}7246$alternate^=1;72477248 git_print_tree_entry(\%t,$basedir,$hash_base,$have_blame);72497250print"</tr>\n";7251}7252print"</table>\n".7253"</div>";7254 git_footer_html();7255}72567257sub sanitize_for_filename {7258my$name=shift;72597260$name=~s!/!-!g;7261$name=~s/[^[:alnum:]_.-]//g;72627263return$name;7264}72657266sub snapshot_name {7267my($project,$hash) =@_;72687269# path/to/project.git -> project7270# path/to/project/.git -> project7271my$name= to_utf8($project);7272$name=~ s,([^/])/*\.git$,$1,;7273$name= sanitize_for_filename(basename($name));72747275my$ver=$hash;7276if($hash=~/^[0-9a-fA-F]+$/) {7277# shorten SHA-1 hash7278my$full_hash= git_get_full_hash($project,$hash);7279if($full_hash=~/^$hash/&&length($hash) >7) {7280$ver= git_get_short_hash($project,$hash);7281}7282}elsif($hash=~m!^refs/tags/(.*)$!) {7283# tags don't need shortened SHA-1 hash7284$ver=$1;7285}else{7286# branches and other need shortened SHA-1 hash7287my$strip_refs=join'|',map{quotemeta} get_branch_refs();7288if($hash=~m!^refs/($strip_refs|remotes)/(.*)$!) {7289my$ref_dir= (defined$1) ?$1:'';7290$ver=$2;72917292$ref_dir= sanitize_for_filename($ref_dir);7293# for refs neither in heads nor remotes we want to7294# add a ref dir to archive name7295if($ref_dirne''and$ref_dirne'heads'and$ref_dirne'remotes') {7296$ver=$ref_dir.'-'.$ver;7297}7298}7299$ver.='-'. git_get_short_hash($project,$hash);7300}7301# special case of sanitization for filename - we change7302# slashes to dots instead of dashes7303# in case of hierarchical branch names7304$ver=~s!/!.!g;7305$ver=~s/[^[:alnum:]_.-]//g;73067307# name = project-version_string7308$name="$name-$ver";73097310returnwantarray? ($name,$name) :$name;7311}73127313sub exit_if_unmodified_since {7314my($latest_epoch) =@_;7315our$cgi;73167317my$if_modified=$cgi->http('IF_MODIFIED_SINCE');7318if(defined$if_modified) {7319my$since;7320if(eval{require HTTP::Date;1; }) {7321$since= HTTP::Date::str2time($if_modified);7322}elsif(eval{require Time::ParseDate;1; }) {7323$since= Time::ParseDate::parsedate($if_modified, GMT =>1);7324}7325if(defined$since&&$latest_epoch<=$since) {7326my%latest_date= parse_date($latest_epoch);7327print$cgi->header(7328-last_modified =>$latest_date{'rfc2822'},7329-status =>'304 Not Modified');7330goto DONE_GITWEB;7331}7332}7333}73347335sub git_snapshot {7336my$format=$input_params{'snapshot_format'};7337if(!@snapshot_fmts) {7338 die_error(403,"Snapshots not allowed");7339}7340# default to first supported snapshot format7341$format||=$snapshot_fmts[0];7342if($format!~m/^[a-z0-9]+$/) {7343 die_error(400,"Invalid snapshot format parameter");7344}elsif(!exists($known_snapshot_formats{$format})) {7345 die_error(400,"Unknown snapshot format");7346}elsif($known_snapshot_formats{$format}{'disabled'}) {7347 die_error(403,"Snapshot format not allowed");7348}elsif(!grep($_eq$format,@snapshot_fmts)) {7349 die_error(403,"Unsupported snapshot format");7350}73517352my$type= git_get_type("$hash^{}");7353if(!$type) {7354 die_error(404,'Object does not exist');7355}elsif($typeeq'blob') {7356 die_error(400,'Object is not a tree-ish');7357}73587359my($name,$prefix) = snapshot_name($project,$hash);7360my$filename="$name$known_snapshot_formats{$format}{'suffix'}";73617362my%co= parse_commit($hash);7363 exit_if_unmodified_since($co{'committer_epoch'})if%co;73647365my$cmd= quote_command(7366 git_cmd(),'archive',7367"--format=$known_snapshot_formats{$format}{'format'}",7368"--prefix=$prefix/",$hash);7369if(exists$known_snapshot_formats{$format}{'compressor'}) {7370$cmd.=' | '. quote_command(@{$known_snapshot_formats{$format}{'compressor'}});7371}73727373$filename=~s/(["\\])/\\$1/g;7374my%latest_date;7375if(%co) {7376%latest_date= parse_date($co{'committer_epoch'},$co{'committer_tz'});7377}73787379print$cgi->header(7380-type =>$known_snapshot_formats{$format}{'type'},7381-content_disposition =>'inline; filename="'.$filename.'"',7382%co? (-last_modified =>$latest_date{'rfc2822'}) : (),7383-status =>'200 OK');73847385open my$fd,"-|",$cmd7386or die_error(500,"Execute git-archive failed");7387binmode STDOUT,':raw';7388print<$fd>;7389binmode STDOUT,':utf8';# as set at the beginning of gitweb.cgi7390close$fd;7391}73927393sub git_log_generic {7394my($fmt_name,$body_subr,$base,$parent,$file_name,$file_hash) =@_;73957396my$head= git_get_head_hash($project);7397if(!defined$base) {7398$base=$head;7399}7400if(!defined$page) {7401$page=0;7402}7403my$refs= git_get_references();74047405my$commit_hash=$base;7406if(defined$parent) {7407$commit_hash="$parent..$base";7408}7409my@commitlist=7410 parse_commits($commit_hash,101, (100*$page),7411defined$file_name? ($file_name,"--full-history") : ());74127413my$ftype;7414if(!defined$file_hash&&defined$file_name) {7415# some commits could have deleted file in question,7416# and not have it in tree, but one of them has to have it7417for(my$i=0;$i<@commitlist;$i++) {7418$file_hash= git_get_hash_by_path($commitlist[$i]{'id'},$file_name);7419last ifdefined$file_hash;7420}7421}7422if(defined$file_hash) {7423$ftype= git_get_type($file_hash);7424}7425if(defined$file_name&& !defined$ftype) {7426 die_error(500,"Unknown type of object");7427}7428my%co;7429if(defined$file_name) {7430%co= parse_commit($base)7431or die_error(404,"Unknown commit object");7432}743374347435my$paging_nav= format_paging_nav($fmt_name,$page,$#commitlist>=100);7436my$next_link='';7437if($#commitlist>=100) {7438$next_link=7439$cgi->a({-href => href(-replay=>1, page=>$page+1),7440-accesskey =>"n", -title =>"Alt-n"},"next");7441}7442my$patch_max= gitweb_get_feature('patches');7443if($patch_max&& !defined$file_name) {7444if($patch_max<0||@commitlist<=$patch_max) {7445$paging_nav.=" ⋅ ".7446$cgi->a({-href => href(action=>"patches", -replay=>1)},7447"patches");7448}7449}74507451 git_header_html();7452 git_print_page_nav($fmt_name,'',$hash,$hash,$hash,$paging_nav);7453if(defined$file_name) {7454 git_print_header_div('commit', esc_html($co{'title'}),$base);7455}else{7456 git_print_header_div('summary',$project)7457}7458 git_print_page_path($file_name,$ftype,$hash_base)7459if(defined$file_name);74607461$body_subr->(\@commitlist,0,99,$refs,$next_link,7462$file_name,$file_hash,$ftype);74637464 git_footer_html();7465}74667467sub git_log {7468 git_log_generic('log', \&git_log_body,7469$hash,$hash_parent);7470}74717472sub git_commit {7473$hash||=$hash_base||"HEAD";7474my%co= parse_commit($hash)7475or die_error(404,"Unknown commit object");74767477my$parent=$co{'parent'};7478my$parents=$co{'parents'};# listref74797480# we need to prepare $formats_nav before any parameter munging7481my$formats_nav;7482if(!defined$parent) {7483# --root commitdiff7484$formats_nav.='(initial)';7485}elsif(@$parents==1) {7486# single parent commit7487$formats_nav.=7488'(parent: '.7489$cgi->a({-href => href(action=>"commit",7490 hash=>$parent)},7491 esc_html(substr($parent,0,7))) .7492')';7493}else{7494# merge commit7495$formats_nav.=7496'(merge: '.7497join(' ',map{7498$cgi->a({-href => href(action=>"commit",7499 hash=>$_)},7500 esc_html(substr($_,0,7)));7501}@$parents) .7502')';7503}7504if(gitweb_check_feature('patches') &&@$parents<=1) {7505$formats_nav.=" | ".7506$cgi->a({-href => href(action=>"patch", -replay=>1)},7507"patch");7508}75097510if(!defined$parent) {7511$parent="--root";7512}7513my@difftree;7514open my$fd,"-|", git_cmd(),"diff-tree",'-r',"--no-commit-id",7515@diff_opts,7516(@$parents<=1?$parent:'-c'),7517$hash,"--"7518or die_error(500,"Open git-diff-tree failed");7519@difftree=map{chomp;$_} <$fd>;7520close$fdor die_error(404,"Reading git-diff-tree failed");75217522# non-textual hash id's can be cached7523my$expires;7524if($hash=~m/^[0-9a-fA-F]{40}$/) {7525$expires="+1d";7526}7527my$refs= git_get_references();7528my$ref= format_ref_marker($refs,$co{'id'});75297530 git_header_html(undef,$expires);7531 git_print_page_nav('commit','',7532$hash,$co{'tree'},$hash,7533$formats_nav);75347535if(defined$co{'parent'}) {7536 git_print_header_div('commitdiff', esc_html($co{'title'}) .$ref,$hash);7537}else{7538 git_print_header_div('tree', esc_html($co{'title'}) .$ref,$co{'tree'},$hash);7539}7540print"<div class=\"title_text\">\n".7541"<table class=\"object_header\">\n";7542 git_print_authorship_rows(\%co);7543print"<tr><td>commit</td><td class=\"sha1\">$co{'id'}</td></tr>\n";7544print"<tr>".7545"<td>tree</td>".7546"<td class=\"sha1\">".7547$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash),7548class=>"list"},$co{'tree'}) .7549"</td>".7550"<td class=\"link\">".7551$cgi->a({-href => href(action=>"tree", hash=>$co{'tree'}, hash_base=>$hash)},7552"tree");7553my$snapshot_links= format_snapshot_links($hash);7554if(defined$snapshot_links) {7555print" | ".$snapshot_links;7556}7557print"</td>".7558"</tr>\n";75597560foreachmy$par(@$parents) {7561print"<tr>".7562"<td>parent</td>".7563"<td class=\"sha1\">".7564$cgi->a({-href => href(action=>"commit", hash=>$par),7565class=>"list"},$par) .7566"</td>".7567"<td class=\"link\">".7568$cgi->a({-href => href(action=>"commit", hash=>$par)},"commit") .7569" | ".7570$cgi->a({-href => href(action=>"commitdiff", hash=>$hash, hash_parent=>$par)},"diff") .7571"</td>".7572"</tr>\n";7573}7574print"</table>".7575"</div>\n";75767577print"<div class=\"page_body\">\n";7578 git_print_log($co{'comment'});7579print"</div>\n";75807581 git_difftree_body(\@difftree,$hash,@$parents);75827583 git_footer_html();7584}75857586sub git_object {7587# object is defined by:7588# - hash or hash_base alone7589# - hash_base and file_name7590my$type;75917592# - hash or hash_base alone7593if($hash|| ($hash_base&& !defined$file_name)) {7594my$object_id=$hash||$hash_base;75957596open my$fd,"-|", quote_command(7597 git_cmd(),'cat-file','-t',$object_id) .' 2> /dev/null'7598or die_error(404,"Object does not exist");7599$type= <$fd>;7600defined$type&&chomp$type;7601close$fd7602or die_error(404,"Object does not exist");76037604# - hash_base and file_name7605}elsif($hash_base&&defined$file_name) {7606$file_name=~ s,/+$,,;76077608system(git_cmd(),"cat-file",'-e',$hash_base) ==07609or die_error(404,"Base object does not exist");76107611# here errors should not happen7612open my$fd,"-|", git_cmd(),"ls-tree",$hash_base,"--",$file_name7613or die_error(500,"Open git-ls-tree failed");7614my$line= <$fd>;7615close$fd;76167617#'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c'7618unless($line&&$line=~m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t/) {7619 die_error(404,"File or directory for given base does not exist");7620}7621$type=$2;7622$hash=$3;7623}else{7624 die_error(400,"Not enough information to find object");7625}76267627print$cgi->redirect(-uri => href(action=>$type, -full=>1,7628 hash=>$hash, hash_base=>$hash_base,7629 file_name=>$file_name),7630-status =>'302 Found');7631}76327633sub git_blobdiff {7634my$format=shift||'html';7635my$diff_style=$input_params{'diff_style'} ||'inline';76367637my$fd;7638my@difftree;7639my%diffinfo;7640my$expires;76417642# preparing $fd and %diffinfo for git_patchset_body7643# new style URI7644if(defined$hash_base&&defined$hash_parent_base) {7645if(defined$file_name) {7646# read raw output7647open$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,7648$hash_parent_base,$hash_base,7649"--", (defined$file_parent?$file_parent: ()),$file_name7650or die_error(500,"Open git-diff-tree failed");7651@difftree=map{chomp;$_} <$fd>;7652close$fd7653or die_error(404,"Reading git-diff-tree failed");7654@difftree7655or die_error(404,"Blob diff not found");76567657}elsif(defined$hash&&7658$hash=~/[0-9a-fA-F]{40}/) {7659# try to find filename from $hash76607661# read filtered raw output7662open$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,7663$hash_parent_base,$hash_base,"--"7664or die_error(500,"Open git-diff-tree failed");7665@difftree=7666# ':100644 100644 03b21826... 3b93d5e7... M ls-files.c'7667# $hash == to_id7668grep{/^:[0-7]{6} [0-7]{6} [0-9a-fA-F]{40} $hash/}7669map{chomp;$_} <$fd>;7670close$fd7671or die_error(404,"Reading git-diff-tree failed");7672@difftree7673or die_error(404,"Blob diff not found");76747675}else{7676 die_error(400,"Missing one of the blob diff parameters");7677}76787679if(@difftree>1) {7680 die_error(400,"Ambiguous blob diff specification");7681}76827683%diffinfo= parse_difftree_raw_line($difftree[0]);7684$file_parent||=$diffinfo{'from_file'} ||$file_name;7685$file_name||=$diffinfo{'to_file'};76867687$hash_parent||=$diffinfo{'from_id'};7688$hash||=$diffinfo{'to_id'};76897690# non-textual hash id's can be cached7691if($hash_base=~m/^[0-9a-fA-F]{40}$/&&7692$hash_parent_base=~m/^[0-9a-fA-F]{40}$/) {7693$expires='+1d';7694}76957696# open patch output7697open$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,7698'-p', ($formateq'html'?"--full-index": ()),7699$hash_parent_base,$hash_base,7700"--", (defined$file_parent?$file_parent: ()),$file_name7701or die_error(500,"Open git-diff-tree failed");7702}77037704# old/legacy style URI -- not generated anymore since 1.4.3.7705if(!%diffinfo) {7706 die_error('404 Not Found',"Missing one of the blob diff parameters")7707}77087709# header7710if($formateq'html') {7711my$formats_nav=7712$cgi->a({-href => href(action=>"blobdiff_plain", -replay=>1)},7713"raw");7714$formats_nav.= diff_style_nav($diff_style);7715 git_header_html(undef,$expires);7716if(defined$hash_base&& (my%co= parse_commit($hash_base))) {7717 git_print_page_nav('','',$hash_base,$co{'tree'},$hash_base,$formats_nav);7718 git_print_header_div('commit', esc_html($co{'title'}),$hash_base);7719}else{7720print"<div class=\"page_nav\"><br/>$formats_nav<br/></div>\n";7721print"<div class=\"title\">".esc_html("$hashvs$hash_parent")."</div>\n";7722}7723if(defined$file_name) {7724 git_print_page_path($file_name,"blob",$hash_base);7725}else{7726print"<div class=\"page_path\"></div>\n";7727}77287729}elsif($formateq'plain') {7730print$cgi->header(7731-type =>'text/plain',7732-charset =>'utf-8',7733-expires =>$expires,7734-content_disposition =>'inline; filename="'."$file_name".'.patch"');77357736print"X-Git-Url: ".$cgi->self_url() ."\n\n";77377738}else{7739 die_error(400,"Unknown blobdiff format");7740}77417742# patch7743if($formateq'html') {7744print"<div class=\"page_body\">\n";77457746 git_patchset_body($fd,$diff_style,7747[ \%diffinfo],$hash_base,$hash_parent_base);7748close$fd;77497750print"</div>\n";# class="page_body"7751 git_footer_html();77527753}else{7754while(my$line= <$fd>) {7755$line=~s!a/($hash|$hash_parent)!'a/'.esc_path($diffinfo{'from_file'})!eg;7756$line=~s!b/($hash|$hash_parent)!'b/'.esc_path($diffinfo{'to_file'})!eg;77577758print$line;77597760last if$line=~m!^\+\+\+!;7761}7762local$/=undef;7763print<$fd>;7764close$fd;7765}7766}77677768sub git_blobdiff_plain {7769 git_blobdiff('plain');7770}77717772# assumes that it is added as later part of already existing navigation,7773# so it returns "| foo | bar" rather than just "foo | bar"7774sub diff_style_nav {7775my($diff_style,$is_combined) =@_;7776$diff_style||='inline';77777778return""if($is_combined);77797780my@styles= (inline =>'inline','sidebyside'=>'side by side');7781my%styles=@styles;7782@styles=7783@styles[map{$_*2}0..$#styles/2];77847785returnjoin'',7786map{" | ".$_}7787map{7788$_eq$diff_style?$styles{$_} :7789$cgi->a({-href => href(-replay=>1, diff_style =>$_)},$styles{$_})7790}@styles;7791}77927793sub git_commitdiff {7794my%params=@_;7795my$format=$params{-format} ||'html';7796my$diff_style=$input_params{'diff_style'} ||'inline';77977798my($patch_max) = gitweb_get_feature('patches');7799if($formateq'patch') {7800 die_error(403,"Patch view not allowed")unless$patch_max;7801}78027803$hash||=$hash_base||"HEAD";7804my%co= parse_commit($hash)7805or die_error(404,"Unknown commit object");78067807# choose format for commitdiff for merge7808if(!defined$hash_parent&& @{$co{'parents'}} >1) {7809$hash_parent='--cc';7810}7811# we need to prepare $formats_nav before almost any parameter munging7812my$formats_nav;7813if($formateq'html') {7814$formats_nav=7815$cgi->a({-href => href(action=>"commitdiff_plain", -replay=>1)},7816"raw");7817if($patch_max&& @{$co{'parents'}} <=1) {7818$formats_nav.=" | ".7819$cgi->a({-href => href(action=>"patch", -replay=>1)},7820"patch");7821}7822$formats_nav.= diff_style_nav($diff_style, @{$co{'parents'}} >1);78237824if(defined$hash_parent&&7825$hash_parentne'-c'&&$hash_parentne'--cc') {7826# commitdiff with two commits given7827my$hash_parent_short=$hash_parent;7828if($hash_parent=~m/^[0-9a-fA-F]{40}$/) {7829$hash_parent_short=substr($hash_parent,0,7);7830}7831$formats_nav.=7832' (from';7833for(my$i=0;$i< @{$co{'parents'}};$i++) {7834if($co{'parents'}[$i]eq$hash_parent) {7835$formats_nav.=' parent '. ($i+1);7836last;7837}7838}7839$formats_nav.=': '.7840$cgi->a({-href => href(-replay=>1,7841 hash=>$hash_parent, hash_base=>undef)},7842 esc_html($hash_parent_short)) .7843')';7844}elsif(!$co{'parent'}) {7845# --root commitdiff7846$formats_nav.=' (initial)';7847}elsif(scalar@{$co{'parents'}} ==1) {7848# single parent commit7849$formats_nav.=7850' (parent: '.7851$cgi->a({-href => href(-replay=>1,7852 hash=>$co{'parent'}, hash_base=>undef)},7853 esc_html(substr($co{'parent'},0,7))) .7854')';7855}else{7856# merge commit7857if($hash_parenteq'--cc') {7858$formats_nav.=' | '.7859$cgi->a({-href => href(-replay=>1,7860 hash=>$hash, hash_parent=>'-c')},7861'combined');7862}else{# $hash_parent eq '-c'7863$formats_nav.=' | '.7864$cgi->a({-href => href(-replay=>1,7865 hash=>$hash, hash_parent=>'--cc')},7866'compact');7867}7868$formats_nav.=7869' (merge: '.7870join(' ',map{7871$cgi->a({-href => href(-replay=>1,7872 hash=>$_, hash_base=>undef)},7873 esc_html(substr($_,0,7)));7874} @{$co{'parents'}} ) .7875')';7876}7877}78787879my$hash_parent_param=$hash_parent;7880if(!defined$hash_parent_param) {7881# --cc for multiple parents, --root for parentless7882$hash_parent_param=7883@{$co{'parents'}} >1?'--cc':$co{'parent'} ||'--root';7884}78857886# read commitdiff7887my$fd;7888my@difftree;7889if($formateq'html') {7890open$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,7891"--no-commit-id","--patch-with-raw","--full-index",7892$hash_parent_param,$hash,"--"7893or die_error(500,"Open git-diff-tree failed");78947895while(my$line= <$fd>) {7896chomp$line;7897# empty line ends raw part of diff-tree output7898last unless$line;7899push@difftree,scalar parse_difftree_raw_line($line);7900}79017902}elsif($formateq'plain') {7903open$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,7904'-p',$hash_parent_param,$hash,"--"7905or die_error(500,"Open git-diff-tree failed");7906}elsif($formateq'patch') {7907# For commit ranges, we limit the output to the number of7908# patches specified in the 'patches' feature.7909# For single commits, we limit the output to a single patch,7910# diverging from the git-format-patch default.7911my@commit_spec= ();7912if($hash_parent) {7913if($patch_max>0) {7914push@commit_spec,"-$patch_max";7915}7916push@commit_spec,'-n',"$hash_parent..$hash";7917}else{7918if($params{-single}) {7919push@commit_spec,'-1';7920}else{7921if($patch_max>0) {7922push@commit_spec,"-$patch_max";7923}7924push@commit_spec,"-n";7925}7926push@commit_spec,'--root',$hash;7927}7928open$fd,"-|", git_cmd(),"format-patch",@diff_opts,7929'--encoding=utf8','--stdout',@commit_spec7930or die_error(500,"Open git-format-patch failed");7931}else{7932 die_error(400,"Unknown commitdiff format");7933}79347935# non-textual hash id's can be cached7936my$expires;7937if($hash=~m/^[0-9a-fA-F]{40}$/) {7938$expires="+1d";7939}79407941# write commit message7942if($formateq'html') {7943my$refs= git_get_references();7944my$ref= format_ref_marker($refs,$co{'id'});79457946 git_header_html(undef,$expires);7947 git_print_page_nav('commitdiff','',$hash,$co{'tree'},$hash,$formats_nav);7948 git_print_header_div('commit', esc_html($co{'title'}) .$ref,$hash);7949print"<div class=\"title_text\">\n".7950"<table class=\"object_header\">\n";7951 git_print_authorship_rows(\%co);7952print"</table>".7953"</div>\n";7954print"<div class=\"page_body\">\n";7955if(@{$co{'comment'}} >1) {7956print"<div class=\"log\">\n";7957 git_print_log($co{'comment'}, -final_empty_line=>1, -remove_title =>1);7958print"</div>\n";# class="log"7959}79607961}elsif($formateq'plain') {7962my$refs= git_get_references("tags");7963my$tagname= git_get_rev_name_tags($hash);7964my$filename= basename($project) ."-$hash.patch";79657966print$cgi->header(7967-type =>'text/plain',7968-charset =>'utf-8',7969-expires =>$expires,7970-content_disposition =>'inline; filename="'."$filename".'"');7971my%ad= parse_date($co{'author_epoch'},$co{'author_tz'});7972print"From: ". to_utf8($co{'author'}) ."\n";7973print"Date:$ad{'rfc2822'} ($ad{'tz_local'})\n";7974print"Subject: ". to_utf8($co{'title'}) ."\n";79757976print"X-Git-Tag:$tagname\n"if$tagname;7977print"X-Git-Url: ".$cgi->self_url() ."\n\n";79787979foreachmy$line(@{$co{'comment'}}) {7980print to_utf8($line) ."\n";7981}7982print"---\n\n";7983}elsif($formateq'patch') {7984my$filename= basename($project) ."-$hash.patch";79857986print$cgi->header(7987-type =>'text/plain',7988-charset =>'utf-8',7989-expires =>$expires,7990-content_disposition =>'inline; filename="'."$filename".'"');7991}79927993# write patch7994if($formateq'html') {7995my$use_parents= !defined$hash_parent||7996$hash_parenteq'-c'||$hash_parenteq'--cc';7997 git_difftree_body(\@difftree,$hash,7998$use_parents? @{$co{'parents'}} :$hash_parent);7999print"<br/>\n";80008001 git_patchset_body($fd,$diff_style,8002 \@difftree,$hash,8003$use_parents? @{$co{'parents'}} :$hash_parent);8004close$fd;8005print"</div>\n";# class="page_body"8006 git_footer_html();80078008}elsif($formateq'plain') {8009local$/=undef;8010print<$fd>;8011close$fd8012or print"Reading git-diff-tree failed\n";8013}elsif($formateq'patch') {8014local$/=undef;8015print<$fd>;8016close$fd8017or print"Reading git-format-patch failed\n";8018}8019}80208021sub git_commitdiff_plain {8022 git_commitdiff(-format =>'plain');8023}80248025# format-patch-style patches8026sub git_patch {8027 git_commitdiff(-format =>'patch', -single =>1);8028}80298030sub git_patches {8031 git_commitdiff(-format =>'patch');8032}80338034sub git_history {8035 git_log_generic('history', \&git_history_body,8036$hash_base,$hash_parent_base,8037$file_name,$hash);8038}80398040sub git_search {8041$searchtype||='commit';80428043# check if appropriate features are enabled8044 gitweb_check_feature('search')8045or die_error(403,"Search is disabled");8046if($searchtypeeq'pickaxe') {8047# pickaxe may take all resources of your box and run for several minutes8048# with every query - so decide by yourself how public you make this feature8049 gitweb_check_feature('pickaxe')8050or die_error(403,"Pickaxe search is disabled");8051}8052if($searchtypeeq'grep') {8053# grep search might be potentially CPU-intensive, too8054 gitweb_check_feature('grep')8055or die_error(403,"Grep search is disabled");8056}80578058if(!defined$searchtext) {8059 die_error(400,"Text field is empty");8060}8061if(!defined$hash) {8062$hash= git_get_head_hash($project);8063}8064my%co= parse_commit($hash);8065if(!%co) {8066 die_error(404,"Unknown commit object");8067}8068if(!defined$page) {8069$page=0;8070}80718072if($searchtypeeq'commit'||8073$searchtypeeq'author'||8074$searchtypeeq'committer') {8075 git_search_message(%co);8076}elsif($searchtypeeq'pickaxe') {8077 git_search_changes(%co);8078}elsif($searchtypeeq'grep') {8079 git_search_files(%co);8080}else{8081 die_error(400,"Unknown search type");8082}8083}80848085sub git_search_help {8086 git_header_html();8087 git_print_page_nav('','',$hash,$hash,$hash);8088print<<EOT;8089<p><strong>Pattern</strong> is by default a normal string that is matched precisely (but without8090regard to case, except in the case of pickaxe). However, when you check the <em>re</em> checkbox,8091the pattern entered is recognized as the POSIX extended8092<a href="https://en.wikipedia.org/wiki/Regular_expression">regular expression</a> (also case8093insensitive).</p>8094<dl>8095<dt><b>commit</b></dt>8096<dd>The commit messages and authorship information will be scanned for the given pattern.</dd>8097EOT8098my$have_grep= gitweb_check_feature('grep');8099if($have_grep) {8100print<<EOT;8101<dt><b>grep</b></dt>8102<dd>All files in the currently selected tree (HEAD unless you are explicitly browsing8103 a different one) are searched for the given pattern. On large trees, this search can take8104a while and put some strain on the server, so please use it with some consideration. Note that8105due to git-grep peculiarity, currently if regexp mode is turned off, the matches are8106case-sensitive.</dd>8107EOT8108}8109print<<EOT;8110<dt><b>author</b></dt>8111<dd>Name and e-mail of the change author and date of birth of the patch will be scanned for the given pattern.</dd>8112<dt><b>committer</b></dt>8113<dd>Name and e-mail of the committer and date of commit will be scanned for the given pattern.</dd>8114EOT8115my$have_pickaxe= gitweb_check_feature('pickaxe');8116if($have_pickaxe) {8117print<<EOT;8118<dt><b>pickaxe</b></dt>8119<dd>All commits that caused the string to appear or disappear from any file (changes that8120added, removed or "modified" the string) will be listed. This search can take a while and8121takes a lot of strain on the server, so please use it wisely. Note that since you may be8122interested even in changes just changing the case as well, this search is case sensitive.</dd>8123EOT8124}8125print"</dl>\n";8126 git_footer_html();8127}81288129sub git_shortlog {8130 git_log_generic('shortlog', \&git_shortlog_body,8131$hash,$hash_parent);8132}81338134## ......................................................................8135## feeds (RSS, Atom; OPML)81368137sub git_feed {8138my$format=shift||'atom';8139my$have_blame= gitweb_check_feature('blame');81408141# Atom: http://www.atomenabled.org/developers/syndication/8142# RSS: http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ8143if($formatne'rss'&&$formatne'atom') {8144 die_error(400,"Unknown web feed format");8145}81468147# log/feed of current (HEAD) branch, log of given branch, history of file/directory8148my$head=$hash||'HEAD';8149my@commitlist= parse_commits($head,150,0,$file_name);81508151my%latest_commit;8152my%latest_date;8153my$content_type="application/$format+xml";8154if(defined$cgi->http('HTTP_ACCEPT') &&8155$cgi->Accept('text/xml') >$cgi->Accept($content_type)) {8156# browser (feed reader) prefers text/xml8157$content_type='text/xml';8158}8159if(defined($commitlist[0])) {8160%latest_commit= %{$commitlist[0]};8161my$latest_epoch=$latest_commit{'committer_epoch'};8162 exit_if_unmodified_since($latest_epoch);8163%latest_date= parse_date($latest_epoch,$latest_commit{'committer_tz'});8164}8165print$cgi->header(8166-type =>$content_type,8167-charset =>'utf-8',8168%latest_date? (-last_modified =>$latest_date{'rfc2822'}) : (),8169-status =>'200 OK');81708171# Optimization: skip generating the body if client asks only8172# for Last-Modified date.8173return if($cgi->request_method()eq'HEAD');81748175# header variables8176my$title="$site_name-$project/$action";8177my$feed_type='log';8178if(defined$hash) {8179$title.=" - '$hash'";8180$feed_type='branch log';8181if(defined$file_name) {8182$title.=" ::$file_name";8183$feed_type='history';8184}8185}elsif(defined$file_name) {8186$title.=" -$file_name";8187$feed_type='history';8188}8189$title.="$feed_type";8190$title= esc_html($title);8191my$descr= git_get_project_description($project);8192if(defined$descr) {8193$descr= esc_html($descr);8194}else{8195$descr="$project".8196($formateq'rss'?'RSS':'Atom') .8197" feed";8198}8199my$owner= git_get_project_owner($project);8200$owner= esc_html($owner);82018202#header8203my$alt_url;8204if(defined$file_name) {8205$alt_url= href(-full=>1, action=>"history", hash=>$hash, file_name=>$file_name);8206}elsif(defined$hash) {8207$alt_url= href(-full=>1, action=>"log", hash=>$hash);8208}else{8209$alt_url= href(-full=>1, action=>"summary");8210}8211print qq!<?xml version="1.0" encoding="utf-8"?>\n!;8212if($formateq'rss') {8213print<<XML;8214<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/">8215<channel>8216XML8217print"<title>$title</title>\n".8218"<link>$alt_url</link>\n".8219"<description>$descr</description>\n".8220"<language>en</language>\n".8221# project owner is responsible for 'editorial' content8222"<managingEditor>$owner</managingEditor>\n";8223if(defined$logo||defined$favicon) {8224# prefer the logo to the favicon, since RSS8225# doesn't allow both8226my$img= esc_url($logo||$favicon);8227print"<image>\n".8228"<url>$img</url>\n".8229"<title>$title</title>\n".8230"<link>$alt_url</link>\n".8231"</image>\n";8232}8233if(%latest_date) {8234print"<pubDate>$latest_date{'rfc2822'}</pubDate>\n";8235print"<lastBuildDate>$latest_date{'rfc2822'}</lastBuildDate>\n";8236}8237print"<generator>gitweb v.$version/$git_version</generator>\n";8238}elsif($formateq'atom') {8239print<<XML;8240<feed xmlns="http://www.w3.org/2005/Atom">8241XML8242print"<title>$title</title>\n".8243"<subtitle>$descr</subtitle>\n".8244'<link rel="alternate" type="text/html" href="'.8245$alt_url.'" />'."\n".8246'<link rel="self" type="'.$content_type.'" href="'.8247$cgi->self_url() .'" />'."\n".8248"<id>". href(-full=>1) ."</id>\n".8249# use project owner for feed author8250"<author><name>$owner</name></author>\n";8251if(defined$favicon) {8252print"<icon>". esc_url($favicon) ."</icon>\n";8253}8254if(defined$logo) {8255# not twice as wide as tall: 72 x 27 pixels8256print"<logo>". esc_url($logo) ."</logo>\n";8257}8258if(!%latest_date) {8259# dummy date to keep the feed valid until commits trickle in:8260print"<updated>1970-01-01T00:00:00Z</updated>\n";8261}else{8262print"<updated>$latest_date{'iso-8601'}</updated>\n";8263}8264print"<generator version='$version/$git_version'>gitweb</generator>\n";8265}82668267# contents8268for(my$i=0;$i<=$#commitlist;$i++) {8269my%co= %{$commitlist[$i]};8270my$commit=$co{'id'};8271# we read 150, we always show 30 and the ones more recent than 48 hours8272if(($i>=20) && ((time-$co{'author_epoch'}) >48*60*60)) {8273last;8274}8275my%cd= parse_date($co{'author_epoch'},$co{'author_tz'});82768277# get list of changed files8278open my$fd,"-|", git_cmd(),"diff-tree",'-r',@diff_opts,8279$co{'parent'} ||"--root",8280$co{'id'},"--", (defined$file_name?$file_name: ())8281ornext;8282my@difftree=map{chomp;$_} <$fd>;8283close$fd8284ornext;82858286# print element (entry, item)8287my$co_url= href(-full=>1, action=>"commitdiff", hash=>$commit);8288if($formateq'rss') {8289print"<item>\n".8290"<title>". esc_html($co{'title'}) ."</title>\n".8291"<author>". esc_html($co{'author'}) ."</author>\n".8292"<pubDate>$cd{'rfc2822'}</pubDate>\n".8293"<guid isPermaLink=\"true\">$co_url</guid>\n".8294"<link>$co_url</link>\n".8295"<description>". esc_html($co{'title'}) ."</description>\n".8296"<content:encoded>".8297"<![CDATA[\n";8298}elsif($formateq'atom') {8299print"<entry>\n".8300"<title type=\"html\">". esc_html($co{'title'}) ."</title>\n".8301"<updated>$cd{'iso-8601'}</updated>\n".8302"<author>\n".8303" <name>". esc_html($co{'author_name'}) ."</name>\n";8304if($co{'author_email'}) {8305print" <email>". esc_html($co{'author_email'}) ."</email>\n";8306}8307print"</author>\n".8308# use committer for contributor8309"<contributor>\n".8310" <name>". esc_html($co{'committer_name'}) ."</name>\n";8311if($co{'committer_email'}) {8312print" <email>". esc_html($co{'committer_email'}) ."</email>\n";8313}8314print"</contributor>\n".8315"<published>$cd{'iso-8601'}</published>\n".8316"<link rel=\"alternate\"type=\"text/html\"href=\"$co_url\"/>\n".8317"<id>$co_url</id>\n".8318"<content type=\"xhtml\"xml:base=\"". esc_url($my_url) ."\">\n".8319"<div xmlns=\"http://www.w3.org/1999/xhtml\">\n";8320}8321my$comment=$co{'comment'};8322print"<pre>\n";8323foreachmy$line(@$comment) {8324$line= esc_html($line);8325print"$line\n";8326}8327print"</pre><ul>\n";8328foreachmy$difftree_line(@difftree) {8329my%difftree= parse_difftree_raw_line($difftree_line);8330next if!$difftree{'from_id'};83318332my$file=$difftree{'file'} ||$difftree{'to_file'};83338334print"<li>".8335"[".8336$cgi->a({-href => href(-full=>1, action=>"blobdiff",8337 hash=>$difftree{'to_id'}, hash_parent=>$difftree{'from_id'},8338 hash_base=>$co{'id'}, hash_parent_base=>$co{'parent'},8339 file_name=>$file, file_parent=>$difftree{'from_file'}),8340-title =>"diff"},'D');8341if($have_blame) {8342print$cgi->a({-href => href(-full=>1, action=>"blame",8343 file_name=>$file, hash_base=>$commit),8344-title =>"blame"},'B');8345}8346# if this is not a feed of a file history8347if(!defined$file_name||$file_namene$file) {8348print$cgi->a({-href => href(-full=>1, action=>"history",8349 file_name=>$file, hash=>$commit),8350-title =>"history"},'H');8351}8352$file= esc_path($file);8353print"] ".8354"$file</li>\n";8355}8356if($formateq'rss') {8357print"</ul>]]>\n".8358"</content:encoded>\n".8359"</item>\n";8360}elsif($formateq'atom') {8361print"</ul>\n</div>\n".8362"</content>\n".8363"</entry>\n";8364}8365}83668367# end of feed8368if($formateq'rss') {8369print"</channel>\n</rss>\n";8370}elsif($formateq'atom') {8371print"</feed>\n";8372}8373}83748375sub git_rss {8376 git_feed('rss');8377}83788379sub git_atom {8380 git_feed('atom');8381}83828383sub git_opml {8384my@list= git_get_projects_list($project_filter,$strict_export);8385if(!@list) {8386 die_error(404,"No projects found");8387}83888389print$cgi->header(8390-type =>'text/xml',8391-charset =>'utf-8',8392-content_disposition =>'inline; filename="opml.xml"');83938394my$title= esc_html($site_name);8395my$filter=" within subdirectory ";8396if(defined$project_filter) {8397$filter.= esc_html($project_filter);8398}else{8399$filter="";8400}8401print<<XML;8402<?xml version="1.0" encoding="utf-8"?>8403<opml version="1.0">8404<head>8405 <title>$titleOPML Export$filter</title>8406</head>8407<body>8408<outline text="git RSS feeds">8409XML84108411foreachmy$pr(@list) {8412my%proj=%$pr;8413my$head= git_get_head_hash($proj{'path'});8414if(!defined$head) {8415next;8416}8417$git_dir="$projectroot/$proj{'path'}";8418my%co= parse_commit($head);8419if(!%co) {8420next;8421}84228423my$path= esc_html(chop_str($proj{'path'},25,5));8424my$rss= href('project'=>$proj{'path'},'action'=>'rss', -full =>1);8425my$html= href('project'=>$proj{'path'},'action'=>'summary', -full =>1);8426print"<outline type=\"rss\"text=\"$path\"title=\"$path\"xmlUrl=\"$rss\"htmlUrl=\"$html\"/>\n";8427}8428print<<XML;8429</outline>8430</body>8431</opml>8432XML8433}