diff options
-rw-r--r-- | GSM48.st | 1 | ||||
-rw-r--r-- | SCCPHandler.st | 32 |
2 files changed, 31 insertions, 2 deletions
@@ -360,7 +360,6 @@ GSM48SimpleData subclass: GSM48IdentityType [ GSM48IdentityType class >> length [ ^ 1 ] ] - IEMessage subclass: GSM48MSG [ | seq | <category: 'osmo-message'> diff --git a/SCCPHandler.st b/SCCPHandler.st index ffbadf3..d7f4c1e 100644 --- a/SCCPHandler.st +++ b/SCCPHandler.st @@ -14,6 +14,10 @@ Object subclass: SCCPConnection [ dst := aRef ] + dstRef [ + ^ dst + ] + enqueueForRead: aMsg [ self queue next: aMsg. ] @@ -73,6 +77,18 @@ Object subclass: SCCPHandler [ on: self with: #handleMsg:. ] + connectionConfirm: aCC [ + 'Confirm' printNl. + + connections do: [:each | + each srcRef = aCC dst + ifTrue: [ + 'Found pending connection' printNl. + each dstRef: aCC src. + ]. + ] + ] + handleMsg: aMsg [ | sccp | @@ -86,7 +102,21 @@ Object subclass: SCCPHandler [ ] on: Exception do: [ self logError: 'Failed to parse message' area: #sccp. aMsg asByteArray printNl. - ] + ^ false + ]. + + (sccp isKindOf: Osmo.SCCPConnectionConfirm) + ifTrue: [ + self connectionConfirm: sccp. + ]. + (sccp isKindOf: Osmo.SCCPConnectionData) + ifTrue: [ + 'Connection Data' printNl. + ]. + (sccp isKindOf: Osmo.SCCPConnectionReleased) + ifTrue: [ + 'Released' printNl. + ]. ] createConnection: aData [ |