kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity
Browse Source

v021

maint
Kay Sievers 20 years ago
parent
e334d18cfd
commit
12a88f2f03
1 changed files with 26 additions and 26 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 52
      gitweb.pl

52
gitweb.pl
Unescape 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();
} }

Write Preview
Loading…
Cancel
Save