SC Status

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 Data::Dump qw(dump);
 
 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 ) = @_;
-       warn ">>>> $send";
-       print $sock $send;
+       warn ">>>> ", dump($send), "\n";
+       print $sock "$send\r\n";
+       $sock->flush;
+
+#      local $/ = "\r";
 
        my $in = <$sock>;
-       warn "<<<< $in";
+       warn "<<<< ", dump($in), "\n";
        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/;