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;