mirrors/git
1
0
Fork 0
mirror of https://github.com/git/git.git synced 2024-11-01 23:07:55 +01:00
Code Activity

v042

Browse source
This commit is contained in:
Kay Sievers 2005-08-07 20:09:33 +02:00
parent 86eed32d36
commit 991910a9ff
1 changed files with 32 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
gitweb.pl
View file

@ -2,7 +2,7 @@
# gitweb.pl - simple web interface to track changes in git repositories # gitweb.pl - simple web interface to track changes in git repositories
# #
# Version 041 # Version 042
# #
# (C) 2005, Kay Sievers <kay.sievers@vrfy.org> # (C) 2005, Kay Sievers <kay.sievers@vrfy.org>
# (C) 2005, Christian Gierke <ch@gierke.de> # (C) 2005, Christian Gierke <ch@gierke.de>
@ -127,16 +127,16 @@ sub git_commit {
push @parents, $1; push @parents, $1;
} elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) { } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) {
$co{'author'} = $1; $co{'author'} = $1;
$co{'author_time_utc'} = $2; $co{'author_time_epoch'} = $2;
$co{'author_timezone'} = $3; $co{'author_timezone'} = $3;
$co{'author_timezone'} =~ m/((-|\+)[0-9][0-9])([0-9][0-9])/; $co{'author_name'} = $co{'author'};
$co{'author_time_local'} = $co{'author_time_utc'} + (($1 + ($2/60)) * 3600); $co{'author_name'} =~ s/ <.*//;
} elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) { } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) {
$co{'committer'} = $1; $co{'committer'} = $1;
$co{'committer_time_utc'} = $2; $co{'committer_time_epoch'} = $2;
$co{'committer_timezone'} = $3; $co{'committer_timezone'} = $3;
$co{'committer_timezone'} =~ m/((-|\+)[0-9][0-9])([0-9][0-9])/; $co{'committer_name'} = $co{'committer'};
$co{'committer_time_local'} = $co{'committer_time_utc'} + (($1 + ($2/60)) * 3600); $co{'committer_name'} =~ s/ <.*//;
} }
} }
$co{'parents'} = \@parents; $co{'parents'} = \@parents;
@ -216,13 +216,13 @@ sub git_diff_html {
} }
} }
# git cares only about the executable bit
sub mode_str { sub mode_str {
my $perms = oct shift; my $perms = oct shift;
my $modestr; my $modestr;
if ($perms & 040000) { if ($perms & 040000) {
$modestr .= 'drwxrwxr-x'; $modestr .= 'drwxrwxr-x';
} else { } else {
# git cares only about the executable bit
if ($perms & 0100) { if ($perms & 0100) {
$modestr .= '-rwxrwxr-x'; $modestr .= '-rwxrwxr-x';
} else { } else {
@ -233,17 +233,22 @@ sub mode_str {
} }
sub date_str { sub date_str {
my $date_utc = shift; my $epoch = shift;
my $format = shift || "date-time"; my $tz = shift || "-0000";
my %date;
my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"); my @months = ("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"); my @days = ("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat");
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($date_utc); my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($epoch);
if ($format eq "date-time") { $date{'hour'} = $hour;
return sprintf "%s, %d %s %4d %02d:%02d:%02d", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec; $date{'rfc2822'} = sprintf "%s, %d %s %4d %02d:%02d:%02d +0000", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec;
} elsif ($format eq "day-time") { $date{'mday-time'} = sprintf "%d %s %02d:%02d", $mday, $months[$mon], $hour ,$min;
return 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{'rfc2822_local'} = sprintf "%s, %d %s %4d %02d:%02d:%02d %s", $days[$wday], $mday, $months[$mon], 1900+$year, $hour ,$min, $sec, $tz;
return %date;
} }
if ($action eq "git-logo.png") { if ($action eq "git-logo.png") {
@ -353,7 +358,8 @@ sub date_str {
for (my $i = 0; $i <= $#revtree; $i++) { for (my $i = 0; $i <= $#revtree; $i++) {
my $commit = $revtree[$i]; my $commit = $revtree[$i];
my %co = git_commit($commit); my %co = git_commit($commit);
my $age = time - $co{'committer_time_utc'}; my %ad = date_str($co{'author_time_epoch'});
my $age = time - $co{'committer_time_epoch'};
my $age_string; my $age_string;
if ($age > 60*60*24*365*2) { if ($age > 60*60*24*365*2) {
$age_string = int $age/60/60/24/365; $age_string = int $age/60/60/24/365;
@ -393,8 +399,7 @@ sub date_str {
print $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$commit"}, "view diff") . "<br/>\n"; print $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$commit"}, "view diff") . "<br/>\n";
print "</td>\n"; print "</td>\n";
print "<td class=\"head2\">\n"; print "<td class=\"head2\">\n";
print "author &nbsp; &nbsp;" . escapeHTML($co{'author'}) . " [" . date_str($co{'author_time_utc'}) . "]<br/>\n"; print escapeHTML($co{'author_name'}) . " [" . $ad{'rfc2822'} . "]<br/>\n";
print "committer " . escapeHTML($co{'committer'}) . " [" . date_str($co{'committer_time_utc'}) . "]<br/>\n";
print "</td>"; print "</td>";
print "</tr>\n"; print "</tr>\n";
print "<tr>\n"; print "<tr>\n";
@ -413,7 +418,7 @@ sub date_str {
print "</tr>\n"; print "</tr>\n";
} elsif ($action eq "rss") { } elsif ($action eq "rss") {
last if ($i >= 20); last if ($i >= 20);
print "<item>\n\t<title>" . date_str($co{'author_time_utc'}, "day-time") . " - " . escapeHTML($co{'title'}) . "</title>\n"; print "<item>\n\t<title>" . $ad{'mday-time'} . " - " . escapeHTML($co{'title'}) . "</title>\n";
print "\t<link> " . $my_url . "/$project/commit/$commit</link>\n"; print "\t<link> " . $my_url . "/$project/commit/$commit</link>\n";
print "\t<description>"; print "\t<description>";
my $comment = $co{'comment'}; my $comment = $co{'comment'};
@ -432,6 +437,8 @@ sub date_str {
} }
} elsif ($action eq "commit") { } elsif ($action eq "commit") {
my %co = git_commit($hash); my %co = git_commit($hash);
my %ad = date_str($co{'author_time_epoch'}, $co{'author_time_zone'});
my %cd = date_str($co{'committer_time_epoch'}, $co{'committer_time_zone'});
open my $fd, "-|", "$gitbin/diff-tree", "-r", $co{'parent'}, $hash; open my $fd, "-|", "$gitbin/diff-tree", "-r", $co{'parent'}, $hash;
my (@difftree) = map { chomp; $_ } <$fd>; my (@difftree) = map { chomp; $_ } <$fd>;
close $fd; close $fd;
@ -445,14 +452,11 @@ sub date_str {
print "<table cellspacing=\"0\" class=\"log\">\n"; print "<table cellspacing=\"0\" class=\"log\">\n";
print "<tr>\n"; print "<tr>\n";
print "<td class=\"head2\">"; print "<td class=\"head2\">";
print "author &nbsp; &nbsp;" . escapeHTML($co{'author'}) . " [" . date_str($co{'author_time_utc'}) . "]<br/>\n"; print "author &nbsp; &nbsp;" . escapeHTML($co{'author'}) . " [" . $ad{'rfc2822'} . "]<br/>\n";
if ($ad{'hour'} < 7 ) { print "<span style=\"color: #990000;\">"; }
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday) = gmtime($co{'author_time_local'}); print "localtime " . $ad{'rfc2822_local'} . "<br/>\n";
if ($hour < 7 ) { print "<span style=\"color: #990000;\">"; } if ($ad{'hour'} < 7 ) { print "</span>"; }
print "localtime " . date_str($co{'author_time_local'}) . " " . $co{'author_timezone'} . "<br/>\n"; print "committer " . escapeHTML($co{'committer'}) . " [" . $cd{'rfc2822'} . "]<br/>\n";
if ($hour < 7 ) { print "</span>"; }
print "committer " . escapeHTML($co{'committer'}) . " [" . date_str($co{'committer_time_utc'}) . "]<br/>\n";
print "localtime " . date_str($co{'committer_time_local'}) . " " . $co{'committer_timezone'} . "<br/>\n";
print "commit &nbsp; &nbsp;$hash<br/>\n"; print "commit &nbsp; &nbsp;$hash<br/>\n";
print "tree &nbsp; &nbsp; &nbsp;" . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "<br/>\n"; print "tree &nbsp; &nbsp; &nbsp;" . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "<br/>\n";
my $parents = $co{'parents'}; my $parents = $co{'parents'};