From 3055d5178991b25dd9c1053b656fb9c0012d1199 Mon Sep 17 00:00:00 2001
From: Bill Erickson <berickxx@gmail.com>
Date: Thu, 7 May 2015 15:33:56 -0400
Subject: [PATCH] LP#1342227 EDI translator test script

Signed-off-by: Bill Erickson <berickxx@gmail.com>
---
 .../support-scripts/test-scripts/edi_translator.pl | 30 ++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 Open-ILS/src/support-scripts/test-scripts/edi_translator.pl

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
index 0000000000..4253392e90
--- /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";
+}
+
+
+
-- 
2.11.0