Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1 | #!/usr/bin/perl |
| 2 | |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 3 | # gitweb - simple web interface to track changes in git repositories |
Kay Sievers | 22fafb9 | 2005-08-07 19:56:59 +0200 | [diff] [blame] | 4 | # |
Kay Sievers | 00cd079 | 2006-05-22 14:30:47 +0200 | [diff] [blame] | 5 | # (C) 2005-2006, Kay Sievers <kay.sievers@vrfy.org> |
| 6 | # (C) 2005, Christian Gierke |
Kay Sievers | 823d5dc | 2005-08-07 19:57:58 +0200 | [diff] [blame] | 7 | # |
Kay Sievers | d8f1c5c | 2005-10-04 01:12:47 +0200 | [diff] [blame] | 8 | # This program is licensed under the GPLv2 |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 9 | |
| 10 | use strict; |
| 11 | use warnings; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 12 | use CGI qw(:standard :escapeHTML -nosticky); |
Kay Sievers | 7403d50 | 2005-08-07 20:23:49 +0200 | [diff] [blame] | 13 | use CGI::Util qw(unescape); |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 14 | use CGI::Carp qw(fatalsToBrowser); |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 15 | use Encode; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 16 | use Fcntl ':mode'; |
Kay Sievers | 10bb903 | 2005-11-23 04:26:40 +0100 | [diff] [blame] | 17 | binmode STDOUT, ':utf8'; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 18 | |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 19 | my $cgi = new CGI; |
Kay Sievers | 1130ef3 | 2006-05-30 14:41:04 +0200 | [diff] [blame] | 20 | my $version = "267"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 21 | my $my_url = $cgi->url(); |
| 22 | my $my_uri = $cgi->url(-absolute => 1); |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 23 | my $rss_link = ""; |
Kay Sievers | 44ad297 | 2005-08-07 19:59:24 +0200 | [diff] [blame] | 24 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 25 | # absolute fs-path which will be prepended to the project path |
Kay Sievers | a48e11c | 2005-08-31 03:25:29 +0200 | [diff] [blame] | 26 | #my $projectroot = "/pub/scm"; |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 27 | my $projectroot = "/home/kay/public_html/pub/scm"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 28 | |
| 29 | # location of the git-core binaries |
| 30 | my $gitbin = "/usr/bin"; |
| 31 | |
| 32 | # location for temporary files needed for diffs |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 33 | my $git_temp = "/tmp/gitweb"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 34 | |
| 35 | # target of the home link on top of all pages |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 36 | my $home_link = $my_uri; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 37 | |
Kay Sievers | 8ab1da2 | 2005-08-07 20:22:53 +0200 | [diff] [blame] | 38 | # html text to include at home page |
| 39 | my $home_text = "indextext.html"; |
| 40 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 41 | # source of projects list |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 42 | #my $projects_list = $projectroot; |
| 43 | my $projects_list = "index/index.aux"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 44 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 45 | # input validation and dispatch |
| 46 | my $action = $cgi->param('a'); |
| 47 | if (defined $action) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 48 | if ($action =~ m/[^0-9a-zA-Z\.\-_]/) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 49 | undef $action; |
| 50 | die_error(undef, "Invalid action parameter."); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 51 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 52 | if ($action eq "git-logo.png") { |
| 53 | git_logo(); |
| 54 | exit; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 55 | } elsif ($action eq "opml") { |
| 56 | git_opml(); |
| 57 | exit; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 58 | } |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 59 | } |
| 60 | |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 61 | my $order = $cgi->param('o'); |
| 62 | if (defined $order) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 63 | if ($order =~ m/[^0-9a-zA-Z_]/) { |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 64 | undef $order; |
| 65 | die_error(undef, "Invalid order parameter."); |
| 66 | } |
| 67 | } |
| 68 | |
Kay Sievers | 022be3d | 2005-08-07 20:06:09 +0200 | [diff] [blame] | 69 | my $project = $cgi->param('p'); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 70 | if (defined $project) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 71 | $project = validate_input($project); |
| 72 | if (!defined($project)) { |
| 73 | die_error(undef, "Invalid project parameter."); |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 74 | } |
| 75 | if (!(-d "$projectroot/$project")) { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 76 | undef $project; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 77 | die_error(undef, "No such directory."); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 78 | } |
| 79 | if (!(-e "$projectroot/$project/HEAD")) { |
| 80 | undef $project; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 81 | die_error(undef, "No such project."); |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 82 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 83 | $rss_link = "<link rel=\"alternate\" title=\"" . esc_param($project) . " log\" href=\"" . |
| 84 | "$my_uri?" . esc_param("p=$project;a=rss") . "\" type=\"application/rss+xml\"/>"; |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 85 | $ENV{'GIT_DIR'} = "$projectroot/$project"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 86 | } else { |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 87 | git_project_list(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 88 | exit; |
Kay Sievers | 2ad9331 | 2005-08-07 20:14:48 +0200 | [diff] [blame] | 89 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 90 | |
| 91 | my $file_name = $cgi->param('f'); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 92 | if (defined $file_name) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 93 | $file_name = validate_input($file_name); |
| 94 | if (!defined($file_name)) { |
| 95 | die_error(undef, "Invalid file parameter."); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 96 | } |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 97 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 98 | |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 99 | my $hash = $cgi->param('h'); |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 100 | if (defined $hash) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 101 | $hash = validate_input($hash); |
| 102 | if (!defined($hash)) { |
| 103 | die_error(undef, "Invalid hash parameter."); |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 104 | } |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 105 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 106 | |
| 107 | my $hash_parent = $cgi->param('hp'); |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 108 | if (defined $hash_parent) { |
| 109 | $hash_parent = validate_input($hash_parent); |
| 110 | if (!defined($hash_parent)) { |
| 111 | die_error(undef, "Invalid hash parent parameter."); |
| 112 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 113 | } |
| 114 | |
| 115 | my $hash_base = $cgi->param('hb'); |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 116 | if (defined $hash_base) { |
| 117 | $hash_base = validate_input($hash_base); |
| 118 | if (!defined($hash_base)) { |
| 119 | die_error(undef, "Invalid hash base parameter."); |
| 120 | } |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 121 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 122 | |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 123 | my $page = $cgi->param('pg'); |
| 124 | if (defined $page) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 125 | if ($page =~ m/[^0-9]$/) { |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 126 | undef $page; |
| 127 | die_error(undef, "Invalid page parameter."); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 128 | } |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 129 | } |
Kay Sievers | 823d5dc | 2005-08-07 19:57:58 +0200 | [diff] [blame] | 130 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 131 | my $searchtext = $cgi->param('s'); |
| 132 | if (defined $searchtext) { |
| 133 | if ($searchtext =~ m/[^a-zA-Z0-9_\.\/\-\+\:\@ ]/) { |
| 134 | undef $searchtext; |
| 135 | die_error(undef, "Invalid search parameter."); |
| 136 | } |
| 137 | $searchtext = quotemeta $searchtext; |
| 138 | } |
| 139 | |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 140 | sub validate_input { |
| 141 | my $input = shift; |
| 142 | |
| 143 | if ($input =~ m/^[0-9a-fA-F]{40}$/) { |
| 144 | return $input; |
| 145 | } |
| 146 | if ($input =~ m/(^|\/)(|\.|\.\.)($|\/)/) { |
| 147 | return undef; |
| 148 | } |
Kay Sievers | f5ac835 | 2005-11-24 19:43:53 +0100 | [diff] [blame] | 149 | if ($input =~ m/[^a-zA-Z0-9_\x80-\xff\ \t\.\/\-\+\#\~\%]/) { |
Kay Sievers | c91da26 | 2005-09-03 14:50:33 +0200 | [diff] [blame] | 150 | return undef; |
| 151 | } |
| 152 | return $input; |
| 153 | } |
| 154 | |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 155 | if (!defined $action || $action eq "summary") { |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 156 | git_summary(); |
| 157 | exit; |
Kay Sievers | d8f1c5c | 2005-10-04 01:12:47 +0200 | [diff] [blame] | 158 | } elsif ($action eq "heads") { |
| 159 | git_heads(); |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 160 | exit; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 161 | } elsif ($action eq "tags") { |
| 162 | git_tags(); |
| 163 | exit; |
| 164 | } elsif ($action eq "blob") { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 165 | git_blob(); |
| 166 | exit; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 167 | } elsif ($action eq "blob_plain") { |
| 168 | git_blob_plain(); |
| 169 | exit; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 170 | } elsif ($action eq "tree") { |
| 171 | git_tree(); |
| 172 | exit; |
| 173 | } elsif ($action eq "rss") { |
| 174 | git_rss(); |
| 175 | exit; |
| 176 | } elsif ($action eq "commit") { |
| 177 | git_commit(); |
| 178 | exit; |
| 179 | } elsif ($action eq "log") { |
| 180 | git_log(); |
| 181 | exit; |
| 182 | } elsif ($action eq "blobdiff") { |
| 183 | git_blobdiff(); |
| 184 | exit; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 185 | } elsif ($action eq "blobdiff_plain") { |
| 186 | git_blobdiff_plain(); |
| 187 | exit; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 188 | } elsif ($action eq "commitdiff") { |
| 189 | git_commitdiff(); |
| 190 | exit; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 191 | } elsif ($action eq "commitdiff_plain") { |
| 192 | git_commitdiff_plain(); |
| 193 | exit; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 194 | } elsif ($action eq "history") { |
| 195 | git_history(); |
| 196 | exit; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 197 | } elsif ($action eq "search") { |
| 198 | git_search(); |
| 199 | exit; |
| 200 | } elsif ($action eq "shortlog") { |
| 201 | git_shortlog(); |
| 202 | exit; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 203 | } elsif ($action eq "tag") { |
| 204 | git_tag(); |
| 205 | exit; |
Florian Forster | e34ef62 | 2006-06-11 17:45:19 +0200 | [diff] [blame^] | 206 | } elsif ($action eq "blame") { |
| 207 | git_blame(); |
| 208 | exit; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 209 | } else { |
| 210 | undef $action; |
| 211 | die_error(undef, "Unknown action."); |
| 212 | exit; |
| 213 | } |
| 214 | |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 215 | # quote unsafe chars, but keep the slash, even when it's not |
| 216 | # correct, but quoted slashes look too horrible in bookmarks |
| 217 | sub esc_param { |
Kay Sievers | 353347b | 2005-11-14 05:47:18 +0100 | [diff] [blame] | 218 | my $str = shift; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 219 | $str =~ s/([^A-Za-z0-9\-_.~();\/;?:@&=])/sprintf("%%%02X", ord($1))/eg; |
Kay Sievers | 1821671 | 2005-11-14 06:10:07 +0100 | [diff] [blame] | 220 | $str =~ s/\+/%2B/g; |
Kay Sievers | a9e60b7 | 2005-11-14 15:15:12 +0100 | [diff] [blame] | 221 | $str =~ s/ /\+/g; |
Kay Sievers | 353347b | 2005-11-14 05:47:18 +0100 | [diff] [blame] | 222 | return $str; |
| 223 | } |
| 224 | |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 225 | # replace invalid utf8 character with SUBSTITUTION sequence |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 226 | sub esc_html { |
| 227 | my $str = shift; |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 228 | $str = decode("utf8", $str, Encode::FB_DEFAULT); |
Kay Sievers | 10bb903 | 2005-11-23 04:26:40 +0100 | [diff] [blame] | 229 | $str = escapeHTML($str); |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 230 | return $str; |
| 231 | } |
| 232 | |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 233 | # git may return quoted and escaped filenames |
| 234 | sub unquote { |
| 235 | my $str = shift; |
| 236 | if ($str =~ m/^"(.*)"$/) { |
| 237 | $str = $1; |
| 238 | $str =~ s/\\([0-7]{1,3})/chr(oct($1))/eg; |
| 239 | } |
| 240 | return $str; |
| 241 | } |
| 242 | |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 243 | sub git_header_html { |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 244 | my $status = shift || "200 OK"; |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 245 | my $expires = shift; |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 246 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 247 | my $title = "git"; |
| 248 | if (defined $project) { |
| 249 | $title .= " - $project"; |
| 250 | if (defined $action) { |
| 251 | $title .= "/$action"; |
| 252 | } |
| 253 | } |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 254 | print $cgi->header(-type=>'text/html', -charset => 'utf-8', -status=> $status, -expires => $expires); |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 255 | print <<EOF; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 256 | <?xml version="1.0" encoding="utf-8"?> |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 257 | <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 258 | <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US" lang="en-US"> |
Kay Sievers | 00cd079 | 2006-05-22 14:30:47 +0200 | [diff] [blame] | 259 | <!-- git web interface v$version, (C) 2005-2006, Kay Sievers <kay.sievers\@vrfy.org>, Christian Gierke --> |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 260 | <head> |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 261 | <meta http-equiv="content-type" content="text/html; charset=utf-8"/> |
| 262 | <meta name="robots" content="index, nofollow"/> |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 263 | <title>$title</title> |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 264 | $rss_link |
| 265 | <style type="text/css"> |
Kay Sievers | 8240acc | 2005-12-19 04:09:02 +0100 | [diff] [blame] | 266 | body { |
| 267 | font-family: sans-serif; font-size: 12px; border:solid #d9d8d1; border-width:1px; |
| 268 | margin:10px; background-color:#ffffff; color:#000000; |
| 269 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 270 | a { color:#0000cc; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 271 | a:hover, a:visited, a:active { color:#880000; } |
| 272 | div.page_header { height:25px; padding:8px; font-size:18px; font-weight:bold; background-color:#d9d8d1; } |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 273 | div.page_header a:visited, a.header { color:#0000cc; } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 274 | div.page_header a:hover { color:#880000; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 275 | div.page_nav { padding:8px; } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 276 | div.page_nav a:visited { color:#0000cc; } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 277 | div.page_path { padding:8px; border:solid #d9d8d1; border-width:0px 0px 1px} |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 278 | div.page_footer { height:17px; padding:4px 8px; background-color: #d9d8d1; } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 279 | div.page_footer_text { float:left; color:#555555; font-style:italic; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 280 | div.page_body { padding:8px; } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 281 | div.title, a.title { |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 282 | display:block; padding:6px 8px; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 283 | font-weight:bold; background-color:#edece6; text-decoration:none; color:#000000; |
| 284 | } |
| 285 | a.title:hover { background-color: #d9d8d1; } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 286 | div.title_text { padding:6px 0px; border: solid #d9d8d1; border-width:0px 0px 1px; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 287 | div.log_body { padding:8px 8px 8px 150px; } |
Kay Sievers | 440c600 | 2005-08-07 20:24:01 +0200 | [diff] [blame] | 288 | span.age { position:relative; float:left; width:142px; font-style:italic; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 289 | div.log_link { |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 290 | padding:0px 8px; |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 291 | font-size:10px; font-family:sans-serif; font-style:normal; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 292 | position:relative; float:left; width:136px; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 293 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 294 | div.list_head { padding:6px 8px 4px; border:solid #d9d8d1; border-width:1px 0px 0px; font-style:italic; } |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 295 | a.list { text-decoration:none; color:#000000; } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 296 | a.list:hover { text-decoration:underline; color:#880000; } |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 297 | a.text { text-decoration:none; color:#0000cc; } |
| 298 | a.text:visited { text-decoration:none; color:#880000; } |
| 299 | a.text:hover { text-decoration:underline; color:#880000; } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 300 | table { padding:8px 4px; } |
| 301 | th { padding:2px 5px; font-size:12px; text-align:left; } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 302 | tr.light:hover { background-color:#edece6; } |
| 303 | tr.dark { background-color:#f6f6f0; } |
| 304 | tr.dark:hover { background-color:#edece6; } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 305 | td { padding:2px 5px; font-size:12px; vertical-align:top; } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 306 | td.link { padding:2px 5px; font-family:sans-serif; font-size:10px; } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 307 | div.pre { font-family:monospace; font-size:12px; white-space:pre; } |
| 308 | div.diff_info { font-family:monospace; color:#000099; background-color:#edece6; font-style:italic; } |
Kay Sievers | 8ab1da2 | 2005-08-07 20:22:53 +0200 | [diff] [blame] | 309 | div.index_include { border:solid #d9d8d1; border-width:0px 0px 1px; padding:12px 8px; } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 310 | div.search { margin:4px 8px; position:absolute; top:56px; right:12px } |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 311 | a.linenr { color:#999999; text-decoration:none } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 312 | a.rss_logo { |
| 313 | float:right; padding:3px 0px; width:35px; line-height:10px; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 314 | border:1px solid; border-color:#fcc7a5 #7d3302 #3e1a01 #ff954e; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 315 | color:#ffffff; background-color:#ff6600; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 316 | font-weight:bold; font-family:sans-serif; font-size:10px; |
| 317 | text-align:center; text-decoration:none; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 318 | } |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 319 | a.rss_logo:hover { background-color:#ee5500; } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 320 | span.tag { |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 321 | padding:0px 4px; font-size:10px; font-weight:normal; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 322 | background-color:#ffffaa; border:1px solid; border-color:#ffffcc #ffee00 #ffee00 #ffffcc; |
| 323 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 324 | </style> |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 325 | </head> |
| 326 | <body> |
| 327 | EOF |
Kay Sievers | ff7669a | 2005-08-07 20:13:02 +0200 | [diff] [blame] | 328 | print "<div class=\"page_header\">\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 329 | "<a href=\"http://www.kernel.org/pub/software/scm/git/docs/\" title=\"git documentation\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 330 | "<img src=\"$my_uri?" . esc_param("a=git-logo.png") . "\" width=\"72\" height=\"27\" alt=\"git\" style=\"float:right; border-width:0px;\"/>" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 331 | "</a>\n"; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 332 | print $cgi->a({-href => esc_param($home_link)}, "projects") . " / "; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 333 | if (defined $project) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 334 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, esc_html($project)); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 335 | if (defined $action) { |
| 336 | print " / $action"; |
| 337 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 338 | print "\n"; |
| 339 | if (!defined $searchtext) { |
| 340 | $searchtext = ""; |
| 341 | } |
Kay Sievers | c39e47d | 2005-09-17 03:00:21 +0200 | [diff] [blame] | 342 | my $search_hash; |
| 343 | if (defined $hash) { |
| 344 | $search_hash = $hash; |
| 345 | } else { |
| 346 | $search_hash = "HEAD"; |
| 347 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 348 | $cgi->param("a", "search"); |
Kay Sievers | c39e47d | 2005-09-17 03:00:21 +0200 | [diff] [blame] | 349 | $cgi->param("h", $search_hash); |
Kay Sievers | 353347b | 2005-11-14 05:47:18 +0100 | [diff] [blame] | 350 | print $cgi->startform(-method => "get", -action => $my_uri) . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 351 | "<div class=\"search\">\n" . |
| 352 | $cgi->hidden(-name => "p") . "\n" . |
| 353 | $cgi->hidden(-name => "a") . "\n" . |
Kay Sievers | c39e47d | 2005-09-17 03:00:21 +0200 | [diff] [blame] | 354 | $cgi->hidden(-name => "h") . "\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 355 | $cgi->textfield(-name => "s", -value => $searchtext) . "\n" . |
| 356 | "</div>" . |
| 357 | $cgi->end_form() . "\n"; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 358 | } |
| 359 | print "</div>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 360 | } |
| 361 | |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 362 | sub git_footer_html { |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 363 | print "<div class=\"page_footer\">\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 364 | if (defined $project) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 365 | my $descr = git_read_description($project); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 366 | if (defined $descr) { |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 367 | print "<div class=\"page_footer_text\">" . esc_html($descr) . "</div>\n"; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 368 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 369 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=rss"), -class => "rss_logo"}, "RSS") . "\n"; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 370 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 371 | print $cgi->a({-href => "$my_uri?" . esc_param("a=opml"), -class => "rss_logo"}, "OPML") . "\n"; |
Kay Sievers | ff7669a | 2005-08-07 20:13:02 +0200 | [diff] [blame] | 372 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 373 | print "</div>\n" . |
| 374 | "</body>\n" . |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 375 | "</html>"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 376 | } |
| 377 | |
Kay Sievers | 061cc7c | 2005-08-07 20:15:57 +0200 | [diff] [blame] | 378 | sub die_error { |
| 379 | my $status = shift || "403 Forbidden"; |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 380 | my $error = shift || "Malformed query, file missing or permission denied"; |
Kay Sievers | 664f4cc | 2005-08-07 20:17:19 +0200 | [diff] [blame] | 381 | |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 382 | git_header_html($status); |
| 383 | print "<div class=\"page_body\">\n" . |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 384 | "<br/><br/>\n" . |
| 385 | "$status - $error\n" . |
| 386 | "<br/>\n" . |
| 387 | "</div>\n"; |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 388 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 389 | exit; |
Kay Sievers | a59d4af | 2005-08-07 20:15:44 +0200 | [diff] [blame] | 390 | } |
| 391 | |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 392 | sub git_get_type { |
| 393 | my $hash = shift; |
| 394 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 395 | open my $fd, "-|", "$gitbin/git-cat-file -t $hash" or return; |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 396 | my $type = <$fd>; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 397 | close $fd or return; |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 398 | chomp $type; |
| 399 | return $type; |
| 400 | } |
| 401 | |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 402 | sub git_read_head { |
| 403 | my $project = shift; |
| 404 | my $oENV = $ENV{'GIT_DIR'}; |
| 405 | my $retval = undef; |
| 406 | $ENV{'GIT_DIR'} = "$projectroot/$project"; |
| 407 | if (open my $fd, "-|", "$gitbin/git-rev-parse", "--verify", "HEAD") { |
| 408 | my $head = <$fd>; |
| 409 | close $fd; |
Kay Sievers | 2c5c008 | 2006-01-17 03:50:20 +0100 | [diff] [blame] | 410 | if (defined $head && $head =~ /^([0-9a-fA-F]{40})$/) { |
| 411 | $retval = $1; |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 412 | } |
| 413 | } |
Kay Sievers | 2c5c008 | 2006-01-17 03:50:20 +0100 | [diff] [blame] | 414 | if (defined $oENV) { |
| 415 | $ENV{'GIT_DIR'} = $oENV; |
| 416 | } |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 417 | return $retval; |
| 418 | } |
| 419 | |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 420 | sub git_read_hash { |
Kay Sievers | 54b0a43 | 2005-08-07 20:08:03 +0200 | [diff] [blame] | 421 | my $path = shift; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 422 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 423 | open my $fd, "$projectroot/$path" or return undef; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 424 | my $head = <$fd>; |
| 425 | close $fd; |
| 426 | chomp $head; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 427 | if ($head =~ m/^[0-9a-fA-F]{40}$/) { |
| 428 | return $head; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 429 | } |
| 430 | } |
| 431 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 432 | sub git_read_description { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 433 | my $path = shift; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 434 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 435 | open my $fd, "$projectroot/$path/description" or return undef; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 436 | my $descr = <$fd>; |
| 437 | close $fd; |
| 438 | chomp $descr; |
| 439 | return $descr; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 440 | } |
| 441 | |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 442 | sub git_read_tag { |
| 443 | my $tag_id = shift; |
| 444 | my %tag; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 445 | my @comment; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 446 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 447 | open my $fd, "-|", "$gitbin/git-cat-file tag $tag_id" or return; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 448 | $tag{'id'} = $tag_id; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 449 | while (my $line = <$fd>) { |
| 450 | chomp $line; |
| 451 | if ($line =~ m/^object ([0-9a-fA-F]{40})$/) { |
| 452 | $tag{'object'} = $1; |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 453 | } elsif ($line =~ m/^type (.+)$/) { |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 454 | $tag{'type'} = $1; |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 455 | } elsif ($line =~ m/^tag (.+)$/) { |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 456 | $tag{'name'} = $1; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 457 | } elsif ($line =~ m/^tagger (.*) ([0-9]+) (.*)$/) { |
| 458 | $tag{'author'} = $1; |
| 459 | $tag{'epoch'} = $2; |
| 460 | $tag{'tz'} = $3; |
| 461 | } elsif ($line =~ m/--BEGIN/) { |
| 462 | push @comment, $line; |
| 463 | last; |
| 464 | } elsif ($line eq "") { |
| 465 | last; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 466 | } |
| 467 | } |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 468 | push @comment, <$fd>; |
| 469 | $tag{'comment'} = \@comment; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 470 | close $fd or return; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 471 | if (!defined $tag{'name'}) { |
| 472 | return |
| 473 | }; |
| 474 | return %tag |
| 475 | } |
| 476 | |
Kay Sievers | d263a6b | 2005-08-07 20:29:03 +0200 | [diff] [blame] | 477 | sub age_string { |
| 478 | my $age = shift; |
| 479 | my $age_str; |
| 480 | |
| 481 | if ($age > 60*60*24*365*2) { |
| 482 | $age_str = (int $age/60/60/24/365); |
| 483 | $age_str .= " years ago"; |
| 484 | } elsif ($age > 60*60*24*(365/12)*2) { |
| 485 | $age_str = int $age/60/60/24/(365/12); |
| 486 | $age_str .= " months ago"; |
| 487 | } elsif ($age > 60*60*24*7*2) { |
| 488 | $age_str = int $age/60/60/24/7; |
| 489 | $age_str .= " weeks ago"; |
| 490 | } elsif ($age > 60*60*24*2) { |
| 491 | $age_str = int $age/60/60/24; |
| 492 | $age_str .= " days ago"; |
| 493 | } elsif ($age > 60*60*2) { |
| 494 | $age_str = int $age/60/60; |
| 495 | $age_str .= " hours ago"; |
| 496 | } elsif ($age > 60*2) { |
| 497 | $age_str = int $age/60; |
| 498 | $age_str .= " min ago"; |
| 499 | } elsif ($age > 2) { |
| 500 | $age_str = int $age; |
| 501 | $age_str .= " sec ago"; |
| 502 | } else { |
| 503 | $age_str .= " right now"; |
| 504 | } |
| 505 | return $age_str; |
| 506 | } |
| 507 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 508 | sub git_read_commit { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 509 | my $commit_id = shift; |
| 510 | my $commit_text = shift; |
| 511 | |
| 512 | my @commit_lines; |
Kay Sievers | 703ac71 | 2005-08-07 20:03:14 +0200 | [diff] [blame] | 513 | my %co; |
Kay Sievers | 703ac71 | 2005-08-07 20:03:14 +0200 | [diff] [blame] | 514 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 515 | if (defined $commit_text) { |
| 516 | @commit_lines = @$commit_text; |
| 517 | } else { |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 518 | $/ = "\0"; |
| 519 | open my $fd, "-|", "$gitbin/git-rev-list --header --parents --max-count=1 $commit_id" or return; |
| 520 | @commit_lines = split '\n', <$fd>; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 521 | close $fd or return; |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 522 | $/ = "\n"; |
| 523 | pop @commit_lines; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 524 | } |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 525 | my $header = shift @commit_lines; |
| 526 | if (!($header =~ m/^[0-9a-fA-F]{40}/)) { |
| 527 | return; |
| 528 | } |
| 529 | ($co{'id'}, my @parents) = split ' ', $header; |
| 530 | $co{'parents'} = \@parents; |
| 531 | $co{'parent'} = $parents[0]; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 532 | while (my $line = shift @commit_lines) { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 533 | last if $line eq "\n"; |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 534 | if ($line =~ m/^tree ([0-9a-fA-F]{40})$/) { |
Kay Sievers | 703ac71 | 2005-08-07 20:03:14 +0200 | [diff] [blame] | 535 | $co{'tree'} = $1; |
Kay Sievers | 022be3d | 2005-08-07 20:06:09 +0200 | [diff] [blame] | 536 | } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) { |
Kay Sievers | 3f71453 | 2005-08-07 20:03:52 +0200 | [diff] [blame] | 537 | $co{'author'} = $1; |
Kay Sievers | 185f09e | 2005-08-07 20:13:11 +0200 | [diff] [blame] | 538 | $co{'author_epoch'} = $2; |
| 539 | $co{'author_tz'} = $3; |
Kay Sievers | 2bf7a52 | 2005-08-07 20:26:03 +0200 | [diff] [blame] | 540 | if ($co{'author'} =~ m/^([^<]+) </) { |
| 541 | $co{'author_name'} = $1; |
| 542 | } else { |
| 543 | $co{'author_name'} = $co{'author'}; |
| 544 | } |
Kay Sievers | 86eed32 | 2005-08-07 20:08:29 +0200 | [diff] [blame] | 545 | } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) { |
| 546 | $co{'committer'} = $1; |
Kay Sievers | 185f09e | 2005-08-07 20:13:11 +0200 | [diff] [blame] | 547 | $co{'committer_epoch'} = $2; |
| 548 | $co{'committer_tz'} = $3; |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 549 | $co{'committer_name'} = $co{'committer'}; |
| 550 | $co{'committer_name'} =~ s/ <.*//; |
Kay Sievers | 703ac71 | 2005-08-07 20:03:14 +0200 | [diff] [blame] | 551 | } |
| 552 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 553 | if (!defined $co{'tree'}) { |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 554 | return; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 555 | }; |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 556 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 557 | foreach my $title (@commit_lines) { |
Kay Sievers | c2488d0 | 2005-12-07 16:32:51 +0100 | [diff] [blame] | 558 | $title =~ s/^ //; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 559 | if ($title ne "") { |
Kay Sievers | 48c771f | 2005-08-31 03:54:45 +0200 | [diff] [blame] | 560 | $co{'title'} = chop_str($title, 80, 5); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 561 | # remove leading stuff of merges to make the interesting part visible |
| 562 | if (length($title) > 50) { |
| 563 | $title =~ s/^Automatic //; |
| 564 | $title =~ s/^merge (of|with) /Merge ... /i; |
| 565 | if (length($title) > 50) { |
| 566 | $title =~ s/(http|rsync):\/\///; |
| 567 | } |
| 568 | if (length($title) > 50) { |
| 569 | $title =~ s/(master|www|rsync)\.//; |
| 570 | } |
| 571 | if (length($title) > 50) { |
| 572 | $title =~ s/kernel.org:?//; |
| 573 | } |
| 574 | if (length($title) > 50) { |
| 575 | $title =~ s/\/pub\/scm//; |
| 576 | } |
| 577 | } |
Kay Sievers | 48c771f | 2005-08-31 03:54:45 +0200 | [diff] [blame] | 578 | $co{'title_short'} = chop_str($title, 50, 5); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 579 | last; |
| 580 | } |
| 581 | } |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 582 | # remove added spaces |
| 583 | foreach my $line (@commit_lines) { |
| 584 | $line =~ s/^ //; |
| 585 | } |
| 586 | $co{'comment'} = \@commit_lines; |
Kay Sievers | 2ae100d | 2005-08-07 20:17:00 +0200 | [diff] [blame] | 587 | |
| 588 | my $age = time - $co{'committer_epoch'}; |
| 589 | $co{'age'} = $age; |
Kay Sievers | d263a6b | 2005-08-07 20:29:03 +0200 | [diff] [blame] | 590 | $co{'age_string'} = age_string($age); |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 591 | my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'committer_epoch'}); |
| 592 | if ($age > 60*60*24*7*2) { |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 593 | $co{'age_string_date'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 594 | $co{'age_string_age'} = $co{'age_string'}; |
| 595 | } else { |
| 596 | $co{'age_string_date'} = $co{'age_string'}; |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 597 | $co{'age_string_age'} = sprintf "%4i-%02u-%02i", 1900 + $year, $mon+1, $mday; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 598 | } |
Kay Sievers | 703ac71 | 2005-08-07 20:03:14 +0200 | [diff] [blame] | 599 | return %co; |
| 600 | } |
| 601 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 602 | sub git_diff_print { |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 603 | my $from = shift; |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 604 | my $from_name = shift; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 605 | my $to = shift; |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 606 | my $to_name = shift; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 607 | my $format = shift || "html"; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 608 | |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 609 | my $from_tmp = "/dev/null"; |
| 610 | my $to_tmp = "/dev/null"; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 611 | my $pid = $$; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 612 | |
Kay Sievers | ff7669a | 2005-08-07 20:13:02 +0200 | [diff] [blame] | 613 | # create tmp from-file |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 614 | if (defined $from) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 615 | $from_tmp = "$git_temp/gitweb_" . $$ . "_from"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 616 | open my $fd2, "> $from_tmp"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 617 | open my $fd, "-|", "$gitbin/git-cat-file blob $from"; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 618 | my @file = <$fd>; |
| 619 | print $fd2 @file; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 620 | close $fd2; |
| 621 | close $fd; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 622 | } |
| 623 | |
Kay Sievers | b531daf | 2005-08-07 19:55:05 +0200 | [diff] [blame] | 624 | # create tmp to-file |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 625 | if (defined $to) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 626 | $to_tmp = "$git_temp/gitweb_" . $$ . "_to"; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 627 | open my $fd2, "> $to_tmp"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 628 | open my $fd, "-|", "$gitbin/git-cat-file blob $to"; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 629 | my @file = <$fd>; |
| 630 | print $fd2 @file; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 631 | close $fd2; |
| 632 | close $fd; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 633 | } |
| 634 | |
Kay Sievers | 1821671 | 2005-11-14 06:10:07 +0100 | [diff] [blame] | 635 | open my $fd, "-|", "/usr/bin/diff -u -p -L \'$from_name\' -L \'$to_name\' $from_tmp $to_tmp"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 636 | if ($format eq "plain") { |
| 637 | undef $/; |
| 638 | print <$fd>; |
| 639 | $/ = "\n"; |
| 640 | } else { |
| 641 | while (my $line = <$fd>) { |
| 642 | chomp($line); |
| 643 | my $char = substr($line, 0, 1); |
| 644 | my $color = ""; |
| 645 | if ($char eq '+') { |
| 646 | $color = " style=\"color:#008800;\""; |
| 647 | } elsif ($char eq "-") { |
| 648 | $color = " style=\"color:#cc0000;\""; |
| 649 | } elsif ($char eq "@") { |
| 650 | $color = " style=\"color:#990099;\""; |
| 651 | } elsif ($char eq "\\") { |
| 652 | # skip errors |
| 653 | next; |
| 654 | } |
| 655 | while ((my $pos = index($line, "\t")) != -1) { |
| 656 | if (my $count = (8 - (($pos-1) % 8))) { |
| 657 | my $spaces = ' ' x $count; |
| 658 | $line =~ s/\t/$spaces/; |
| 659 | } |
| 660 | } |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 661 | print "<div class=\"pre\"$color>" . esc_html($line) . "</div>\n"; |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 662 | } |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 663 | } |
| 664 | close $fd; |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 665 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 666 | if (defined $from) { |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 667 | unlink($from_tmp); |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 668 | } |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 669 | if (defined $to) { |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 670 | unlink($to_tmp); |
Kay Sievers | 8ed23e1 | 2005-08-07 20:05:44 +0200 | [diff] [blame] | 671 | } |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 672 | } |
| 673 | |
Kay Sievers | d767d59 | 2005-08-07 20:05:55 +0200 | [diff] [blame] | 674 | sub mode_str { |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 675 | my $mode = oct shift; |
| 676 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 677 | if (S_ISDIR($mode & S_IFMT)) { |
| 678 | return 'drwxr-xr-x'; |
| 679 | } elsif (S_ISLNK($mode)) { |
| 680 | return 'lrwxrwxrwx'; |
| 681 | } elsif (S_ISREG($mode)) { |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 682 | # git cares only about the executable bit |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 683 | if ($mode & S_IXUSR) { |
| 684 | return '-rwxr-xr-x'; |
Kay Sievers | 54b0a43 | 2005-08-07 20:08:03 +0200 | [diff] [blame] | 685 | } else { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 686 | return '-rw-r--r--'; |
Kay Sievers | 54b0a43 | 2005-08-07 20:08:03 +0200 | [diff] [blame] | 687 | }; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 688 | } else { |
| 689 | return '----------'; |
Kay Sievers | d767d59 | 2005-08-07 20:05:55 +0200 | [diff] [blame] | 690 | } |
Kay Sievers | d767d59 | 2005-08-07 20:05:55 +0200 | [diff] [blame] | 691 | } |
| 692 | |
Kay Sievers | 2bf7a52 | 2005-08-07 20:26:03 +0200 | [diff] [blame] | 693 | sub chop_str { |
| 694 | my $str = shift; |
| 695 | my $len = shift; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 696 | my $add_len = shift || 10; |
Kay Sievers | 2bf7a52 | 2005-08-07 20:26:03 +0200 | [diff] [blame] | 697 | |
Kay Sievers | a48e11c | 2005-08-31 03:25:29 +0200 | [diff] [blame] | 698 | # allow only $len chars, but don't cut a word if it would fit in $add_len |
| 699 | # if it doesn't fit, cut it if it's still longer than the dots we would add |
| 700 | $str =~ m/^(.{0,$len}[^ \/\-_:\.@]{0,$add_len})(.*)/; |
| 701 | my $body = $1; |
| 702 | my $tail = $2; |
| 703 | if (length($tail) > 4) { |
| 704 | $tail = " ..."; |
Kay Sievers | 2bf7a52 | 2005-08-07 20:26:03 +0200 | [diff] [blame] | 705 | } |
Kay Sievers | a48e11c | 2005-08-31 03:25:29 +0200 | [diff] [blame] | 706 | return "$body$tail"; |
Kay Sievers | 2bf7a52 | 2005-08-07 20:26:03 +0200 | [diff] [blame] | 707 | } |
| 708 | |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 709 | sub file_type { |
| 710 | my $mode = oct shift; |
| 711 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 712 | if (S_ISDIR($mode & S_IFMT)) { |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 713 | return "directory"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 714 | } elsif (S_ISLNK($mode)) { |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 715 | return "symlink"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 716 | } elsif (S_ISREG($mode)) { |
| 717 | return "file"; |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 718 | } else { |
| 719 | return "unknown"; |
| 720 | } |
| 721 | } |
| 722 | |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 723 | sub format_log_line_html { |
| 724 | my $line = shift; |
| 725 | |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 726 | $line = esc_html($line); |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 727 | $line =~ s/ / /g; |
| 728 | if ($line =~ m/([0-9a-fA-F]{40})/) { |
| 729 | my $hash_text = $1; |
| 730 | if (git_get_type($hash_text) eq "commit") { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 731 | my $link = $cgi->a({-class => "text", -href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_text")}, $hash_text); |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 732 | $line =~ s/$hash_text/$link/; |
| 733 | } |
| 734 | } |
| 735 | return $line; |
| 736 | } |
| 737 | |
Kay Sievers | 86eed32 | 2005-08-07 20:08:29 +0200 | [diff] [blame] | 738 | sub date_str { |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 739 | my $epoch = shift; |
| 740 | my $tz = shift || "-0000"; |
Kay Sievers | 86eed32 | 2005-08-07 20:08:29 +0200 | [diff] [blame] | 741 | |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 742 | my %date; |
Kay Sievers | 86eed32 | 2005-08-07 20:08:29 +0200 | [diff] [blame] | 743 | my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); |
| 744 | my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"); |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 745 | my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch); |
| 746 | $date{'hour'} = $hour; |
Kay Sievers | ff7669a | 2005-08-07 20:13:02 +0200 | [diff] [blame] | 747 | $date{'minute'} = $min; |
| 748 | $date{'mday'} = $mday; |
| 749 | $date{'day'} = $days[$wday]; |
| 750 | $date{'month'} = $months[$mon]; |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 751 | $date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec; |
| 752 | $date{'mday-time'} = sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min; |
| 753 | |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 754 | $tz =~ m/^([+\-][0-9][0-9])([0-9][0-9])$/; |
| 755 | my $local = $epoch + ((int $1 + ($2/60)) * 3600); |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 756 | ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local); |
Kay Sievers | 185f09e | 2005-08-07 20:13:11 +0200 | [diff] [blame] | 757 | $date{'hour_local'} = $hour; |
| 758 | $date{'minute_local'} = $min; |
| 759 | $date{'tz_local'} = $tz; |
Kay Sievers | 991910a | 2005-08-07 20:09:33 +0200 | [diff] [blame] | 760 | return %date; |
Kay Sievers | 86eed32 | 2005-08-07 20:08:29 +0200 | [diff] [blame] | 761 | } |
| 762 | |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 763 | # git-logo (cached in browser for one day) |
Kay Sievers | eb28240 | 2005-08-07 20:21:34 +0200 | [diff] [blame] | 764 | sub git_logo { |
Kay Sievers | 8f1deb5 | 2005-11-23 16:02:13 +0100 | [diff] [blame] | 765 | binmode STDOUT, ':raw'; |
Kay Sievers | 022be3d | 2005-08-07 20:06:09 +0200 | [diff] [blame] | 766 | print $cgi->header(-type => 'image/png', -expires => '+1d'); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 767 | # cat git-logo.png | hexdump -e '16/1 " %02x" "\n"' | sed 's/ /\\x/g' |
| 768 | print "\x89\x50\x4e\x47\x0d\x0a\x1a\x0a\x00\x00\x00\x0d\x49\x48\x44\x52" . |
| 769 | "\x00\x00\x00\x48\x00\x00\x00\x1b\x04\x03\x00\x00\x00\x2d\xd9\xd4" . |
| 770 | "\x2d\x00\x00\x00\x18\x50\x4c\x54\x45\xff\xff\xff\x60\x60\x5d\xb0" . |
| 771 | "\xaf\xaa\x00\x80\x00\xce\xcd\xc7\xc0\x00\x00\xe8\xe8\xe6\xf7\xf7" . |
| 772 | "\xf6\x95\x0c\xa7\x47\x00\x00\x00\x73\x49\x44\x41\x54\x28\xcf\x63" . |
| 773 | "\x48\x67\x20\x04\x4a\x5c\x18\x0a\x08\x2a\x62\x53\x61\x20\x02\x08" . |
| 774 | "\x0d\x69\x45\xac\xa1\xa1\x01\x30\x0c\x93\x60\x36\x26\x52\x91\xb1" . |
| 775 | "\x01\x11\xd6\xe1\x55\x64\x6c\x6c\xcc\x6c\x6c\x0c\xa2\x0c\x70\x2a" . |
| 776 | "\x62\x06\x2a\xc1\x62\x1d\xb3\x01\x02\x53\xa4\x08\xe8\x00\x03\x18" . |
| 777 | "\x26\x56\x11\xd4\xe1\x20\x97\x1b\xe0\xb4\x0e\x35\x24\x71\x29\x82" . |
| 778 | "\x99\x30\xb8\x93\x0a\x11\xb9\x45\x88\xc1\x8d\xa0\xa2\x44\x21\x06" . |
| 779 | "\x27\x41\x82\x40\x85\xc1\x45\x89\x20\x70\x01\x00\xa4\x3d\x21\xc5" . |
| 780 | "\x12\x1c\x9a\xfe\x00\x00\x00\x00\x49\x45\x4e\x44\xae\x42\x60\x82"; |
Kay Sievers | 022be3d | 2005-08-07 20:06:09 +0200 | [diff] [blame] | 781 | } |
| 782 | |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 783 | sub get_file_owner { |
| 784 | my $path = shift; |
| 785 | |
| 786 | my ($dev, $ino, $mode, $nlink, $st_uid, $st_gid, $rdev, $size) = stat($path); |
| 787 | my ($name, $passwd, $uid, $gid, $quota, $comment, $gcos, $dir, $shell) = getpwuid($st_uid); |
| 788 | if (!defined $gcos) { |
| 789 | return undef; |
| 790 | } |
| 791 | my $owner = $gcos; |
| 792 | $owner =~ s/[,;].*$//; |
Kay Sievers | 281bf0c | 2006-05-01 03:40:22 +0200 | [diff] [blame] | 793 | return decode("utf8", $owner, Encode::FB_DEFAULT); |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 794 | } |
| 795 | |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 796 | sub git_read_projects { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 797 | my @list; |
| 798 | |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 799 | if (-d $projects_list) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 800 | # search in directory |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 801 | my $dir = $projects_list; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 802 | opendir my $dh, $dir or return undef; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 803 | while (my $dir = readdir($dh)) { |
| 804 | if (-e "$projectroot/$dir/HEAD") { |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 805 | my $pr = { |
| 806 | path => $dir, |
| 807 | }; |
| 808 | push @list, $pr |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 809 | } |
| 810 | } |
| 811 | closedir($dh); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 812 | } elsif (-f $projects_list) { |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 813 | # read from file(url-encoded): |
| 814 | # 'git%2Fgit.git Linus+Torvalds' |
| 815 | # 'libs%2Fklibc%2Fklibc.git H.+Peter+Anvin' |
| 816 | # 'linux%2Fhotplug%2Fudev.git Greg+Kroah-Hartman' |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 817 | open my $fd , $projects_list or return undef; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 818 | while (my $line = <$fd>) { |
| 819 | chomp $line; |
Kay Sievers | 7403d50 | 2005-08-07 20:23:49 +0200 | [diff] [blame] | 820 | my ($path, $owner) = split ' ', $line; |
| 821 | $path = unescape($path); |
| 822 | $owner = unescape($owner); |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 823 | if (!defined $path) { |
| 824 | next; |
| 825 | } |
| 826 | if (-e "$projectroot/$path/HEAD") { |
| 827 | my $pr = { |
| 828 | path => $path, |
Kay Sievers | 281bf0c | 2006-05-01 03:40:22 +0200 | [diff] [blame] | 829 | owner => decode("utf8", $owner, Encode::FB_DEFAULT), |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 830 | }; |
| 831 | push @list, $pr |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 832 | } |
| 833 | } |
| 834 | close $fd; |
| 835 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 836 | @list = sort {$a->{'path'} cmp $b->{'path'}} @list; |
| 837 | return @list; |
| 838 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 839 | |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 840 | sub git_project_list { |
| 841 | my @list = git_read_projects(); |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 842 | my @projects; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 843 | if (!@list) { |
| 844 | die_error(undef, "No project found."); |
| 845 | } |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 846 | foreach my $pr (@list) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 847 | my $head = git_read_head($pr->{'path'}); |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 848 | if (!defined $head) { |
| 849 | next; |
| 850 | } |
| 851 | $ENV{'GIT_DIR'} = "$projectroot/$pr->{'path'}"; |
| 852 | my %co = git_read_commit($head); |
| 853 | if (!%co) { |
| 854 | next; |
| 855 | } |
| 856 | $pr->{'commit'} = \%co; |
| 857 | if (!defined $pr->{'descr'}) { |
| 858 | my $descr = git_read_description($pr->{'path'}) || ""; |
| 859 | $pr->{'descr'} = chop_str($descr, 25, 5); |
| 860 | } |
| 861 | if (!defined $pr->{'owner'}) { |
| 862 | $pr->{'owner'} = get_file_owner("$projectroot/$pr->{'path'}") || ""; |
| 863 | } |
| 864 | push @projects, $pr; |
| 865 | } |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 866 | git_header_html(); |
Kay Sievers | 8ab1da2 | 2005-08-07 20:22:53 +0200 | [diff] [blame] | 867 | if (-f $home_text) { |
| 868 | print "<div class=\"index_include\">\n"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 869 | open (my $fd, $home_text); |
Kay Sievers | 8ab1da2 | 2005-08-07 20:22:53 +0200 | [diff] [blame] | 870 | print <$fd>; |
| 871 | close $fd; |
| 872 | print "</div>\n"; |
| 873 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 874 | print "<table cellspacing=\"0\">\n" . |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 875 | "<tr>\n"; |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 876 | if (!defined($order) || (defined($order) && ($order eq "project"))) { |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 877 | @projects = sort {$a->{'path'} cmp $b->{'path'}} @projects; |
| 878 | print "<th>Project</th>\n"; |
| 879 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 880 | print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=project")}, "Project") . "</th>\n"; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 881 | } |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 882 | if (defined($order) && ($order eq "descr")) { |
| 883 | @projects = sort {$a->{'descr'} cmp $b->{'descr'}} @projects; |
| 884 | print "<th>Description</th>\n"; |
| 885 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 886 | print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=descr")}, "Description") . "</th>\n"; |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 887 | } |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 888 | if (defined($order) && ($order eq "owner")) { |
| 889 | @projects = sort {$a->{'owner'} cmp $b->{'owner'}} @projects; |
| 890 | print "<th>Owner</th>\n"; |
| 891 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 892 | print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=owner")}, "Owner") . "</th>\n"; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 893 | } |
| 894 | if (defined($order) && ($order eq "age")) { |
| 895 | @projects = sort {$a->{'commit'}{'age'} <=> $b->{'commit'}{'age'}} @projects; |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 896 | print "<th>Last Change</th>\n"; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 897 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 898 | print "<th>" . $cgi->a({-class => "header", -href => "$my_uri?" . esc_param("o=age")}, "Last Change") . "</th>\n"; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 899 | } |
| 900 | print "<th></th>\n" . |
Kay Sievers | eb28240 | 2005-08-07 20:21:34 +0200 | [diff] [blame] | 901 | "</tr>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 902 | my $alternate = 0; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 903 | foreach my $pr (@projects) { |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 904 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 905 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 906 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 907 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 908 | } |
| 909 | $alternate ^= 1; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 910 | print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary"), -class => "list"}, esc_html($pr->{'path'})) . "</td>\n" . |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 911 | "<td>$pr->{'descr'}</td>\n" . |
| 912 | "<td><i>" . chop_str($pr->{'owner'}, 15) . "</i></td>\n"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 913 | my $colored_age; |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 914 | if ($pr->{'commit'}{'age'} < 60*60*2) { |
| 915 | $colored_age = "<span style =\"color: #009900;\"><b><i>$pr->{'commit'}{'age_string'}</i></b></span>"; |
| 916 | } elsif ($pr->{'commit'}{'age'} < 60*60*24*2) { |
| 917 | $colored_age = "<span style =\"color: #009900;\"><i>$pr->{'commit'}{'age_string'}</i></span>"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 918 | } else { |
Kay Sievers | f7ab660 | 2005-08-10 03:53:09 +0200 | [diff] [blame] | 919 | $colored_age = "<i>$pr->{'commit'}{'age_string'}</i>"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 920 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 921 | print "<td>$colored_age</td>\n" . |
| 922 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 923 | $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=summary")}, "summary") . |
| 924 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=shortlog")}, "shortlog") . |
| 925 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$pr->{'path'};a=log")}, "log") . |
Kay Sievers | 9ea82aa | 2005-08-07 20:23:24 +0200 | [diff] [blame] | 926 | "</td>\n" . |
| 927 | "</tr>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 928 | } |
Kay Sievers | 7ab0d2b | 2005-08-07 20:25:54 +0200 | [diff] [blame] | 929 | print "</table>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 930 | git_footer_html(); |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 931 | } |
| 932 | |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 933 | sub read_info_ref { |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 934 | my $type = shift || ""; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 935 | my %refs; |
| 936 | # 5dc01c595e6c6ec9ccda4f6f69c131c0dd945f8c refs/tags/v2.6.11 |
| 937 | # c39ae07f393806ccf406ef966e9a15afc43cc36a refs/tags/v2.6.11^{} |
| 938 | open my $fd, "$projectroot/$project/info/refs" or return; |
| 939 | while (my $line = <$fd>) { |
Kay Sievers | c2488d0 | 2005-12-07 16:32:51 +0100 | [diff] [blame] | 940 | chomp($line); |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 941 | if ($line =~ m/^([0-9a-fA-F]{40})\t.*$type\/([^\^]+)/) { |
Kay Sievers | 045e531 | 2005-12-07 10:12:55 +0100 | [diff] [blame] | 942 | if (defined $refs{$1}) { |
| 943 | $refs{$1} .= " / $2"; |
| 944 | } else { |
| 945 | $refs{$1} = $2; |
| 946 | } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 947 | } |
| 948 | } |
| 949 | close $fd or return; |
| 950 | return \%refs; |
| 951 | } |
| 952 | |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 953 | sub git_read_refs { |
| 954 | my $ref_dir = shift; |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 955 | my @reflist; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 956 | |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 957 | my @refs; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 958 | opendir my $dh, "$projectroot/$project/$ref_dir"; |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 959 | while (my $dir = readdir($dh)) { |
| 960 | if ($dir =~ m/^\./) { |
| 961 | next; |
| 962 | } |
| 963 | if (-d "$projectroot/$project/$ref_dir/$dir") { |
| 964 | opendir my $dh2, "$projectroot/$project/$ref_dir/$dir"; |
| 965 | my @subdirs = grep !m/^\./, readdir $dh2; |
| 966 | closedir($dh2); |
| 967 | foreach my $subdir (@subdirs) { |
| 968 | push @refs, "$dir/$subdir" |
| 969 | } |
| 970 | next; |
| 971 | } |
| 972 | push @refs, $dir; |
| 973 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 974 | closedir($dh); |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 975 | foreach my $ref_file (@refs) { |
| 976 | my $ref_id = git_read_hash("$project/$ref_dir/$ref_file"); |
| 977 | my $type = git_get_type($ref_id) || next; |
| 978 | my %ref_item; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 979 | my %co; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 980 | $ref_item{'type'} = $type; |
| 981 | $ref_item{'id'} = $ref_id; |
Kay Sievers | d263a6b | 2005-08-07 20:29:03 +0200 | [diff] [blame] | 982 | $ref_item{'epoch'} = 0; |
| 983 | $ref_item{'age'} = "unknown"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 984 | if ($type eq "tag") { |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 985 | my %tag = git_read_tag($ref_id); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 986 | $ref_item{'comment'} = $tag{'comment'}; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 987 | if ($tag{'type'} eq "commit") { |
| 988 | %co = git_read_commit($tag{'object'}); |
Kay Sievers | d263a6b | 2005-08-07 20:29:03 +0200 | [diff] [blame] | 989 | $ref_item{'epoch'} = $co{'committer_epoch'}; |
| 990 | $ref_item{'age'} = $co{'age_string'}; |
| 991 | } elsif (defined($tag{'epoch'})) { |
| 992 | my $age = time - $tag{'epoch'}; |
| 993 | $ref_item{'epoch'} = $tag{'epoch'}; |
| 994 | $ref_item{'age'} = age_string($age); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 995 | } |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 996 | $ref_item{'reftype'} = $tag{'type'}; |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 997 | $ref_item{'name'} = $tag{'name'}; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 998 | $ref_item{'refid'} = $tag{'object'}; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 999 | } elsif ($type eq "commit"){ |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 1000 | %co = git_read_commit($ref_id); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1001 | $ref_item{'reftype'} = "commit"; |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 1002 | $ref_item{'name'} = $ref_file; |
| 1003 | $ref_item{'title'} = $co{'title'}; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1004 | $ref_item{'refid'} = $ref_id; |
Kay Sievers | d263a6b | 2005-08-07 20:29:03 +0200 | [diff] [blame] | 1005 | $ref_item{'epoch'} = $co{'committer_epoch'}; |
| 1006 | $ref_item{'age'} = $co{'age_string'}; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1007 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1008 | |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 1009 | push @reflist, \%ref_item; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1010 | } |
| 1011 | # sort tags by age |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 1012 | @reflist = sort {$b->{'epoch'} <=> $a->{'epoch'}} @reflist; |
| 1013 | return \@reflist; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1014 | } |
| 1015 | |
| 1016 | sub git_summary { |
| 1017 | my $descr = git_read_description($project) || "none"; |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1018 | my $head = git_read_head($project); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1019 | my %co = git_read_commit($head); |
| 1020 | my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'}); |
| 1021 | |
| 1022 | my $owner; |
| 1023 | if (-f $projects_list) { |
| 1024 | open (my $fd , $projects_list); |
| 1025 | while (my $line = <$fd>) { |
| 1026 | chomp $line; |
Kay Sievers | 7403d50 | 2005-08-07 20:23:49 +0200 | [diff] [blame] | 1027 | my ($pr, $ow) = split ' ', $line; |
| 1028 | $pr = unescape($pr); |
| 1029 | $ow = unescape($ow); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1030 | if ($pr eq $project) { |
Kay Sievers | 281bf0c | 2006-05-01 03:40:22 +0200 | [diff] [blame] | 1031 | $owner = decode("utf8", $ow, Encode::FB_DEFAULT); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1032 | last; |
| 1033 | } |
| 1034 | } |
| 1035 | close $fd; |
| 1036 | } |
| 1037 | if (!defined $owner) { |
| 1038 | $owner = get_file_owner("$projectroot/$project"); |
| 1039 | } |
| 1040 | |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1041 | my $refs = read_info_ref(); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1042 | git_header_html(); |
| 1043 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1044 | "summary". |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1045 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1046 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1047 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") . |
| 1048 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") . |
| 1049 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree")}, "tree") . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1050 | "<br/><br/>\n" . |
| 1051 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1052 | print "<div class=\"title\"> </div>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1053 | print "<table cellspacing=\"0\">\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1054 | "<tr><td>description</td><td>" . esc_html($descr) . "</td></tr>\n" . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1055 | "<tr><td>owner</td><td>$owner</td></tr>\n" . |
| 1056 | "<tr><td>last change</td><td>$cd{'rfc2822'}</td></tr>\n" . |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1057 | "</table>\n"; |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1058 | open my $fd, "-|", "$gitbin/git-rev-list --max-count=17 " . git_read_head($project) or die_error(undef, "Open failed."); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1059 | my (@revlist) = map { chomp; $_ } <$fd>; |
| 1060 | close $fd; |
| 1061 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1062 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog"), -class => "title"}, "shortlog") . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1063 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1064 | my $i = 16; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1065 | print "<table cellspacing=\"0\">\n"; |
| 1066 | my $alternate = 0; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1067 | foreach my $commit (@revlist) { |
| 1068 | my %co = git_read_commit($commit); |
| 1069 | my %ad = date_str($co{'author_epoch'}); |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1070 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1071 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1072 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1073 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1074 | } |
| 1075 | $alternate ^= 1; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1076 | if ($i-- > 0) { |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 1077 | my $ref = ""; |
| 1078 | if (defined $refs->{$commit}) { |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1079 | $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>"; |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 1080 | } |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1081 | print "<td><i>$co{'age_string'}</i></td>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1082 | "<td><i>" . esc_html(chop_str($co{'author_name'}, 10)) . "</i></td>\n" . |
Kay Sievers | c24fd7b | 2005-08-31 03:47:13 +0200 | [diff] [blame] | 1083 | "<td>"; |
| 1084 | if (length($co{'title_short'}) < length($co{'title'})) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1085 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list", -title => "$co{'title'}"}, |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 1086 | "<b>" . esc_html($co{'title_short'}) . "$ref</b>"); |
Kay Sievers | c24fd7b | 2005-08-31 03:47:13 +0200 | [diff] [blame] | 1087 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1088 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"}, |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 1089 | "<b>" . esc_html($co{'title'}) . "$ref</b>"); |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1090 | } |
Kay Sievers | 76a8323 | 2005-08-31 04:11:33 +0200 | [diff] [blame] | 1091 | print "</td>\n" . |
Kay Sievers | a4d26ef | 2005-08-07 20:24:51 +0200 | [diff] [blame] | 1092 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1093 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") . |
| 1094 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") . |
Kay Sievers | a4d26ef | 2005-08-07 20:24:51 +0200 | [diff] [blame] | 1095 | "</td>\n" . |
Kay Sievers | 440c600 | 2005-08-07 20:24:01 +0200 | [diff] [blame] | 1096 | "</tr>"; |
| 1097 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1098 | print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "...") . "</td>\n" . |
Kay Sievers | 440c600 | 2005-08-07 20:24:01 +0200 | [diff] [blame] | 1099 | "</tr>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1100 | last; |
| 1101 | } |
| 1102 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1103 | print "</table\n>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1104 | |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1105 | my $taglist = git_read_refs("refs/tags"); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1106 | if (defined @$taglist) { |
| 1107 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1108 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tags"), -class => "title"}, "tags") . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1109 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1110 | my $i = 16; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1111 | print "<table cellspacing=\"0\">\n"; |
| 1112 | my $alternate = 0; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1113 | foreach my $entry (@$taglist) { |
| 1114 | my %tag = %$entry; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1115 | my $comment_lines = $tag{'comment'}; |
| 1116 | my $comment = shift @$comment_lines; |
| 1117 | if (defined($comment)) { |
| 1118 | $comment = chop_str($comment, 30, 5); |
| 1119 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1120 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1121 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1122 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1123 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1124 | } |
| 1125 | $alternate ^= 1; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1126 | if ($i-- > 0) { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1127 | print "<td><i>$tag{'age'}</i></td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1128 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1129 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}"), -class => "list"}, |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1130 | "<b>" . esc_html($tag{'name'}) . "</b>") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1131 | "</td>\n" . |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1132 | "<td>"; |
| 1133 | if (defined($comment)) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1134 | print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1135 | } |
| 1136 | print "</td>\n" . |
| 1137 | "<td class=\"link\">"; |
| 1138 | if ($tag{'type'} eq "tag") { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1139 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | "; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1140 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1141 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'}); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1142 | if ($tag{'reftype'} eq "commit") { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1143 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
| 1144 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1145 | } |
| 1146 | print "</td>\n" . |
Kay Sievers | 440c600 | 2005-08-07 20:24:01 +0200 | [diff] [blame] | 1147 | "</tr>"; |
| 1148 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1149 | print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tags")}, "...") . "</td>\n" . |
Kay Sievers | 440c600 | 2005-08-07 20:24:01 +0200 | [diff] [blame] | 1150 | "</tr>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1151 | last; |
| 1152 | } |
| 1153 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1154 | print "</table\n>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1155 | } |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1156 | |
Kay Sievers | d8f1c5c | 2005-10-04 01:12:47 +0200 | [diff] [blame] | 1157 | my $headlist = git_read_refs("refs/heads"); |
| 1158 | if (defined @$headlist) { |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1159 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1160 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=heads"), -class => "title"}, "heads") . |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1161 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1162 | my $i = 16; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1163 | print "<table cellspacing=\"0\">\n"; |
| 1164 | my $alternate = 0; |
Kay Sievers | d8f1c5c | 2005-10-04 01:12:47 +0200 | [diff] [blame] | 1165 | foreach my $entry (@$headlist) { |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1166 | my %tag = %$entry; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1167 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1168 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1169 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1170 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1171 | } |
| 1172 | $alternate ^= 1; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1173 | if ($i-- > 0) { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1174 | print "<td><i>$tag{'age'}</i></td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1175 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1176 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}"), -class => "list"}, |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1177 | "<b>" . esc_html($tag{'name'}) . "</b>") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1178 | "</td>\n" . |
| 1179 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1180 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
| 1181 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'name'}")}, "log") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1182 | "</td>\n" . |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1183 | "</tr>"; |
| 1184 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1185 | print "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=heads")}, "...") . "</td>\n" . |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1186 | "</tr>"; |
| 1187 | last; |
| 1188 | } |
| 1189 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1190 | print "</table\n>"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1191 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1192 | git_footer_html(); |
| 1193 | } |
| 1194 | |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1195 | sub git_tag { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1196 | my $head = git_read_head($project); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1197 | git_header_html(); |
| 1198 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1199 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1200 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1201 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1202 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") . |
| 1203 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") . |
| 1204 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" . |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1205 | "<br/>\n" . |
| 1206 | "</div>\n"; |
| 1207 | my %tag = git_read_tag($hash); |
| 1208 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1209 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($tag{'name'})) . "\n" . |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1210 | "</div>\n"; |
| 1211 | print "<div class=\"title_text\">\n" . |
| 1212 | "<table cellspacing=\"0\">\n" . |
Kay Sievers | e4669df | 2005-08-08 00:02:39 +0200 | [diff] [blame] | 1213 | "<tr>\n" . |
| 1214 | "<td>object</td>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1215 | "<td>" . $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=$tag{'type'};h=$tag{'object'}")}, $tag{'object'}) . "</td>\n" . |
| 1216 | "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'type'};h=$tag{'object'}")}, $tag{'type'}) . "</td>\n" . |
Kay Sievers | e4669df | 2005-08-08 00:02:39 +0200 | [diff] [blame] | 1217 | "</tr>\n"; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1218 | if (defined($tag{'author'})) { |
| 1219 | my %ad = date_str($tag{'epoch'}, $tag{'tz'}); |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1220 | print "<tr><td>author</td><td>" . esc_html($tag{'author'}) . "</td></tr>\n"; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1221 | print "<tr><td></td><td>" . $ad{'rfc2822'} . sprintf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}) . "</td></tr>\n"; |
| 1222 | } |
| 1223 | print "</table>\n\n" . |
| 1224 | "</div>\n"; |
| 1225 | print "<div class=\"page_body\">"; |
| 1226 | my $comment = $tag{'comment'}; |
| 1227 | foreach my $line (@$comment) { |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1228 | print esc_html($line) . "<br/>\n"; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1229 | } |
| 1230 | print "</div>\n"; |
| 1231 | git_footer_html(); |
| 1232 | } |
| 1233 | |
Florian Forster | e34ef62 | 2006-06-11 17:45:19 +0200 | [diff] [blame^] | 1234 | sub git_blame { |
| 1235 | my $fd; |
| 1236 | die_error('404 Not Found', "What file will it be, master?") if (!$file_name); |
| 1237 | $hash_base ||= git_read_head($project); |
| 1238 | die_error(undef, "Reading commit failed.") unless ($hash_base); |
| 1239 | my %co = git_read_commit($hash_base) |
| 1240 | or die_error(undef, "Reading commit failed."); |
| 1241 | if (!defined $hash) { |
| 1242 | $hash = git_get_hash_by_path($hash_base, $file_name, "blob") |
| 1243 | or die_error(undef, "Error lookup file."); |
| 1244 | } |
| 1245 | open ($fd, "-|", "$gitbin/git-annotate", '-l', '-t', '-r', $file_name, $hash_base) |
| 1246 | or die_error(undef, "Open failed."); |
| 1247 | git_header_html(); |
| 1248 | print "<div class=\"page_nav\">\n" . |
| 1249 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1250 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1251 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1252 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") . |
| 1253 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") . |
| 1254 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n"; |
| 1255 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, "blob") . |
| 1256 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;f=$file_name")}, "head") . "<br/>\n"; |
| 1257 | print "</div>\n". |
| 1258 | "<div>" . |
| 1259 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) . |
| 1260 | "</div>\n"; |
| 1261 | print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n"; |
| 1262 | print "<div class=\"page_body\">\n"; |
| 1263 | print <<HTML; |
| 1264 | <table style="border-collapse: collapse;"> |
| 1265 | <tr> |
| 1266 | <th>Commit</th> |
| 1267 | <th>Age</th> |
| 1268 | <th>Author</th> |
| 1269 | <th>Line</th> |
| 1270 | <th>Data</th> |
| 1271 | </tr> |
| 1272 | HTML |
| 1273 | my @line_class = (qw(light dark)); |
| 1274 | my $line_class_len = scalar (@line_class); |
| 1275 | my $line_class_num = $#line_class; |
| 1276 | while (my $line = <$fd>) { |
| 1277 | my $long_rev; |
| 1278 | my $short_rev; |
| 1279 | my $author; |
| 1280 | my $time; |
| 1281 | my $lineno; |
| 1282 | my $data; |
| 1283 | my $age; |
| 1284 | my $age_str; |
| 1285 | my $age_style; |
| 1286 | |
| 1287 | chomp $line; |
| 1288 | $line_class_num = ($line_class_num + 1) % $line_class_len; |
| 1289 | |
| 1290 | if ($line =~ m/^([0-9a-fA-F]{40})\t\(\s*([^\t]+)\t(\d+) \+\d\d\d\d\t(\d+)\)(.*)$/) { |
| 1291 | $long_rev = $1; |
| 1292 | $author = $2; |
| 1293 | $time = $3; |
| 1294 | $lineno = $4; |
| 1295 | $data = $5; |
| 1296 | } else { |
| 1297 | print qq( <tr><td colspan="5" style="color: red; background-color: yellow;">Unable to parse: $line</td></tr>\n); |
| 1298 | next; |
| 1299 | } |
| 1300 | $short_rev = substr ($long_rev, 0, 8); |
| 1301 | $age = time () - $time; |
| 1302 | $age_str = age_string ($age); |
| 1303 | $age_str =~ s/ / /g; |
| 1304 | $age_style = 'font-style: italic;'; |
| 1305 | $age_style .= ' color: #009900; background: transparent;' if ($age < 60*60*24*2); |
| 1306 | $age_style .= ' font-weight: bold;' if ($age < 60*60*2); |
| 1307 | $author = esc_html ($author); |
| 1308 | $author =~ s/ / /g; |
| 1309 | # escape tabs |
| 1310 | while ((my $pos = index($data, "\t")) != -1) { |
| 1311 | if (my $count = (8 - ($pos % 8))) { |
| 1312 | my $spaces = ' ' x $count; |
| 1313 | $data =~ s/\t/$spaces/; |
| 1314 | } |
| 1315 | } |
| 1316 | $data = esc_html ($data); |
| 1317 | $data =~ s/ / /g; |
| 1318 | |
| 1319 | print <<HTML; |
| 1320 | <tr class="$line_class[$line_class_num]"> |
| 1321 | <td style="font-family: monospace;"><a href="$my_uri?${\esc_param ("p=$project;a=commit;h=$long_rev")}" class="text">$short_rev..</a></td> |
| 1322 | <td style="$age_style">$age_str</td> |
| 1323 | <td>$author</td> |
| 1324 | <td style="text-align: right;"><a id="$lineno" href="#$lineno" class="linenr">$lineno</a></td> |
| 1325 | <td style="font-family: monospace;">$data</td> |
| 1326 | </tr> |
| 1327 | HTML |
| 1328 | } # while (my $line = <$fd>) |
| 1329 | print "</table>\n\n"; |
| 1330 | close $fd or print "Reading blob failed.\n"; |
| 1331 | print "</div>"; |
| 1332 | git_footer_html(); |
| 1333 | } |
| 1334 | |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1335 | sub git_tags { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1336 | my $head = git_read_head($project); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1337 | git_header_html(); |
| 1338 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1339 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1340 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1341 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1342 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") . |
| 1343 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") . |
| 1344 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1345 | "<br/>\n" . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1346 | "</div>\n"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1347 | my $taglist = git_read_refs("refs/tags"); |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1348 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1349 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, " ") . |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1350 | "</div>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1351 | print "<table cellspacing=\"0\">\n"; |
| 1352 | my $alternate = 0; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1353 | if (defined @$taglist) { |
| 1354 | foreach my $entry (@$taglist) { |
| 1355 | my %tag = %$entry; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1356 | my $comment_lines = $tag{'comment'}; |
| 1357 | my $comment = shift @$comment_lines; |
| 1358 | if (defined($comment)) { |
| 1359 | $comment = chop_str($comment, 30, 5); |
| 1360 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1361 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1362 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1363 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1364 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1365 | } |
| 1366 | $alternate ^= 1; |
| 1367 | print "<td><i>$tag{'age'}</i></td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1368 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1369 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}"), -class => "list"}, |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1370 | "<b>" . esc_html($tag{'name'}) . "</b>") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1371 | "</td>\n" . |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1372 | "<td>"; |
| 1373 | if (defined($comment)) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1374 | print $cgi->a({-class => "list", -href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, $comment); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1375 | } |
| 1376 | print "</td>\n" . |
| 1377 | "<td class=\"link\">"; |
| 1378 | if ($tag{'type'} eq "tag") { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1379 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tag;h=$tag{'id'}")}, "tag") . " | "; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1380 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1381 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=$tag{'reftype'};h=$tag{'refid'}")}, $tag{'reftype'}); |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1382 | if ($tag{'reftype'} eq "commit") { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1383 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
| 1384 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'refid'}")}, "log"); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1385 | } |
| 1386 | print "</td>\n" . |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1387 | "</tr>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1388 | } |
| 1389 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1390 | print "</table\n>"; |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1391 | git_footer_html(); |
| 1392 | } |
| 1393 | |
Kay Sievers | d8f1c5c | 2005-10-04 01:12:47 +0200 | [diff] [blame] | 1394 | sub git_heads { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1395 | my $head = git_read_head($project); |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1396 | git_header_html(); |
| 1397 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1398 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1399 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1400 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1401 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$head")}, "commit") . |
| 1402 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$head")}, "commitdiff") . |
| 1403 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;hb=$head")}, "tree") . "<br/>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1404 | "<br/>\n" . |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1405 | "</div>\n"; |
| 1406 | my $taglist = git_read_refs("refs/heads"); |
| 1407 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1408 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, " ") . |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1409 | "</div>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1410 | print "<table cellspacing=\"0\">\n"; |
| 1411 | my $alternate = 0; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1412 | if (defined @$taglist) { |
| 1413 | foreach my $entry (@$taglist) { |
| 1414 | my %tag = %$entry; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1415 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1416 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1417 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1418 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1419 | } |
| 1420 | $alternate ^= 1; |
| 1421 | print "<td><i>$tag{'age'}</i></td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1422 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1423 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}"), -class => "list"}, "<b>" . esc_html($tag{'name'}) . "</b>") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1424 | "</td>\n" . |
| 1425 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1426 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$tag{'name'}")}, "shortlog") . |
| 1427 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$tag{'name'}")}, "log") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1428 | "</td>\n" . |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1429 | "</tr>"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1430 | } |
| 1431 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1432 | print "</table\n>"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1433 | git_footer_html(); |
| 1434 | } |
| 1435 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1436 | sub git_get_hash_by_path { |
| 1437 | my $base = shift; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1438 | my $path = shift || return undef; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1439 | |
| 1440 | my $tree = $base; |
| 1441 | my @parts = split '/', $path; |
| 1442 | while (my $part = shift @parts) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1443 | open my $fd, "-|", "$gitbin/git-ls-tree $tree" or die_error(undef, "Open git-ls-tree failed."); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1444 | my (@entries) = map { chomp; $_ } <$fd>; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1445 | close $fd or return undef; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1446 | foreach my $line (@entries) { |
| 1447 | #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c' |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1448 | $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1449 | my $t_mode = $1; |
| 1450 | my $t_type = $2; |
| 1451 | my $t_hash = $3; |
Kay Sievers | ae78620 | 2005-11-24 18:14:25 +0100 | [diff] [blame] | 1452 | my $t_name = validate_input(unquote($4)); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1453 | if ($t_name eq $part) { |
| 1454 | if (!(@parts)) { |
| 1455 | return $t_hash; |
| 1456 | } |
| 1457 | if ($t_type eq "tree") { |
| 1458 | $tree = $t_hash; |
| 1459 | } |
| 1460 | last; |
| 1461 | } |
| 1462 | } |
| 1463 | } |
| 1464 | } |
| 1465 | |
| 1466 | sub git_blob { |
| 1467 | if (!defined $hash && defined $file_name) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1468 | my $base = $hash_base || git_read_head($project); |
Kay Sievers | ae78620 | 2005-11-24 18:14:25 +0100 | [diff] [blame] | 1469 | $hash = git_get_hash_by_path($base, $file_name, "blob") || die_error(undef, "Error lookup file."); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1470 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1471 | open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or die_error(undef, "Open failed."); |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 1472 | git_header_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1473 | if (defined $hash_base && (my %co = git_read_commit($hash_base))) { |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1474 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1475 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1476 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 1477 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 1478 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") . |
| 1479 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") . |
| 1480 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . "<br/>\n"; |
Kay Sievers | 9312944 | 2005-10-17 03:27:54 +0200 | [diff] [blame] | 1481 | if (defined $file_name) { |
Florian Forster | e34ef62 | 2006-06-11 17:45:19 +0200 | [diff] [blame^] | 1482 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$hash;hb=$hash_base;f=$file_name")}, "blame") . |
| 1483 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash;f=$file_name")}, "plain") . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1484 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=HEAD;f=$file_name")}, "head") . "<br/>\n"; |
Kay Sievers | 9312944 | 2005-10-17 03:27:54 +0200 | [diff] [blame] | 1485 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1486 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob_plain;h=$hash")}, "plain") . "<br/>\n"; |
Kay Sievers | 9312944 | 2005-10-17 03:27:54 +0200 | [diff] [blame] | 1487 | } |
| 1488 | print "</div>\n". |
| 1489 | "<div>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1490 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) . |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 1491 | "</div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1492 | } else { |
| 1493 | print "<div class=\"page_nav\">\n" . |
| 1494 | "<br/><br/></div>\n" . |
| 1495 | "<div class=\"title\">$hash</div>\n"; |
| 1496 | } |
| 1497 | if (defined $file_name) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1498 | print "<div class=\"page_path\"><b>" . esc_html($file_name) . "</b></div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1499 | } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 1500 | print "<div class=\"page_body\">\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1501 | my $nr; |
| 1502 | while (my $line = <$fd>) { |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 1503 | chomp $line; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1504 | $nr++; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1505 | while ((my $pos = index($line, "\t")) != -1) { |
| 1506 | if (my $count = (8 - ($pos % 8))) { |
| 1507 | my $spaces = ' ' x $count; |
| 1508 | $line =~ s/\t/$spaces/; |
| 1509 | } |
| 1510 | } |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1511 | printf "<div class=\"pre\"><a id=\"l%i\" href=\"#l%i\" class=\"linenr\">%4i</a> %s</div>\n", $nr, $nr, $nr, esc_html($line); |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1512 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1513 | close $fd or print "Reading blob failed.\n"; |
Kay Sievers | fbb592a | 2005-08-07 20:12:11 +0200 | [diff] [blame] | 1514 | print "</div>"; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 1515 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1516 | } |
| 1517 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1518 | sub git_blob_plain { |
Kay Sievers | 9312944 | 2005-10-17 03:27:54 +0200 | [diff] [blame] | 1519 | my $save_as = "$hash.txt"; |
| 1520 | if (defined $file_name) { |
| 1521 | $save_as = $file_name; |
| 1522 | } |
| 1523 | print $cgi->header(-type => "text/plain", -charset => 'utf-8', '-content-disposition' => "inline; filename=\"$save_as\""); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1524 | open my $fd, "-|", "$gitbin/git-cat-file blob $hash" or return; |
| 1525 | undef $/; |
| 1526 | print <$fd>; |
| 1527 | $/ = "\n"; |
| 1528 | close $fd; |
| 1529 | } |
| 1530 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1531 | sub git_tree { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1532 | if (!defined $hash) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1533 | $hash = git_read_head($project); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1534 | if (defined $file_name) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1535 | my $base = $hash_base || $hash; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1536 | $hash = git_get_hash_by_path($base, $file_name, "tree"); |
| 1537 | } |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1538 | if (!defined $hash_base) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1539 | $hash_base = $hash; |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1540 | } |
Kay Sievers | e925f38 | 2005-08-07 20:23:35 +0200 | [diff] [blame] | 1541 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1542 | $/ = "\0"; |
| 1543 | open my $fd, "-|", "$gitbin/git-ls-tree -z $hash" or die_error(undef, "Open git-ls-tree failed."); |
| 1544 | chomp (my (@entries) = <$fd>); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1545 | close $fd or die_error(undef, "Reading tree failed."); |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1546 | $/ = "\n"; |
Kay Sievers | d63577d | 2005-08-07 20:18:13 +0200 | [diff] [blame] | 1547 | |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1548 | my $refs = read_info_ref(); |
| 1549 | my $ref = ""; |
| 1550 | if (defined $refs->{$hash_base}) { |
| 1551 | $ref = " <span class=\"tag\">" . esc_html($refs->{$hash_base}) . "</span>"; |
| 1552 | } |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 1553 | git_header_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1554 | my $base_key = ""; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1555 | my $base = ""; |
| 1556 | if (defined $hash_base && (my %co = git_read_commit($hash_base))) { |
| 1557 | $base_key = ";hb=$hash_base"; |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1558 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1559 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1560 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash_base")}, "shortlog") . |
| 1561 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash_base")}, "log") . |
| 1562 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") . |
| 1563 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1564 | " | tree" . |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1565 | "<br/><br/>\n" . |
| 1566 | "</div>\n"; |
Kay Sievers | d63577d | 2005-08-07 20:18:13 +0200 | [diff] [blame] | 1567 | print "<div>\n" . |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1568 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" . |
Kay Sievers | d63577d | 2005-08-07 20:18:13 +0200 | [diff] [blame] | 1569 | "</div>\n"; |
| 1570 | } else { |
| 1571 | print "<div class=\"page_nav\">\n"; |
| 1572 | print "<br/><br/></div>\n"; |
| 1573 | print "<div class=\"title\">$hash</div>\n"; |
| 1574 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1575 | if (defined $file_name) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1576 | $base = esc_html("$file_name/"); |
| 1577 | print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1578 | } else { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1579 | print "<div class=\"page_path\"><b>/</b></div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1580 | } |
Kay Sievers | fbb592a | 2005-08-07 20:12:11 +0200 | [diff] [blame] | 1581 | print "<div class=\"page_body\">\n"; |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1582 | print "<table cellspacing=\"0\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1583 | my $alternate = 0; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1584 | foreach my $line (@entries) { |
Kay Sievers | c068cff | 2005-08-07 19:56:10 +0200 | [diff] [blame] | 1585 | #'100644 blob 0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa panic.c' |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1586 | $line =~ m/^([0-9]+) (.+) ([0-9a-fA-F]{40})\t(.+)$/; |
Kay Sievers | d767d59 | 2005-08-07 20:05:55 +0200 | [diff] [blame] | 1587 | my $t_mode = $1; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1588 | my $t_type = $2; |
| 1589 | my $t_hash = $3; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1590 | my $t_name = validate_input($4); |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1591 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1592 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1593 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1594 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1595 | } |
| 1596 | $alternate ^= 1; |
| 1597 | print "<td style=\"font-family:monospace\">" . mode_str($t_mode) . "</td>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1598 | if ($t_type eq "blob") { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1599 | print "<td class=\"list\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1600 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name"), -class => "list"}, esc_html($t_name)) . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1601 | "</td>\n" . |
| 1602 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1603 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$t_hash$base_key;f=$base$t_name")}, "blob") . |
Florian Forster | e34ef62 | 2006-06-11 17:45:19 +0200 | [diff] [blame^] | 1604 | # " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blame;h=$t_hash$base_key;f=$base$t_name")}, "blame") . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1605 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash_base;f=$base$t_name")}, "history") . |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1606 | "</td>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1607 | } elsif ($t_type eq "tree") { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1608 | print "<td class=\"list\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1609 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, esc_html($t_name)) . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1610 | "</td>\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1611 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1612 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$t_hash$base_key;f=$base$t_name")}, "tree") . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1613 | "</td>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1614 | } |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1615 | print "</tr>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1616 | } |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1617 | print "</table>\n" . |
| 1618 | "</div>"; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 1619 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1620 | } |
| 1621 | |
| 1622 | sub git_rss { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1623 | # http://www.notestips.com/80256B3A007F2692/1/NAMO5P9UPQ |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1624 | open my $fd, "-|", "$gitbin/git-rev-list --max-count=150 " . git_read_head($project) or die_error(undef, "Open failed."); |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 1625 | my (@revlist) = map { chomp; $_ } <$fd>; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1626 | close $fd or die_error(undef, "Reading rev-list failed."); |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1627 | print $cgi->header(-type => 'text/xml', -charset => 'utf-8'); |
| 1628 | print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n". |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1629 | "<rss version=\"2.0\" xmlns:content=\"http://purl.org/rss/1.0/modules/content/\">\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1630 | print "<channel>\n"; |
| 1631 | print "<title>$project</title>\n". |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1632 | "<link>" . esc_html("$my_url?p=$project;a=summary") . "</link>\n". |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1633 | "<description>$project log</description>\n". |
| 1634 | "<language>en</language>\n"; |
Kay Sievers | e334d18 | 2005-08-07 20:02:33 +0200 | [diff] [blame] | 1635 | |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 1636 | for (my $i = 0; $i <= $#revlist; $i++) { |
| 1637 | my $commit = $revlist[$i]; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1638 | my %co = git_read_commit($commit); |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 1639 | # we read 150, we always show 30 and the ones more recent than 48 hours |
| 1640 | if (($i >= 20) && ((time - $co{'committer_epoch'}) > 48*60*60)) { |
| 1641 | last; |
| 1642 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1643 | my %cd = date_str($co{'committer_epoch'}); |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 1644 | open $fd, "-|", "$gitbin/git-diff-tree -r $co{'parent'} $co{'id'}" or next; |
| 1645 | my @difftree = map { chomp; $_ } <$fd>; |
| 1646 | close $fd or next; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1647 | print "<item>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1648 | "<title>" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1649 | sprintf("%d %s %02d:%02d", $cd{'mday'}, $cd{'month'}, $cd{'hour'}, $cd{'minute'}) . " - " . esc_html($co{'title'}) . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1650 | "</title>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1651 | "<author>" . esc_html($co{'author'}) . "</author>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1652 | "<pubDate>$cd{'rfc2822'}</pubDate>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1653 | "<guid isPermaLink=\"true\">" . esc_html("$my_url?p=$project;a=commit;h=$commit") . "</guid>\n" . |
| 1654 | "<link>" . esc_html("$my_url?p=$project;a=commit;h=$commit") . "</link>\n" . |
| 1655 | "<description>" . esc_html($co{'title'}) . "</description>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1656 | "<content:encoded>" . |
| 1657 | "<![CDATA[\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1658 | my $comment = $co{'comment'}; |
| 1659 | foreach my $line (@$comment) { |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1660 | $line = decode("utf8", $line, Encode::FB_DEFAULT); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1661 | print "$line<br/>\n"; |
Kay Sievers | a7e09a9 | 2005-08-07 20:00:05 +0200 | [diff] [blame] | 1662 | } |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 1663 | print "<br/>\n"; |
| 1664 | foreach my $line (@difftree) { |
| 1665 | if (!($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/)) { |
| 1666 | next; |
| 1667 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1668 | my $file = validate_input(unquote($7)); |
| 1669 | $file = decode("utf8", $file, Encode::FB_DEFAULT); |
Kay Sievers | d8d17b5 | 2005-08-12 21:43:32 +0200 | [diff] [blame] | 1670 | print "$file<br/>\n"; |
| 1671 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1672 | print "]]>\n" . |
| 1673 | "</content:encoded>\n" . |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1674 | "</item>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1675 | } |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1676 | print "</channel></rss>"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1677 | } |
| 1678 | |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1679 | sub git_opml { |
| 1680 | my @list = git_read_projects(); |
| 1681 | |
| 1682 | print $cgi->header(-type => 'text/xml', -charset => 'utf-8'); |
| 1683 | print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n". |
| 1684 | "<opml version=\"1.0\">\n". |
| 1685 | "<head>". |
| 1686 | " <title>Git OPML Export</title>\n". |
| 1687 | "</head>\n". |
| 1688 | "<body>\n". |
| 1689 | "<outline text=\"git RSS feeds\">\n"; |
| 1690 | |
| 1691 | foreach my $pr (@list) { |
| 1692 | my %proj = %$pr; |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1693 | my $head = git_read_head($proj{'path'}); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1694 | if (!defined $head) { |
| 1695 | next; |
| 1696 | } |
Kay Sievers | 4fac529 | 2005-08-07 20:27:38 +0200 | [diff] [blame] | 1697 | $ENV{'GIT_DIR'} = "$projectroot/$proj{'path'}"; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1698 | my %co = git_read_commit($head); |
| 1699 | if (!%co) { |
| 1700 | next; |
| 1701 | } |
| 1702 | |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1703 | my $path = esc_html(chop_str($proj{'path'}, 25, 5)); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1704 | my $rss = "$my_url?p=$proj{'path'};a=rss"; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 1705 | my $html = "$my_url?p=$proj{'path'};a=summary"; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1706 | print "<outline type=\"rss\" text=\"$path\" title=\"$path\" xmlUrl=\"$rss\" htmlUrl=\"$html\"/>\n"; |
| 1707 | } |
| 1708 | print "</outline>\n". |
| 1709 | "</body>\n". |
| 1710 | "</opml>\n"; |
| 1711 | } |
| 1712 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1713 | sub git_log { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 1714 | my $head = git_read_head($project); |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1715 | if (!defined $hash) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1716 | $hash = $head; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1717 | } |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1718 | if (!defined $page) { |
| 1719 | $page = 0; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1720 | } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1721 | my $refs = read_info_ref(); |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1722 | git_header_html(); |
| 1723 | print "<div class=\"page_nav\">\n"; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1724 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1725 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1726 | " | log" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1727 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") . |
| 1728 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") . |
| 1729 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n"; |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1730 | |
| 1731 | my $limit = sprintf("--max-count=%i", (100 * ($page+1))); |
| 1732 | open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed."); |
| 1733 | my (@revlist) = map { chomp; $_ } <$fd>; |
| 1734 | close $fd; |
| 1735 | |
| 1736 | if ($hash ne $head || $page) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1737 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "HEAD"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1738 | } else { |
| 1739 | print "HEAD"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1740 | } |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1741 | if ($page > 0) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1742 | print " ⋅ " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1743 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1744 | } else { |
| 1745 | print " ⋅ prev"; |
| 1746 | } |
| 1747 | if ($#revlist >= (100 * ($page+1)-1)) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1748 | print " ⋅ " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1749 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1750 | } else { |
| 1751 | print " ⋅ next"; |
| 1752 | } |
Kay Sievers | ede5e10 | 2005-08-07 20:23:12 +0200 | [diff] [blame] | 1753 | print "<br/>\n" . |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1754 | "</div>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1755 | if (!@revlist) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1756 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1757 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, " ") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1758 | "</div>\n"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 1759 | my %co = git_read_commit($hash); |
Kay Sievers | e925f38 | 2005-08-07 20:23:35 +0200 | [diff] [blame] | 1760 | print "<div class=\"page_body\"> Last change $co{'age_string'}.<br/><br/></div>\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1761 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1762 | for (my $i = ($page * 100); $i <= $#revlist; $i++) { |
| 1763 | my $commit = $revlist[$i]; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1764 | my $ref = ""; |
| 1765 | if (defined $refs->{$commit}) { |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1766 | $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>"; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1767 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1768 | my %co = git_read_commit($commit); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1769 | next if !%co; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1770 | my %ad = date_str($co{'author_epoch'}); |
| 1771 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1772 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "title"}, |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 1773 | "<span class=\"age\">$co{'age_string'}</span>" . esc_html($co{'title'}) . $ref) . "\n"; |
| 1774 | print "</div>\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1775 | print "<div class=\"title_text\">\n" . |
| 1776 | "<div class=\"log_link\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1777 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") . |
| 1778 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") . |
Kay Sievers | eb28240 | 2005-08-07 20:21:34 +0200 | [diff] [blame] | 1779 | "<br/>\n" . |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1780 | "</div>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1781 | "<i>" . esc_html($co{'author_name'}) . " [$ad{'rfc2822'}]</i><br/>\n" . |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1782 | "</div>\n" . |
| 1783 | "<div class=\"log_body\">\n"; |
| 1784 | my $comment = $co{'comment'}; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1785 | my $empty = 0; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1786 | foreach my $line (@$comment) { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1787 | if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1788 | next; |
| 1789 | } |
| 1790 | if ($line eq "") { |
| 1791 | if ($empty) { |
| 1792 | next; |
| 1793 | } |
| 1794 | $empty = 1; |
| 1795 | } else { |
| 1796 | $empty = 0; |
| 1797 | } |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 1798 | print format_log_line_html($line) . "<br/>\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1799 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1800 | if (!$empty) { |
| 1801 | print "<br/>\n"; |
| 1802 | } |
| 1803 | print "</div>\n"; |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1804 | } |
| 1805 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1806 | } |
| 1807 | |
| 1808 | sub git_commit { |
| 1809 | my %co = git_read_commit($hash); |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 1810 | if (!%co) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1811 | die_error(undef, "Unknown commit object."); |
Kay Sievers | d63577d | 2005-08-07 20:18:13 +0200 | [diff] [blame] | 1812 | } |
Kay Sievers | 185f09e | 2005-08-07 20:13:11 +0200 | [diff] [blame] | 1813 | my %ad = date_str($co{'author_epoch'}, $co{'author_tz'}); |
| 1814 | my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'}); |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1815 | |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1816 | my @difftree; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1817 | my $root = ""; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1818 | my $parent = $co{'parent'}; |
| 1819 | if (!defined $parent) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1820 | $root = " --root"; |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1821 | $parent = ""; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1822 | } |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1823 | open my $fd, "-|", "$gitbin/git-diff-tree -r -M $root $parent $hash" or die_error(undef, "Open failed."); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1824 | @difftree = map { chomp; $_ } <$fd>; |
| 1825 | close $fd or die_error(undef, "Reading diff-tree failed."); |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 1826 | |
| 1827 | # non-textual hash id's can be cached |
| 1828 | my $expires; |
| 1829 | if ($hash =~ m/^[0-9a-fA-F]{40}$/) { |
| 1830 | $expires = "+1d"; |
| 1831 | } |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1832 | my $refs = read_info_ref(); |
| 1833 | my $ref = ""; |
Kay Sievers | d3a6fd9 | 2005-12-22 22:58:29 +0100 | [diff] [blame] | 1834 | if (defined $refs->{$co{'id'}}) { |
| 1835 | $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>"; |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1836 | } |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 1837 | git_header_html(undef, $expires); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1838 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1839 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 1840 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") . |
| 1841 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1842 | " | commit"; |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1843 | if (defined $co{'parent'}) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1844 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff"); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 1845 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1846 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "\n" . |
Kay Sievers | ff7669a | 2005-08-07 20:13:02 +0200 | [diff] [blame] | 1847 | "<br/><br/></div>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1848 | if (defined $co{'parent'}) { |
| 1849 | print "<div>\n" . |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 1850 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" . |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1851 | "</div>\n"; |
| 1852 | } else { |
| 1853 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1854 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" . |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1855 | "</div>\n"; |
| 1856 | } |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1857 | print "<div class=\"title_text\">\n" . |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1858 | "<table cellspacing=\"0\">\n"; |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1859 | print "<tr><td>author</td><td>" . esc_html($co{'author'}) . "</td></tr>\n". |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1860 | "<tr>" . |
| 1861 | "<td></td><td> $ad{'rfc2822'}"; |
Kay Sievers | 927dcec | 2005-08-07 20:18:44 +0200 | [diff] [blame] | 1862 | if ($ad{'hour_local'} < 6) { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1863 | printf(" (<span style=\"color: #cc0000;\">%02d:%02d</span> %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}); |
| 1864 | } else { |
| 1865 | printf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}); |
Kay Sievers | 927dcec | 2005-08-07 20:18:44 +0200 | [diff] [blame] | 1866 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1867 | print "</td>" . |
| 1868 | "</tr>\n"; |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1869 | print "<tr><td>committer</td><td>" . esc_html($co{'committer'}) . "</td></tr>\n"; |
Kay Sievers | e925f38 | 2005-08-07 20:23:35 +0200 | [diff] [blame] | 1870 | print "<tr><td></td><td> $cd{'rfc2822'}" . sprintf(" (%02d:%02d %s)", $cd{'hour_local'}, $cd{'minute_local'}, $cd{'tz_local'}) . "</td></tr>\n"; |
Kay Sievers | f912756 | 2005-09-04 01:37:25 +0200 | [diff] [blame] | 1871 | print "<tr><td>commit</td><td style=\"font-family:monospace\">$co{'id'}</td></tr>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1872 | print "<tr>" . |
| 1873 | "<td>tree</td>" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1874 | "<td style=\"font-family:monospace\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1875 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash"), class => "list"}, $co{'tree'}) . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1876 | "</td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1877 | "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1878 | "</td>" . |
| 1879 | "</tr>\n"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1880 | my $parents = $co{'parents'}; |
| 1881 | foreach my $par (@$parents) { |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1882 | print "<tr>" . |
| 1883 | "<td>parent</td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1884 | "<td style=\"font-family:monospace\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$par"), class => "list"}, $par) . "</td>" . |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1885 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1886 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$par")}, "commit") . |
| 1887 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash;hp=$par")}, "commitdiff") . |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1888 | "</td>" . |
| 1889 | "</tr>\n"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1890 | } |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 1891 | print "</table>". |
| 1892 | "</div>\n"; |
Kay Sievers | fbb592a | 2005-08-07 20:12:11 +0200 | [diff] [blame] | 1893 | print "<div class=\"page_body\">\n"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1894 | my $comment = $co{'comment'}; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1895 | my $empty = 0; |
| 1896 | my $signed = 0; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1897 | foreach my $line (@$comment) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1898 | # print only one empty line |
| 1899 | if ($line eq "") { |
| 1900 | if ($empty || $signed) { |
| 1901 | next; |
| 1902 | } |
| 1903 | $empty = 1; |
| 1904 | } else { |
| 1905 | $empty = 0; |
| 1906 | } |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1907 | if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1908 | $signed = 1; |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 1909 | print "<span style=\"color: #888888\">" . esc_html($line) . "</span><br/>\n"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1910 | } else { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1911 | $signed = 0; |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 1912 | print format_log_line_html($line) . "<br/>\n"; |
Kay Sievers | 3e02929 | 2005-08-07 20:05:15 +0200 | [diff] [blame] | 1913 | } |
| 1914 | } |
Kay Sievers | 927dcec | 2005-08-07 20:18:44 +0200 | [diff] [blame] | 1915 | print "</div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1916 | print "<div class=\"list_head\">\n"; |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1917 | if ($#difftree > 10) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1918 | print(($#difftree + 1) . " files changed:\n"); |
Kay Sievers | 6191f8e | 2005-08-07 20:19:56 +0200 | [diff] [blame] | 1919 | } |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 1920 | print "</div>\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1921 | print "<table cellspacing=\"0\">\n"; |
| 1922 | my $alternate = 0; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 1923 | foreach my $line (@difftree) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1924 | # ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c' |
| 1925 | # ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c' |
Kay Sievers | d8a20ba | 2005-08-07 20:28:53 +0200 | [diff] [blame] | 1926 | if (!($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)([0-9]{0,3})\t(.*)$/)) { |
| 1927 | next; |
| 1928 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1929 | my $from_mode = $1; |
| 1930 | my $to_mode = $2; |
| 1931 | my $from_id = $3; |
| 1932 | my $to_id = $4; |
| 1933 | my $status = $5; |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 1934 | my $similarity = $6; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1935 | my $file = validate_input(unquote($7)); |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1936 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1937 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1938 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 1939 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 1940 | } |
| 1941 | $alternate ^= 1; |
Kay Sievers | f6375b2 | 2005-08-07 20:28:33 +0200 | [diff] [blame] | 1942 | if ($status eq "A") { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1943 | my $mode_chng = ""; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1944 | if (S_ISREG(oct $to_mode)) { |
| 1945 | $mode_chng = sprintf(" with mode: %04o", (oct $to_mode) & 0777); |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1946 | } |
| 1947 | print "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1948 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)) . "</td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1949 | "<td><span style=\"color: #008000;\">[new " . file_type($to_mode) . "$mode_chng]</span></td>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1950 | "<td class=\"link\">" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, "blob") . "</td>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1951 | } elsif ($status eq "D") { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1952 | print "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1953 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)) . "</td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1954 | "<td><span style=\"color: #c00000;\">[deleted " . file_type($from_mode). "]</span></td>\n" . |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1955 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1956 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, "blob") . |
| 1957 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") . |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1958 | "</td>\n" |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 1959 | } elsif ($status eq "M" || $status eq "T") { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1960 | my $mode_chnge = ""; |
| 1961 | if ($from_mode != $to_mode) { |
| 1962 | $mode_chnge = " <span style=\"color: #777777;\">[changed"; |
| 1963 | if (((oct $from_mode) & S_IFMT) != ((oct $to_mode) & S_IFMT)) { |
| 1964 | $mode_chnge .= " from " . file_type($from_mode) . " to " . file_type($to_mode); |
| 1965 | } |
| 1966 | if (((oct $from_mode) & 0777) != ((oct $to_mode) & 0777)) { |
| 1967 | if (S_ISREG($from_mode) && S_ISREG($to_mode)) { |
| 1968 | $mode_chnge .= sprintf(" mode: %04o->%04o", (oct $from_mode) & 0777, (oct $to_mode) & 0777); |
| 1969 | } elsif (S_ISREG($to_mode)) { |
| 1970 | $mode_chnge .= sprintf(" mode: %04o", (oct $to_mode) & 0777); |
| 1971 | } |
| 1972 | } |
| 1973 | $mode_chnge .= "]</span>\n"; |
| 1974 | } |
| 1975 | print "<td>"; |
| 1976 | if ($to_id ne $from_id) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1977 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)); |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1978 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1979 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file"), -class => "list"}, esc_html($file)); |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1980 | } |
| 1981 | print "</td>\n" . |
| 1982 | "<td>$mode_chnge</td>\n" . |
| 1983 | "<td class=\"link\">"; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1984 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, "blob"); |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1985 | if ($to_id ne $from_id) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1986 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$file")}, "diff"); |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1987 | } |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1988 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=history;h=$hash;f=$file")}, "history") . "\n"; |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 1989 | print "</td>\n"; |
Kay Sievers | dcea8d0 | 2005-08-07 20:26:38 +0200 | [diff] [blame] | 1990 | } elsif ($status eq "R") { |
| 1991 | my ($from_file, $to_file) = split "\t", $file; |
| 1992 | my $mode_chng = ""; |
| 1993 | if ($from_mode != $to_mode) { |
| 1994 | $mode_chng = sprintf(", mode: %04o", (oct $to_mode) & 0777); |
| 1995 | } |
| 1996 | print "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1997 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$to_file"), -class => "list"}, esc_html($to_file)) . "</td>\n" . |
Kay Sievers | dcea8d0 | 2005-08-07 20:26:38 +0200 | [diff] [blame] | 1998 | "<td><span style=\"color: #777777;\">[moved from " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 1999 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$from_file"), -class => "list"}, esc_html($from_file)) . |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2000 | " with " . (int $similarity) . "% similarity$mode_chng]</span></td>\n" . |
Kay Sievers | dcea8d0 | 2005-08-07 20:26:38 +0200 | [diff] [blame] | 2001 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2002 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$to_file")}, "blob"); |
Kay Sievers | dcea8d0 | 2005-08-07 20:26:38 +0200 | [diff] [blame] | 2003 | if ($to_id ne $from_id) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2004 | print " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$to_id;hp=$from_id;hb=$hash;f=$to_file")}, "diff"); |
Kay Sievers | dcea8d0 | 2005-08-07 20:26:38 +0200 | [diff] [blame] | 2005 | } |
| 2006 | print "</td>\n"; |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 2007 | } |
| 2008 | print "</tr>\n"; |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 2009 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2010 | print "</table>\n"; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 2011 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2012 | } |
| 2013 | |
| 2014 | sub git_blobdiff { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2015 | mkdir($git_temp, 0700); |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 2016 | git_header_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2017 | if (defined $hash_base && (my %co = git_read_commit($hash_base))) { |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 2018 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2019 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 2020 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 2021 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 2022 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base")}, "commit") . |
| 2023 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash_base")}, "commitdiff") . |
| 2024 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash_base")}, "tree") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2025 | "<br/>\n"; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2026 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff_plain;h=$hash;hp=$hash_parent")}, "plain") . |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2027 | "</div>\n"; |
| 2028 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2029 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash_base"), -class => "title"}, esc_html($co{'title'})) . "\n" . |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2030 | "</div>\n"; |
| 2031 | } else { |
| 2032 | print "<div class=\"page_nav\">\n" . |
| 2033 | "<br/><br/></div>\n" . |
| 2034 | "<div class=\"title\">$hash vs $hash_parent</div>\n"; |
| 2035 | } |
| 2036 | if (defined $file_name) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2037 | print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b></div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2038 | } |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 2039 | print "<div class=\"page_body\">\n" . |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 2040 | "<div class=\"diff_info\">blob:" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2041 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash_parent;hb=$hash_base;f=$file_name")}, $hash_parent) . |
Kay Sievers | 2735983 | 2005-08-07 20:20:20 +0200 | [diff] [blame] | 2042 | " -> blob:" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2043 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$hash;hb=$hash_base;f=$file_name")}, $hash) . |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 2044 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2045 | git_diff_print($hash_parent, $file_name || $hash_parent, $hash, $file_name || $hash); |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 2046 | print "</div>"; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 2047 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2048 | } |
| 2049 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2050 | sub git_blobdiff_plain { |
| 2051 | mkdir($git_temp, 0700); |
| 2052 | print $cgi->header(-type => "text/plain", -charset => 'utf-8'); |
| 2053 | git_diff_print($hash_parent, $file_name || $hash_parent, $hash, $file_name || $hash, "plain"); |
| 2054 | } |
| 2055 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2056 | sub git_commitdiff { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2057 | mkdir($git_temp, 0700); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2058 | my %co = git_read_commit($hash); |
Kay Sievers | 034df39 | 2005-08-07 20:20:07 +0200 | [diff] [blame] | 2059 | if (!%co) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2060 | die_error(undef, "Unknown commit object."); |
Kay Sievers | d63577d | 2005-08-07 20:18:13 +0200 | [diff] [blame] | 2061 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2062 | if (!defined $hash_parent) { |
| 2063 | $hash_parent = $co{'parent'}; |
| 2064 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2065 | open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed."); |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 2066 | my (@difftree) = map { chomp; $_ } <$fd>; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2067 | close $fd or die_error(undef, "Reading diff-tree failed."); |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 2068 | |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 2069 | # non-textual hash id's can be cached |
| 2070 | my $expires; |
| 2071 | if ($hash =~ m/^[0-9a-fA-F]{40}$/) { |
| 2072 | $expires = "+1d"; |
| 2073 | } |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 2074 | my $refs = read_info_ref(); |
| 2075 | my $ref = ""; |
Kay Sievers | d3a6fd9 | 2005-12-22 22:58:29 +0100 | [diff] [blame] | 2076 | if (defined $refs->{$co{'id'}}) { |
| 2077 | $ref = " <span class=\"tag\">" . esc_html($refs->{$co{'id'}}) . "</span>"; |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 2078 | } |
Kay Sievers | 1104429 | 2005-10-19 03:18:45 +0200 | [diff] [blame] | 2079 | git_header_html(undef, $expires); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 2080 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2081 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 2082 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash")}, "shortlog") . |
| 2083 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") . |
| 2084 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2085 | " | commitdiff" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2086 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . "<br/>\n"; |
| 2087 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff_plain;h=$hash;hp=$hash_parent")}, "plain") . "\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2088 | "</div>\n"; |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 2089 | print "<div>\n" . |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 2090 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'}) . $ref) . "\n" . |
Kay Sievers | 9cd3d98 | 2005-08-07 20:17:42 +0200 | [diff] [blame] | 2091 | "</div>\n"; |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 2092 | print "<div class=\"page_body\">\n"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 2093 | my $comment = $co{'comment'}; |
| 2094 | my $empty = 0; |
| 2095 | my $signed = 0; |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 2096 | my @log = @$comment; |
Kay Sievers | a4d26ef | 2005-08-07 20:24:51 +0200 | [diff] [blame] | 2097 | # remove first and empty lines after that |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 2098 | shift @log; |
Kay Sievers | a4d26ef | 2005-08-07 20:24:51 +0200 | [diff] [blame] | 2099 | while (defined $log[0] && $log[0] eq "") { |
| 2100 | shift @log; |
| 2101 | } |
Kay Sievers | fa37849 | 2005-08-07 20:24:43 +0200 | [diff] [blame] | 2102 | foreach my $line (@log) { |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 2103 | if ($line =~ m/^ *(signed[ \-]off[ \-]by[ :]|acked[ \-]by[ :]|cc[ :])/i) { |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 2104 | next; |
| 2105 | } |
| 2106 | if ($line eq "") { |
| 2107 | if ($empty) { |
| 2108 | next; |
| 2109 | } |
| 2110 | $empty = 1; |
| 2111 | } else { |
| 2112 | $empty = 0; |
| 2113 | } |
Kay Sievers | f49201a | 2005-08-07 20:28:42 +0200 | [diff] [blame] | 2114 | print format_log_line_html($line) . "<br/>\n"; |
Kay Sievers | 0db3797 | 2005-08-07 20:24:35 +0200 | [diff] [blame] | 2115 | } |
| 2116 | print "<br/>\n"; |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 2117 | foreach my $line (@difftree) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2118 | # ':100644 100644 03b218260e99b78c6df0ed378e59ed9205ccc96d 3b93d5e7cc7f7dd4ebed13a5cc1a4ad976fc94d8 M ls-files.c' |
| 2119 | # ':100644 100644 7f9281985086971d3877aca27704f2aaf9c448ce bc190ebc71bbd923f2b728e505408f5e54bd073a M rev-tree.c' |
| 2120 | $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/; |
| 2121 | my $from_mode = $1; |
| 2122 | my $to_mode = $2; |
| 2123 | my $from_id = $3; |
| 2124 | my $to_id = $4; |
| 2125 | my $status = $5; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2126 | my $file = validate_input(unquote($6)); |
Kay Sievers | f6375b2 | 2005-08-07 20:28:33 +0200 | [diff] [blame] | 2127 | if ($status eq "A") { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2128 | print "<div class=\"diff_info\">" . file_type($to_mode) . ":" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2129 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id) . "(new)" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2130 | "</div>\n"; |
| 2131 | git_diff_print(undef, "/dev/null", $to_id, "b/$file"); |
| 2132 | } elsif ($status eq "D") { |
| 2133 | print "<div class=\"diff_info\">" . file_type($from_mode) . ":" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2134 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, $from_id) . "(deleted)" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2135 | "</div>\n"; |
| 2136 | git_diff_print($from_id, "a/$file", undef, "/dev/null"); |
| 2137 | } elsif ($status eq "M") { |
| 2138 | if ($from_id ne $to_id) { |
| 2139 | print "<div class=\"diff_info\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2140 | file_type($from_mode) . ":" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$from_id;hb=$hash;f=$file")}, $from_id) . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2141 | " -> " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2142 | file_type($to_mode) . ":" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$to_id;hb=$hash;f=$file")}, $to_id); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2143 | print "</div>\n"; |
| 2144 | git_diff_print($from_id, "a/$file", $to_id, "b/$file"); |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 2145 | } |
| 2146 | } |
Kay Sievers | 4c02e3c | 2005-08-07 19:52:52 +0200 | [diff] [blame] | 2147 | } |
Kay Sievers | c07ad4b | 2005-08-07 20:22:44 +0200 | [diff] [blame] | 2148 | print "<br/>\n" . |
| 2149 | "</div>"; |
Kay Sievers | 12a88f2 | 2005-08-07 20:02:47 +0200 | [diff] [blame] | 2150 | git_footer_html(); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2151 | } |
| 2152 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2153 | sub git_commitdiff_plain { |
| 2154 | mkdir($git_temp, 0700); |
| 2155 | open my $fd, "-|", "$gitbin/git-diff-tree -r $hash_parent $hash" or die_error(undef, "Open failed."); |
| 2156 | my (@difftree) = map { chomp; $_ } <$fd>; |
| 2157 | close $fd or die_error(undef, "Reading diff-tree failed."); |
| 2158 | |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2159 | # try to figure out the next tag after this commit |
| 2160 | my $tagname; |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2161 | my $refs = read_info_ref("tags"); |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2162 | open $fd, "-|", "$gitbin/git-rev-list HEAD"; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2163 | chomp (my (@commits) = <$fd>); |
| 2164 | close $fd; |
| 2165 | foreach my $commit (@commits) { |
| 2166 | if (defined $refs->{$commit}) { |
| 2167 | $tagname = $refs->{$commit} |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2168 | } |
| 2169 | if ($commit eq $hash) { |
| 2170 | last; |
| 2171 | } |
| 2172 | } |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2173 | |
Kay Sievers | 9312944 | 2005-10-17 03:27:54 +0200 | [diff] [blame] | 2174 | print $cgi->header(-type => "text/plain", -charset => 'utf-8', '-content-disposition' => "inline; filename=\"git-$hash.patch\""); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2175 | my %co = git_read_commit($hash); |
| 2176 | my %ad = date_str($co{'author_epoch'}, $co{'author_tz'}); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2177 | my $comment = $co{'comment'}; |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2178 | print "From: $co{'author'}\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2179 | "Date: $ad{'rfc2822'} ($ad{'tz_local'})\n". |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2180 | "Subject: $co{'title'}\n"; |
| 2181 | if (defined $tagname) { |
| 2182 | print "X-Git-Tag: $tagname\n"; |
| 2183 | } |
| 2184 | print "X-Git-Url: $my_url?p=$project;a=commitdiff;h=$hash\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2185 | "\n"; |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2186 | |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2187 | foreach my $line (@$comment) {; |
Kay Sievers | c2488d0 | 2005-12-07 16:32:51 +0100 | [diff] [blame] | 2188 | print "$line\n"; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2189 | } |
Kay Sievers | 1b1cd42 | 2005-08-07 20:28:01 +0200 | [diff] [blame] | 2190 | print "---\n\n"; |
| 2191 | |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2192 | foreach my $line (@difftree) { |
| 2193 | $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/; |
| 2194 | my $from_id = $3; |
| 2195 | my $to_id = $4; |
| 2196 | my $status = $5; |
| 2197 | my $file = $6; |
Kay Sievers | f6375b2 | 2005-08-07 20:28:33 +0200 | [diff] [blame] | 2198 | if ($status eq "A") { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2199 | git_diff_print(undef, "/dev/null", $to_id, "b/$file", "plain"); |
| 2200 | } elsif ($status eq "D") { |
| 2201 | git_diff_print($from_id, "a/$file", undef, "/dev/null", "plain"); |
| 2202 | } elsif ($status eq "M") { |
| 2203 | git_diff_print($from_id, "a/$file", $to_id, "b/$file", "plain"); |
| 2204 | } |
| 2205 | } |
| 2206 | } |
| 2207 | |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2208 | sub git_history { |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2209 | if (!defined $hash) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 2210 | $hash = git_read_head($project); |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2211 | } |
| 2212 | my %co = git_read_commit($hash); |
| 2213 | if (!%co) { |
| 2214 | die_error(undef, "Unknown commit object."); |
Kay Sievers | 2ae100d | 2005-08-07 20:17:00 +0200 | [diff] [blame] | 2215 | } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2216 | my $refs = read_info_ref(); |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 2217 | git_header_html(); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 2218 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2219 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
| 2220 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 2221 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log")}, "log") . |
| 2222 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") . |
| 2223 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") . |
| 2224 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2225 | "<br/><br/>\n" . |
Kay Sievers | 820e4f6 | 2005-08-07 20:17:50 +0200 | [diff] [blame] | 2226 | "</div>\n"; |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2227 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2228 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" . |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2229 | "</div>\n"; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2230 | print "<div class=\"page_path\"><b>/" . esc_html($file_name) . "</b><br/></div>\n"; |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 2231 | |
Rocco Rutte | bfb689b | 2006-05-30 14:40:10 +0200 | [diff] [blame] | 2232 | open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -- \'$file_name\'"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2233 | my $commit; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2234 | print "<table cellspacing=\"0\">\n"; |
| 2235 | my $alternate = 0; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2236 | while (my $line = <$fd>) { |
Kay Sievers | d05c19e | 2005-08-07 20:27:49 +0200 | [diff] [blame] | 2237 | if ($line =~ m/^([0-9a-fA-F]{40})/){ |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2238 | $commit = $1; |
| 2239 | next; |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 2240 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2241 | if ($line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/ && (defined $commit)) { |
Kay Sievers | 09bd789 | 2005-08-07 20:21:23 +0200 | [diff] [blame] | 2242 | my %co = git_read_commit($commit); |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2243 | if (!%co) { |
| 2244 | next; |
| 2245 | } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2246 | my $ref = ""; |
| 2247 | if (defined $refs->{$commit}) { |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 2248 | $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>"; |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2249 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2250 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2251 | print "<tr class=\"dark\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2252 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2253 | print "<tr class=\"light\">\n"; |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2254 | } |
| 2255 | $alternate ^= 1; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 2256 | print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2257 | "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 3)) . "</i></td>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2258 | "<td>" . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"}, "<b>" . |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2259 | esc_html(chop_str($co{'title'}, 50)) . "$ref</b>") . "</td>\n" . |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 2260 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2261 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") . |
| 2262 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") . |
| 2263 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;hb=$commit;f=$file_name")}, "blob"); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 2264 | my $blob = git_get_hash_by_path($hash, $file_name); |
| 2265 | my $blob_parent = git_get_hash_by_path($commit, $file_name); |
| 2266 | if (defined $blob && defined $blob_parent && $blob ne $blob_parent) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2267 | print " | " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2268 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blobdiff;h=$blob;hp=$blob_parent;hb=$commit;f=$file_name")}, |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2269 | "diff to current"); |
Kay Sievers | 42f7eb9 | 2005-08-07 20:21:46 +0200 | [diff] [blame] | 2270 | } |
Kay Sievers | 10dba28 | 2005-08-07 20:25:27 +0200 | [diff] [blame] | 2271 | print "</td>\n" . |
| 2272 | "</tr>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2273 | undef $commit; |
Kay Sievers | 2ae100d | 2005-08-07 20:17:00 +0200 | [diff] [blame] | 2274 | } |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 2275 | } |
Kay Sievers | bddec01 | 2005-08-07 20:25:42 +0200 | [diff] [blame] | 2276 | print "</table>\n"; |
Kay Sievers | b87d78d | 2005-08-07 20:21:04 +0200 | [diff] [blame] | 2277 | close $fd; |
Kay Sievers | d51e902 | 2005-08-07 20:16:07 +0200 | [diff] [blame] | 2278 | git_footer_html(); |
Kay Sievers | 161332a | 2005-08-07 19:49:46 +0200 | [diff] [blame] | 2279 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2280 | |
| 2281 | sub git_search { |
| 2282 | if (!defined $searchtext) { |
| 2283 | die_error("", "Text field empty."); |
| 2284 | } |
| 2285 | if (!defined $hash) { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 2286 | $hash = git_read_head($project); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2287 | } |
| 2288 | my %co = git_read_commit($hash); |
| 2289 | if (!%co) { |
| 2290 | die_error(undef, "Unknown commit object."); |
| 2291 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2292 | # pickaxe may take all resources of your box and run for several minutes |
| 2293 | # with every query - so decide by yourself how public you make this feature :) |
| 2294 | my $commit_search = 1; |
| 2295 | my $author_search = 0; |
| 2296 | my $committer_search = 0; |
| 2297 | my $pickaxe_search = 0; |
| 2298 | if ($searchtext =~ s/^author\\://i) { |
| 2299 | $author_search = 1; |
| 2300 | } elsif ($searchtext =~ s/^committer\\://i) { |
| 2301 | $committer_search = 1; |
| 2302 | } elsif ($searchtext =~ s/^pickaxe\\://i) { |
| 2303 | $commit_search = 0; |
| 2304 | $pickaxe_search = 1; |
| 2305 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2306 | git_header_html(); |
| 2307 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2308 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary;h=$hash")}, "summary") . |
| 2309 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "shortlog") . |
| 2310 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") . |
| 2311 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") . |
| 2312 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") . |
| 2313 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$hash")}, "tree") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2314 | "<br/><br/>\n" . |
| 2315 | "</div>\n"; |
| 2316 | |
| 2317 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2318 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash"), -class => "title"}, esc_html($co{'title'})) . "\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2319 | "</div>\n"; |
| 2320 | print "<table cellspacing=\"0\">\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2321 | my $alternate = 0; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2322 | if ($commit_search) { |
| 2323 | $/ = "\0"; |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 2324 | open my $fd, "-|", "$gitbin/git-rev-list --header --parents $hash" or next; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2325 | while (my $commit_text = <$fd>) { |
| 2326 | if (!grep m/$searchtext/i, $commit_text) { |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2327 | next; |
| 2328 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2329 | if ($author_search && !grep m/\nauthor .*$searchtext/i, $commit_text) { |
| 2330 | next; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2331 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2332 | if ($committer_search && !grep m/\ncommitter .*$searchtext/i, $commit_text) { |
| 2333 | next; |
| 2334 | } |
| 2335 | my @commit_lines = split "\n", $commit_text; |
Kay Sievers | 25f422f | 2005-09-13 02:21:59 +0200 | [diff] [blame] | 2336 | my %co = git_read_commit(undef, \@commit_lines); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2337 | if (!%co) { |
| 2338 | next; |
| 2339 | } |
| 2340 | if ($alternate) { |
| 2341 | print "<tr class=\"dark\">\n"; |
| 2342 | } else { |
| 2343 | print "<tr class=\"light\">\n"; |
| 2344 | } |
| 2345 | $alternate ^= 1; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 2346 | print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2347 | "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 5)) . "</i></td>\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2348 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2349 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}"), -class => "list"}, "<b>" . esc_html(chop_str($co{'title'}, 50)) . "</b><br/>"); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2350 | my $comment = $co{'comment'}; |
| 2351 | foreach my $line (@$comment) { |
| 2352 | if ($line =~ m/^(.*)($searchtext)(.*)$/i) { |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2353 | my $lead = esc_html($1) || ""; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2354 | $lead = chop_str($lead, 30, 10); |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2355 | my $match = esc_html($2) || ""; |
| 2356 | my $trail = esc_html($3) || ""; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2357 | $trail = chop_str($trail, 30, 10); |
| 2358 | my $text = "$lead<span style=\"color:#e00000\">$match</span>$trail"; |
| 2359 | print chop_str($text, 80, 5) . "<br/>\n"; |
| 2360 | } |
| 2361 | } |
| 2362 | print "</td>\n" . |
| 2363 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2364 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}")}, "commit") . |
| 2365 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$co{'id'}")}, "tree"); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2366 | print "</td>\n" . |
| 2367 | "</tr>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2368 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2369 | close $fd; |
| 2370 | } |
| 2371 | |
| 2372 | if ($pickaxe_search) { |
| 2373 | $/ = "\n"; |
Kay Sievers | a9e60b7 | 2005-11-14 15:15:12 +0100 | [diff] [blame] | 2374 | open my $fd, "-|", "$gitbin/git-rev-list $hash | $gitbin/git-diff-tree -r --stdin -S\'$searchtext\'"; |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2375 | undef %co; |
| 2376 | my @files; |
| 2377 | while (my $line = <$fd>) { |
| 2378 | if (%co && $line =~ m/^:([0-7]{6}) ([0-7]{6}) ([0-9a-fA-F]{40}) ([0-9a-fA-F]{40}) (.)\t(.*)$/) { |
| 2379 | my %set; |
| 2380 | $set{'file'} = $6; |
| 2381 | $set{'from_id'} = $3; |
| 2382 | $set{'to_id'} = $4; |
| 2383 | $set{'id'} = $set{'to_id'}; |
| 2384 | if ($set{'id'} =~ m/0{40}/) { |
| 2385 | $set{'id'} = $set{'from_id'}; |
| 2386 | } |
| 2387 | if ($set{'id'} =~ m/0{40}/) { |
| 2388 | next; |
| 2389 | } |
| 2390 | push @files, \%set; |
Kay Sievers | 53b89d8 | 2005-08-12 22:12:58 +0200 | [diff] [blame] | 2391 | } elsif ($line =~ m/^([0-9a-fA-F]{40})$/){ |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2392 | if (%co) { |
| 2393 | if ($alternate) { |
| 2394 | print "<tr class=\"dark\">\n"; |
| 2395 | } else { |
| 2396 | print "<tr class=\"light\">\n"; |
| 2397 | } |
| 2398 | $alternate ^= 1; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 2399 | print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2400 | "<td><i>" . esc_html(chop_str($co{'author_name'}, 15, 5)) . "</i></td>\n" . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2401 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2402 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}"), -class => "list"}, "<b>" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2403 | esc_html(chop_str($co{'title'}, 50)) . "</b><br/>"); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2404 | while (my $setref = shift @files) { |
| 2405 | my %set = %$setref; |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2406 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=blob;h=$set{'id'};hb=$co{'id'};f=$set{'file'}"), class => "list"}, |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2407 | "<span style=\"color:#e00000\">" . esc_html($set{'file'}) . "</span>") . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2408 | "<br/>\n"; |
| 2409 | } |
| 2410 | print "</td>\n" . |
| 2411 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2412 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$co{'id'}")}, "commit") . |
| 2413 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$co{'tree'};hb=$co{'id'}")}, "tree"); |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2414 | print "</td>\n" . |
| 2415 | "</tr>\n"; |
| 2416 | } |
| 2417 | %co = git_read_commit($1); |
| 2418 | } |
| 2419 | } |
| 2420 | close $fd; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2421 | } |
| 2422 | print "</table>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2423 | git_footer_html(); |
| 2424 | } |
| 2425 | |
| 2426 | sub git_shortlog { |
Junio C Hamano | df2c37a | 2006-01-09 13:13:39 +0100 | [diff] [blame] | 2427 | my $head = git_read_head($project); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2428 | if (!defined $hash) { |
| 2429 | $hash = $head; |
| 2430 | } |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2431 | if (!defined $page) { |
| 2432 | $page = 0; |
| 2433 | } |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2434 | my $refs = read_info_ref(); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2435 | git_header_html(); |
| 2436 | print "<div class=\"page_nav\">\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2437 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary")}, "summary") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2438 | " | shortlog" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2439 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=log;h=$hash")}, "log") . |
| 2440 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$hash")}, "commit") . |
| 2441 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$hash")}, "commitdiff") . |
| 2442 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=tree;h=$hash;hb=$hash")}, "tree") . "<br/>\n"; |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2443 | |
| 2444 | my $limit = sprintf("--max-count=%i", (100 * ($page+1))); |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2445 | open my $fd, "-|", "$gitbin/git-rev-list $limit $hash" or die_error(undef, "Open failed."); |
| 2446 | my (@revlist) = map { chomp; $_ } <$fd>; |
| 2447 | close $fd; |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2448 | |
| 2449 | if ($hash ne $head || $page) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2450 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog")}, "HEAD"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2451 | } else { |
| 2452 | print "HEAD"; |
| 2453 | } |
| 2454 | if ($page > 0) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2455 | print " ⋅ " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2456 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page-1)), -accesskey => "p", -title => "Alt-p"}, "prev"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2457 | } else { |
| 2458 | print " ⋅ prev"; |
| 2459 | } |
| 2460 | if ($#revlist >= (100 * ($page+1)-1)) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2461 | print " ⋅ " . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2462 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page+1)), -accesskey => "n", -title => "Alt-n"}, "next"); |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2463 | } else { |
| 2464 | print " ⋅ next"; |
| 2465 | } |
| 2466 | print "<br/>\n" . |
| 2467 | "</div>\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2468 | print "<div>\n" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2469 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=summary"), -class => "title"}, " ") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2470 | "</div>\n"; |
| 2471 | print "<table cellspacing=\"0\">\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2472 | my $alternate = 0; |
Kay Sievers | ea4a6df | 2005-08-07 20:26:49 +0200 | [diff] [blame] | 2473 | for (my $i = ($page * 100); $i <= $#revlist; $i++) { |
| 2474 | my $commit = $revlist[$i]; |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2475 | my $ref = ""; |
| 2476 | if (defined $refs->{$commit}) { |
Kay Sievers | edde373 | 2005-12-07 16:10:01 +0100 | [diff] [blame] | 2477 | $ref = " <span class=\"tag\">" . esc_html($refs->{$commit}) . "</span>"; |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2478 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2479 | my %co = git_read_commit($commit); |
| 2480 | my %ad = date_str($co{'author_epoch'}); |
| 2481 | if ($alternate) { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2482 | print "<tr class=\"dark\">\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2483 | } else { |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2484 | print "<tr class=\"light\">\n"; |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2485 | } |
| 2486 | $alternate ^= 1; |
Kay Sievers | 71be1e7 | 2005-08-07 20:27:27 +0200 | [diff] [blame] | 2487 | print "<td title=\"$co{'age_string_age'}\"><i>$co{'age_string_date'}</i></td>\n" . |
Kay Sievers | 40c1381 | 2005-11-19 17:41:29 +0100 | [diff] [blame] | 2488 | "<td><i>" . esc_html(chop_str($co{'author_name'}, 10)) . "</i></td>\n" . |
Kay Sievers | c24fd7b | 2005-08-31 03:47:13 +0200 | [diff] [blame] | 2489 | "<td>"; |
| 2490 | if (length($co{'title_short'}) < length($co{'title'})) { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2491 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list", -title => "$co{'title'}"}, |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2492 | "<b>" . esc_html($co{'title_short'}) . "$ref</b>"); |
Kay Sievers | c24fd7b | 2005-08-31 03:47:13 +0200 | [diff] [blame] | 2493 | } else { |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2494 | print $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit"), -class => "list"}, |
Kay Sievers | 4df1191 | 2005-12-07 10:51:42 +0100 | [diff] [blame] | 2495 | "<b>" . esc_html($co{'title_short'}) . "$ref</b>"); |
Kay Sievers | 6a92841 | 2005-12-07 09:44:06 +0100 | [diff] [blame] | 2496 | } |
Kay Sievers | c24fd7b | 2005-08-31 03:47:13 +0200 | [diff] [blame] | 2497 | print "</td>\n" . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2498 | "<td class=\"link\">" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2499 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commit;h=$commit")}, "commit") . |
| 2500 | " | " . $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=commitdiff;h=$commit")}, "commitdiff") . |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2501 | "</td>\n" . |
| 2502 | "</tr>"; |
| 2503 | } |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2504 | if ($#revlist >= (100 * ($page+1)-1)) { |
| 2505 | print "<tr>\n" . |
| 2506 | "<td>" . |
Kay Sievers | 232ff55 | 2005-11-24 16:56:55 +0100 | [diff] [blame] | 2507 | $cgi->a({-href => "$my_uri?" . esc_param("p=$project;a=shortlog;h=$hash;pg=" . ($page+1)), -title => "Alt-n"}, "next") . |
Kay Sievers | c994d62 | 2005-08-07 20:27:18 +0200 | [diff] [blame] | 2508 | "</td>\n" . |
| 2509 | "</tr>\n"; |
| 2510 | } |
Kay Sievers | 1980669 | 2005-08-07 20:26:27 +0200 | [diff] [blame] | 2511 | print "</table\n>"; |
| 2512 | git_footer_html(); |
| 2513 | } |