v031

diff --git a/gitweb.pl b/gitweb.pl
index 1975c50f3ccd0bcd471b3563a1e63599e02b1e0b..2dca8618325a503ba18ba670445152fdd70b6f22 100755 (executable)
--- a/gitweb.pl
+++ b/gitweb.pl
@@ -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 027
+# Version 031

 #
 # (C) 2005, Kay Sievers <kay.sievers@vrfy.org>
 # (C) 2005, Christian Gierke <ch@gierke.de>
 #
 # (C) 2005, Kay Sievers <kay.sievers@vrfy.org>
 # (C) 2005, Christian Gierke <ch@gierke.de>


@@ -32,40 +32,40 @@
 my $view_back = 1;
 
 # get values from url
 my $view_back = 1;
 
 # get values from url

-if ($my_url_parm =~ m#/(.+)/commit/([0-9a-fA-F]+)$#) {
+if ($my_url_parm =~ m#/+(.+)/+commit/+([0-9a-fA-F]+)$#) {

        $project = $1;
        $action = "commit";
        $hash = $2;
        $project = $1;
        $action = "commit";
        $hash = $2;

-} elsif ($my_url_parm =~ m#/(.+)/commitdiff/([0-9a-fA-F]+)$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+commitdiff/+([0-9a-fA-F]+)$#) {

        $project = $1;
        $action = "commitdiff";
        $hash = $2;
        $project = $1;
        $action = "commitdiff";
        $hash = $2;

-} elsif ($my_url_parm =~ m#/(.+)/blobdiff/([0-9a-fA-F]+)/([0-9a-fA-F]+)$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+blobdiff/+([0-9a-fA-F]+)/([0-9a-fA-F]+)$#) {

        $project = $1;
        $action = "blobdiff";
        $hash = $2;
        $hash_parent = $3;
        $project = $1;
        $action = "blobdiff";
        $hash = $2;
        $hash_parent = $3;

-} elsif ($my_url_parm =~ m#/(.+)/blob/([0-9a-fA-F]+)$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+blob/+([0-9a-fA-F]+)$#) {

        $project = $1;
        $action = "blob";
        $hash = $2;
        $project = $1;
        $action = "blob";
        $hash = $2;

-} elsif ($my_url_parm =~ m#/(.+)/tree/([0-9a-fA-F]+)$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+tree/+([0-9a-fA-F]+)$#) {

        $project = $1;
        $action = "tree";
        $hash = $2;
        $project = $1;
        $action = "tree";
        $hash = $2;

-} elsif ($my_url_parm =~ m#/(.+)/log/([0-9]+)$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+log/+([0-9]+)$#) {

        $project = $1;
        $action = "log";
        $view_back = $2;
        $project = $1;
        $action = "log";
        $view_back = $2;

-} elsif ($my_url_parm =~ m#/(.+)/log$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/+log$#) {

        $project = $1;
        $action = "log";
        $view_back = 1;
        $project = $1;
        $action = "log";
        $view_back = 1;

-} elsif ($my_url_parm =~ m#/(.+)/rss$#) {
+} elsif ($my_url_parm =~ m#/+(.+)/rss$#) {

        $project = $1;
        $action = "rss";
        $view_back = 1;
        $project = $1;
        $action = "rss";
        $view_back = 1;

-} elsif ($my_url_parm =~ m#/git-logo.png$#) {
+} elsif ($my_url_parm =~ m#/+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".
        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".


@@ -151,8 +151,8 @@ sub git_header_html {
 }
 
 sub git_footer_html {
 }
 
 sub git_footer_html {

-       print "</div>";
-       print $cgi->end_html();
+       print "</div>\n";
+       print "</body>\n</html>";

 }
 
 sub git_head {
 }
 
 sub git_head {


@@ -263,6 +263,20 @@ sub git_diff_html {
        }
 }
 
        }
 }
 

+sub mode_str {
+       my $perms = oct shift;
+       my $modestr;
+       if ($perms & 040000) { $modestr .= 'd' } else { $modestr .= '-' };
+       for (my $i = 0; $i < 3; $i++) {
+               if ($perms & 0400) { $modestr .= 'r' } else { $modestr .= '-' };
+               if ($perms & 0200) { $modestr .= 'w' } else { $modestr .= '-' };
+               if ($perms & 0100) { $modestr .= 'x' } else { $modestr .= '-' };
+               $perms <<= 3;
+       }
+       return $modestr;
+}
+
+# show list of default projects

 if ($project eq "") {
        opendir(my $fd, "$projectroot/$defaultprojects");
        my (@path) = grep(!/^\./, readdir($fd));
 if ($project eq "") {
        opendir(my $fd, "$projectroot/$defaultprojects");
        my (@path) = grep(!/^\./, readdir($fd));


@@ -307,13 +321,14 @@ sub git_diff_html {
        foreach my $line (@entries) {
                #'100644        blob    0fa3f3a66fb6a137f6ec2c19351ed4d807070ffa        panic.c'
                $line =~ m/^([0-9]+)\t(.*)\t(.*)\t(.*)$/;
        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") {
                my $t_type = $2;
                my $t_hash = $3;
                my $t_name = $4;
                if ($t_type eq "blob") {

-                       print "BLOB\t" . $cgi->a({-href => "$my_uri/$project/blob/$3"}, $4) . "\n";
+                       print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri/$project/blob/$t_hash"}, $t_name) . "\n";

                } elsif ($t_type eq "tree") {
                } elsif ($t_type eq "tree") {

-                       print "TREE\t" . $cgi->a({-href => "$my_uri/$project/tree/$3"}, $4) . "\n";
+                       print mode_str($t_mode). " " . $cgi->a({-href => "$my_uri/$project/tree/$t_hash"}, $t_name) . "\n";

                }
        }
        print "</pre>\n";
                }
        }
        print "</pre>\n";


@@ -400,7 +415,7 @@ sub git_diff_html {
                        print "<td>\n";
                        my $comment = $co{'comment'};
                        foreach my $line (@$comment) {
                        print "<td>\n";
                        my $comment = $co{'comment'};
                        foreach my $line (@$comment) {

-                               if ($line =~ m/signed-off-by:/i) {
+                               if ($line =~ m/^(signed-off|acked)-by:/i) {

                                        print '<div class="signed_off">' . escapeHTML($line) . "<br/></div>\n";
                                } else {
                                        print escapeHTML($line) . "<br/>\n";
                                        print '<div class="signed_off">' . escapeHTML($line) . "<br/></div>\n";
                                } else {
                                        print escapeHTML($line) . "<br/>\n";


@@ -461,7 +476,7 @@ sub git_diff_html {
        print "<td>\n";
        my $comment = $co{'comment'};
        foreach my $line (@$comment) {
        print "<td>\n";
        my $comment = $co{'comment'};
        foreach my $line (@$comment) {

-               if ($line =~ m/signed-off-by:/i) {
+               if ($line =~ m/(signed-off|acked)-by:/i) {

                        print '<div class="signed_off">' . escapeHTML($line) . "<br/></div>\n";
                } else {
                        print escapeHTML($line) . "<br/>\n";
                        print '<div class="signed_off">' . escapeHTML($line) . "<br/></div>\n";
                } else {
                        print escapeHTML($line) . "<br/>\n";


@@ -482,16 +497,18 @@ sub git_diff_html {
                my $type = $3;
                my $id = $4;
                my $file = $5;
                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 "+") {
                if ($type eq "blob") {
                        if ($op eq "+") {

-                               print "added\t" . $cgi->a({-href => "$my_uri/$project/blob/$id"}, $file) . "\n";
+                               print "added\t$modestr " . $cgi->a({-href => "$my_uri/$project/blob/$id"}, $file) . "\n";

                        } elsif ($op eq "-") {
                        } elsif ($op eq "-") {

-                               print "removed\t" . $cgi->a({-href => "$my_uri/$project/blob/$id"}, $file) . "\n";
+                               print "removed\t$modestr " . $cgi->a({-href => "$my_uri/$project/blob/$id"}, $file) . "\n";

                        } elsif ($op eq "*") {
                                $id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
                                my $old = $1;
                                my $new = $2;
                        } elsif ($op eq "*") {
                                $id =~ m/([0-9a-fA-F]+)->([0-9a-fA-F]+)/;
                                my $old = $1;
                                my $new = $2;

-                               print "changed\t" . $cgi->a({-href => "$my_uri/$project/blobdiff/$old/$new"}, $file) . "\n";
+                               print "changed\t$modestr " . $cgi->a({-href => "$my_uri/$project/blobdiff/$old/$new"}, $file) . "\n";

                        }
                }
        }
                        }
                }
        }