Open-ILS/src/support-scripts/test-scripts/edi_writer.pl

   1 #!/usr/bin/perl
   2 use strict; use warnings;
   3 use OpenILS::Utils::EDIWriter;
   4 require '../oils_header.pl';
   5 use OpenILS::Utils::CStoreEditor qw/:funcs/;
   6 use Getopt::Long;
   7
   8 my $config = '/openils/conf/opensrf_core.xml';
   9 my $po_id;
  10
  11 GetOptions(
  12     'osrf-config' => \$config,
  13     'po-id=i' => \$po_id
  14 );
  15
  16
  17 osrf_connect($config);
  18
  19 my $writer = OpenILS::Utils::EDIWriter->new({pretty => 1});
  20 #my $writer = OpenILS::Utils::EDIWriter->new;
  21 my $edi = $writer->write($po_id);
  22
  23 print "$edi\n";
  24
  25