Unroll recursion-based processing chain

Signed-off-by: Mike Rylander <mrylander@gmail.com>

diff --git a/SIPServer.pm b/SIPServer.pm
index 36f505d..ff80f38 100644 (file)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -136,6 +136,10 @@ sub process_request {
     } else {
         &$transport($self);
     }
+
+    $self->sip_protocol_loop();
+
+    syslog("LOG_INFO", '%s: shutting down', $transport);
 }
 
 #
@@ -185,9 +189,6 @@ sub raw_transport {
         $self->{account}->{id},
         $self->{account}->{institution});
 
-    $self->sip_protocol_loop();
-
-    syslog("LOG_INFO", "raw_transport: shutting down");
 }
 
 sub telnet_transport {
@@ -243,8 +244,6 @@ sub telnet_transport {
 
     $self->{account} = $account;
     syslog("LOG_DEBUG", "telnet_transport: uname/inst: '%s/%s'", $account->{id}, $account->{institution});
-    $self->sip_protocol_loop();
-    syslog("LOG_INFO", "telnet_transport: shutting down");
 }