v049

diff --git a/gitweb.pl b/gitweb.pl
index 643787f1824093504b631edd259a8e36036956f7..096786b932b5399cb4a50db3f66640c07e57132f 100755 (executable)
--- a/gitweb.pl
+++ b/gitweb.pl
@@ -14,7 +14,7 @@
 
 my $cgi = new CGI;
 
 
 my $cgi = new CGI;
 

-my $version = "048";
+my $version = "049";

 my $projectroot =      "/";
 my $defaultprojects =  "home/kay/public_html";
 my $gitbin =           "/home/kay/bin/git";
 my $projectroot =      "/";
 my $defaultprojects =  "home/kay/public_html";
 my $gitbin =           "/home/kay/bin/git";


@@ -130,14 +130,14 @@ sub git_commit {
                        push @parents, $1;
                } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) {
                        $co{'author'} = $1;
                        push @parents, $1;
                } elsif ($line =~ m/^author (.*) ([0-9]+) (.*)$/) {
                        $co{'author'} = $1;

-                       $co{'author_time_epoch'} = $2;
-                       $co{'author_timezone'} = $3;
+                       $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{'author_name'} = $co{'author'};
                        $co{'author_name'} =~ s/ <.*//;
                } elsif ($line =~ m/^committer (.*) ([0-9]+) (.*)$/) {
                        $co{'committer'} = $1;

-                       $co{'committer_time_epoch'} = $2;
-                       $co{'committer_timezone'} = $3;
+                       $co{'committer_epoch'} = $2;
+                       $co{'committer_tz'} = $3;

                        $co{'committer_name'} = $co{'committer'};
                        $co{'committer_name'} =~ s/ <.*//;
                }
                        $co{'committer_name'} = $co{'committer'};
                        $co{'committer_name'} =~ s/ <.*//;
                }


@@ -254,7 +254,9 @@ sub date_str {
        $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);
        $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;
+       $date{'hour_local'} = $hour;
+       $date{'minute_local'} = $min;
+       $date{'tz_local'} = $tz;

        return %date;
 }
 
        return %date;
 }
 


@@ -367,8 +369,8 @@ sub date_str {
        for (my $i = 0; $i <= $#revtree; $i++) {
                my $commit = $revtree[$i];
                my %co = git_commit($commit);
        for (my $i = 0; $i <= $#revtree; $i++) {
                my $commit = $revtree[$i];
                my %co = git_commit($commit);

-               my %ad = date_str($co{'author_time_epoch'});
-               my $age = time - $co{'committer_time_epoch'};
+               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;
                my $age_string;
                if ($age > 60*60*24*365*2) {
                        $age_string = int $age/60/60/24/365;


@@ -438,8 +440,8 @@ sub date_str {
        }
 } elsif ($action eq "commit") {
        my %co = git_commit($hash);
        }
 } elsif ($action eq "commit") {
        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'});
+       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;
        open my $fd, "-|", "$gitbin/diff-tree -r " . $co{'parent'} . " $hash";
        my (@difftree) = map { chomp; $_ } <$fd>;
        close $fd;


@@ -450,16 +452,22 @@ sub date_str {
              $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" .
              "<br/><br/></div>\n";
        print "<a class=\"log_title\" href=\"$my_uri?p=$project;a=commitdiff;h=$hash\">$co{'title'}</a>\n";
              $cgi->a({-href => "$my_uri?p=$project;a=commitdiff;h=$hash"}, "diff") . "\n" .
              "<br/><br/></div>\n";
        print "<a class=\"log_title\" href=\"$my_uri?p=$project;a=commitdiff;h=$hash\">$co{'title'}</a>\n";

-       print "<div class=\"log_head\">" .
-             "author &nbsp; &nbsp;" . escapeHTML($co{'author'}) .  " [" . $ad{'rfc2822'} . "]<br/>\n";
-       if ($ad{'hour'} < 7 ) { print "<span style=\"color: #990000;\">"; }
-       if ($ad{'hour'} < 7 ) { print "</span>"; }
-       print "committer " . escapeHTML($co{'committer'}) .  " [" . $cd{'rfc2822'} . "]<br/>\n" .
-             "commit &nbsp; &nbsp;$hash<br/>\n" .
-             "tree &nbsp; &nbsp; &nbsp;" . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "<br/>\n";
+       print "<div class=\"log_head\">\n";
+       print "author &nbsp; &nbsp; &nbsp;" . escapeHTML($co{'author'}) . "<br/>\n";
+       print "author-time " . $ad{'rfc2822'};
+       if ($ad{'hour_local'} < 6) { print "<span style=\"color: #cc0000;\">"; }
+       printf(" (%02d:%02d %s)", $ad{'hour_local'}, $ad{'minute_local'}, $ad{'tz_local'});
+       if ($ad{'hour_local'} < 6 ) { print "</span>"; }
+       print "<br/>\n";
+       print "committer &nbsp; " . escapeHTML($co{'committer'}) . "<br/>\n";
+       print "commit-time " . $ad{'rfc2822'};
+       printf(" (%02d:%02d %s)", $cd{'hour_local'}, $cd{'minute_local'}, $cd{'tz_local'});
+       print "<br/>\n";
+       print "commit &nbsp &nbsp; &nbsp;$hash<br/>\n";
+       print "tree &nbsp; &nbsp; &nbsp; &nbsp" . $cgi->a({-href => "$my_uri?p=$project;a=tree;h=$co{'tree'}"}, $co{'tree'}) . "<br/>\n";

        my $parents  = $co{'parents'};
        foreach my $par (@$parents) {
        my $parents  = $co{'parents'};
        foreach my $par (@$parents) {

-               print "parent &nbsp; &nbsp;" . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$par"}, $par) . "<br/>\n";
+               print "parent &nbsp; &nbsp &nbsp" . $cgi->a({-href => "$my_uri?p=$project;a=commit;h=$par"}, $par) . "<br/>\n";

        }
        print "</div>\n";
        print "<div class=\"page_body\">\n";
        }
        print "</div>\n";
        print "<div class=\"page_body\">\n";