bsc: Close unknown connections, misc clean ups
This commit is contained in:
parent
d547380eb9
commit
3dc78ed029
|
@ -27,7 +27,9 @@ Object subclass: BSCListener [
|
||||||
|
|
||||||
BSCListener class >> initWith: bscIP port: bscPort handler: aHandler [
|
BSCListener class >> initWith: bscIP port: bscPort handler: aHandler [
|
||||||
^ self new
|
^ self new
|
||||||
initSocket: bscIP port: bscPort; start; handler: aHandler;
|
initSocket: bscIP port: bscPort;
|
||||||
|
handler: aHandler;
|
||||||
|
start;
|
||||||
yourself
|
yourself
|
||||||
]
|
]
|
||||||
|
|
||||||
|
@ -51,7 +53,7 @@ Object subclass: BSCListener [
|
||||||
].
|
].
|
||||||
|
|
||||||
handler isNil
|
handler isNil
|
||||||
ifTrue: [con clone.]
|
ifTrue: [con close]
|
||||||
ifFalse:[handler newConnection: con].
|
ifFalse:[handler newConnection: con].
|
||||||
] on: SystemExceptions.FileError do: [:each |
|
] on: SystemExceptions.FileError do: [:each |
|
||||||
self logNotice: 'BSC-Socket: FileError on connection handling.' area: #bsc.
|
self logNotice: 'BSC-Socket: FileError on connection handling.' area: #bsc.
|
||||||
|
@ -61,9 +63,12 @@ Object subclass: BSCListener [
|
||||||
]
|
]
|
||||||
|
|
||||||
start [
|
start [
|
||||||
socket := Sockets.ServerSocket
|
[
|
||||||
port: port bindTo: (Sockets.SocketAddress byName: ip).
|
socket := Sockets.ServerSocket
|
||||||
|
port: port bindTo: (Sockets.SocketAddress byName: ip).
|
||||||
|
] on: SystemExceptions.FileError do: [:e |
|
||||||
|
e logException: 'BSC-Socket: Failed to bind.' area: #bsc.
|
||||||
|
]
|
||||||
]
|
]
|
||||||
|
|
||||||
stop [
|
stop [
|
||||||
|
|
Reference in New Issue