8
0
forked from pool/perl-RPC-XML
OBS User unknown
2008-04-14 20:15:24 +00:00
committed by Git OBS Bridge
parent 9870b51f36
commit e9e42c8483
6 changed files with 83 additions and 27 deletions

View File

@@ -1,6 +1,8 @@
--- lib/RPC/XML/Server.pm Index: lib/RPC/XML/Server.pm
+++ lib/RPC/XML/Server.pm 2003/12/03 17:53:25 ===================================================================
@@ -124,6 +124,11 @@ --- lib/RPC/XML/Server.pm.orig
+++ lib/RPC/XML/Server.pm
@@ -128,6 +128,11 @@ sub new
$self->{__host} = $args{host} || ''; $self->{__host} = $args{host} || '';
$self->{__port} = $args{port} || ''; $self->{__port} = $args{port} || '';
delete @args{qw(host port)}; delete @args{qw(host port)};
@@ -12,7 +14,7 @@
} }
else else
{ {
@@ -142,9 +147,10 @@ @@ -146,9 +151,10 @@ sub new
$self->{__host} = $URI->host; $self->{__host} = $URI->host;
$self->{__port} = $URI->port; $self->{__port} = $URI->port;
$self->{__daemon} = $http; $self->{__daemon} = $http;
@@ -24,7 +26,7 @@
} }
$resp = HTTP::Response->new(); $resp = HTTP::Response->new();
return "${class}::new: Unable to create HTTP::Response object" return "${class}::new: Unable to create HTTP::Response object"
@@ -512,6 +518,23 @@ @@ -522,6 +528,23 @@ If a message is to be spooled to a tempo
specific directory in which to open those files. If this is not given, then specific directory in which to open those files. If this is not given, then
the C<tmpdir> method from the B<File::Spec> package is used, instead. the C<tmpdir> method from the B<File::Spec> package is used, instead.
@@ -48,7 +50,7 @@
=back =back
Any other keys in the options hash not explicitly used by the constructor are Any other keys in the options hash not explicitly used by the constructor are
@@ -1053,7 +1076,6 @@ @@ -1081,7 +1104,6 @@ Randy J. Ray <rjray@blackperl.com>
=cut =cut
@@ -56,8 +58,8 @@
############################################################################### ###############################################################################
# #
@@ -1341,6 +1363,11 @@ @@ -1398,6 +1420,11 @@ sub process_request
$peerhost = $conn->peerhost;
while ($req = $conn->get_request('headers only')) while ($req = $conn->get_request('headers only'))
{ {
+ if( ref($self->{__http_header_parsing_cb}) eq 'CODE' ) { + if( ref($self->{__http_header_parsing_cb}) eq 'CODE' ) {
@@ -68,7 +70,7 @@
if ($req->method eq 'HEAD') if ($req->method eq 'HEAD')
{ {
# The HEAD method will be answered with our return headers, # The HEAD method will be answered with our return headers,
@@ -2025,3 +2052,4 @@ @@ -2112,3 +2139,4 @@ sub timeout
} }
return $old_timeout; return $old_timeout;
} }

View File

@@ -1,3 +0,0 @@
version https://git-lfs.github.com/spec/v1
oid sha256:53afaedddf1dd44703ae3439ab763775a50737c1188305dca191fa4d345aee90
size 95537

23
RPC-XML-0.60-fix-utf8.dif Normal file
View File

@@ -0,0 +1,23 @@
Index: RPC-XML-0.60/lib/RPC/XML.pm
===================================================================
--- RPC-XML-0.60.orig/lib/RPC/XML.pm
+++ RPC-XML-0.60/lib/RPC/XML.pm
@@ -969,7 +969,9 @@ sub as_string
{
my $self = shift;
- '<fault><value>' . $self->SUPER::as_string . '</value></fault>';
+ my $text = '<fault><value>' . $self->SUPER::as_string . '</value></fault>';
+ utf8::downgrade($text) if(utf8::is_utf8($text));
+ $text;
}
# Because of the slight diff above, length() has to be different from struct
@@ -1249,6 +1251,7 @@ sub as_string
'</value></param></params>';
}
$text .= '</methodResponse>';
+ utf8::downgrade($text) if(utf8::is_utf8($text));
$text;
}

3
RPC-XML-0.60.tar.bz2 Normal file
View File

@@ -0,0 +1,3 @@
version https://git-lfs.github.com/spec/v1
oid sha256:a4d4899e44bb29ec846caa44337ed8d87cf578e6e27a3fa4d9cb3efb32007b83
size 103690

View File

@@ -1,3 +1,17 @@
-------------------------------------------------------------------
Mon Apr 14 18:06:07 CEST 2008 - mc@suse.de
- version 0.60
* fix problem caused by having colons in temp-file names.
* fix for SSL
* Fixed the bug in RPC::XML::Server::process_request() could lead to an
infinite loop if the client shuts down the socket before the full
request is sent.
* RPC::XML::smart_encode actually die with an error when a
reference-type is passed in that cannot be converted.
* performance improvement
* fix the XML serialization of double values
------------------------------------------------------------------- -------------------------------------------------------------------
Fri Jul 14 13:14:07 CEST 2006 - mc@suse.de Fri Jul 14 13:14:07 CEST 2006 - mc@suse.de

View File

@@ -1,7 +1,7 @@
# #
# spec file for package perl-RPC-XML (Version 0.59) # spec file for package perl-RPC-XML (Version 0.60)
# #
# Copyright (c) 2006 SUSE LINUX Products GmbH, Nuernberg, Germany. # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
# This file and all modifications and additions to the pristine # This file and all modifications and additions to the pristine
# package are under the same license as the package itself. # package are under the same license as the package itself.
# #
@@ -10,18 +10,21 @@
# norootforbuild # norootforbuild
Name: perl-RPC-XML Name: perl-RPC-XML
BuildRequires: perl-XML-Parser perl-libwww-perl BuildRequires: perl-XML-Parser perl-libwww-perl
URL: http://search.cpan.org/search?module=RPC::XML #BuildRequires: perl-XML-LibXML
Url: http://search.cpan.org/search?module=RPC::XML
License: Artistic License License: Artistic License
Group: Development/Libraries/Perl Group: Development/Libraries/Perl
Requires: perl = %{perl_version} perl-XML-Parser perl-libwww-perl Requires: perl = %{perl_version} perl-XML-Parser perl-libwww-perl
Autoreqprov: on AutoReqProv: on
Summary: A set of classes for core data, message and XML handling Summary: A set of classes for core data, message and XML handling
Version: 0.59 Version: 0.60
Release: 1 Release: 1
Source: RPC-XML-%{version}.tar.bz2 Source: RPC-XML-%{version}.tar.bz2
Patch0: RPC-XML-0.53-ext-daemon-and-header-cb.dif Patch0: RPC-XML-0.53-ext-daemon-and-header-cb.dif
Patch1: RPC-XML-0.60-fix-utf8.dif
BuildRoot: %{_tmppath}/%{name}-%{version}-build BuildRoot: %{_tmppath}/%{name}-%{version}-build
%description %description
@@ -37,6 +40,7 @@ Authors:
%prep %prep
%setup -n RPC-XML-%{version} %setup -n RPC-XML-%{version}
%patch0 -p0 %patch0 -p0
%patch1 -p1
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
%build %build
@@ -46,13 +50,15 @@ make test
# --------------------------------------------------------------------------- # ---------------------------------------------------------------------------
%install %install
[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT;
make DESTDIR=$RPM_BUILD_ROOT \ make DESTDIR=$RPM_BUILD_ROOT \
INSTALLMAN1DIR=$RPM_BUILD_ROOT/%{_mandir}/man1 \ INSTALLMAN1DIR=$RPM_BUILD_ROOT/%{_mandir}/man1 \
INSTALLMAN3DIR=$RPM_BUILD_ROOT/%{_mandir}/man3 \ INSTALLMAN3DIR=$RPM_BUILD_ROOT/%{_mandir}/man3 \
install_vendor install_vendor
%perl_process_packlist %perl_process_packlist
%clean
[ "$RPM_BUILD_ROOT" != "/" ] && [ -d $RPM_BUILD_ROOT ] && rm -rf $RPM_BUILD_ROOT;
%files %files
%defattr(-,root,root) %defattr(-,root,root)
/usr/bin/make_method /usr/bin/make_method
@@ -80,27 +86,38 @@ make DESTDIR=$RPM_BUILD_ROOT \
%{_mandir}/man1/make_method.1.gz %{_mandir}/man1/make_method.1.gz
/var/adm/perl-modules/%{name} /var/adm/perl-modules/%{name}
%changelog -n perl-RPC-XML %changelog
* Fri Jul 14 2006 - mc@suse.de * Mon Apr 14 2008 mc@suse.de
- version 0.60
* fix problem caused by having colons in temp-file names.
* fix for SSL
* Fixed the bug in RPC::XML::Server::process_request() could lead to an
infinite loop if the client shuts down the socket before the full
request is sent.
* RPC::XML::smart_encode actually die with an error when a
reference-type is passed in that cannot be converted.
* performance improvement
* fix the XML serialization of double values
* Fri Jul 14 2006 mc@suse.de
- version 0.59 - version 0.59
- Fixes to POD documentation - Fixes to POD documentation
- lib/Apache/RPC/Server.pm: - lib/Apache/RPC/Server.pm:
Fixed the logic around the setting of $no_def in new(); it was Fixed the logic around the setting of $no_def in new(); it was
handling the no_default method-argument backwards handling the no_default method-argument backwards
- fixed some testcases - fixed some testcases
* Wed Jan 25 2006 - mls@suse.de * Wed Jan 25 2006 mls@suse.de
- converted neededforbuild to BuildRequires - converted neededforbuild to BuildRequires
* Wed Sep 28 2005 - dmueller@suse.de * Thu Sep 29 2005 dmueller@suse.de
- add norootforbuild - add norootforbuild
* Sun Jul 31 2005 - cthiel@suse.de * Sun Jul 31 2005 cthiel@suse.de
- update to version 0.58 - update to version 0.58
* Fri Apr 01 2005 - mc@suse.de * Fri Apr 01 2005 mc@suse.de
- update to version 0.57 - update to version 0.57
- remove RPC-XML-0.53-http-compress-fix.dif ; - remove RPC-XML-0.53-http-compress-fix.dif ;
not needed anymore not needed anymore
* Mon Aug 09 2004 - mc@suse.de * Mon Aug 09 2004 mc@suse.de
- update to version 0.54 - update to version 0.54
* Wed Dec 03 2003 - mc@suse.de * Wed Dec 03 2003 mc@suse.de
- fix http compression (RPC-XML-0.53-http-compress-fix.dif) - fix http compression (RPC-XML-0.53-http-compress-fix.dif)
* Tue Dec 02 2003 - mc@suse.de * Tue Dec 02 2003 mc@suse.de
- initial version 0.53 - initial version 0.53