rpms/perl-Frontier-RPC/devel apache2.patch, NONE, 1.1 import.log, NONE, 1.1 perl-frontier-undef-scalar.patch, NONE, 1.1 security-xml-external-entity.patch, NONE, 1.1 .cvsignore, 1.3, 1.4 perl-Frontier-RPC.spec, 1.13, 1.14 sources, 1.3, 1.4

[Miroslav Suchý (msuchy)]

Author: msuchy

Update of /cvs/pkgs/rpms/perl-Frontier-RPC/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv9171/devel

Modified Files:
	.cvsignore perl-Frontier-RPC.spec sources 
Added Files:
	apache2.patch import.log perl-frontier-undef-scalar.patch 
	security-xml-external-entity.patch 
Log Message:
Upgrade perl-Frontier-RPC to version 0.07b4p1-4


apache2.patch:

--- NEW FILE apache2.patch ---
--- Frontier-RPC-0.07b4p1/lib/Apache/XMLRPC.pm.apache2     2007-11-08 17:01:28.000000000 +0100
+++ Frontier-RPC-0.07b4p1/lib/Apache/XMLRPC.pm  2007-11-08 17:24:46.000000000 +0100
@@ -10,16 +10,18 @@

 package Apache::XMLRPC;

-use Apache::Constants qw(:common);
+use Apache2::Const;
+use Apache2::ServerUtil;
 use Frontier::RPC2;

 sub handler {
    my $r = shift;

-   my $conf = $r->server_root_relative( $r->dir_config( "XMLRPC_Config" ) );
+   my $path = $r->dir_config( "XMLRPC_Config" );
+   my $conf = Apache2::ServerUtil::server_root_relative( $r->pool, $path );

    if( -f $conf ) {
-      unless( $rt = do $conf ) {
+      unless( my $rt = do $conf ) {
          die "Couldn\'t parse conf file ($conf): $@\n"   if $@;
          die "Couldn\'t compile conf file ($conf): $!\n" unless defined $rt;
          die "Couldn\'t run conf file ($conf)\n"         unless $rt;
@@ -28,15 +30,16 @@

    my $decoder = Frontier::RPC2->new();

-   my $content;
-   $r->read( $content, $r->header_in( 'Content-length' ) );
+   if (defined $clength and $clength >= 0) {
+       my $content;
+       $r->read( $content, $r->headers_in->{'Content-length'} );

-   my $answer = $decoder->serve( $content, $Apache::XMLRPC::map );
+        my $answer = $decoder->serve( $content, $Apache::XMLRPC::map );

-   $r->send_http_header();
-   $r->print($answer);
+        $r->print($answer);
+   }

-   return OK;
+   return Apache2::Const::OK();
 }

 1;


--- NEW FILE import.log ---
perl-Frontier-RPC-0_07b4p1-4:HEAD:perl-Frontier-RPC-0.07b4p1-4.src.rpm:1217410048

perl-frontier-undef-scalar.patch:

--- NEW FILE perl-frontier-undef-scalar.patch ---
--- Frontier-RPC-0.06/lib/Frontier/RPC2.pm.undef-scalar	2005-06-15 11:28:48.323851492 -0400
+++ Frontier-RPC-0.06/lib/Frontier/RPC2.pm	2005-06-15 12:24:44.739297487 -0400
@@ -226,6 +226,8 @@
 sub _scalar {
     my $self = shift; my $value = shift;
 
+    $value = '' unless defined $value;
+
     # these are from `perldata(1)'
     if ($value =~ /^[+-]?\d+$/) {
 	return ("<value><i4>$value</i4></value>");

security-xml-external-entity.patch:

--- NEW FILE security-xml-external-entity.patch ---
--- Frontier-RPC-0.07b3-orig/lib/Frontier/RPC2.pm       Mon Apr 23 15:17:32 2001
+++ Frontier-RPC-0.07b3/lib/Frontier/RPC2.pm    Wed Oct 30 00:03:39 2002
@@ -302,6 +302,9 @@
 ### XML::Parser callbacks
 ###

+sub externent { '' }
+sub externentfin { '' }
+
 sub die {
     my $expat = shift; my $message = shift;




Index: .cvsignore
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Frontier-RPC/devel/.cvsignore,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- .cvsignore	5 Jun 2006 23:28:12 -0000	1.3
+++ .cvsignore	30 Jul 2008 09:28:09 -0000	1.4
@@ -1,2 +1 @@
-Frontier-RPC-0.06.tar.gz
-Frontier-RPC-0.07b4.tar.gz
+Frontier-RPC-0.07b4p1.tar.gz


Index: perl-Frontier-RPC.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Frontier-RPC/devel/perl-Frontier-RPC.spec,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- perl-Frontier-RPC.spec	7 Mar 2008 02:01:33 -0000	1.13
+++ perl-Frontier-RPC.spec	30 Jul 2008 09:28:09 -0000	1.14
@@ -1,64 +1,87 @@
 Summary:        A Perl interface for making and serving XML-RPC calls
 Name:           perl-Frontier-RPC
-Version:        0.07b4
+Version:        0.07b4p1
 Release:        4%{?dist}
-
-Group:          Development/Libraries
 License:        GPL+ or Artistic
-Url:            http://search.cpan.org/dist/Frontier-RPC/
-Source0:        ftp://cpan.org/pub/CPAN/authors/id/K/KM/KMACLEOD/Frontier-RPC-%{version}.tar.gz
+Group:          Development/Libraries
+URL:            http://search.cpan.org/dist/Frontier-RPC/
+Source0:        http://search.cpan.org/CPAN/authors/id/R/RT/RTFIREFLY/Frontier-RPC-%{version}.tar.gz
 Patch0:         perl-frontier-raw-call.patch
 Patch1:         perl-frontier-raw-serve.patch
+Patch2:         perl-frontier-undef-scalar.patch
+Patch3:         security-xml-external-entity.patch
+Patch4:         apache2.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
-
 BuildArch:      noarch
 BuildRequires:  perl(LWP::UserAgent), perl(XML::Parser), perl(ExtUtils::MakeMaker)
 Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+Provides:       perl-Frontier-RPC-Client = %{version}
 
+%package Client
+Summary:        Frontier-RPC-Client Perl module
+Group:          Development/Libraries
+Conflicts:      perl-Frontier-RPC
+License:        GPL or Artistic
 
 %description
-Frontier::RPC implements UserLand Software's XML RPC (Remote Procedure
-Calls using Extensible Markup Language).  Frontier::RPC includes both
-a client module for making requests to a server and a daemon module
-for implementing servers.  Frontier::RPC uses RPC2 format messages.
-
+Frontier::RPC implements UserLand Software's XML RPC (Remote
+Procedure Calls using Extensible Markup Language).  Frontier::RPC
+includes both a client module for making requests to a server and
+several server modules for implementing servers using CGI, Apache,
+and standalone with HTTP::Daemon.
+
+%description Client
+Frontier::RPC::Client implements UserLand Software's XML RPC (Remote
+Procedure Calls using Extensible Markup Language).  Frontier::RPC::Client
+includes just client module for making requests to a server.
 
 %prep
-%setup -q -n Frontier-RPC-%{version} 
+%setup -q -n Frontier-RPC-%{version}
 %patch0 -p1
 %patch1 -p1
-
+%patch2 -p1
+%patch3 -p1
+%patch4 -p1
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor
 make %{?_smp_mflags}
 
-
 %install
 rm -rf $RPM_BUILD_ROOT
+
 make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
-find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} ';'
-find $RPM_BUILD_ROOT -type d -depth -exec rmdir {} 2>/dev/null ';'
-chmod -R u+w $RPM_BUILD_ROOT/*
 
+find $RPM_BUILD_ROOT -type f -name .packlist -exec rm -f {} \;
+find $RPM_BUILD_ROOT -depth -type d -exec rmdir {} 2>/dev/null \;
+
+%{_fixperms} $RPM_BUILD_ROOT/*
 
 %check
 make test
 
-
 %clean
 rm -rf $RPM_BUILD_ROOT
 
-
 %files
 %defattr(-,root,root,-)
 %doc ChangeLog Changes COPYING README examples/
-%{perl_vendorlib}/Frontier/
-%{perl_vendorlib}/Apache/XMLRPC.pm
-%{_mandir}/man3/*.3*
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
 
+%files Client
+%defattr(-,root,root,-)
+%doc ChangeLog Changes COPYING README examples/
+%{perl_vendorlib}/Frontier/Client.pm
+%{perl_vendorlib}/Frontier/RPC2.pm
+%{_mandir}/man3/Frontier::Client.3pm.gz
+%{_mandir}/man3/Frontier::RPC2.3pm.gz
 
 %changelog
+* Wed Jul 30 2008 Miroslav Suchý <msuchy at redhat.com> 0.07b4p1-4
+- applied security patches.
+- created light package with only Client part.
+
 * Thu Mar 06 2008 Tom "spot" Callaway <tcallawa at redhat.com> - 0.07b4-4
 Rebuild for new perl
 
@@ -97,12 +120,13 @@
 - automated release bump and build
 
 * Fri Apr  5 2002 Chip Turner <cturner at redhat.com>
-- add patch from RHN to allow raw non-conformat calls.  
-- doesn't affect main code path, but adds functionality 
+- add patch from RHN to allow raw non-conformat calls.
+- doesn't affect main code path, but adds functionality
 - similar to python xmlrpc module
 
 * Wed Jan 09 2002 Tim Powers <timp at redhat.com>
 - automated rebuild
 
 * Mon Apr 30 2001 Chip Turner <cturner at redhat.com>
-- Spec file was autogenerated. 
+- Spec file was autogenerated.
+


Index: sources
===================================================================
RCS file: /cvs/pkgs/rpms/perl-Frontier-RPC/devel/sources,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- sources	5 Jun 2006 23:28:12 -0000	1.3
+++ sources	30 Jul 2008 09:28:09 -0000	1.4
@@ -1 +1 @@
-c04582da604f11bdbe60606738f92457  Frontier-RPC-0.07b4.tar.gz
+308f8b81cef0c195d83dded6d1e83f0d  Frontier-RPC-0.07b4p1.tar.gz