r66273 - in /branches/upstream/libtemplate-plugin-javascript-perl/current: Changes META.yml lib/Template/Plugin/JavaScript.pm t/01_test.t

[jawnsy-guest at users.alioth.debian.org]

Author: jawnsy-guest
Date: Sat Dec 25 00:22:38 2010
New Revision: 66273

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=66273
Log:
[svn-upgrade] new version libtemplate-plugin-javascript-perl (0.02)

Modified:
    branches/upstream/libtemplate-plugin-javascript-perl/current/Changes
    branches/upstream/libtemplate-plugin-javascript-perl/current/META.yml
    branches/upstream/libtemplate-plugin-javascript-perl/current/lib/Template/Plugin/JavaScript.pm
    branches/upstream/libtemplate-plugin-javascript-perl/current/t/01_test.t

Modified: branches/upstream/libtemplate-plugin-javascript-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtemplate-plugin-javascript-perl/current/Changes?rev=66273&op=diff
==============================================================================
--- branches/upstream/libtemplate-plugin-javascript-perl/current/Changes (original)
+++ branches/upstream/libtemplate-plugin-javascript-perl/current/Changes Sat Dec 25 00:22:38 2010
@@ -1,4 +1,7 @@
 Revision history for Perl extension Template::Plugin::JavaScript
+
+0.02  Wed Dec 15 11:42:31 PST 2010
+        - Escapes HTML tags too (cho45)
 
 0.01  Fri Aug 20 01:00:39 2004
 	- original version

Modified: branches/upstream/libtemplate-plugin-javascript-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtemplate-plugin-javascript-perl/current/META.yml?rev=66273&op=diff
==============================================================================
--- branches/upstream/libtemplate-plugin-javascript-perl/current/META.yml (original)
+++ branches/upstream/libtemplate-plugin-javascript-perl/current/META.yml Sat Dec 25 00:22:38 2010
@@ -1,12 +1,22 @@
-# http://module-build.sourceforge.net/META-spec.html
-#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
-name:         Template-Plugin-JavaScript
-version:      0.01
-version_from: lib/Template/Plugin/JavaScript.pm
-installdirs:  site
+--- #YAML:1.0
+name:               Template-Plugin-JavaScript
+version:            0.02
+abstract:           ~
+author:  []
+license:            unknown
+distribution_type:  module
+configure_requires:
+    ExtUtils::MakeMaker:  0
+build_requires:
+    ExtUtils::MakeMaker:  0
 requires:
-    Template:                      0
-    Test::More:                    0.32
-
-distribution_type: module
-generated_by: ExtUtils::MakeMaker version 6.17
+    Template:    0
+    Test::More:  0.32
+no_index:
+    directory:
+        - t
+        - inc
+generated_by:       ExtUtils::MakeMaker version 6.56
+meta-spec:
+    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
+    version:  1.4

Modified: branches/upstream/libtemplate-plugin-javascript-perl/current/lib/Template/Plugin/JavaScript.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtemplate-plugin-javascript-perl/current/lib/Template/Plugin/JavaScript.pm?rev=66273&op=diff
==============================================================================
--- branches/upstream/libtemplate-plugin-javascript-perl/current/lib/Template/Plugin/JavaScript.pm (original)
+++ branches/upstream/libtemplate-plugin-javascript-perl/current/lib/Template/Plugin/JavaScript.pm Sat Dec 25 00:22:38 2010
@@ -2,7 +2,7 @@
 
 use strict;
 use vars qw($VERSION);
-$VERSION = '0.01';
+$VERSION = '0.02';
 
 require Template::Plugin;
 use base qw(Template::Plugin);
@@ -21,11 +21,15 @@
     local $_ = shift;
     return '' unless defined $_;
 
+    s!\\!\\\\!g;
     s!(['"])!\\$1!g;
     s!\n!\\n!g;
     s!\f!\\f!g;
     s!\r!\\r!g;
     s!\t!\\t!g;
+    s!<!\\x3c!g;
+    s!>!\\x3e!g;
+    s!&!\\x26!g;
     $_;
 }
 

Modified: branches/upstream/libtemplate-plugin-javascript-perl/current/t/01_test.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtemplate-plugin-javascript-perl/current/t/01_test.t?rev=66273&op=diff
==============================================================================
--- branches/upstream/libtemplate-plugin-javascript-perl/current/t/01_test.t (original)
+++ branches/upstream/libtemplate-plugin-javascript-perl/current/t/01_test.t Sat Dec 25 00:22:38 2010
@@ -1,5 +1,7 @@
 use strict;
 use Template::Test;
+
+use lib 'lib';
 
 test_expect(\*DATA);
 
@@ -12,3 +14,32 @@
 --expect--
 document.write("\nHere\'s some text going on.\n");
 
+--test--
+[% USE JavaScript -%]
+document.write("[% FILTER js %]
+You & I
+[% END %]");
+--expect--
+document.write("\nYou \x26 I\n");
+
+--test--
+[% USE JavaScript -%]
+var t = "[% FILTER js %]
+\"+alert(1)//
+[% END %]";
+--expect--
+var t = "\n\\\"+alert(1)//\n";
+
+--test--
+[% USE JavaScript -%]
+<script type="text/javascript">
+var t = "[% FILTER js %]
+\"</script><script>
+alert(1)//
+[% END %]";
+</script>
+--expect--
+<script type="text/javascript">
+var t = "\n\\\"\x3c/script\x3e\x3cscript\x3e\nalert(1)//\n";
+</script>
+