From 67ba2881f089840df364b2f0ab01c79cc840141a Mon Sep 17 00:00:00 2001
From: Joe Atzberger <atz@esilibrary.com>
Date: Thu, 7 Oct 2010 19:48:56 +0000
Subject: [PATCH] Allow whitespace "lines" to be skipped during login

This keeps clients who might have bad line-endings in the game.
In particular, this would help systems where an expect-driven login
process might be different than the rest of the client interaction.
---
 SIPServer.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/SIPServer.pm b/SIPServer.pm
index 60fef83..36f505d 100644
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -148,15 +148,15 @@ sub raw_transport {
     my $input;
     my $service = $self->{service};
     my $strikes = 3;
-    my $expect;
     my $inst;
+    my $timeout = $self->{service}->{timeout} || $self->{config}->{timeout} || 0;
 
     eval {
         local $SIG{ALRM} = sub { die "raw_transport Timed Out!\n"; };
-        syslog("LOG_DEBUG", "raw_transport: timeout is %d", $service->{timeout});
+        syslog("LOG_DEBUG", "raw_transport: timeout is $timeout");
 
     while ($strikes--) {
-        alarm $service->{timeout};
+        alarm $timeout;
         $input = Sip::read_SIP_packet(*STDIN);
         alarm 0;
 
@@ -164,6 +164,9 @@ sub raw_transport {
             # EOF on the socket
             syslog("LOG_INFO", "raw_transport: shutting down: EOF during login");
             return;
+        } elsif ($input !~ /\S/) {
+            syslog("LOG_INFO", "raw_transport: received whitespace line (length %s) during login, skipping", length($input));
+            next;
         }
         $input =~ s/[\r\n]+$//sm;	# Strip off trailing line terminator
         last if Sip::MsgType::handle($input, $self, LOGIN);
-- 
2.11.0