do not exit on error, record it

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

diff --git a/SIPServer.pm b/SIPServer.pm
index 1b4b4d8..071a3ad 100644 (file)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -277,17 +277,16 @@ sub mux_input {
             if ($@) {
                 syslog('LOG_ERR', "ILS login error: $@");
                 $success = 0;
-                exit(0);
-            }
-    
-            # Grab any state data for later
-            $self->{state} = $self->{ils}->state() if (UNIVERSAL::can($self->{ils},'state'));
+            } else {
+                # Grab any state data for later
+                $self->{state} = $self->{ils}->state() if (UNIVERSAL::can($self->{ils},'state'));
 
-            # Evergreen, at least, needs a chance to clean up before forking for other requests
-            $self->{ils}->disconnect() if (UNIVERSAL::can($self->{ils},'disconnect'));
+                # Evergreen, at least, needs a chance to clean up before forking for other requests
+                $self->{ils}->disconnect() if (UNIVERSAL::can($self->{ils},'disconnect'));
 
-            # Stash the ILS module somewhere handy for later
-            $self->{ils} = ref($self->{ils});
+                # Stash the ILS module somewhere handy for later
+                $self->{ils} = ref($self->{ils});
+            }
 
             $mp_fifo->enq(
                 freeze({