C4/SIP/example_institution_dump.sh

   1 #!/bin/bash
   2
   3 perl -I ./ -e '
   4 use Data::Dumper;
   5 use ILS;
   6 use Sip::Configuration;
   7 my $code = "MAIN";
   8 my $conf = Sip::Configuration->new("SIPconfig.xml");
   9 my $ils  = ILS->new($conf->{institutions}->{$code});
  10 print "XML for $code: ", Dumper($conf->{institutions}->{$code}), "\n";
  11 print "ILS for $code: ", Dumper($ils), "\n";
  12 print "\$ils->checkout_ok(): ", ($ils->checkout_ok() ? "Y" : "N"), "\n";
  13 print "\$ils->checkin_ok() : ", ($ils->checkin_ok()  ? "Y" : "N"), "\n";
  14 print "\$ils->offline_ok() : ", ($ils->offline_ok()  ? "Y" : "N"), "\n";
  15 print "\n";
  16 '