From e46b1e36be872896991f47226349f81b5839763a Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Mon, 14 Dec 2009 23:57:23 +0100 Subject: [PATCH] Checkin and PatronInformation --- sc-emulator.pl | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/sc-emulator.pl b/sc-emulator.pl index e614cec..715c014 100755 --- a/sc-emulator.pl +++ b/sc-emulator.pl @@ -24,7 +24,7 @@ sub sip2 { my $in = <$sock>; warn "<<<< ", dump($in), "\n"; - die unless $in =~ $patt; + die "expected $patt" unless $in =~ $patt; } # login @@ -33,3 +33,8 @@ sip2 "9300CN$user|CO$password|" => qr/^941/; # SC Status sip2 "9900302.00" => qr/^98/; +# Checkin +sip2 "09N20091214 08142820091214 081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/; + +# Patron Information +sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^54/; -- 2.20.1