forked from pool/perl-RPC-XML
This commit is contained in:
committed by
Git OBS Bridge
parent
9870b51f36
commit
e9e42c8483
@@ -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;
|
||||||
}
|
}
|
||||||
|
@@ -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
23
RPC-XML-0.60-fix-utf8.dif
Normal 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
3
RPC-XML-0.60.tar.bz2
Normal file
@@ -0,0 +1,3 @@
|
|||||||
|
version https://git-lfs.github.com/spec/v1
|
||||||
|
oid sha256:a4d4899e44bb29ec846caa44337ed8d87cf578e6e27a3fa4d9cb3efb32007b83
|
||||||
|
size 103690
|
@@ -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
|
||||||
|
|
||||||
|
@@ -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
|
||||||
|
Reference in New Issue
Block a user