aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHolger Hans Peter Freyther <zecke@selfish.org>2012-10-21 16:28:27 +0200
committerHolger Hans Peter Freyther <zecke@selfish.org>2012-10-21 16:28:51 +0200
commitd96edc989b72366693d1a54636f8799c076d90fe (patch)
tree3aea3995a2d47991f89ba8c1869a9e689790b3c8
parent150dfba9c03374baf1a18f8a8af9d5b5653518fb (diff)
webapp: Add a IMSI detach widget and drive the IMSI Deatch procedure
-rw-r--r--WebApp.st23
1 files changed, 22 insertions, 1 deletions
diff --git a/WebApp.st b/WebApp.st
index 694b539..2551ecf 100644
--- a/WebApp.st
+++ b/WebApp.st
@@ -146,6 +146,22 @@ Iliad.ILWidget subclass: ProcedureWidget [
]
+ProcedureWidget subclass: IMSIDetachWidget [
+ contents [
+ ^ [:e |
+ e a
+ text: 'Start IMSI Detach';
+ action: [self doIMSIDetach]
+ ]
+ ]
+
+ doIMSIDetach [
+ self runProcedure: [
+ self application gsmServer
+ doIMSIDetach: self session gsmConfig] name: 'IMSI Detach'.
+ ]
+]
+
ProcedureWidget subclass: LUWidget [
contents [
^ [:e |
@@ -204,7 +220,7 @@ Iliad.ILSession subclass: GSMTestphoneSession [
]
Iliad.ILApplication subclass: GSMTestphoneApp [
- | config call lu serverConfig gsmServer procedureWidget ussd |
+ | config call lu serverConfig gsmServer procedureWidget ussd imsiDetach |
GSMTestphoneApp class >> path [ ^ 'testphone' ]
GSMTestphoneApp class >> initialize [
@@ -231,6 +247,10 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
^ call ifNil: [call := CallWidget new]
]
+ imsiDetach [
+ ^ imsiDetach ifNil: [imsiDetach := IMSIDetachWidget new].
+ ]
+
lu [
^ lu ifNil: [lu := LUWidget new]
]
@@ -246,6 +266,7 @@ Iliad.ILApplication subclass: GSMTestphoneApp [
build: self cometConnection;
build: self serverConfig;
build: self phoneConfig;
+ build: self imsiDetach;
build: self lu;
build: self call;
build: self ussd;