diff --git a/SCCPHandler.st b/SCCPHandler.st index 63117a6..4509521 100644 --- a/SCCPHandler.st +++ b/SCCPHandler.st @@ -385,12 +385,23 @@ Object subclass: SCCPHandler [ ^ connections ifNil: [ connections := OrderedCollection new. ] ] + doTerminate: aCon [ + + "I kill the SCCP Connection." + + [ + aCon terminate + ] on: Error do: [:each | + each logException: 'Failed to terminate %1' % {aCon srcRef} area: #sccp. + ] + ] + linkSetFailed [ "The underlying has failed, invalidate all connections" sem critical: [ self connections do: [:each | - each terminate]. + self doTerminate: each]. connections := nil. ] ]