undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

v021

Browse Source
This commit is contained in:
Kay Sievers 2005-08-07 20:02:47 +02:00
parent e334d18cfd
commit 12a88f2f03
1 changed files with 26 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
gitweb.pl
View File

@ -90,7 +90,7 @@ $project =~ s#\/\.+##g;
$ENV{'SHA1_FILE_DIRECTORY'} = "$projectroot/$project/.git/objects"; $ENV{'SHA1_FILE_DIRECTORY'} = "$projectroot/$project/.git/objects";
sub git_header { sub git_header_html {
print $cgi->header(-type => 'text/html; charset: utf-8'); print $cgi->header(-type => 'text/html; charset: utf-8');
print <<EOF; print <<EOF;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
@ -144,11 +144,19 @@ EOF
print "</div>\n"; print "</div>\n";
} }
sub git_footer { sub git_footer_html {
print "</div>"; print "</div>";
print $cgi->end_html(); print $cgi->end_html();
} }
sub git_head {
open my $fd, "$projectroot/$project/.git/HEAD";
my $head = <$fd>;
close $fd;
chomp $head;
return $head;
}
sub git_diff { sub git_diff {
my $old_name = shift || "/dev/null"; my $old_name = shift || "/dev/null";
my $new_name = shift || "/dev/null"; my $new_name = shift || "/dev/null";
@ -217,7 +225,7 @@ if ($project eq "") {
opendir(my $fd, "$projectroot/$defaultprojects"); opendir(my $fd, "$projectroot/$defaultprojects");
my (@path) = grep(!/^\./, readdir($fd)); my (@path) = grep(!/^\./, readdir($fd));
closedir($fd); closedir($fd);
git_header(); git_header_html();
print "<div class=\"head2\">\n"; print "<div class=\"head2\">\n";
print "<br/><br/>\n"; print "<br/><br/>\n";
foreach my $line (@path) { foreach my $line (@path) {
@ -226,12 +234,12 @@ if ($project eq "") {
} }
} }
print "</div><br/>"; print "</div><br/>";
git_footer(); git_footer_html();
exit; exit;
} }
if ($action eq "blob") { if ($action eq "blob") {
git_header(); git_header_html();
print "<br/><br/>\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
open my $fd, "-|", "$gitbin/cat-file", "blob", $hash; open my $fd, "-|", "$gitbin/cat-file", "blob", $hash;
@ -243,19 +251,15 @@ if ($action eq "blob") {
close $fd; close $fd;
print "</pre>\n"; print "</pre>\n";
print "<br/>"; print "<br/>";
git_footer(); git_footer_html();
} elsif ($action eq "tree") { } elsif ($action eq "tree") {
if ($hash eq "") { if ($hash eq "") {
open my $fd, "$projectroot/$project/.git/HEAD"; $hash = git_head();
my $head = <$fd>;
chomp $head;
close $fd;
$hash = $head;
} }
open my $fd, "-|", "$gitbin/ls-tree", $hash; open my $fd, "-|", "$gitbin/ls-tree", $hash;
my (@entries) = map { chomp; $_ } <$fd>; my (@entries) = map { chomp; $_ } <$fd>;
close $fd; close $fd;
git_header(); git_header_html();
print "<br/><br/>\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
foreach my $line (@entries) { foreach my $line (@entries) {
@ -272,18 +276,14 @@ if ($action eq "blob") {
} }
print "</pre>\n"; print "</pre>\n";
print "<br/>"; print "<br/>";
git_footer(); git_footer_html();
} elsif ($action eq "log" || $action eq "rss") { } elsif ($action eq "log" || $action eq "rss") {
open my $fd, "$projectroot/$project/.git/HEAD"; open my $fd, "-|", "$gitbin/rev-tree", git_head();
my $head = <$fd>;
chomp $head;
close $fd;
open $fd, "-|", "$gitbin/rev-tree", $head;
my (@revtree) = reverse sort map { chomp; $_ } <$fd>; my (@revtree) = reverse sort map { chomp; $_ } <$fd>;
close $fd; close $fd;
if ($action eq "log") { if ($action eq "log") {
git_header(); git_header_html();
print "<div class=\"head2\">\n"; print "<div class=\"head2\">\n";
print "view "; print "view ";
print $cgi->a({-href => "$myself/$project/log"}, "last day") . " | "; print $cgi->a({-href => "$myself/$project/log"}, "last day") . " | ";
@ -417,7 +417,7 @@ if ($action eq "blob") {
} }
if ($action eq "log") { if ($action eq "log") {
print "</table>\n"; print "</table>\n";
git_footer(); git_footer_html();
} elsif ($action eq "rss") { } elsif ($action eq "rss") {
print "</channel></rss>"; print "</channel></rss>";
} }
@ -439,7 +439,7 @@ if ($action eq "blob") {
my (@difftree) = map { chomp; $_ } <$fd>; my (@difftree) = map { chomp; $_ } <$fd>;
close $fd; close $fd;
git_header(); git_header_html();
print "<div class=\"head2\">\n"; print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself/$project/commitdiff/$hash"}, "diff") . "</div><br/><br/>\n"; print "view " . $cgi->a({-href => "$myself/$project/commitdiff/$hash"}, "diff") . "</div><br/><br/>\n";
print "<div class=\"shortlog\">$shortlog<br/></div>\n"; print "<div class=\"shortlog\">$shortlog<br/></div>\n";
@ -468,15 +468,15 @@ if ($action eq "blob") {
} }
print "</pre>\n"; print "</pre>\n";
print "<br/>"; print "<br/>";
git_footer(); git_footer_html();
} elsif ($action eq "blobdiff") { } elsif ($action eq "blobdiff") {
git_header(); git_header_html();
print "<br/><br/>\n"; print "<br/><br/>\n";
print "<pre>\n"; print "<pre>\n";
git_diff($hash, $hash_parent, $hash, $hash_parent); git_diff($hash, $hash_parent, $hash, $hash_parent);
print "</pre>\n"; print "</pre>\n";
print "<br/>"; print "<br/>";
git_footer(); git_footer_html();
} elsif ($action eq "commitdiff") { } elsif ($action eq "commitdiff") {
my $parent = ""; my $parent = "";
open my $fd, "-|", "$gitbin/cat-file", "commit", $hash; open my $fd, "-|", "$gitbin/cat-file", "commit", $hash;
@ -495,7 +495,7 @@ if ($action eq "blob") {
my (@difftree) = map { chomp; $_ } <$fd>; my (@difftree) = map { chomp; $_ } <$fd>;
close $fd; close $fd;
git_header(); git_header_html();
print "<div class=\"head2\">\n"; print "<div class=\"head2\">\n";
print "view " . $cgi->a({-href => "$myself/$project/commit/$hash"}, "commit") . "</div><br/><br/>\n"; print "view " . $cgi->a({-href => "$myself/$project/commit/$hash"}, "commit") . "</div><br/><br/>\n";
print "<div class=\"shortlog\">$shortlog<br/></div>\n"; print "<div class=\"shortlog\">$shortlog<br/></div>\n";
@ -521,5 +521,5 @@ if ($action eq "blob") {
} }
print "</pre>\n"; print "</pre>\n";
print "<br/>"; print "<br/>";
git_footer(); git_footer_html();
} }