projects
/
Biblio-SIP2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
show IP address that connects from correct socket
[Biblio-SIP2.git]
/
sc-emulator.pl
diff --git
a/sc-emulator.pl
b/sc-emulator.pl
index
3488612
..
319bdf5
100755
(executable)
--- a/
sc-emulator.pl
+++ b/
sc-emulator.pl
@@
-3,40
+3,37
@@
use warnings;
use strict;
use warnings;
use strict;
-use IO::Socket::INET;
-use autodie;
-
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $patron = 200000000042;
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $patron = 200000000042;
-our $barcode = 130
1132799
;
+our $barcode = 130
2029710
;
our $loc = 'FFZG';
require 'config.pl' if -e 'config.pl';
our $loc = 'FFZG';
require 'config.pl' if -e 'config.pl';
-use SIP2;
+use lib 'lib';
+use SIP2::SC;
-
SIP2::connect '10.60.0.251:6001'
;
+
my $sc = SIP2::SC->new( $ENV{ACS} || '10.60.0.251:6001' )
;
# login
# login
-
SIP2::send "9300CN$user|CO$password|"
;
+
$sc->message("9300CN$user|CO$password|")
;
# SC Status
# SC Status
-
SIP2::send "9900302.00"
;
+
$sc->message("9900302.00")
;
-# Patron Information
-SIP2::send "6300020091214 085452 AO$loc|AA$patron|AC$password|";
+$sc->message("6300020091214 085452 AO$loc|AA$patron|AC$password|");
# Checkout
# Checkout
-
SIP2::send "11YN20091214 124436 AO$loc|AA$patron|AB$barcode|AC$password|BON|BIN|"
;
+
$sc->message("11YN20091214 124436 AO$loc|AA$patron|AB$barcode|AC$password|BON|BIN|")
;
# Checkin
# Checkin
-
SIP2::send "09N20091214 08142820091214 081428AP|AO$loc|AB$barcode|AC|BIN|"
;
+
$sc->message("09N20091214 08142820091214 081428AP|AO$loc|AB$barcode|AC|BIN|")
;
-# checkout
another
-
SIP2::send "09N20091216 15320820091216 153208AP|AOFFZG|AB200903160190|ACviva2koha|BIN|"
;
+# checkout
- invalid barcode
+
$sc->message("09N20091216 15320820091216 153208AP|AOFFZG|AB200903160190|ACviva2koha|BIN|")
;
# status
# status
-
SIP2::send "9900302.00"
;
+
$sc->message("9900302.00")
;