fixing bug 1345548.

Match any instance of the word "xml" in the content type to
determine if we need to escape the content.

diff --git a/blosxom.cgi b/blosxom.cgi
index 642a2bf31cf3cc66c433836eca986755fb22eb27..9f58a6c1209ea7d218230fb6c73148292f877c03 100755 (executable)
--- a/blosxom.cgi
+++ b/blosxom.cgi
@@ -375,7 +375,7 @@ sub generate {
       # Plugins: Story
       foreach my $plugin ( @plugins ) { $plugins{$plugin} > 0 and $plugin->can('story') and $entries = $plugin->story($path, $fn, \$story, \$title, \$body) }
       
       # Plugins: Story
       foreach my $plugin ( @plugins ) { $plugins{$plugin} > 0 and $plugin->can('story') and $entries = $plugin->story($path, $fn, \$story, \$title, \$body) }
       

-      if ($content_type =~ m{\Wxml$}) {
+      if ($content_type =~ m{\bxml\b$}) {

         # Escape <, >, and &, and to produce valid RSS
         my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');  
         my $escape_re  = join '|' => keys %escape;
         # Escape <, >, and &, and to produce valid RSS
         my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');  
         my $escape_re  = join '|' => keys %escape;