diff --git a/src/BSCConfig.st b/src/BSCConfig.st index c535856..707cf45 100644 --- a/src/BSCConfig.st +++ b/src/BSCConfig.st @@ -1,5 +1,5 @@ " - (C) 2010-2012 by Holger Hans Peter Freyther + (C) 2010-2013 by Holger Hans Peter Freyther All Rights Reserved This program is free software: you can redistribute it and/or modify @@ -19,7 +19,7 @@ PackageLoader fileInPackage: #Sockets. Object subclass: BSCConfigItem [ - | peer token name lac connected osmoExtension | + | peer token name lac connection osmoExtension | ^ self new peer: aPeer; name: aName; - connected: false; + connection: nil; sendOsmoRSIP: false; lac: -1; yourself @@ -60,10 +60,14 @@ peer address, the lac, if it is connected'> lac := aLac. ] - connected [ ^ connected ] - connected: aState [ + connected [ + + ^ connection isNil not + ] + + connection: aCon [ - connected := aState. + connection := aCon. ] sendOsmoRSIP [ ^ osmoExtension ] diff --git a/src/MSC.st b/src/MSC.st index b426b6f..79287d2 100644 --- a/src/MSC.st +++ b/src/MSC.st @@ -1,5 +1,5 @@ " - (C) 2010-2011 by Holger Hans Peter Freyther + (C) 2010-2013 by Holger Hans Peter Freyther All Rights Reserved This program is free software: you can redistribute it and/or modify @@ -110,11 +110,11 @@ Object subclass: MSCBSCConnectionHandler [ Processor activeProcess name: 'MSCBSCConnectionHandler(%1)' % {aConfig lac}. [[ - aConfig connected: true. + aConfig connection: bsc. self connections add: bsc. bsc process. ] on: SystemExceptions.EndOfStream do: [:ex | - aConfig connected: false. + aConfig connection: nil. self logNotice: 'BSC disconnected for lac: %1' % {aConfig lac} area: #bsc. ] on: Exception do: [:ex | @@ -129,7 +129,7 @@ Object subclass: MSCBSCConnectionHandler [ self logError: 'BSC was never added on lac: %1?' % {aConfig lac} area: #bsc]. - aConfig connected: false. + aConfig connection: nil. aConnection close. ]. ] fork.