gitweb: esc_html (short) error message in die_error

[Gitweb] / gitweb.perl
diff --git a/gitweb.perl b/gitweb.perl

index 3f88ed5fb724af2e41972aeb4d7e827dc1f042680e2188b9e4844e5a278716f7..6804ead67be28162b41b5d8226f5cede6938e83ebbe02afdd777419118488b80 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -551,11 +551,14 @@ sub filter_snapshot_fmts {
  }
  
  our $GITWEB_CONFIG = $ENV{'GITWEB_CONFIG'} || "++GITWEB_CONFIG++";
+our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} || "++GITWEB_CONFIG_SYSTEM++";
+# die if there are errors parsing config file
  if (-e $GITWEB_CONFIG) {
         do $GITWEB_CONFIG;
-} else {
-       our $GITWEB_CONFIG_SYSTEM = $ENV{'GITWEB_CONFIG_SYSTEM'} || "++GITWEB_CONFIG_SYSTEM++";
-       do $GITWEB_CONFIG_SYSTEM if -e $GITWEB_CONFIG_SYSTEM;
+       die $@ if $@;
+} elsif (-e $GITWEB_CONFIG_SYSTEM) {
+       do $GITWEB_CONFIG_SYSTEM;
+       die $@ if $@;
  }
  
  # Get loadavg of system, to compare against $maxload.
@@ -1331,7 +1334,6 @@ sub chop_str {
                 $str =~ m/^(.*?)($begre)$/;
                 my ($lead, $body) = ($1, $2);
                 if (length($lead) > 4) {
-                       $body =~ s/^[^;]*;// if ($lead =~ m/&[^;]*$/);
                         $lead = " ...";
                 }
                 return "$lead$body";
@@ -1342,8 +1344,6 @@ sub chop_str {
                 $str =~ m/^(.*?)($begre)$/;
                 my ($mid, $right) = ($1, $2);
                 if (length($mid) > 5) {
-                       $left  =~ s/&[^;]*$//;
-                       $right =~ s/^[^;]*;// if ($mid =~ m/&[^;]*$/);
                         $mid = " ... ";
                 }
                 return "$left$mid$right";
@@ -1353,7 +1353,6 @@ sub chop_str {
                 my $body = $1;
                 my $tail = $2;
                 if (length($tail) > 4) {
-                       $body =~ s/&[^;]*$//;
                         $tail = "... ";
                 }
                 return "$body$tail";
@@ -3255,7 +3254,7 @@ EOF
         print "</head>\n" .
               "<body>\n";
  
-       if (-f $site_header) {
+       if (defined $site_header && -f $site_header) {
                 insert_file($site_header);
         }
  
@@ -3356,7 +3355,7 @@ sub git_footer_html {
                 print "</div>\n"; # class="page_footer"
         }
  
-       if (-f $site_footer) {
+       if (defined $site_footer && -f $site_footer) {
                 insert_file($site_footer);
         }
  
@@ -3377,7 +3376,7 @@ sub git_footer_html {
               "</html>";
  }
  
-# die_error(<http_status_code>, <error_message>)
+# die_error(<http_status_code>, <error_message>[, <detailed_html_description>])
  # Example: die_error(404, 'Hash not found')
  # By convention, use the following status codes (as defined in RFC 2616):
  # 400: Invalid or missing CGI parameters, or
@@ -3392,7 +3391,8 @@ sub git_footer_html {
  #      or down for maintenance).  Generally, this is a temporary state.
  sub die_error {
         my $status = shift || 500;
-       my $error = shift || "Internal server error";
+       my $error = esc_html(shift || "Internal Server Error");
+       my $extra = shift;
  
         my %http_responses = (
                 400 => '400 Bad Request',
@@ -3407,8 +3407,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;
  }
@@ -3510,14 +3515,21 @@ sub git_print_header_div {
  }
  
  sub print_local_time {
+       print format_local_time(@_);
+}
+
+sub format_local_time {
+       my $localtime = '';
         my %date = @_;
         if ($date{'hour_local'} < 6) {
-               printf(" (<span class=\"atnight\">%02d:%02d</span> %s)",
+               $localtime .= sprintf(" (<span class=\"atnight\">%02d:%02d</span> %s)",
                         $date{'hour_local'}, $date{'minute_local'}, $date{'tz_local'});
         } else {
-               printf(" (%02d:%02d %s)",
+               $localtime .= sprintf(" (%02d:%02d %s)",
                         $date{'hour_local'}, $date{'minute_local'}, $date{'tz_local'});
         }
+
+       return $localtime;
  }
  
  # Outputs the author name and date in long form
@@ -4341,17 +4353,24 @@ sub fill_project_list_info {
  # print 'sort by' <th> element, generating 'sort by $name' replay link
  # if that order is not selected
  sub print_sort_th {
+       print format_sort_th(@_);
+}
+
+sub format_sort_th {
         my ($name, $order, $header) = @_;
+       my $sort_th = "";
         $header ||= ucfirst($name);
  
         if ($order eq $name) {
-               print "<th>$header</th>\n";
+               $sort_th .= "<th>$header</th>\n";
         } else {
-               print "<th>" .
-                     $cgi->a({-href => href(-replay=>1, order=>$name),
-                              -class => "header"}, $header) .
-                     "</th>\n";
+               $sort_th .= "<th>" .
+                           $cgi->a({-href => href(-replay=>1, order=>$name),
+                                    -class => "header"}, $header) .
+                           "</th>\n";
         }
+
+       return $sort_th;
  }
  
  sub git_project_list_body {
@@ -4782,7 +4801,7 @@ sub git_project_list {
         }
  
         git_header_html();
-       if (-f $home_text) {
+       if (defined $home_text && -f $home_text) {
                 print "<div class=\"index_include\">\n";
                 insert_file($home_text);
                 print "</div>\n";