smalltalk
/
osmo-st-gsm
Archived
1
0
Fork 0

sccp: Run each terminate in a block with exception recording.

This commit is contained in:
Holger Hans Peter Freyther 2011-06-18 14:54:40 +02:00
parent 19aee3e755
commit 9aa42d4969
1 changed files with 12 additions and 1 deletions

View File

@ -385,12 +385,23 @@ Object subclass: SCCPHandler [
^ connections ifNil: [ connections := OrderedCollection new. ]
]
doTerminate: aCon [
<category: 'termination'>
"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"
<category: 'failure'>
sem critical: [
self connections do: [:each |
each terminate].
self doTerminate: each].
connections := nil.
]
]