gitweb: Add optional extra parameter to die_error, for extended explanation

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 6cac707865e78d3bb476ab20711564fb36d8422a5b773b1f99147ad4ab454731..04e1c562553bac77c5229580c7e06d68c2bdd1e27bf5108a442c8138a159b9af 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -3393,6 +3393,7 @@ sub git_footer_html {
 sub die_error {
        my $status = shift || 500;
        my $error = shift || "Internal server error";
+       my $extra = shift;
 
        my %http_responses = (
                400 => '400 Bad Request',
@@ -3407,8 +3408,13 @@ sub die_error {
 <br /><br />
 $status - $error
 <br />
-</div>
 EOF
+       if (defined $extra) {
+               print "<hr />\n" .
+                     "$extra\n";
+       }
+       print "</div>\n";
+
        git_footer_html();
        exit;
 }