diff options
Diffstat (limited to 'utilities/diatheke/soap/soapatheke.pl')
-rwxr-xr-x | utilities/diatheke/soap/soapatheke.pl | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/utilities/diatheke/soap/soapatheke.pl b/utilities/diatheke/soap/soapatheke.pl deleted file mode 100755 index e3f88ed..0000000 --- a/utilities/diatheke/soap/soapatheke.pl +++ /dev/null @@ -1,16 +0,0 @@ -#!/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; |