r1810 - in packages/soap-lite/trunk: bin debian
Niko Tyni
ntyni-guest at costa.debian.org
Sat Dec 31 12:41:13 UTC 2005
Author: ntyni-guest
Date: 2005-12-31 12:41:12 +0000 (Sat, 31 Dec 2005)
New Revision: 1810
Removed:
packages/soap-lite/trunk/bin/SOAPsh
packages/soap-lite/trunk/bin/XMLRPCsh
packages/soap-lite/trunk/bin/stubmaker
Modified:
packages/soap-lite/trunk/debian/changelog
packages/soap-lite/trunk/debian/rules
Log:
Fix the scripts in bin/ at build-time rather than statically.
Deleted: packages/soap-lite/trunk/bin/SOAPsh
===================================================================
--- packages/soap-lite/trunk/bin/SOAPsh 2005-12-30 16:02:57 UTC (rev 1809)
+++ packages/soap-lite/trunk/bin/SOAPsh 2005-12-31 12:41:12 UTC (rev 1810)
@@ -1,79 +0,0 @@
-#!/usr/bin/perl
-#!d:\perl\bin\perl.exe
-
-# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
-
-use strict;
-use SOAP::Lite;
-use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;
-
- at ARGV or die "Usage: $0 proxy [uri [commands...]]\n";
-my($proxy, $uri) = (shift, shift);
-my %can;
-my $soap = SOAP::Lite->proxy($proxy)->on_fault(sub{});
- $soap->uri($uri) if $uri;
-print STDERR "Usage: method[(parameters)]\n> ";
-while (defined($_ = shift || <>)) {
- next unless /\w/;
- my($method) = /\s*(\w+)/;
- $can{$method} = $soap->can($method) unless exists $can{$method};
- my $res = eval "\$soap->$_";
- $@ ? print(STDERR join "\n", "--- SYNTAX ERROR ---", $@, '') :
- $can{$method} && !UNIVERSAL::isa($res => 'SOAP::SOM')
- ? print(STDERR join "\n", "--- METHOD RESULT ---", $res || '', '') :
- defined($res) && $res->fault ? print(STDERR join "\n", "--- SOAP FAULT ---", $res->faultcode, $res->faultstring, '') :
- !$soap->transport->is_success ? print(STDERR join "\n", "--- TRANSPORT ERROR ---", $soap->transport->status, '') :
- print(STDERR join "\n", "--- SOAP RESULT ---", Dumper($res->paramsall), '')
-} continue {
- print STDERR "\n> ";
-}
-
-__END__
-
-=head1 NAME
-
-SOAPsh.pl - Interactive shell for SOAP calls
-
-=head1 SYNOPSIS
-
- perl SOAPsh.pl http://services.soaplite.com/examples.cgi http://www.soaplite.com/My/Examples
- > getStateName(2)
- > getStateNames(1,2,3,7)
- > getStateList([1,9])
- > getStateStruct({a=>1, b=>24})
- > Ctrl-D (Ctrl-Z on Windows)
-
-or
-
- # all parameters after uri will be executed as methods
- perl SOAPsh.pl http://soap.4s4c.com/ssss4c/soap.asp http://simon.fell.com/calc doubler([10,20,30])
- > Ctrl-D (Ctrl-Z on Windows)
-
-=head1 DESCRIPTION
-
-SOAPsh.pl is a shell for making SOAP calls. It takes two parameters:
-mandatory endpoint and optional uri (actually it will tell you about it
-if you try to run it). Additional commands can follow.
-
-After that you'll be able to run any methods of SOAP::Lite, like autotype,
-readable, encoding, etc. You can run it the same way as you do it in
-your Perl script. You'll see output from method, result of SOAP call,
-detailed info on SOAP faulure or transport error.
-
-For full list of available methods see documentation for SOAP::Lite.
-
-Along with methods of SOAP::Lite you'll be able (and that's much more
-interesting) run any SOAP methods you know about on remote server and
-see processed results. You can even switch on debugging (with call
-something like: C<on_debug(sub{print at _})>) and see SOAP code with
-headers sent and recieved.
-
-=head1 COPYRIGHT
-
-Copyright (C) 2000 Paul Kulchenko. All rights reserved.
-
-=head1 AUTHOR
-
-Paul Kulchenko (paulclinger at yahoo.com)
-
-=cut
Deleted: packages/soap-lite/trunk/bin/XMLRPCsh
===================================================================
--- packages/soap-lite/trunk/bin/XMLRPCsh 2005-12-30 16:02:57 UTC (rev 1809)
+++ packages/soap-lite/trunk/bin/XMLRPCsh 2005-12-31 12:41:12 UTC (rev 1810)
@@ -1,78 +0,0 @@
-#!/usr/bin/perl
-#!d:\perl\bin\perl.exe
-
-# -- XMLRPC::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
-
-use strict;
-use XMLRPC::Lite;
-use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;
-
- at ARGV or die "Usage: $0 endpoint [commands...]\n";
-my $proxy = shift;
-my %can;
-my $xmlrpc = XMLRPC::Lite->proxy($proxy)->on_fault(sub{});
-print STDERR "Usage: method[(parameters)]\n> ";
-while (defined($_ = shift || <>)) {
- next unless /\w/;
- my($method, $parameters) = /^\s*([.\w]+)(.*)/;
- $can{$method} = $xmlrpc->can($method) unless exists $can{$method};
- my $res = $method =~ /\./ ? eval "\$xmlrpc->call(\$method, $parameters)" : eval "\$xmlrpc->$_";
- $@ ? print(STDERR join "\n", "--- SYNTAX ERROR ---", $@, '') :
- $can{$method} && !UNIVERSAL::isa($res => 'XMLRPC::SOM')
- ? print(STDERR join "\n", "--- METHOD RESULT ---", $res || '', '') :
- defined($res) && $res->fault ? print(STDERR join "\n", "--- XMLRPC FAULT ---", @{$res->fault}{'faultCode', 'faultString'}, '') :
- !$xmlrpc->transport->is_success ? print(STDERR join "\n", "--- TRANSPORT ERROR ---", $xmlrpc->transport->status, '') :
- print(STDERR join "\n", "--- XMLRPC RESULT ---", Dumper($res->paramsall), '')
-} continue {
- print STDERR "\n> ";
-}
-
-__END__
-
-=head1 NAME
-
-XMLRPCsh.pl - Interactive shell for XMLRPC calls
-
-=head1 SYNOPSIS
-
- perl XMLRPCsh.pl http://betty.userland.com/RPC2
- > examples.getStateName(2)
- > examples.getStateNames(1,2,3,7)
- > examples.getStateList([1,9])
- > examples.getStateStruct({a=>1, b=>24})
- > Ctrl-D (Ctrl-Z on Windows)
-
-or
-
- # all parameters after uri will be executed as methods
- perl XMLRPCsh.pl http://betty.userland.com/RPC2 examples.getStateName(2)
- > Ctrl-D (Ctrl-Z on Windows)
-
-=head1 DESCRIPTION
-
-XMLRPCsh.pl is a shell for making XMLRPC calls. It takes one parameter,
-endpoint (actually it will tell you about it if you try to run it).
-Additional commands can follow.
-
-After that you'll be able to run any methods of XMLRPC::Lite, like autotype,
-readable, etc. You can run it the same way as you do it in
-your Perl script. You'll see output from method, result of XMLRPC call,
-detailed info on XMLRPC faulure or transport error.
-
-For full list of available methods see documentation for XMLRPC::Lite.
-
-Along with methods of XMLRPC::Lite you'll be able (and that's much more
-interesting) run any XMLRPC methods you know about on remote server and
-see processed results. You can even switch on debugging (with call
-something like: C<on_debug(sub{print at _})>) and see XMLRPC code with
-headers sent and recieved.
-
-=head1 COPYRIGHT
-
-Copyright (C) 2000 Paul Kulchenko. All rights reserved.
-
-=head1 AUTHOR
-
-Paul Kulchenko (paulclinger at yahoo.com)
-
-=cut
Deleted: packages/soap-lite/trunk/bin/stubmaker
===================================================================
--- packages/soap-lite/trunk/bin/stubmaker 2005-12-30 16:02:57 UTC (rev 1809)
+++ packages/soap-lite/trunk/bin/stubmaker 2005-12-31 12:41:12 UTC (rev 1810)
@@ -1,27 +0,0 @@
-#!/usr/bin/perl
-#!d:\perl\bin\perl.exe
-
-# -- SOAP::Lite -- soaplite.com -- Copyright (C) 2001 Paul Kulchenko --
-
-use SOAP::Lite;
-
-print "Accessing...\n";
-my $schema = SOAP::Schema
- -> schema(shift or die "Usage: $0 <URL with schema description> [<service> [<port>]]\n")
- -> parse(@ARGV);
-
-print "Writing...\n";
-foreach (keys %{$schema->services}) {
- my $file = "./$_.pm";
- print("$file exists, skipped...\n"), next if -s $file;
- open(F, ">$file") or die $!;
- print F $schema->stub($_);
- close(F) or die $!;
- print "$file done\n";
-}
-
-# try
-# > perl stubmaker.pl http://www.xmethods.net/sd/StockQuoteService.wsdl
-
-# then
-# > perl "-MStockQuoteService qw(:all)" -le "print getQuote('MSFT')"
Modified: packages/soap-lite/trunk/debian/changelog
===================================================================
--- packages/soap-lite/trunk/debian/changelog 2005-12-30 16:02:57 UTC (rev 1809)
+++ packages/soap-lite/trunk/debian/changelog 2005-12-31 12:41:12 UTC (rev 1810)
@@ -1,3 +1,13 @@
+soap-lite (0.66-2) unstable; urgency=low
+
+ * Fix the scripts in bin/ at build-time rather than statically, to
+ make sure they stay up to date. (Closes: #345318)
+ + remove .pl extensions
+ + fix the shebang lines to /usr/bin/perl
+ + change any references to the script name inside the script too
+
+ -- Niko Tyni <ntyni at iki.fi> Sat, 31 Dec 2005 14:39:32 +0200
+
soap-lite (0.66-1) unstable; urgency=low
* New upstream release (closes: #344737)
Modified: packages/soap-lite/trunk/debian/rules
===================================================================
--- packages/soap-lite/trunk/debian/rules 2005-12-30 16:02:57 UTC (rev 1809)
+++ packages/soap-lite/trunk/debian/rules 2005-12-31 12:41:12 UTC (rev 1810)
@@ -28,7 +28,7 @@
CFLAGS += -O2
endif
-build: build-stamp
+build: fix-scripts build-stamp
build-stamp:
dh_testdir
@@ -38,12 +38,23 @@
touch build-stamp
+# remove the .pl from script names and fix their shebang lines
+SCRIPTS=bin/SOAPsh bin/XMLRPCsh bin/stubmaker
+
+fix-scripts: $(SCRIPTS)
+bin/%: bin/%.pl
+ echo '#!/usr/bin/perl' > $@
+ # fix the script names inside them too
+ sed '1d; s,$(notdir $@)\.pl,$(notdir $@),g' < $< >> $@
+
clean:
dh_testdir
dh_testroot
# Add commands to clean up after the build process here
-$(MAKE) distclean
+
+ $(RM) -f $(SCRIPTS)
dh_clean build-stamp install-stamp
@@ -89,4 +100,4 @@
@echo >&2 'source and diff are obsolete - use dpkg-source -b'; false
binary: binary-indep binary-arch
-.PHONY: build clean binary-indep binary-arch binary
+.PHONY: build clean binary-indep binary-arch binary fix-scripts
More information about the Pkg-perl-cvs-commits
mailing list