diff options
author | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:49 -0400 |
---|---|---|
committer | Roberto C. Sanchez <roberto@connexer.com> | 2014-03-29 10:53:49 -0400 |
commit | 8c8aa6b07e595cfac56838b5964ab3e96051f1b2 (patch) | |
tree | da38e2c1979148dbd3b0c7b87f930746f5ba7f44 /utilities/diatheke/soap/soapatheke.pl | |
parent | 8d3fc864d094eeadc721f8e93436b37a5fab173e (diff) |
Imported Upstream version 1.5.7
Diffstat (limited to 'utilities/diatheke/soap/soapatheke.pl')
-rwxr-xr-x | utilities/diatheke/soap/soapatheke.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/utilities/diatheke/soap/soapatheke.pl b/utilities/diatheke/soap/soapatheke.pl new file mode 100755 index 0000000..e3f88ed --- /dev/null +++ b/utilities/diatheke/soap/soapatheke.pl @@ -0,0 +1,16 @@ +#!/usr/bin/perl + +## This is a test app and has no other purpose. + +use SOAP::Lite; + +my ($books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max) = @ARGV; + +# uncomment to see parameters being passed to the SOAP server (for debugging) +# print "$books\n$key\n$options\n$encoding\n$markup\n$searchtype\n$locale\n$script\n$max\n"; + +print SOAP::Lite + -> uri('http://bible.gotjesus.org/sapouni') + -> proxy('http://bible.gotjesus.org/cgi-bin/sapouni.cgi') + -> biblequery($books, $key, $options, $encoding, $markup, $searchtype, $locale, $script, $max) + -> result; |