projects
/
Biblio-SIP2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
SC Status
[Biblio-SIP2.git]
/
sc-emulator.pl
diff --git
a/sc-emulator.pl
b/sc-emulator.pl
index
3be7d9b
..
e614cec
100755
(executable)
--- a/
sc-emulator.pl
+++ b/
sc-emulator.pl
@@
-5,6
+5,7
@@
use strict;
use IO::Socket::INET;
use autodie;
use IO::Socket::INET;
use autodie;
+use Data::Dump qw(dump);
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
our $user = 'sip2-user';
our $password = 'sip2-paasswd';
@@
-15,13
+16,20
@@
our $sock = IO::Socket::INET->new( '10.60.0.251:6001' );
sub sip2 {
my ( $send, $patt ) = @_;
sub sip2 {
my ( $send, $patt ) = @_;
- warn ">>>> $send";
- print $sock $send;
+ warn ">>>> ", dump($send), "\n";
+ print $sock "$send\r\n";
+ $sock->flush;
+
+# local $/ = "\r";
my $in = <$sock>;
my $in = <$sock>;
- warn "<<<<
$i
n";
+ warn "<<<<
", dump($in), "\
n";
die unless $in =~ $patt;
}
die unless $in =~ $patt;
}
-sip2 "9300CN$user|CO$password|\n" => qr/^941/;
+# login
+sip2 "9300CN$user|CO$password|" => qr/^941/;
+
+# SC Status
+sip2 "9900302.00" => qr/^98/;