From bd1a76cdf0c011faba6b55d39bbaf6873906ce66 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Tue, 15 Dec 2009 00:36:20 +0100 Subject: [PATCH] use SIP2::dump_message --- sc-emulator.pl | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/sc-emulator.pl b/sc-emulator.pl index 715c014..65b140e 100755 --- a/sc-emulator.pl +++ b/sc-emulator.pl @@ -5,25 +5,27 @@ use strict; use IO::Socket::INET; use autodie; -use Data::Dump qw(dump); our $user = 'sip2-user'; our $password = 'sip2-paasswd'; require 'config.pl' if -e 'config.pl'; +use SIP2; + our $sock = IO::Socket::INET->new( '10.60.0.251:6001' ); + sub sip2 { my ( $send, $patt ) = @_; - warn ">>>> ", dump($send), "\n"; + SIP2::dump_message '>>>>', $send; print $sock "$send\r\n"; $sock->flush; # local $/ = "\r"; my $in = <$sock>; - warn "<<<< ", dump($in), "\n"; + SIP2::dump_message '<<<<', $in; die "expected $patt" unless $in =~ $patt; } @@ -37,4 +39,5 @@ sip2 "9900302.00" => qr/^98/; sip2 "09N20091214 08142820091214 081428AP|AOFFZG|AB1301036581|AC|BIN|" => qr/^10/; # Patron Information -sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^54/; +sip2 "6300020091214 085452 AOFFZG|AA200903260093|AC$password|" => qr/^64/; + -- 2.20.1