r62634 - in /trunk/libnet-opensrs-perl: Changes META.yml debian/changelog lib/Net/OpenSRS.pm

[ivan at users.alioth.debian.org]

Author: ivan
Date: Thu Sep 16 17:15:23 2010
New Revision: 62634

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=62634
Log:
new upstream release 0.06

Modified:
    trunk/libnet-opensrs-perl/Changes
    trunk/libnet-opensrs-perl/META.yml
    trunk/libnet-opensrs-perl/debian/changelog
    trunk/libnet-opensrs-perl/lib/Net/OpenSRS.pm

Modified: trunk/libnet-opensrs-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-opensrs-perl/Changes?rev=62634&op=diff
==============================================================================
--- trunk/libnet-opensrs-perl/Changes (original)
+++ trunk/libnet-opensrs-perl/Changes Thu Sep 16 17:15:23 2010
@@ -15,3 +15,7 @@
 0.05 Sun Jun 27 16:54:23 EDT 2010
    -  Correct de-nastification to handle single item dt_assoc
       (eg belongs_to_rsp response)
+
+0.06 Thu Sep 16 00:21:06 EDT 2010
+   -  escape the XML special characters
+

Modified: trunk/libnet-opensrs-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-opensrs-perl/META.yml?rev=62634&op=diff
==============================================================================
--- trunk/libnet-opensrs-perl/META.yml (original)
+++ trunk/libnet-opensrs-perl/META.yml Thu Sep 16 17:15:23 2010
@@ -1,26 +1,18 @@
 --- #YAML:1.0
-name:               Net-OpenSRS
-version:            0.05
-abstract:           Domain registration via the Tucows OpenSRS HTTPS XML API
-author:
+name:                Net-OpenSRS
+version:             0.06
+abstract:            Domain registration via the Tucows OpenSRS HTTPS XML API
+license:             ~
+author:              
     - Richard L. Siddall <opensrs at elirion.net>
-license:            unknown
-distribution_type:  module
-configure_requires:
-    ExtUtils::MakeMaker:  0
-build_requires:
-    ExtUtils::MakeMaker:  0
-requires:
-    Date::Calc:      0
-    Digest::MD5:     0
-    LWP::UserAgent:  0
-    Test::More:      0
-    XML::Simple:     0
-no_index:
-    directory:
-        - t
-        - inc
-generated_by:       ExtUtils::MakeMaker version 6.56
+generated_by:        ExtUtils::MakeMaker version 6.42
+distribution_type:   module
+requires:     
+    Date::Calc:                    0
+    Digest::MD5:                   0
+    LWP::UserAgent:                0
+    Test::More:                    0
+    XML::Simple:                   0
 meta-spec:
-    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
-    version:  1.4
+    url:     http://module-build.sourceforge.net/META-spec-v1.3.html
+    version: 1.3

Modified: trunk/libnet-opensrs-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-opensrs-perl/debian/changelog?rev=62634&op=diff
==============================================================================
--- trunk/libnet-opensrs-perl/debian/changelog (original)
+++ trunk/libnet-opensrs-perl/debian/changelog Thu Sep 16 17:15:23 2010
@@ -1,3 +1,9 @@
+libnet-opensrs-perl (0.06-1) UNRELEASED; urgency=low
+
+  * New upstream release
+
+ -- Ivan Kohler <ivan-debian at 420.am>  Thu, 16 Sep 2010 10:12:28 -0700
+
 libnet-opensrs-perl (0.05-1) unstable; urgency=low
 
   * Take over for the Debian Perl Group

Modified: trunk/libnet-opensrs-perl/lib/Net/OpenSRS.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-opensrs-perl/lib/Net/OpenSRS.pm?rev=62634&op=diff
==============================================================================
--- trunk/libnet-opensrs-perl/lib/Net/OpenSRS.pm (original)
+++ trunk/libnet-opensrs-perl/lib/Net/OpenSRS.pm Thu Sep 16 17:15:23 2010
@@ -150,7 +150,7 @@
 use Digest::MD5;
 use Date::Calc qw/ Add_Delta_Days Today This_Year /;
 
-our $VERSION = '0.05';
+our $VERSION = '0.06';
 my $rv;
 *hash = \&Digest::MD5::md5_hex;
 
@@ -1194,6 +1194,24 @@
     return $self->last_response(1);
 }
 
+# encode special characters
+
+my %encode_hash = (
+  '<' => '&lt;',
+  '>' => '&gt;',
+  "'" => '&apos;',
+  '"' => '&quot;',
+  '&' => '&amp;',
+);
+
+sub _encode
+{
+  my $arg = shift;
+  return $arg unless ($arg =~/\<|\>|\'|\"|\&/);
+  $arg =~ s/(\<|\>|\'|\"|\&)/$encode_hash{$1}/ge;
+  $arg
+}
+
 # format perl structs into opensrs XML
 sub _format
 {
@@ -1207,7 +1225,7 @@
         my $c = 0;
         $xml .= "$sp<item key=\"$_\">\n";
         $xml .= "$sp  <dt_array>\n";
-        foreach (sort @$val) {
+        foreach (map { _encode($_) } sort @$val) {
             $xml .= "$sp    <item key=\"$c\">$_</item>\n";
             $c++;
         }
@@ -1226,6 +1244,7 @@
     }
 
     else {
+        $val = _encode($val);
         $xml .= "$sp<item key=\"$_\">$val</item>\n";
     }