gitweb: Show project's README.html if available

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 99bf9301e951a3aefa337ea6927bb73ed4d404fc06b2b374c88a8e18e34de1ee..edc96ecfa2c3ec18da9a359ae02f8b1d2dc7d2aadc80c12c891af13ca0744ddd 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -2531,6 +2531,14 @@ sub git_summary {
        }
        print "</table>\n";
 
+       if (-s "$projectroot/$project/README.html") {
+               if (open my $fd, "$projectroot/$project/README.html") {
+                       print "<div class=\"title\">readme</div>\n";
+                       print $_ while (<$fd>);
+                       close $fd;
+               }
+       }
+
        open my $fd, "-|", git_cmd(), "rev-list", "--max-count=17",
                git_get_head_hash($project)
                or die_error(undef, "Open git-rev-list failed");