LP#1227273: Clear account info at start and end of connection

Otherwise re-used processes may re-use account information.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>

diff --git a/SIPServer.pm b/SIPServer.pm
index 36f505d..a826263 100644 (file)
--- a/SIPServer.pm
+++ b/SIPServer.pm
@@ -113,6 +113,7 @@ sub process_request {
     my ($sockaddr, $port, $proto);
     my $transport;
 
+    $self->{account} = undef; # New connection, no need to keep login info
     $self->{config} = $config;
 
     $sockaddr = $self->{server}->{sockaddr};
@@ -135,6 +136,8 @@ sub process_request {
         return;
     } else {
         &$transport($self);
+        # Transport has shut down, remove any lingering login info
+        $self->{account} = undef;
     }
 }