projects
/
Biblio-SIP2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of github.com:dpavlin/Net-SIP2-Simple
[Biblio-SIP2.git]
/
sc-emulator.pl
diff --git
a/sc-emulator.pl
b/sc-emulator.pl
index
65b140e
..
3488612
100755
(executable)
--- a/
sc-emulator.pl
+++ b/
sc-emulator.pl
@@
-8,36
+8,35
@@
use autodie;
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
+our $patron = 200000000042;
+our $barcode = 1301132799;
+our $loc = 'FFZG';
require 'config.pl' if -e 'config.pl';
use SIP2;
require 'config.pl' if -e 'config.pl';
use SIP2;
-
our $sock = IO::Socket::INET->new( '10.60.0.251:6001' )
;
+
SIP2::connect '10.60.0.251:6001'
;
+# login
+SIP2::send "9300CN$user|CO$password|";
-sub sip2 {
- my ( $send, $patt ) = @_;
- SIP2::dump_message '>>>>', $send;
- print $sock "$send\r\n";
- $sock->flush;
+# SC Status
+SIP2::send "9900302.00";
-# local $/ = "\r";
+# Patron Information
+SIP2::send "6300020091214 085452 AO$loc|AA$patron|AC$password|";
- my $in = <$sock>;
- SIP2::dump_message '<<<<', $in;
- die "expected $patt" unless $in =~ $patt;
-}
+# Checkout
+SIP2::send "11YN20091214 124436 AO$loc|AA$patron|AB$barcode|AC$password|BON|BIN|";
-#
log
in
-
sip2 "9300CN$user|CO$password|" => qr/^941/
;
+#
Check
in
+
SIP2::send "09N20091214 08142820091214 081428AP|AO$loc|AB$barcode|AC|BIN|"
;
-# SC Status
-sip2 "9900302.00" => qr/^98/;
-#
Checkin
-
sip2 "09N20091214 08142820091214 081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/
;
+#
checkout another
+
SIP2::send "09N20091216 15320820091216 153208AP|AOFFZG|AB200903160190|ACviva2koha|BIN|"
;
-#
Patron Information
-
sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^64/
;
+#
status
+
SIP2::send "9900302.00"
;