aboutsummaryrefslogtreecommitdiffstats
path: root/SCCPHandler.st
diff options
context:
space:
mode:
authorHolger Hans Peter Freyther <zecke@selfish.org>2010-11-24 10:58:30 +0100
committerHolger Hans Peter Freyther <zecke@selfish.org>2010-11-24 10:58:30 +0100
commit5a4cb788265d979f931b441c094f84484f62e9ca (patch)
tree4a1b0efe99605f89590441b67ea085bc0953f72e /SCCPHandler.st
parentac111ccd5386535b11881ac4679731d86162d1a2 (diff)
SCCP: Start parsing the SCCP response from the network
Diffstat (limited to 'SCCPHandler.st')
-rw-r--r--SCCPHandler.st16
1 files changed, 14 insertions, 2 deletions
diff --git a/SCCPHandler.st b/SCCPHandler.st
index 4e0e905..477e8c5 100644
--- a/SCCPHandler.st
+++ b/SCCPHandler.st
@@ -62,7 +62,7 @@ Object subclass: MSGParser [
]
-Object subclass: SCCPHadler [
+Object subclass: SCCPHandler [
| connections last_ref |
<comment: 'I handle SCCP messages'>
@@ -72,7 +72,19 @@ Object subclass: SCCPHadler [
]
handleMsg: aMsg [
- 'Got a new SCCP message' printNl.
+ | sccp |
+
+ 'Got a new SCCP message here.' printNl.
+
+ [
+ sccp := MSGParser parse: (aMsg asByteArray).
+ sccp inspect.
+ sccp printNl.
+ sccp class printNl.
+ ] on: Exception do: [
+ self logError: 'Failed to parse message' area: #sccp.
+ aMsg asByteArray printNl.
+ ]
]
createConnection: aData [