cleanup

OBS-URL: https://build.opensuse.org/package/show/devel:languages:perl/perl-Frontier-RPC?expand=0&rev=13

Frontier-RPC-0.06.tar.bz2

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

Frontier-RPC-0.07b4.tar.gz

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

perl-Frontier-RPC.changes

@@ -0,0 +1,20 @@
+-------------------------------------------------------------------
+Fri Apr 29 09:09:22 UTC 2011 - coolo@opensuse.org
+
+- updated to 0.07b4
+
+-------------------------------------------------------------------
+Wed Dec  1 13:32:30 UTC 2010 - coolo@novell.com
+
+- switch to perl_requires macro
+
+-------------------------------------------------------------------
+Mon Nov 29 18:30:01 UTC 2010 - coolo@novell.com
+
+- remove /var/adm/perl-modules
+
+-------------------------------------------------------------------
+Sat Jun 19 13:36:40 UTC 2010 - coolo@novell.com
+
+- initial package
+

perl-Frontier-RPC.spec

@@ -1,84 +1,62 @@
-%define _use_internal_dependency_generator 0
+#
+# spec file for package perl-Frontier-RPC (Version 0.07b4)
+#
+# Copyright (c) 2011 SUSE LINUX Products GmbH, Nuernberg, Germany.
+#
+# All modifications and additions to the file contributed by third parties
+# remain the property of their copyright owners, unless otherwise agreed
+# upon. The license for this file, and modifications and additions to the
+# file, is the same license as for the pristine package itself (unless the
+# license for the pristine package is not an Open Source License, in which
+# case the license is the MIT License). An "Open Source License" is a
+# license that conforms to the Open Source Definition (Version 1.9)
+# published by the Open Source Initiative.
 
-Summary: A Perl interface for making and serving XML-RPC calls.
-Name: perl-Frontier-RPC
-Version: 0.06
-Release: 0
-License: distributable
-Group: Applications/CPAN
-Source0: Frontier-RPC-%{version}.tar.bz2
-Patch0: perl-frontier-raw-call.patch
-Patch1: perl-frontier-raw-serve.patch
-Url: http://www.cpan.org
-BuildRoot: /var/tmp/perl-Frontier-RPC-buildroot/
-BuildRequires: perl >= 5
-Requires: perl >= 5
-BuildArch: noarch
+# Please submit bugfixes or comments via http://bugs.opensuse.org/
+#
 
-BuildRequires: perl-XML-Parser
-BuildRequires: perl-libwww-perl
+Name:           perl-Frontier-RPC
+Version:        0.07b4
+Release:        1
+License:        CHECK(GPL+ or Artistic)
+%define cpan_name Frontier-RPC
+Summary:        Frontier::RPC Perl module
+Url:            http://search.cpan.org/dist/Frontier-RPC/
+Group:          Development/Libraries/Perl
+Source:         Frontier-RPC-0.07b4.tar.gz
+BuildArch:      noarch
+BuildRoot:      %{_tmppath}/%{name}-%{version}-build
+BuildRequires:  perl
+BuildRequires:  perl-macros
+BuildRequires:  perl(XML::Parser) >= 2.19
+BuildRequires:  perl(LWP::UserAgent)
+Requires:       perl(XML::Parser) >= 2.19
+%{perl_requires}
 
 %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.
-
-
-# Provide perl-specific find-{provides,requires}.
-%define __find_provides /usr/lib/rpm/find-provides.perl
-%define __find_requires /usr/lib/rpm/find-requires.perl
+Frontier::RPC Perl module
 
 %prep
-%setup -q -n Frontier-RPC-%{version} 
-%patch0 -p1 -b .rawcall
-%patch1 -p1 -b .rawserve
+%setup -q -n %{cpan_name}-%{version}
+find . -type f -print0 | xargs -0 chmod 644
 
 %build
-CFLAGS="$RPM_OPT_FLAGS" perl Makefile.PL PREFIX=$RPM_BUILD_ROOT/usr INSTALLDIRS=vendor
-make
-#make test
+%{__perl} Makefile.PL INSTALLDIRS=vendor
+%{__make} %{?_smp_mflags}
 
-%clean 
-rm -rf $RPM_BUILD_ROOT
+%check
+%{__make} test
 
 %install
-rm -rf $RPM_BUILD_ROOT
-make install
+%perl_make_install
+%perl_process_packlist
+%perl_gen_filelist
 
-[ -x /usr/lib/rpm/brp-compress ] && /usr/lib/rpm/brp-compress
+%clean
+%{__rm} -rf %{buildroot}
 
-find $RPM_BUILD_ROOT \( -name perllocal.pod -o -name .packlist \) -exec rm -v {} \;
-
-find $RPM_BUILD_ROOT/usr -type f -print | 
-	sed "s@^$RPM_BUILD_ROOT@@g" | 
-	grep -v perllocal.pod | 
-	grep -v "\.packlist" > Frontier-RPC-%{version}-filelist
-if [ "$(cat Frontier-RPC-%{version}-filelist)X" = "X" ] ; then
-    echo "ERROR: EMPTY FILE LIST"
-    exit -1
-fi
-
-%files -f Frontier-RPC-%{version}-filelist
-%defattr(-,root,root)
+%files -f %{name}.files
+%defattr(-,root,root,755)
+%doc ChangeLog Changes COPYING examples Frontier-RPC-0.07b4.spec Frontier-RPC.spec README
 
 %changelog
-* Fri Mar 23 2007 Peter Nixon <peter+rpmspam@suntel.com.tr>
-- minor changes to build on SUSE
-
-* Wed Sep 22 2004 Chip Turner <cturner@redhat.com> 0.06-38
-- rebuild
-
-* Tue Aug  6 2002 Chip Turner <cturner@redhat.com>
-- automated release bump and build
-
-* Fri Apr  5 2002 Chip Turner <cturner@redhat.com>
-- 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@redhat.com>
-- automated rebuild
-
-* Mon Apr 30 2001 Chip Turner <cturner@redhat.com>
-- Spec file was autogenerated. 

perl-frontier-raw-serve.patch

@@ -0,0 +1,34 @@
+--- Frontier-RPC-0.06/lib/Frontier/RPC2.pm.rawserve	Wed Jun 19 17:47:33 2002
++++ Frontier-RPC-0.06/lib/Frontier/RPC2.pm	Wed Jun 19 18:26:04 2002
+@@ -110,7 +110,7 @@
+ }
+ 
+ sub serve {
+-    my $self = shift; my $xml = shift; my $methods = shift;
++    my $self = shift; my $xml = shift; my $methods = shift; my $raw = shift;
+ 
+     my $call;
+     # FIXME bug in Frontier's XML
+@@ -118,6 +118,7 @@
+     eval { $call = $self->decode($xml) };
+ 
+     if ($@) {
++        die $@ if $raw;
+ 	return $self->encode_fault(1, "error decoding RPC.\n" . $@);
+     }
+ 
+@@ -127,12 +128,14 @@
+ 
+     my $method = $call->{'method_name'};
+     if (!defined $methods->{$method}) {
++        die "No such method '$method'" if $raw;
+         return $self->encode_fault(3, "no such method \`$method'\n");
+     }
+ 
+     my $result;
+     my $eval = eval { $result = &{ $methods->{$method} }(@{ $call->{'value'} }) };
+     if ($@) {
++        die $@ if $raw;
+ 	return $self->encode_fault(4, "error executing RPC \`$method'.\n" . $@);
+     }
+