r22089 - in /trunk/soap-lite: Changes MANIFEST META.yml SOAP-Lite-0.710.06.ppd SOAP-Lite-0.710.06.zip debian/changelog lib/SOAP/Lite.pm lib/SOAP/Packager.pm lib/SOAP/Transport/HTTP.pm t/38-packager.t t/SOAP/Serializer.t
dmn at users.alioth.debian.org
dmn at users.alioth.debian.org
Mon Jun 23 10:17:05 UTC 2008
Author: dmn
Date: Mon Jun 23 10:17:04 2008
New Revision: 22089
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22089
Log:
New upstream release
Added:
trunk/soap-lite/SOAP-Lite-0.710.06.ppd
- copied unchanged from r22087, branches/upstream/soap-lite/current/SOAP-Lite-0.710.06.ppd
trunk/soap-lite/SOAP-Lite-0.710.06.zip
- copied unchanged from r22087, branches/upstream/soap-lite/current/SOAP-Lite-0.710.06.zip
Modified:
trunk/soap-lite/Changes
trunk/soap-lite/MANIFEST
trunk/soap-lite/META.yml
trunk/soap-lite/debian/changelog
trunk/soap-lite/lib/SOAP/Lite.pm
trunk/soap-lite/lib/SOAP/Packager.pm
trunk/soap-lite/lib/SOAP/Transport/HTTP.pm
trunk/soap-lite/t/38-packager.t
trunk/soap-lite/t/SOAP/Serializer.t
Modified: trunk/soap-lite/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/Changes?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/Changes (original)
+++ trunk/soap-lite/Changes Mon Jun 23 10:17:04 2008
@@ -1,7 +1,7 @@
#
# Revision history for Perl extension SOAP::Lite.
#
-# $Id: Changes 253 2008-06-05 18:26:18Z kutterma $
+# $Id: Changes 276 2008-06-13 19:04:55Z kutterma $
The contents of this file provides a change history for the SOAP::Lite
Perl module. New features are designated with a '+' and bug fixes with
@@ -15,6 +15,11 @@
-----------------------------------------------------------------------
THIS RELEASE
-----------------------------------------------------------------------
+0.710.07
+ ! [ 1963995 ] > not deserialized in result
+ ! [ 1833218 ] < and > not deserialized in faultstring/detail
+ ! [ 1959329 ] Incorrect Content-Type while sending requests with no parts
+ ! [ 1945385 ] Incorrect starting part detection for Multipart/Related
0.710.06
! #36477 SOAP::Lite Envelope not stripped down for XMLRPC
! #36455 XMLRPC::Transport::HTTP::CGI generates extra params
Modified: trunk/soap-lite/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/MANIFEST?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/MANIFEST (original)
+++ trunk/soap-lite/MANIFEST Mon Jun 23 10:17:04 2008
@@ -222,3 +222,6 @@
t/XMLRPC/Lite.t
t/XML/Parser/adam.xml
t/XML/Parser/Lite.t
+
+SOAP-Lite-0.710.06.ppd
+SOAP-Lite-0.710.06.zip
Modified: trunk/soap-lite/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/META.yml?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/META.yml (original)
+++ trunk/soap-lite/META.yml Mon Jun 23 10:17:04 2008
@@ -1,9 +1,10 @@
--- #YAML:1.0
name: SOAP-Lite
-version: 0.710.06
+version: 0.710.07
abstract: ~
license: ~
-generated_by: ExtUtils::MakeMaker version 6.36
+author: ~
+generated_by: ExtUtils::MakeMaker version 6.44
distribution_type: module
requires:
Compress::Zlib: 0
@@ -24,5 +25,5 @@
version: 0
XML::Parser: 2.23
meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.2.html
- version: 1.2
+ url: http://module-build.sourceforge.net/META-spec-v1.3.html
+ version: 1.3
Modified: trunk/soap-lite/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/debian/changelog?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/debian/changelog (original)
+++ trunk/soap-lite/debian/changelog Mon Jun 23 10:17:04 2008
@@ -1,5 +1,6 @@
-soap-lite (0.710.06-2) UNRELEASED; urgency=low
-
+soap-lite (0.710.07-1) UNRELEASED; urgency=low
+
+ [ gregor herrmann ]
* debian/control:
- replace libmime-perl by libmime-tools-perl
- make dependency on quilt versioned
@@ -7,7 +8,10 @@
- add 'perl-modules (>= 5.10.0) | libversion-perl' to Depends
(closes: #485983), thanks to dleonard for the bug report
- -- gregor herrmann <gregoa at debian.org> Sat, 14 Jun 2008 15:52:35 +0200
+ [ Damyan Ivanov ]
+ * New upstream release
+
+ -- Damyan Ivanov <dmn at debian.org> Mon, 23 Jun 2008 13:10:50 +0300
soap-lite (0.710.06-1) unstable; urgency=low
Modified: trunk/soap-lite/lib/SOAP/Lite.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/lib/SOAP/Lite.pm?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/lib/SOAP/Lite.pm (original)
+++ trunk/soap-lite/lib/SOAP/Lite.pm Mon Jun 23 10:17:04 2008
@@ -4,7 +4,7 @@
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
-# $Id: Lite.pm 254 2008-06-05 18:43:57Z kutterma $
+# $Id: Lite.pm 274 2008-06-13 18:57:53Z kutterma $
#
# ======================================================================
@@ -19,7 +19,7 @@
use 5.005;
use strict;
use vars qw($VERSION);
-use version; $VERSION = qv('0.710.06');
+use version; $VERSION = qv('0.710.07');
# ======================================================================
package SOAP::XMLSchemaApacheSOAP::Deserializer;
@@ -374,7 +374,14 @@
sub encode_attribute { (my $e = $_[0]) =~ s/([&<>\"])/$encode_attribute{$1}/g; $e }
my %encode_data = ('&' => '&', '>' => '>', '<' => '<', "\xd" => '
');
-sub encode_data { my $e = $_[0]; if ($e) { $e =~ s/([&<>\015])/$encode_data{$1}/g; $e =~ s/\]\]>/\]\]>/g; } $e }
+sub encode_data {
+ my $e = $_[0];
+ if ($e) {
+ $e =~ s/([&<>\015])/$encode_data{$1}/g;
+ $e =~ s/\]\]>/\]\]>/g;
+ }
+ $e
+}
# methods for internal tree (SOAP::Deserializer, SOAP::SOM and SOAP::Serializer)
@@ -1492,8 +1499,8 @@
# Find all the SOAP Body elements
else {
# proposed resolution for [ 1700326 ] encode_data called incorrectly in envelope
- # push(@parameters, $_);
- push (@parameters, SOAP::Utils::encode_data($_));
+ push(@parameters, $_);
+ # push (@parameters, SOAP::Utils::encode_data($_));
}
}
my $header = @header ? SOAP::Data->set_value(@header) : undef;
@@ -1541,9 +1548,6 @@
}
elsif ($type eq 'fault') {
SOAP::Trace::fault(@parameters);
- # parameters[1] needs to be escaped - thanks to aka_hct at gmx dot de
- # commented on 2001/03/28 because of failing in ApacheSOAP
- # need to find out more about it
# -> attr({'xmlns' => ''})
# Parameter order fixed thanks to Tom Fischer
$body = SOAP::Data-> name(SOAP::Utils::qualify($self->envprefix => 'Fault'))
@@ -1558,7 +1562,7 @@
my $detail = $parameters[2];
ref $detail
? \$detail
- : $detail
+ : SOAP::Utils::encode_data($detail)
})
: (),
));
Modified: trunk/soap-lite/lib/SOAP/Packager.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/lib/SOAP/Packager.pm?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/lib/SOAP/Packager.pm (original)
+++ trunk/soap-lite/lib/SOAP/Packager.pm Mon Jun 23 10:17:04 2008
@@ -4,7 +4,7 @@
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
-# $Id: Packager.pm 249 2008-05-05 20:35:05Z kutterma $
+# $Id: Packager.pm 265 2008-06-09 07:06:53Z kutterma $
#
# ======================================================================
@@ -213,7 +213,14 @@
# As it turns out, the Content-ID and start parameters are optional
# according to the MIME and SOAP specs. In the event that the head cannot
# be found, the head/root entity is used as a starting point.
- my $start = get_multipart_id($entity->head->mime_attr('content-type.start'));
+ # [19 Mar 2008] Modified by Feng Li <feng.li at sybase.com>
+ # Check optional start parameter, then optional Content-ID, then create/add
+ # Content-ID (the same approach as in SOAP::Lite 0.66)
+
+ #my $start = get_multipart_id($entity->head->mime_attr('content-type.start'));
+ my $start = get_multipart_id($entity->head->mime_attr('content-type.start'))
+ || get_multipart_id($entity->parts(0)->head->mime_attr('content-id'));
+
if (!defined($start) || $start eq "") {
$start = $self->generate_random_string(10);
$entity->parts(0)->head->add('content-id',$start);
@@ -242,7 +249,7 @@
if ($start && $pid eq $start) {
$env = $part->bodyhandle->as_string;
} else {
- $self->push_part($part) if (defined($part->bodyhandle));
+ $self->push_part($part);
}
}
# die "Can't find 'start' parameter in multipart MIME message\n"
Modified: trunk/soap-lite/lib/SOAP/Transport/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/lib/SOAP/Transport/HTTP.pm?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/lib/SOAP/Transport/HTTP.pm (original)
+++ trunk/soap-lite/lib/SOAP/Transport/HTTP.pm Mon Jun 23 10:17:04 2008
@@ -4,7 +4,7 @@
# SOAP::Lite is free software; you can redistribute it
# and/or modify it under the same terms as Perl itself.
#
-# $Id: HTTP.pm 247 2008-04-19 21:39:39Z kutterma $
+# $Id: HTTP.pm 267 2008-06-09 07:22:43Z kutterma $
#
# ======================================================================
@@ -104,11 +104,6 @@
$self->agent(join '/', 'SOAP::Lite', 'Perl', SOAP::Transport::HTTP->VERSION);
$self->options({});
- $self->http_request(HTTP::Request->new);
- $self->http_request->headers(HTTP::Headers->new);
-
- # TODO - add application/dime
- $self->http_request->header(Accept => ['text/xml', 'multipart/*', 'application/soap']);
while (@methods) {
my($method, $params) = splice(@methods,0,2);
@@ -135,6 +130,11 @@
&& eval { require Compress::Zlib };
# Initialize the basic about the HTTP Request object
+ $self->http_request(HTTP::Request->new);
+ $self->http_request->headers(HTTP::Headers->new);
+
+ # TODO - add application/dime
+ $self->http_request->header(Accept => ['text/xml', 'multipart/*', 'application/soap']);
$self->http_request->method($method);
$self->http_request->url($endpoint);
Modified: trunk/soap-lite/t/38-packager.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/t/38-packager.t?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/t/38-packager.t (original)
+++ trunk/soap-lite/t/38-packager.t Mon Jun 23 10:17:04 2008
@@ -1,9 +1,4 @@
-#!/bin/env perl
-BEGIN {
- print "1..0 # Skip: Test broken - going to fix in one of the next releases\n";
- exit 0;
-}
-
+#!/bin/env perl
use strict;
use Test;
@@ -12,7 +7,7 @@
chdir 't' if -d 't';
unshift @INC, '../lib' if -d '../lib';
}
- plan tests => 20;
+ plan tests => 5;
}
my ($mp, $env, $part, @part_data);
@@ -81,24 +76,24 @@
ok(UNIVERSAL::isa(ref($mp->parts->[0]) => "MIME::Entity"));
# Tests to see if data extraction works - TIFF not checked
- at part_data = $mp->find_part( id => '<claim061402a.jpeg at claiming-it.com>' );
-ok($part_data[0] eq '...Raw JPEG image..');
- at part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
-ok($part_data[0] eq '<a><b>c</b></a>');
- at part_data = $mp->find_part( id => '<claim061404a.realxml at claiming-it.com>' );
-ok($part_data[0] eq '<a><b>c</b></a>');
+#@part_data = $mp->find_part( id => '<claim061402a.jpeg at claiming-it.com>' );
+#ok($part_data[0] eq '...Raw JPEG image..');
+#@part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
+#ok($part_data[0] eq '<a><b>c</b></a>');
+#@part_data = $mp->find_part( id => '<claim061404a.realxml at claiming-it.com>' );
+#ok($part_data[0] eq '<a><b>c</b></a>');
# Test: no start parameter specified
+# Content-ID: <claim061400a.xml at claiming-it.com>
+# Content-Type: text/xml; charset=UTF-8
$env = $mp->unpackage(<<'EOX');
Content-Type: Multipart/Related; boundary=MIME_boundary; type="text/xml"
SOAPAction: http://schemas.risky-stuff.com/Auto-Claim
Content-Description: This is the optional message description.
--MIME_boundary
-Content-Type: text/xml; charset=UTF-8
Content-Transfer-Encoding: 8bit
-Content-ID: <claim061400a.xml at claiming-it.com>
<?xml version='1.0' ?>
<SOAP-ENV:Envelope
@@ -128,8 +123,8 @@
# test to see how how many parts were found:
ok(@{$mp->parts} == 1);
# Tests to see if data extraction worked
- at part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
-ok($part_data[0] eq '<a><b>c</b></a>');
+#@part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
+#ok($part_data[0] eq '<a><b>c</b></a>');
# test to see if start parameter works if it doesn't point to root
$env = $mp->unpackage(<<'EOX');
@@ -169,7 +164,7 @@
# test to see how how many parts were found:
ok(@{$mp->parts} == 1);
# Tests to see if data extraction worked
- at part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
-ok($part_data[0] eq '<a><b>c</b></a>');
+#@part_data = $mp->find_part( id => '<claim061403a.somexml at claiming-it.com>' );
+#ok($part_data[0] eq '<a><b>c</b></a>');
1;
Modified: trunk/soap-lite/t/SOAP/Serializer.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/soap-lite/t/SOAP/Serializer.t?rev=22089&op=diff
==============================================================================
--- trunk/soap-lite/t/SOAP/Serializer.t (original)
+++ trunk/soap-lite/t/SOAP/Serializer.t Mon Jun 23 10:17:04 2008
@@ -1,9 +1,34 @@
use strict;
use warnings;
-use Test::More tests => 2; #qw(no_plan);
+use Test::More tests => 12; #qw(no_plan);
use_ok qw(SOAP::Lite);
-my $obj = SOAP::Serializer->new();
+my $serializer = SOAP::Serializer->new();
-is $obj->find_prefix('http://schemas.xmlsoap.org/soap/envelope/'), 'soap';
+is $serializer->find_prefix('http://schemas.xmlsoap.org/soap/envelope/'), 'soap';
+
+ok my $tag = $serializer->tag('fooxml', {}, undef), 'serialize <fooxml/>';
+ok $tag = $serializer->tag('_xml', {}, undef), 'serialize <_xml/>';
+eval {
+ $tag = $serializer->tag('xml:lang', {}, undef);;
+};
+like $@, qr{^Element \s 'xml:lang' \s can't \s be \s allowed}x, 'error on <xml:lang/>';
+undef $@;
+eval {
+ $tag = $serializer->tag('xmlfoo', {}, undef);
+};
+like $@, qr{^Element \s 'xmlfoo' \s can't \s be \s allowed}x, 'error on <xmlfoo/>';
+
+
+my $xml = $serializer->envelope('fault', faultstring => '>>> foo <<<');
+like $xml, qr{\>\>\>}x, 'fault escaped OK';
+unlike $xml, qr{\&gt;}x, 'fault escaped OK';
+
+$xml = $serializer->envelope('response', foo => '>>> bar <<<');
+like $xml, qr{\>\>\>}x, 'response escaped OK';
+unlike $xml, qr{\&gt;}x, 'response escaped OK';
+
+$xml = $serializer->envelope('method', foo => '>>> bar <<<');
+like $xml, qr{\>\>\>}x, 'response escaped OK';
+unlike $xml, qr{\&gt;}x, 'response escaped OK';
More information about the Pkg-perl-cvs-commits
mailing list