LP#1342227 EDI translator test script

Signed-off-by: Bill Erickson <berickxx@gmail.com>

diff --git a/Open-ILS/src/support-scripts/test-scripts/edi_translator.pl b/Open-ILS/src/support-scripts/test-scripts/edi_translator.pl
new file mode 100755 (executable)
index 0000000..4253392
--- /dev/null
+++ b/Open-ILS/src/support-scripts/test-scripts/edi_translator.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+# usage:
+# ./edi_translator <jedi_file>
+use strict; 
+use warnings;
+
+use RPC::XML::Client;
+use Data::Dumper;
+
+my $url = 'http://localhost:9191/EDI';
+
+my $jedi_file = $ARGV[0] or die "$0 <jedi_file>\n";
+
+open(JEDI_FILE, $jedi_file) or 
+    die "cannot open jedi file: $jedi_file : $!\n";
+
+my $jedi = <JEDI_FILE>;
+
+my $client = RPC::XML::Client->new($url);
+$client->request->header('Content-Type' => 'text/xml;charset=utf-8');
+my $resp = $client->send_request('json2edi', $jedi);
+
+if (!ref($resp) or $resp->is_fault or !$resp->value) {
+    warn Dumper($resp);
+} else {
+    print $resp->value . "\n";
+}
+
+
+