From: Kay Sievers Date: Sun, 7 Aug 2005 18:14:48 +0000 (+0200) Subject: v053 X-Git-Tag: v1.4.0~1^2~117 X-Git-Url: https://git.tokkee.org/?a=commitdiff_plain;h=2ad9331e15fba4476cb734f46b845638ee82222e;p=git.git v053 rename gitweb.pl to gitweb.cgi --- diff --git a/gitweb.cgi b/gitweb.cgi new file mode 100755 index 000000000..017664b8f --- /dev/null +++ b/gitweb.cgi @@ -0,0 +1,589 @@ +#!/usr/bin/perl + +# gitweb.pl - simple web interface to track changes in git repositories +# +# (C) 2005, Kay Sievers +# (C) 2005, Christian Gierke +# +# This file is licensed under the GPL v2, or a later version + +use strict; +use warnings; +use CGI qw(:standard :escapeHTML); +use CGI::Carp qw(fatalsToBrowser); + +my $cgi = new CGI; + +my $version = "053"; +my $projectroot = "/pub/scm"; +my $defaultprojects = "linux/kernel/git"; +my $gitbin = "/usr/bin"; +my $gittmp = "/tmp/gitweb"; +my $giturl = "/pub/software/scm/cogito"; +my $my_url = $cgi->url(); +my $my_uri = $cgi->url(-absolute => 1); + +mkdir($gittmp, 0700); + +my $project = $cgi->param('p'); +my $action = $cgi->param('a'); +my $hash = $cgi->param('h'); +my $hash_parent = $cgi->param('hp'); +my $time_back = $cgi->param('t'); +if (!(defined($time_back))) { + $time_back = 1; +} +$ENV{'SHA1_FILE_DIRECTORY'} = "$projectroot/$project/objects"; + +# sanitize input +$action =~ s/[^0-9a-zA-Z\.\-]//g; +$hash =~ s/[^0-9a-fA-F]//g; +$hash_parent =~ s/[^0-9a-fA-F]//g; +$time_back =~ s/[^0-9]+//g; +if (defined($project) && $project =~ /(^|\/)(|\.|\.\.)($|\/)/) { + print $cgi->header(-type=>'text/plain', -status=>'403 Permission denied'); + print "Malformed query, file missing or permission denied\n"; + exit 0; +} +$project =~ s/|//g; + +sub git_header_html { + print $cgi->header(-type => 'text/html', -charset => 'utf-8'); +print < + + + git - $project $action + + + + +EOF + print "
\n" . + "" . + "\"git\""; + if ($defaultprojects ne "") { + print $cgi->a({-href => "$my_uri"}, "projects") . " / "; + } + if ($project ne "") { + print $cgi->a({-href => "$my_uri?p=$project;a=log"}, $project); + } + if ($action ne "") { + print " / $action"; + } + print "
\n"; +} + +sub git_footer_html { + print "
"; + print "
version $version
"; + if ($project ne '') { + print $cgi->a({-href => "$my_uri?p=$project;a=rss", -class => "xml_logo"}, "XML") . "\n"; + } + print "
"; + print "\n"; +} + +sub git_head { + my $path = shift; + open my $fd, "$projectroot/$path/HEAD"; + my $head = <$fd>; + close $fd; + chomp $head; + return $head; +} + +sub git_commit { + my $commit = shift; + my %co; + my @parents; + + open my $fd, "-|", "$gitbin/cat-file commit $commit"; + while (my $line = <$fd>) { + chomp($line); + last if $line eq ""; + if ($line =~ m/^tree (.*)$/) { + $co{'tree'} = $1; + } elsif ($line =~ m/^parent (.*)$/) { + push @parents, $1; + } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) { + $co{'author'} = $1; + $co{'author_epoch'} = $2; + $co{'author_tz'} = $3; + $co{'author_name'} = $co{'author'}; + $co{'author_name'} =~ s/ <.*//; + } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) { + $co{'committer'} = $1; + $co{'committer_epoch'} = $2; + $co{'committer_tz'} = $3; + $co{'committer_name'} = $co{'committer'}; + $co{'committer_name'} =~ s/ <.*//; + } + } + $co{'parents'} = \@parents; + $co{'parent'} = $parents[0]; + my (@comment) = map { chomp; $_ } <$fd>; + $co{'comment'} = \@comment; + $co{'title'} = $comment[0]; + close $fd; + return %co; +} + +sub git_diff_html { + my $from_name = shift || "/dev/null"; + my $to_name = shift || "/dev/null"; + my $from = shift; + my $to = shift; + + my $from_tmp = "/dev/null"; + my $to_tmp = "/dev/null"; + my $from_label = "/dev/null"; + my $to_label = "/dev/null"; + my $pid = $$; + + # create tmp from-file + if ($from ne "") { + $from_tmp = "$gittmp/gitweb_" . $$ . "_from"; + open my $fd2, "> $from_tmp"; + open my $fd, "-|", "$gitbin/cat-file blob $from"; + my @file = <$fd>; + print $fd2 @file; + close $fd2; + close $fd; + $from_label = "a/$from_name"; + } + + # create tmp to-file + if ($to ne "") { + $to_tmp = "$gittmp/gitweb_" . $$ . "_to"; + open my $fd2, "> $to_tmp"; + open my $fd, "-|", "$gitbin/cat-file blob $to"; + my @file = <$fd>; + print $fd2 @file; + close $fd2; + close $fd; + $to_label = "b/$to_name"; + } + + open my $fd, "-|", "/usr/bin/diff -u -p -L $from_label -L $to_label $from_tmp $to_tmp"; + print "===== "; + if ($from ne "") { + print $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$from"}, $from); + } else { + print $from_name; + } + print " vs "; + if ($to ne "") { + print $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$to"}, $to); + } else { + print $to_name; + } + print " =====\n"; + while (my $line = <$fd>) { + my $char = substr($line,0,1); + print '' if $char eq '+'; + print '' if $char eq '-'; + print '' if $char eq '@'; + print escapeHTML($line); + print '' if $char eq '+' or $char eq '-' or $char eq '@'; + } + close $fd; + + if ($from ne "") { + unlink("$from_tmp"); + } + if ($to ne "") { + unlink("$to_tmp"); + } +} + +sub mode_str { + my $perms = oct shift; + my $modestr; + if ($perms & 040000) { + $modestr .= 'drwxrwxr-x'; + } else { + # git cares only about the executable bit + if ($perms & 0100) { + $modestr .= '-rwxrwxr-x'; + } else { + $modestr .= '-rw-rw-r--'; + }; + } + return $modestr; +} + +sub date_str { + my $epoch = shift; + my $tz = shift || "-0000"; + + my %date; + my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); + my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"); + my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch); + $date{'hour'} = $hour; + $date{'minute'} = $min; + $date{'mday'} = $mday; + $date{'day'} = $days[$wday]; + $date{'month'} = $months[$mon]; + $date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec; + $date{'mday-time'} = sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min; + + $tz =~ m/((-|\+)[0-9][0-9])([0-9][0-9])/; + my $local = $epoch + (($1 + ($2/60)) * 3600); + ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local); + $date{'hour_local'} = $hour; + $date{'minute_local'} = $min; + $date{'tz_local'} = $tz; + return %date; +} + +if ($action eq "git-logo.png") { + print $cgi->header(-type => 'image/png', -expires => '+1d'); + print "\211\120\116\107\015\012\032\012\000\000\000\015\111\110\104\122". + "\000\000\000\110\000\000\000\033\004\003\000\000\000\055\331\324". + "\055\000\000\000\030\120\114\124\105\377\377\377\140\140\135\260". + "\257\252\000\200\000\316\315\307\300\000\000\350\350\346\367\367". + "\366\225\014\247\107\000\000\000\163\111\104\101\124\050\317\143". + "\110\147\040\004\112\134\030\012\010\052\142\123\141\040\002\010". + "\015\151\105\254\241\241\001\060\014\223\140\066\046\122\221\261". + "\001\021\326\341\125\144\154\154\314\154\154\014\242\014\160\052". + "\142\006\052\301\142\035\263\001\002\123\244\010\350\000\003\030". + "\046\126\021\324\341\040\227\033\340\264\016\065\044\161\051\202". + "\231\060\270\223\012\021\271\105\210\301\215\240\242\104\041\006". + "\047\101\202\100\205\301\105\211\040\160\001\000\244\075\041\305". + "\022\034\232\376\000\000\000\000\111\105\116\104\256\102\140\202"; + exit; +} + +# show list of default projects +if ($project eq "") { + opendir(my $fd, "$projectroot/$defaultprojects"); + my (@users) = sort grep(!/^\./, readdir($fd)); + closedir($fd); + git_header_html(); + print "
\n"; + print "

\n"; + foreach my $user (@users) { + opendir($fd, "$projectroot/$defaultprojects/$user"); + my (@repos) = sort grep(/\.git$/, readdir($fd)); + closedir($fd); + foreach my $repo (@repos) { + if (-e "$projectroot/$defaultprojects/$user/$repo/HEAD") { + print $cgi->a({-href => "$my_uri?p=$defaultprojects/$user/$repo;a=log"}, "$defaultprojects/$user/$repo") . "
\n"; + } + } + } + print "
"; + git_footer_html(); + exit; +} + +if ($action eq "") { + $action = "log"; +} + +if ($action eq "blob") { + git_header_html(); + print "


\n";
+	open my $fd, "-|", "$gitbin/cat-file blob $hash";
+	my $nr;
+	while (my $line = <$fd>) {
+		$nr++;
+		printf "%4i\t%s", $nr, escapeHTML($line);;
+	}
+	close $fd;
+	print "

\n"; + print "
"; + git_footer_html(); +} elsif ($action eq "tree") { + if ($hash eq "") { + $hash = git_head($project); + } + open my $fd, "-|", "$gitbin/ls-tree $hash"; + my (@entries) = map { chomp; $_ } <$fd>; + close $fd; + git_header_html(); + print "
\n"; + print "
\n";
+	foreach my $line (@entries) {
+		#'100644	blob	0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa	panic.c'
+		$line =~ m/^([0-9]+)\t(.*)\t(.*)\t(.*)$/;
+		my $t_mode = $1;
+		my $t_type = $2;
+		my $t_hash = $3;
+		my $t_name = $4;
+		if ($t_type eq "blob") {
+			print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$t_hash"}, $t_name) . "\n";
+		} elsif ($t_type eq "tree") {
+			print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$t_hash"}, $t_name) . "\n";
+		}
+	}
+	print "
\n"; + print "
"; + git_footer_html(); +} elsif ($action eq "log" || $action eq "rss") { + open my $fd, "-|", "$gitbin/rev-list " . git_head($project); + my (@revtree) = map { chomp; $_ } <$fd>; + close $fd; + + if ($action eq "log") { + git_header_html(); + print "
\n"; + print "view "; + print $cgi->a({-href => "$my_uri?p=$project;a=log"}, "last day") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=log;t=7"}, "week") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=log;t=31"}, "month") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=log;t=365"}, "year") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=log;t=0"}, "all") . "
\n"; + print "

\n" . + "
\n"; + } elsif ($action eq "rss") { + print $cgi->header(-type => 'text/xml', -charset => 'utf-8'); + print "\n". + "\n"; + print "\n"; + print "$project\n". + " " . $my_url . "/$project/log\n". + "$project log\n". + "en\n"; + } + + for (my $i = 0; $i <= $#revtree; $i++) { + my $commit = $revtree[$i]; + my %co = git_commit($commit); + my %ad = date_str($co{'author_epoch'}); + my $age = time - $co{'committer_epoch'}; + 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"; + } + if ($action eq "log") { + if ($time_back > 0 && $age > $time_back*60*60*24) { + if ($i == 0) { + print "
Last change $age_string.

\n"; + } + last; + } + print "\n"; + print "
\n" . + "
\n" . + $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$commit"}, "view commit") . "
\n" . + $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$commit"}, "view diff") . "
\n" . + "
\n" . + escapeHTML($co{'author_name'}) . " [" . $ad{'rfc2822'} . "]
\n" . + "
\n" . + "
\n"; + my $comment = $co{'comment'}; + foreach my $line (@$comment) { + if ($line =~ m/^(signed-off|acked)-by:/i) { + print '
' . escapeHTML($line) . "
\n"; + } else { + print escapeHTML($line) . "
\n"; + } + } + print "

\n" . + "
\n"; + } elsif ($action eq "rss") { + last if ($i >= 20); + print "\n" . + "\t" . sprintf("%d %s %02d:%02d", $ad{'mday'}, $ad{'month'}, $ad{'hour'}, $ad{'min'}) . " - " . escapeHTML($co{'title'}) . "\n" . + "\t " . $my_url . "?p=$project;a==commit;h=$commit\n" . + "\t"; + my $comment = $co{'comment'}; + foreach my $line (@$comment) { + print escapeHTML($line) . "\n"; + } + print "\t\n" . + "\n"; + } + } + if ($action eq "log") { + git_footer_html(); + } elsif ($action eq "rss") { + print ""; + } +} elsif ($action eq "commit") { + my %co = git_commit($hash); + my %ad = date_str($co{'author_epoch'}, $co{'author_tz'}); + my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'}); + open my $fd, "-|", "$gitbin/diff-tree -r " . $co{'parent'} . " $hash"; + my (@difftree) = map { chomp; $_ } <$fd>; + close $fd; + + git_header_html(); + print "
view\n" . + $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash"}, "commit") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" . + "

\n"; + print "$co{'title'}\n"; + print "
\n"; + print "author      " . escapeHTML($co{'author'}) . "
\n"; + print "author-time " . $ad{'rfc2822'}; + if ($ad{'hour_local'} < 6) { print ""; } + printf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}); + if ($ad{'hour_local'} < 6 ) { print ""; } + print "
\n"; + print "committer   " . escapeHTML($co{'committer'}) . "
\n"; + print "commit-time " . $ad{'rfc2822'}; + printf(" (%02d:%02d %s)", $cd{'hour_local'}, $cd{'minute_local'}, $cd{'tz_local'}); + print "
\n"; + print "commit      $hash
\n"; + print "tree        " . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "
\n"; + my $parents = $co{'parents'}; + foreach my $par (@$parents) { + print "parent      " . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$par"}, $par) . "
\n"; + } + print "
\n"; + print "
\n"; + my $comment = $co{'comment'}; + foreach my $line (@$comment) { + if ($line =~ m/(signed-off|acked)-by:/i) { + print '
' . escapeHTML($line) . "
\n"; + } else { + print escapeHTML($line) . "
\n"; + } + } + print "

\n"; + print "
\n";
+	foreach my $line (@difftree) {
+		# '*100644->100644	blob	9f91a116d91926df3ba936a80f020a6ab1084d2b->bb90a0c3a91eb52020d0db0e8b4f94d30e02d596	net/ipv4/route.c'
+		# '+100644	blob	4a83ab6cd565d21ab0385bac6643826b83c2fcd4	arch/arm/lib/bitops.h'
+		$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
+		my $op = $1;
+		my $mode = $2;
+		my $type = $3;
+		my $id = $4;
+		my $file = $5;
+		$mode =~ m/^([0-7]{6})/;
+		my $modestr = mode_str($1);
+		if ($type eq "blob") {
+			if ($op eq "+") {
+				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;h=$id"}, $file) . " (new)\n";
+			} elsif ($op eq "-") {
+				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;hp=$id"}, $file) . " (removed)\n";
+			} elsif ($op eq "*") {
+				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
+				my $from = $1;
+				my $to = $2;
+				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;h=$to;hp=$from"}, $file) . "\n";
+			}
+		}
+	}
+	print "
\n" . + "
\n"; + git_footer_html(); +} elsif ($action eq "blobdiff") { + git_header_html(); + print "


\n" . + "
\n";
+	git_diff_html($hash_parent, $hash, $hash_parent, $hash);
+	print "
\n" . + "
"; + git_footer_html(); +} elsif ($action eq "commitdiff") { + my %co = git_commit($hash); + open my $fd, "-|", "$gitbin/diff-tree -r " . $co{'parent'} . " $hash"; + my (@difftree) = map { chomp; $_ } <$fd>; + close $fd; + + git_header_html(); + print "
view\n" . + $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash"}, "commit") . " | \n" . + $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" . + "

\n"; + print $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash", -class => "log_title"}, $co{'title'}) ."\n"; + print "
\n" . + "
\n";
+	foreach my $line (@difftree) {
+		# '*100644->100644	blob	8e5f9bbdf4de94a1bc4b4da8cb06677ce0a57716->8da3a306d0c0c070d87048d14a033df02f40a154	Makefile'
+		$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_html("", $file, "", $id);
+			} elsif ($op eq "-") {
+				git_diff_html($file, "", $id, "");
+			} elsif ($op eq "*") {
+				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
+				git_diff_html($file, $file, $1, $2);
+			}
+		}
+	}
+	print "
\n"; + print "
"; + git_footer_html(); +} else { + git_header_html(); + print "
\n" . + "

\n"; + print "unknown action\n"; + print "
\n"; + git_footer_html(); +} diff --git a/gitweb.pl b/gitweb.pl deleted file mode 100755 index 096786b93..000000000 --- a/gitweb.pl +++ /dev/null @@ -1,562 +0,0 @@ -#!/usr/bin/perl - -# gitweb.pl - simple web interface to track changes in git repositories -# -# (C) 2005, Kay Sievers -# (C) 2005, Christian Gierke -# -# This file is licensed under the GPL v2, or a later version - -use strict; -use warnings; -use CGI qw(:standard :escapeHTML); -use CGI::Carp qw(fatalsToBrowser); - -my $cgi = new CGI; - -my $version = "049"; -my $projectroot = "/"; -my $defaultprojects = "home/kay/public_html"; -my $gitbin = "/home/kay/bin/git"; -my $gittmp = "/tmp"; -my $my_url = $cgi->url(); -my $my_uri = $cgi->url(-absolute => 1); - -my $project = $cgi->param('p'); -my $action = $cgi->param('a'); -my $hash = $cgi->param('h'); -my $hash_parent = $cgi->param('hp'); -my $time_back = $cgi->param('t'); -if (!(defined($time_back))) { - $time_back = 1; -} -$ENV{'SHA1_FILE_DIRECTORY'} = "$projectroot/$project/.git/objects"; - -# sanitize input -$action =~ s/[^0-9a-zA-Z\.\-]//g; -$project =~ s/\/\.//g; -$project =~ s/^\/+//g; -$project =~ s/\/+$//g; -$project =~ s/|//g; -$hash =~ s/[^0-9a-fA-F]//g; -$hash_parent =~ s/[^0-9a-fA-F]//g; -$time_back =~ s/[^0-9]+//g; - -sub git_header_html { - print $cgi->header(-type => 'text/html', -charset => 'utf-8'); -print < - - - git - $project $action - - - - -EOF - print "
\n" . - "" . - "\"git\""; - if ($defaultprojects ne "") { - print $cgi->a({-href => "$my_uri"}, "projects") . " / "; - } - if ($project ne "") { - print $cgi->a({-href => "$my_uri?p=$project;a=log"}, $project); - } - if ($action ne "") { - print " / $action"; - } - print "
\n"; -} - -sub git_footer_html { - print "
"; - print "
version $version
"; - if ($project ne '') { - print $cgi->a({-href => "$my_uri?p=$project;a=rss", -class => "xml_logo"}, "XML") . "\n"; - } - print "
"; - print "\n"; -} - -sub git_head { - my $path = shift; - open my $fd, "$projectroot/$path/.git/HEAD"; - my $head = <$fd>; - close $fd; - chomp $head; - return $head; -} - -sub git_commit { - my $commit = shift; - my %co; - my @parents; - - open my $fd, "-|", "$gitbin/cat-file commit $commit"; - while (my $line = <$fd>) { - chomp($line); - last if $line eq ""; - if ($line =~ m/^tree (.*)$/) { - $co{'tree'} = $1; - } elsif ($line =~ m/^parent (.*)$/) { - push @parents, $1; - } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) { - $co{'author'} = $1; - $co{'author_epoch'} = $2; - $co{'author_tz'} = $3; - $co{'author_name'} = $co{'author'}; - $co{'author_name'} =~ s/ <.*//; - } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) { - $co{'committer'} = $1; - $co{'committer_epoch'} = $2; - $co{'committer_tz'} = $3; - $co{'committer_name'} = $co{'committer'}; - $co{'committer_name'} =~ s/ <.*//; - } - } - $co{'parents'} = \@parents; - $co{'parent'} = $parents[0]; - my (@comment) = map { chomp; $_ } <$fd>; - $co{'comment'} = \@comment; - $co{'title'} = $comment[0]; - close $fd; - return %co; -} - -sub git_diff_html { - my $from_name = shift || "/dev/null"; - my $to_name = shift || "/dev/null"; - my $from = shift; - my $to = shift; - - my $from_tmp = "/dev/null"; - my $to_tmp = "/dev/null"; - my $from_label = "/dev/null"; - my $to_label = "/dev/null"; - my $pid = $$; - - # create tmp from-file - if ($from ne "") { - $from_tmp = "$gittmp/gitweb_" . $$ . "_from"; - open my $fd2, "> $from_tmp"; - open my $fd, "-|", "$gitbin/cat-file blob $from"; - my @file = <$fd>; - print $fd2 @file; - close $fd2; - close $fd; - $from_label = "a/$from_name"; - } - - # create tmp to-file - if ($to ne "") { - $to_tmp = "$gittmp/gitweb_" . $$ . "_to"; - open my $fd2, "> $to_tmp"; - open my $fd, "-|", "$gitbin/cat-file blob $to"; - my @file = <$fd>; - print $fd2 @file; - close $fd2; - close $fd; - $to_label = "b/$to_name"; - } - - open my $fd, "-|", "/usr/bin/diff -u -p -L $from_label -L $to_label $from_tmp $to_tmp"; - print "===== "; - if ($from ne "") { - print $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$from"}, $from); - } else { - print $from_name; - } - print " vs "; - if ($to ne "") { - print $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$to"}, $to); - } else { - print $to_name; - } - print " =====\n"; - while (my $line = <$fd>) { - my $char = substr($line,0,1); - print '' if $char eq '+'; - print '' if $char eq '-'; - print '' if $char eq '@'; - print escapeHTML($line); - print '' if $char eq '+' or $char eq '-' or $char eq '@'; - } - close $fd; - - if ($from ne "") { - unlink("$from_tmp"); - } - if ($to ne "") { - unlink("$to_tmp"); - } -} - -sub mode_str { - my $perms = oct shift; - my $modestr; - if ($perms & 040000) { - $modestr .= 'drwxrwxr-x'; - } else { - # git cares only about the executable bit - if ($perms & 0100) { - $modestr .= '-rwxrwxr-x'; - } else { - $modestr .= '-rw-rw-r--'; - }; - } - return $modestr; -} - -sub date_str { - my $epoch = shift; - my $tz = shift || "-0000"; - - my %date; - my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); - my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"); - my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch); - $date{'hour'} = $hour; - $date{'minute'} = $min; - $date{'mday'} = $mday; - $date{'day'} = $days[$wday]; - $date{'month'} = $months[$mon]; - $date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec; - $date{'mday-time'} = sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min; - - $tz =~ m/((-|\+)[0-9][0-9])([0-9][0-9])/; - my $local = $epoch + (($1 + ($2/60)) * 3600); - ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($local); - $date{'hour_local'} = $hour; - $date{'minute_local'} = $min; - $date{'tz_local'} = $tz; - return %date; -} - -if ($action eq "git-logo.png") { - print $cgi->header(-type => 'image/png', -expires => '+1d'); - print "\211\120\116\107\015\012\032\012\000\000\000\015\111\110\104\122". - "\000\000\000\110\000\000\000\033\004\003\000\000\000\055\331\324". - "\055\000\000\000\030\120\114\124\105\377\377\377\140\140\135\260". - "\257\252\000\200\000\316\315\307\300\000\000\350\350\346\367\367". - "\366\225\014\247\107\000\000\000\163\111\104\101\124\050\317\143". - "\110\147\040\004\112\134\030\012\010\052\142\123\141\040\002\010". - "\015\151\105\254\241\241\001\060\014\223\140\066\046\122\221\261". - "\001\021\326\341\125\144\154\154\314\154\154\014\242\014\160\052". - "\142\006\052\301\142\035\263\001\002\123\244\010\350\000\003\030". - "\046\126\021\324\341\040\227\033\340\264\016\065\044\161\051\202". - "\231\060\270\223\012\021\271\105\210\301\215\240\242\104\041\006". - "\047\101\202\100\205\301\105\211\040\160\001\000\244\075\041\305". - "\022\034\232\376\000\000\000\000\111\105\116\104\256\102\140\202"; - exit; -} - -# show list of default projects -if ($project eq "") { - opendir(my $fd, "$projectroot/$defaultprojects"); - my (@path) = sort grep(!/^\./, readdir($fd)); - closedir($fd); - git_header_html(); - print "
\n"; - print "

\n"; - foreach my $line (@path) { - if (-e "$projectroot/$defaultprojects/$line/.git/HEAD") { - print $cgi->a({-href => "$my_uri?p=$defaultprojects/$line;a=log"}, "$defaultprojects/$line") . "
\n"; - } - } - print "
"; - git_footer_html(); - exit; -} - -if ($action eq "") { - $action = "log"; -} - -if ($action eq "blob") { - git_header_html(); - print "


\n";
-	open my $fd, "-|", "$gitbin/cat-file blob $hash";
-	my $nr;
-	while (my $line = <$fd>) {
-		$nr++;
-		printf "%4i\t%s", $nr, escapeHTML($line);;
-	}
-	close $fd;
-	print "

\n"; - print "
"; - git_footer_html(); -} elsif ($action eq "tree") { - if ($hash eq "") { - $hash = git_head($project); - } - open my $fd, "-|", "$gitbin/ls-tree $hash"; - my (@entries) = map { chomp; $_ } <$fd>; - close $fd; - git_header_html(); - print "
\n"; - print "
\n";
-	foreach my $line (@entries) {
-		#'100644	blob	0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa	panic.c'
-		$line =~ m/^([0-9]+)\t(.*)\t(.*)\t(.*)$/;
-		my $t_mode = $1;
-		my $t_type = $2;
-		my $t_hash = $3;
-		my $t_name = $4;
-		if ($t_type eq "blob") {
-			print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri?p=$project;a=blob;h=$t_hash"}, $t_name) . "\n";
-		} elsif ($t_type eq "tree") {
-			print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$t_hash"}, $t_name) . "\n";
-		}
-	}
-	print "
\n"; - print "
"; - git_footer_html(); -} elsif ($action eq "log" || $action eq "rss") { - open my $fd, "-|", "$gitbin/rev-list " . git_head($project); - my (@revtree) = map { chomp; $_ } <$fd>; - close $fd; - - if ($action eq "log") { - git_header_html(); - print "
\n"; - print "view "; - print $cgi->a({-href => "$my_uri?p=$project;a=log"}, "last day") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=log;t=7"}, "week") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=log;t=31"}, "month") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=log;t=365"}, "year") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=log;t=0"}, "all") . "
\n"; - print "

\n" . - "
\n"; - } elsif ($action eq "rss") { - print $cgi->header(-type => 'text/xml', -charset => 'utf-8'); - print "\n". - "\n"; - print "\n"; - print "$project\n". - " " . $my_url . "/$project/log\n". - "$project log\n". - "en\n"; - } - - for (my $i = 0; $i <= $#revtree; $i++) { - my $commit = $revtree[$i]; - my %co = git_commit($commit); - my %ad = date_str($co{'author_epoch'}); - my $age = time - $co{'committer_epoch'}; - 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"; - } - if ($action eq "log") { - if ($time_back > 0 && $age > $time_back*60*60*24) { - if ($i == 0) { - print "
Last change $age_string.

\n"; - } - last; - } - print "\n"; - print "
\n" . - "
\n" . - $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$commit"}, "view commit") . "
\n" . - $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$commit"}, "view diff") . "
\n" . - "
\n" . - escapeHTML($co{'author_name'}) . " [" . $ad{'rfc2822'} . "]
\n" . - "
\n" . - "
\n"; - my $comment = $co{'comment'}; - foreach my $line (@$comment) { - if ($line =~ m/^(signed-off|acked)-by:/i) { - print '
' . escapeHTML($line) . "
\n"; - } else { - print escapeHTML($line) . "
\n"; - } - } - print "

\n" . - "
\n"; - } elsif ($action eq "rss") { - last if ($i >= 20); - print "\n" . - "\t" . sprintf("%d %s %02d:%02d", $ad{'mday'}, $ad{'month'}, $ad{'hour'}, $ad{'min'}) . " - " . escapeHTML($co{'title'}) . "\n" . - "\t " . $my_url . "?p=$project;a==commit;h=$commit\n" . - "\t"; - my $comment = $co{'comment'}; - foreach my $line (@$comment) { - print escapeHTML($line) . "\n"; - } - print "\t\n" . - "\n"; - } - } - if ($action eq "log") { - git_footer_html(); - } elsif ($action eq "rss") { - print ""; - } -} elsif ($action eq "commit") { - my %co = git_commit($hash); - my %ad = date_str($co{'author_epoch'}, $co{'author_tz'}); - my %cd = date_str($co{'committer_epoch'}, $co{'committer_tz'}); - open my $fd, "-|", "$gitbin/diff-tree -r " . $co{'parent'} . " $hash"; - my (@difftree) = map { chomp; $_ } <$fd>; - close $fd; - - git_header_html(); - print "
view\n" . - $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash"}, "commit") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" . - "

\n"; - print "$co{'title'}\n"; - print "
\n"; - print "author      " . escapeHTML($co{'author'}) . "
\n"; - print "author-time " . $ad{'rfc2822'}; - if ($ad{'hour_local'} < 6) { print ""; } - printf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'}); - if ($ad{'hour_local'} < 6 ) { print ""; } - print "
\n"; - print "committer   " . escapeHTML($co{'committer'}) . "
\n"; - print "commit-time " . $ad{'rfc2822'}; - printf(" (%02d:%02d %s)", $cd{'hour_local'}, $cd{'minute_local'}, $cd{'tz_local'}); - print "
\n"; - print "commit      $hash
\n"; - print "tree        " . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "
\n"; - my $parents = $co{'parents'}; - foreach my $par (@$parents) { - print "parent      " . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$par"}, $par) . "
\n"; - } - print "
\n"; - print "
\n"; - my $comment = $co{'comment'}; - foreach my $line (@$comment) { - if ($line =~ m/(signed-off|acked)-by:/i) { - print '
' . escapeHTML($line) . "
\n"; - } else { - print escapeHTML($line) . "
\n"; - } - } - print "

\n"; - print "
\n";
-	foreach my $line (@difftree) {
-		# '*100644->100644	blob	9f91a116d91926df3ba936a80f020a6ab1084d2b->bb90a0c3a91eb52020d0db0e8b4f94d30e02d596	net/ipv4/route.c'
-		# '+100644	blob	4a83ab6cd565d21ab0385bac6643826b83c2fcd4	arch/arm/lib/bitops.h'
-		$line =~ m/^(.)(.*)\t(.*)\t(.*)\t(.*)$/;
-		my $op = $1;
-		my $mode = $2;
-		my $type = $3;
-		my $id = $4;
-		my $file = $5;
-		$mode =~ m/^([0-7]{6})/;
-		my $modestr = mode_str($1);
-		if ($type eq "blob") {
-			if ($op eq "+") {
-				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;h=$id"}, $file) . " (new)\n";
-			} elsif ($op eq "-") {
-				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;hp=$id"}, $file) . " (removed)\n";
-			} elsif ($op eq "*") {
-				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
-				my $from = $1;
-				my $to = $2;
-				print "$modestr " . $cgi->a({-href => "$my_uri?p=$project;a=blobdiff;h=$to;hp=$from"}, $file) . "\n";
-			}
-		}
-	}
-	print "
\n" . - "
"; - git_footer_html(); -} elsif ($action eq "blobdiff") { - git_header_html(); - print "


\n" . - "
\n";
-	git_diff_html($hash_parent, $hash, $hash_parent, $hash);
-	print "
\n" . - "
"; - git_footer_html(); -} elsif ($action eq "commitdiff") { - my %co = git_commit($hash); - open my $fd, "-|", "$gitbin/diff-tree -r " . $co{'parent'} . " $hash"; - my (@difftree) = map { chomp; $_ } <$fd>; - close $fd; - - git_header_html(); - print "
view\n" . - $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash"}, "commit") . " | \n" . - $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" . - "

\n"; - print $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$hash", -class => "log_title"}, $co{'title'}) ."\n"; - print "
\n" . - "
\n";
-	foreach my $line (@difftree) {
-		# '*100644->100644	blob	8e5f9bbdf4de94a1bc4b4da8cb06677ce0a57716->8da3a306d0c0c070d87048d14a033df02f40a154	Makefile'
-		$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_html("", $file, "", $id);
-			} elsif ($op eq "-") {
-				git_diff_html($file, "", $id, "");
-			} elsif ($op eq "*") {
-				$id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
-				git_diff_html($file, $file, $1, $2);
-			}
-		}
-	}
-	print "
\n"; - print "
"; - git_footer_html(); -} else { - git_header_html(); - print "
\n" . - "

\n"; - print "unknown action\n"; - print "
\n"; - git_footer_html(); -}