imsi detach: Implement the IMSI detach procedure
This commit is contained in:
parent
27b2de5c76
commit
150dfba9c0
23
GSMDriver.st
23
GSMDriver.st
|
@ -252,6 +252,29 @@ Object subclass: ProcedureBase [
|
|||
]
|
||||
]
|
||||
|
||||
ProcedureBase subclass: IMSIDetachProcedure [
|
||||
initialMessage [
|
||||
| detach |
|
||||
|
||||
detach := GSM48IMSIDetachInd new.
|
||||
detach mi imsi: conn phone imsi.
|
||||
^ detach
|
||||
]
|
||||
|
||||
name [
|
||||
^ 'IMSI Detach Procedure'
|
||||
]
|
||||
|
||||
status [
|
||||
^ self success
|
||||
ifTrue: ['IMSI Detach succeeded']
|
||||
ifFalse: ['IMSI Detach failed'].
|
||||
]
|
||||
|
||||
connectionConfirmed [
|
||||
"Nothing. No classmark change needed here."
|
||||
]
|
||||
]
|
||||
|
||||
ProcedureBase subclass: LUProcedure [
|
||||
initialMessage [
|
||||
|
|
11
TestPhone.st
11
TestPhone.st
|
@ -135,6 +135,17 @@ Object subclass: IPAConfig [
|
|||
|
||||
semaphore [ ^ sem ]
|
||||
|
||||
doIMSIDetach: aPhone [
|
||||
^ (GSMConnection on: connection sccpHandler withPhone: aPhone)
|
||||
setProc: IMSIDetachProcedure new;
|
||||
yourself
|
||||
]
|
||||
|
||||
sendIMSIDetach: aPhone [
|
||||
^ (self doIMSIDetach: aPhone)
|
||||
openConnection; waitForTermination; yourself
|
||||
]
|
||||
|
||||
doLU: aPhone [
|
||||
^ (GSMConnection on: connection sccpHandler withPhone: aPhone)
|
||||
setProc: LUProcedure new;
|
||||
|
|
Reference in New Issue