Changeset 9925

Timestamp:

04/20/08 01:07:07 (5 years ago)

Author:

kan

Message:

fixed script, link tag URL replace

Files:

• lang/perl/Moxy/branches/CC/lib/Moxy/Plugin/Server.pm (modified) (2 diffs)

lang/perl/Moxy/branches/CC/lib/Moxy/Plugin/Server.pm

@@ -38 +38 @@
             my ($tagname, $attr, $orig) = @_;
 
-            if ($tagname eq 'a' || $tagname eq 'A') {
+            if ($tagname eq 'a' || $tagname eq 'A' || $tagname =~ /link/i) {
                 $output .= "<$tagname";
                 my @parts;
@@ -64 +64 @@
                 $output .= join " ", @parts;
                 $output .= ">";
-            } elsif ($tagname =~ /img/i) {
+            } elsif ($tagname =~ /(img|script)/i) {
                 $output .= "<$tagname";
                 my @parts;