Phone: Work on the call control and send the right number

GSMDriver.st

@@ -270,6 +270,17 @@ ProcedureBase subclass: LUProcedure [
 ]
 
 ProcedureBase subclass: CallProcedure [
+    | nr |
+
+    CallProcedure class >> initWith: aConn phone: aPhone nr: aNr [
+        ^ (super initWith: aConn phone: aPhone)
+            nr: aNr; yourself
+    ]
+
+    nr: aNr [
+        nr := (ByteArray with: 16r80), (GSMNumberDigits encodeFrom: aNr).
+    ]
+
     createConnection: aHandler phone: aPhone [
         | cm |
 
@@ -301,7 +312,7 @@ ProcedureBase subclass: CallProcedure [
 
         resp := GSM48CCSetup new.
         resp bearer1OrDefault data: #(16r60 16r02 0 1 4 16r85) asByteArray.
-        resp calledOrDefault data: #(16r91 54 25 8 6 4 16) asByteArray.
+        resp calledOrDefault data: nr.
         conn nextPutData: (BSSAPDTAP initWith: resp linkIdentifier: 0).
     ]
 

TestPhone.st

@@ -111,12 +111,12 @@ Object subclass: IPAConfig [
         (self doLU: aPhone) execute.
     ]
 
-    doCallNumber: aPhone [
-        ^ CallProcedure initWith: (connection sccpHandler) phone: aPhone.
+    doCallNumber: aPhone nr: aNr [
+        ^ CallProcedure initWith: (connection sccpHandler) phone: aPhone nr: aNr.
     ]
 
-    callNumber: aPhone [
-        ^ (self doCallNumber: aPhone) execute
+    callNumber: aPhone nr: aNumber [
+        ^ (self doCallNumber: aPhone nr: aNumber) execute
     ]
 ]
 

WebApp.st

@@ -133,7 +133,7 @@ ProcedureWidget subclass: CallWidget [
     ]
 
     placeCall: aNumber [
-        self runProcedure: [self application gsmServer doCallNumber: self session gsmConfig] name: 'Call'
+        self runProcedure: [self application gsmServer doCallNumber: self session gsmConfig nr: aNumber] name: 'Call'
     ]
 ]