sc-emulator.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 use IO::Socket::INET;
   7 use autodie;
   8
   9 our $user     = 'sip2-user';
  10 our $password = 'sip2-paasswd';
  11 our $patron   = 200000000042;
  12 our $barcode  = 1301132799;
  13 our $loc      = 'FFZG';
  14
  15 require 'config.pl' if -e 'config.pl';
  16
  17 use SIP2;
  18
  19 SIP2::connect '10.60.0.251:6001';
  20
  21 # login
  22 SIP2::send "9300CN$user|CO$password|";
  23
  24 # SC Status
  25 SIP2::send "9900302.00";
  26
  27 # Patron Information
  28 SIP2::send "6300020091214    085452          AO$loc|AA$patron|AC$password|";
  29
  30 # Checkout
  31 SIP2::send "11YN20091214    124436                  AO$loc|AA$patron|AB$barcode|AC$password|BON|BIN|";
  32
  33 # Checkin
  34 SIP2::send "09N20091214    08142820091214    081428AP|AO$loc|AB$barcode|AC|BIN|";
  35
  36
  37 # checkout another
  38 SIP2::send "09N20091216    15320820091216    153208AP|AOFFZG|AB200903160190|ACviva2koha|BIN|";
  39
  40 # status
  41 SIP2::send "9900302.00";
  42