Skip to content

G
git

李少辉-开发者 / git
与 Fork 源项目一致

从无法访问的项目Fork

通知 2
Star 1
Fork 0
G
git

体验新版 GitCode，发现更多精彩内容 >>

切换分支/标签
查找文件 普通视图历史永久链接Permalink
gitweb.pl 12.9 KB
Newer Older
K
first working version  
Kay Sievers 已提交
1 2 
#!/usr/bin/perl
K
v004  
Kay Sievers 已提交
3 4 5 6 
# gitweb.pl - simple web interface to track changes in git repositories
#
# Version 004
#
K
first working version  
Kay Sievers 已提交
7 8 9 10 11 12 13 14 15 16 
# This file is licensed under the GPL v2, or a later version
# (C) 2005, Kay Sievers <kay.sievers@vrfy.org>
# (C) 2005, Christian Gierke <ch@gierke.de>

use strict;
use warnings;
use CGI qw(:standard :escapeHTML);
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
K
v000  
Kay Sievers 已提交
17 
my $gitbin = "/home/kay/bin/git";
K
first working version  
Kay Sievers 已提交
18 19 20 21 22 23 24 25 
my $gitroot = "/home/kay/public_html";
my $gittmp = "/tmp";
my $myself = $cgi->url(-relative => 1);

my $project = $cgi->param("project") || "";
my $action = $cgi->param("action") || "";
my $hash = $cgi->param("hash") || "";
my $parent = $cgi->param("parent") || "";
K
v000  
Kay Sievers 已提交
26 
my $view_back = $cgi->param("view_back") || 60*60*24;
K
first working version  
Kay Sievers 已提交
27 28 29 30 31 32 33 
my $projectroot = "$gitroot/$project";
$ENV{'SHA1_FILE_DIRECTORY'} = "$projectroot/.git/objects";

$hash =~ s/[^0-9a-fA-F]//g;
$parent =~ s/[^0-9a-fA-F]//g;
$project =~ s/[^0-9a-zA-Z\-\._]//g;
K
v000  
Kay Sievers 已提交
34 
sub git_header {
K
first working version  
Kay Sievers 已提交
35 36 37 38 39 
	print $cgi->header(-type => 'text/html; charset: utf-8');
print <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
K
v000  
Kay Sievers 已提交
40 
	<title>git - $project $action</title>
K
first working version  
Kay Sievers 已提交
41 42 
	<style type="text/css">
		body { font-family: sans-serif; font-size: 12px; margin:25px; }
K
v000  
Kay Sievers 已提交
43 
		div.body { border-width:1px; border-style:solid; border-color:#D9D8D1; }
K
first working version  
Kay Sievers 已提交
44 
		div.head1 { font-size:20px; padding:8px; background-color: #D9D8D1; font-weight:bold; }
K
v000  
Kay Sievers 已提交
45 46 47 48 49 50 51 52 53 54 
		div.head1 a:visited { color:#0000cc; }
		div.head1 a:hover { color:#880000; }
		div.head1 a:active { color:#880000; }
		div.head2 { padding:8px; }
		div.head2 a:visited { color:#0000cc; }
		div.head2 a:hover { color:#880000; }
		div.head2 a:active { color:#880000; }
		div.main { padding:8px; font-family: sans-serif; font-size: 12px; }
		table { padding:0px; margin:0px; width:100%; }
		tr { vertical-align:top; }
K
first working version  
Kay Sievers 已提交
55 56 
		td { padding:8px; margin:0px; font-family: sans-serif; font-size: 12px; }
		td.head1 { background-color: #D9D8D1; font-weight:bold; }
K
v000  
Kay Sievers 已提交
57 58 59 
		td.head1 a { color:#000000; text-decoration:none; }
		td.head1 a:hover { color:#880000; text-decoration:underline; }
		td.head1 a:visited { color:#000000; }
K
first working version  
Kay Sievers 已提交
60 
		td.head2 { background-color: #EDECE6; font-family: monospace; font-size:12px; }
K
v000  
Kay Sievers 已提交
61 62 63 
		td.head3 { background-color: #EDECE6; font-size:10px; }
		div.add { color: #008800; }
		div.subtract { color: #CC0000; }
K
v003  
Kay Sievers 已提交
64 65 66 
		div.diff_head { color: #000099; }
		div.diff_head a:visited { color:#0000cc; }
		div.diff_line { color: #990099; }
K
v000  
Kay Sievers 已提交
67 68 69 70 
		a { color:#0000cc; }
		a:hover { color:#880000; }
		a:visited { color:#880000; }
		a:active { color:#880000; }
K
first working version  
Kay Sievers 已提交
71 72 73 74 
	</style>
</head>
<body>
EOF
K
v000  
Kay Sievers 已提交
75 76 77 78 
	print "<div class=\"body\">\n";
	print "<div class=\"head1\">";
	print "<a href=\"http://kernel.org/pub/software/scm/git/\"><img src=\"git_logo.png\" width=\"72\" height=\"27\" alt=\"git\" style=\"float:right; border-width:0px;\"/></a>";
	print $cgi->a({-href => "$myself"}, "projects");
K
first working version  
Kay Sievers 已提交
79 
	if ($project ne "") {
K
v003  
Kay Sievers 已提交
80 
		print " / " . $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24}, $project);
K
first working version  
Kay Sievers 已提交
81 
	}
K
v000  
Kay Sievers 已提交
82 
	if ($action ne "") {
K
v000  
Kay Sievers 已提交
83 
		print " / $action";
K
v000  
Kay Sievers 已提交
84 85 
	}
	print "</div>\n";
K
first working version  
Kay Sievers 已提交
86 87 
}
K
v000  
Kay Sievers 已提交
88 
sub git_footer {
K
first working version  
Kay Sievers 已提交
89 90 91 92 
	print "</div>";
	print $cgi->end_html();
}
K
v000  
Kay Sievers 已提交
93 
sub git_diff {
K
v003  
Kay Sievers 已提交
94 95 
	my $old_name = shift || "/dev/null";
	my $new_name = shift || "/dev/null";
K
v000  
Kay Sievers 已提交
96 97 98 99 100 
	my $old = shift;
	my $new = shift;

	my $tmp_old = "/dev/null";
	my $tmp_new = "/dev/null";
K
v003  
Kay Sievers 已提交
101 102 
	my $old_label = "/dev/null";
	my $new_label = "/dev/null";
K
v000  
Kay Sievers 已提交
103
K
v002  
Kay Sievers 已提交
104 
	# create temp from-file
K
v000  
Kay Sievers 已提交
105 106 107 108 109 110 111 112 113 
	if ($old ne "") {
		open my $fd2, "> $gittmp/$old";
		open my $fd, "-|", "$gitbin/cat-file", "blob", $old;
		while (my $line = <$fd>) {
			print $fd2 $line;
		}
		close $fd2;
		close $fd;
		$tmp_old = "$gittmp/$old";
K
v003  
Kay Sievers 已提交
114 
		$old_label = "a/$old_name";
K
v000  
Kay Sievers 已提交
115 116 
	}
K
v002  
Kay Sievers 已提交
117 
	# create tmp to-file
K
v000  
Kay Sievers 已提交
118 119 120 121 122 123 124 125 126 
	if ($new ne "") {
		open my $fd2, "> $gittmp/$new";
		open my $fd, "-|", "$gitbin/cat-file", "blob", $new;
		while (my $line = <$fd>) {
			print $fd2 $line;
		}
		close $fd2;
		close $fd;
		$tmp_new = "$gittmp/$new";
K
v003  
Kay Sievers 已提交
127 
		$new_label = "b/$new_name";
K
v000  
Kay Sievers 已提交
128 129 
	}
K
v003  
Kay Sievers 已提交
130 131 132 
	open my $fd, "-|", "/usr/bin/diff", "-L", $old_label, "-L", $new_label, "-u", "-p", $tmp_old, $tmp_new;
	print '<div class="diff_head">===== ';
	if ($old ne "") {
K
v003  
Kay Sievers 已提交
133 
		print $cgi->a({-href => "$myself?project=$project;action=blob;hash=$old"}, $old);
K
v003  
Kay Sievers 已提交
134 135 136 137 138 
	} else {
		print $old_name;
	}
	print " vs ";
	if ($new ne "") {
K
v003  
Kay Sievers 已提交
139 
		print $cgi->a({-href => "$myself?project=$project;action=blob;hash=$new"}, $new);
K
v003  
Kay Sievers 已提交
140 141 142 143 
	} else {
		print $new_name;
	}
	print ' =====</div>';
K
v000  
Kay Sievers 已提交
144 145 146 147 
	while (my $line = <$fd>) {
		my $char = substr($line,0,1);
		print '<div class="add">' if $char eq '+';
		print '<div class="subtract">' if $char eq '-';
K
v003  
Kay Sievers 已提交
148 
		print '<div class="diff_line">' if $char eq '@';
K
v000  
Kay Sievers 已提交
149 150 151 152 
		print escapeHTML($line);
		print '</div>' if $char eq '+' or $char eq '-' or $char eq '@';
	}
	close $fd;
K
v003  
Kay Sievers 已提交
153 154 
	unlink("$gittmp/$new");
	unlink("$gittmp/$old");
K
v000  
Kay Sievers 已提交
155 156 
}
K
first working version  
Kay Sievers 已提交
157 158 159 160 
if ($project eq "") {
	open my $fd, "-|", "ls", "-1", $gitroot;
	my (@path) = map { chomp; $_ } <$fd>;
	close $fd;
K
v000  
Kay Sievers 已提交
161 162 
	git_header();
	print "<br/><br/><div class=\"main\">\n";
K
first working version  
Kay Sievers 已提交
163 164 165 166 167 
	foreach my $line (@path) {
		if (-e "$gitroot/$line/.git/HEAD") {
			print $cgi->a({-href => "$myself?project=$line"}, $line) . "<br/>\n";
		}
	}
K
v000  
Kay Sievers 已提交
168 169 
	print "<br/></div>";
	git_footer();
K
first working version  
Kay Sievers 已提交
170 171 172 173 
	exit;
}

if ($action eq "") {
K
v003  
Kay Sievers 已提交
174 
	print $cgi->redirect("$myself?project=$project;action=log;view_back=$view_back");
K
first working version  
Kay Sievers 已提交
175 176 177 
	exit;
}
K
v000  
Kay Sievers 已提交
178 
if ($action eq "blob") {
K
v000  
Kay Sievers 已提交
179 180 
	git_header();
	print "<br/><br/><div class=\"main\">\n";
K
first working version  
Kay Sievers 已提交
181 182 183 184 185 186 187 188 189 
	print "<pre>\n";
	open my $fd, "-|", "$gitbin/cat-file", "blob", $hash;
	my $nr;
	while (my $line = <$fd>) {
		$nr++;
		print "$nr\t" . escapeHTML($line);;
	}
	close $fd;
	print "</pre>\n";
K
v000  
Kay Sievers 已提交
190 191 192 
	print "<br/></div>";
	git_footer();
} elsif ($action eq "tree") {
K
first working version  
Kay Sievers 已提交
193 194 195 196 197 
	if ($hash eq "") {
		open my $fd, "$projectroot/.git/HEAD";
		my $head = <$fd>;
		chomp $head;
		close $fd;
K
v002  
Kay Sievers 已提交
198 
		$hash = $head;
K
first working version  
Kay Sievers 已提交
199 200 201 202 
	}
	open my $fd, "-|", "$gitbin/ls-tree", $hash;
	my (@entries) = map { chomp; $_ } <$fd>;
	close $fd;
K
v000  
Kay Sievers 已提交
203 204 
	git_header();
	print "<br/><br/><div class=\"main\">\n";
K
first working version  
Kay Sievers 已提交
205 206 
	print "<pre>\n";
	foreach my $line (@entries) {
K
v003  
Kay Sievers 已提交
207 
		#'100644	blob	0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa	panic.c'
K
first working version  
Kay Sievers 已提交
208 209 210 211 212 
		$line =~ m/^([0-9]+)\t(.*)\t(.*)\t(.*)$/;
		my $t_type = $2;
		my $t_hash = $3;
		my $t_name = $4;
		if ($t_type eq "blob") {
K
v003  
Kay Sievers 已提交
213 
			print "BLOB\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$3"}, $4) . "\n";
K
first working version  
Kay Sievers 已提交
214 
		} elsif ($t_type eq "tree") {
K
v003  
Kay Sievers 已提交
215 
			print "TREE\t" . $cgi->a({-href => "$myself?project=$project;action=tree;hash=$3"}, $4) . "\n";
K
first working version  
Kay Sievers 已提交
216 217 218 
		}
	}
	print "</pre>\n";
K
v000  
Kay Sievers 已提交
219 220 221 
	print "<br/></div>";
	git_footer();
} elsif ($action eq "log" || $action eq "show_log" ) {
K
first working version  
Kay Sievers 已提交
222 223 224 225 
	open my $fd, "$projectroot/.git/HEAD";
	my $head = <$fd>;
	chomp $head;
	close $fd;
K
v000  
Kay Sievers 已提交
226 
	open $fd, "-|", "$gitbin/rev-tree", $head;
K
first working version  
Kay Sievers 已提交
227 228 
	my (@revtree) = map { chomp; $_ } <$fd>;
	close $fd;
K
v000  
Kay Sievers 已提交
229 230 231 
	git_header();
	print "<div class=\"head2\">\n";
	print "view  ";
K
v003  
Kay Sievers 已提交
232 233 234 235 236 
	print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24}, "last day") . " | ";
	print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*7}, "week") . " | ";
	print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*30}, "month") . " | ";
	print $cgi->a({-href => "$myself?project=$project;action=log;view_back=" . 60*60*24*365}, "year") . " | ";
	print $cgi->a({-href => "$myself?project=$project;action=log;view_back=-1"}, "all") . "<br/>\n";
K
v000  
Kay Sievers 已提交
237 238 
	print "<br/><br/>\n";
	print "</div>\n";
K
first working version  
Kay Sievers 已提交
239 240 
	print "<table cellspacing=\"0\" class=\"log\">\n";
	foreach my $rev (reverse sort @revtree) {
K
v004  
Kay Sievers 已提交
241 
		# '1114106118 755e3010ee10dadf42a8a80770e1b115fb038d9b:1 2af17b4854036a1c2ec6c101d93c8dd1ed80d24e:1'
K
v002  
Kay Sievers 已提交
242 
		last if !($rev =~ m/^([0-9]+) ([0-9a-fA-F]+).* ([0-9a-fA-F]+)/);
K
first working version  
Kay Sievers 已提交
243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 
		my $time = $1;
		my $commit = $2;
		my $parent = $3;
		my @parents;
		my $author;
		my $author_name;
		my $author_time;
		my $author_timezone;
		my $committer;
		my $committer_time;
		my $committer_timezone;
		my $tree;
		my $comment;
		my $shortlog;
		open my $fd, "-|", "$gitbin/cat-file", "commit", $commit;
		while (my $line = <$fd>) {
			chomp($line);
K
v002  
Kay Sievers 已提交
260 
			last if $line eq "";
K
first working version  
Kay Sievers 已提交
261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 
			if ($line =~ m/^tree (.*)$/) {
				$tree = $1;
			} elsif ($line =~ m/^parent (.*)$/) {
				push @parents, $1;
			} elsif ($line =~ m/^committer (.*>) ([0-9]+) (.*)$/) {
				$committer = $1;
				$committer_time = $2;
				$committer_timezone = $3;
			} elsif ($line =~ m/^author (.*>) ([0-9]+) (.*)$/) {
				$author = $1;
				$author_time = $2;
				$author_timezone = $3;
				$author =~ m/^(.*) </;
				$author_name = $1;
			}
		}
		$shortlog = <$fd>;
		$shortlog = escapeHTML($shortlog);
		$comment = $shortlog . "<br/>";
		while (my $line = <$fd>) {
				chomp($line);
				$comment .= escapeHTML($line) . "<br/>\n";
		}
		close $fd;
K
v002  
Kay Sievers 已提交
285 286 
		my $age = time-$committer_time;
		last if ($view_back > 0 && $age > $view_back);
K
first working version  
Kay Sievers 已提交
287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 

		my $age_string;
		if ($age > 60*60*24*365*2) {
			$age_string = int $age/60/60/24/365;
			$age_string .= " years ago";
		} elsif ($age > 60*60*24*365/12*2) {
			$age_string = int $age/60/60/24/365/12;
			$age_string .= " months ago";
		} elsif ($age > 60*60*24*7*2) {
			$age_string = int $age/60/60/24/7;
			$age_string .= " weeks ago";
		} elsif ($age > 60*60*24*2) {
			$age_string = int $age/60/60/24;
			$age_string .= " days ago";
		} elsif ($age > 60*60*2) {
			$age_string = int $age/60/60;
			$age_string .= " hours ago";
		} elsif ($age > 60*2) {
			$age_string = int $age/60;
			$age_string .= " minutes ago";
		}
		print "<tr>\n";
		print "<td class=\"head1\">" . $age_string . "</td>\n";
K
v003  
Kay Sievers 已提交
310 
		print "<td class=\"head1\">" . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, $shortlog) . "</td>";
K
first working version  
Kay Sievers 已提交
311 312 
		print "</tr>\n";
		print "<tr>\n";
K
v000  
Kay Sievers 已提交
313 
		print "<td class=\"head3\">";
K
v004  
Kay Sievers 已提交
314 
		print $cgi->a({-href => "$myself?project=$project;action=treediff;hash=$commit;parent=$parent"}, "view diff") . "<br/>\n";
K
v003  
Kay Sievers 已提交
315 316 
		print $cgi->a({-href => "$myself?project=$project;action=commit;hash=$commit;parent=$parent"}, "view commit") . "<br/>\n";
		print $cgi->a({-href => "$myself?project=$project;action=tree;hash=$tree"}, "view tree") . "<br/>\n";
K
v000  
Kay Sievers 已提交
317 
		print "</td>\n";
K
first working version  
Kay Sievers 已提交
318 319 320 
		print "<td class=\"head2\">\n";
		print "author &nbsp; &nbsp;" . escapeHTML($author) . " [" . gmtime($author_time) . " " . $author_timezone . "]<br/>\n";
		print "committer " . escapeHTML($committer) . " [" . gmtime($committer_time) . " " . $committer_timezone . "]<br/>\n";
K
v000  
Kay Sievers 已提交
321 322 
		print "commit &nbsp; &nbsp;$commit<br/>\n";
		print "tree &nbsp; &nbsp; &nbsp;$tree<br/>\n";
K
first working version  
Kay Sievers 已提交
323 324 325 326 327 328 329 330 331 332 333 334 335 
		foreach my $par (@parents) {
			print "parent &nbsp; &nbsp;$par<br/>\n";
		}
		print "</td>";
		print "</tr>\n";
		print "<tr>\n";
		print "<td></td>\n";
		print "<td>\n";
		print "$comment<br/><br/>\n";
		print "</td>";
		print "</tr>\n";
	}
	print "</table>\n";
K
v000  
Kay Sievers 已提交
336 337 
	git_footer();
} elsif ($action eq "commit") {
K
v002  
Kay Sievers 已提交
338 
	open my $fd, "-|", "$gitbin/diff-tree", "-r", $parent, $hash;
K
first working version  
Kay Sievers 已提交
339 340 341 
	my (@difftree) = map { chomp; $_ } <$fd>;
	close $fd;
K
v000  
Kay Sievers 已提交
342 
	git_header();
K
v003  
Kay Sievers 已提交
343 
	print "<div class=\"head2\">\n";
K
v004  
Kay Sievers 已提交
344 
	print "view " . $cgi->a({-href => "$myself?project=$project;action=treediff;hash=$hash;parent=$parent"}, "diff") . "<br/><br/>\n";
K
first working version  
Kay Sievers 已提交
345 346 
	print "<pre>\n";
	foreach my $line (@difftree) {
K
v003  
Kay Sievers 已提交
347 348 
		# '*100644->100644	blob	9f91a116d91926df3ba936a80f020a6ab1084d2b->bb90a0c3a91eb52020d0db0e8b4f94d30e02d596	net/ipv4/route.c'
		# '+100644	blob	4a83ab6cd565d21ab0385bac6643826b83c2fcd4	arch/arm/lib/bitops.h'
K
first working version  
Kay Sievers 已提交
349 350 351 352 353 354 355 356 
		$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
		my $op = $1;
		my $mode = $2;
		my $type = $3;
		my $id = $4;
		my $file = $5;
		if ($type eq "blob") {
			if ($op eq "+") {
K
v003  
Kay Sievers 已提交
357 
				print "NEW\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$id"}, $file) . "\n";
K
first working version  
Kay Sievers 已提交
358 
			} elsif ($op eq "-") {
K
v003  
Kay Sievers 已提交
359 
				print "DEL\t" . $cgi->a({-href => "$myself?project=$project;action=blob;hash=$id"}, $file) . "\n";
K
first working version  
Kay Sievers 已提交
360 361 362 363 
			} elsif ($op eq "*") {
				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
				my $old = $1;
				my $new = $2;
K
v003  
Kay Sievers 已提交
364 
				print "CHANGED\t" . $cgi->a({-href => "$myself?project=$project;action=diff;hash=$old;parent=$new"}, $file) . "\n";
K
first working version  
Kay Sievers 已提交
365 366 367 368 
			}
		}
	}
	print "</pre>\n";
K
v000  
Kay Sievers 已提交
369 370 371 372 373 374 375 376 377 378 
	print "<br/></div>";
	git_footer();
} elsif ($action eq "diff") {
	git_header();
	print "<br/><br/><div class=\"main\">\n";
	print "<pre>\n";
	git_diff($hash, $parent, $hash, $parent);
	print "</pre>\n";
	print "<br/></div>";
	git_footer();
K
v004  
Kay Sievers 已提交
379 
} elsif ($action eq "treediff") {
K
v002  
Kay Sievers 已提交
380 
	open my $fd, "-|", "$gitbin/diff-tree", "-r", $parent, $hash;
K
v000  
Kay Sievers 已提交
381 
	my (@difftree) = map { chomp; $_ } <$fd>;
K
first working version  
Kay Sievers 已提交
382 383 
	close $fd;
K
v000  
Kay Sievers 已提交
384 
	git_header();
K
v003  
Kay Sievers 已提交
385 386 
	print "<div class=\"head2\">\n";
	print "view " . $cgi->a({-href => "$myself?project=$project;action=commit;hash=$hash;parent=$parent"}, "commit") . "<br/><br/>\n";
K
first working version  
Kay Sievers 已提交
387 
	print "<pre>\n";
K
v000  
Kay Sievers 已提交
388 
	foreach my $line (@difftree) {
K
v003  
Kay Sievers 已提交
389 
		# '*100644->100644	blob	8e5f9bbdf4de94a1bc4b4da8cb06677ce0a57716->8da3a306d0c0c070d87048d14a033df02f40a154	Makefile'
K
v000  
Kay Sievers 已提交
390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 
		$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
		my $op = $1;
		my $mode = $2;
		my $type = $3;
		my $id = $4;
		my $file = $5;
		if ($type eq "blob") {
			if ($op eq "+") {
				git_diff("", $file, "", $id);
			} elsif ($op eq "-") {
				git_diff($file, "", $id, "");
			} elsif ($op eq "*") {
				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
				git_diff($file, $file, $1, $2);
			}
		}
K
first working version  
Kay Sievers 已提交
406 407 
	}
	print "</pre>\n";
K
v000  
Kay Sievers 已提交
408 409 
	print "<br/></div>";
	git_footer();
K
first working version  
Kay Sievers 已提交
410 
} else {
K
v000  
Kay Sievers 已提交
411 412 
	git_header();
	print "<br/><br/><div class=\"main\">\n";
K
first working version  
Kay Sievers 已提交
413 
	print "unknown action\n";
K
v000  
Kay Sievers 已提交
414 415 
	print "<br/></div>";
	git_footer();
K
first working version  
Kay Sievers 已提交
416 
}