From: Axel Beckert Date: Sun, 19 Jul 2009 12:21:09 +0000 (+0000) Subject: Made the variable containing the characters to escape in URI ($url_escape_re) a confi... X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=16767be1028e381a35fe100e949ccc75acb9a8b9;p=matthijs%2Fupstream%2Fblosxom.git Made the variable containing the characters to escape in URI ($url_escape_re) a configurable variable --- diff --git a/blosxom.cgi b/blosxom.cgi index 160d4ed..86166f4 100755 --- a/blosxom.cgi +++ b/blosxom.cgi @@ -2,7 +2,7 @@ # Blosxom # Author: Rael Dornfest (2002-2003), The Blosxom Development Team (2005-2009) -# Version: 2.1.2 ($Id: blosxom.cgi,v 1.95 2009/03/08 01:28:06 xtaran Exp $) +# Version: 2.1.2 ($Id: blosxom.cgi,v 1.96 2009/07/19 12:21:09 xtaran Exp $) # Home/Docs/Licensing: http://blosxom.sourceforge.net/ # Development/Downloads: http://sourceforge.net/projects/blosxom @@ -142,6 +142,11 @@ $encode_xml_entities = 1; # can change this, too) $encode_8bit_chars = 0; +# RegExp matching all characters which should be URL encoded in links. +# Defaults to anything but numbers, letters, slash, colon, dash, +# underscore and dot. +$url_escape_re = qr([^-/a-zA-Z0-9:._]); + # -------------------------------- =head1 ENVIRONMENT @@ -237,6 +242,7 @@ use vars qw! %others $encode_xml_entities $encode_8bit_chars + $url_escape_re $content_type !; @@ -857,10 +863,6 @@ sub generate { $content_type !~ m{\bxhtml\b} ) { # Escape special characters inside the container - # The following line should be moved more towards to top for - # performance reasons -- Axel Beckert, 2008-07-22 - my $url_escape_re = qr([^-/a-zA-Z0-9:._]); - $url =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; $path =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg; $fn =~ s($url_escape_re)(sprintf('%%%02X', ord($&)))eg;