misc/infrastructure/mirror/gitweb.cgi.patch

   1 # TODO: turn this into a REAL diff
   2 # what we did: we added the line with &#64; stuff
   3
   4 # replace invalid utf8 character with SUBSTITUTION sequence
   5 sub esc_html {
   6         my $str = shift;
   7         my %opts = @_;
   8
   9         return undef unless defined $str;
  10
  11         $str = to_utf8($str);
  12         $str = $cgi->escapeHTML($str);
  13         $str =~ s/@/&#64;/g;
  14         if ($opts{'-nbsp'}) {
  15                 $str =~ s/ /&nbsp;/g;
  16         }
  17         $str =~ s|([[:cntrl:]])|(($1 ne "\t") ? quot_cec($1) : $1)|eg;
  18         return $str;
  19 }
  20