From ec011dbcb9305fd06c19e4dbd69d49e48eaa5b42 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 20 Mar 2015 14:32:09 +0100 Subject: [PATCH] send cr/lf to SIP server --- scripts/RFID-JSONP-server.pl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl index 9396f5d..f5fc8bf 100755 --- a/scripts/RFID-JSONP-server.pl +++ b/scripts/RFID-JSONP-server.pl @@ -86,6 +86,8 @@ sub sip2_message { local $/ = "\r"; $send .= "\r" unless $send =~ m/\r$/; + $send .= "\n" unless $send =~ m/\n$/; + warn "SIP2 >>>> ",dump($send), "\n"; print $sock $send; $sock->flush; @@ -93,9 +95,10 @@ sub sip2_message { my $expect = substr($send,0,2) | 0x01; my $in = <$sock>; + warn "SIP2 <<<< ",dump($in), "\n"; + $in =~ s/^\n//; $in =~ s/\r$//; - warn "SIP2 <<<< ",dump($in), "\n"; die "empty read from SIP server" unless length $in > 1; -- 2.20.1