projects
/
Biblio-SIP2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
584943f
)
Checkin and PatronInformation
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 14 Dec 2009 22:57:23 +0000
(23:57 +0100)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Mon, 14 Dec 2009 22:57:23 +0000
(23:57 +0100)
sc-emulator.pl
patch
|
blob
|
history
diff --git
a/sc-emulator.pl
b/sc-emulator.pl
index
e614cec
..
715c014
100755
(executable)
--- a/
sc-emulator.pl
+++ b/
sc-emulator.pl
@@
-24,7
+24,7
@@
sub sip2 {
my $in = <$sock>;
warn "<<<< ", dump($in), "\n";
my $in = <$sock>;
warn "<<<< ", dump($in), "\n";
- die unless $in =~ $patt;
+ die
"expected $patt"
unless $in =~ $patt;
}
# login
}
# login
@@
-33,3
+33,8
@@
sip2 "9300CN$user|CO$password|" => qr/^941/;
# SC Status
sip2 "9900302.00" => qr/^98/;
# 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/;