%
% stack: execing
%

%%% "trakactv " &_Act.Act &" " log)(
%
% stack: execing
%
_Act.Act
<
|Activate
 _Act.Tracker "Actives.txt" ofconn lookin
 {
%
% wait for actives list to show this tracker
%
  "started" 1 *trakactx
 }
 {
%
% wait for actives list to show this tracker
%
  "initial" 0 *trakactx
 } ifelse

|Activate0
 _Act.Tracker "Actives.txt" ofconn lookin
 {
%
% twilio now shows this tracker active
%
  "started" 1 *trakactx
 }
 {
%
% wait for actives list to show this tracker
% force an update of tracker info
%
  "Waiting active tracker " &_Act.Tracker
  "flag_tracker.txt" ofconn
  write
  "initial" 0 *trakactx
 } ifelse

|Activate1
 _Act.Tracker "Actives.txt" ofconn lookin pop
 "send&body=" "apn123456 " &_Arching.Apn escape &
 "activating" 2 *trakactw

|Activate2
 "gotapn" "activating" "apn ok!" 2 *trakactu

|Activate3
 "send&body=" "time zone123456 " &_Arching.TrakZone escape &
 "timezone" 4 *trakactw

|Activate4
 "gotzone" "timezone" "time zone ok!" 4 *trakactu

|Activate5
 "send&body="
 "Adminip123456 " &_Arching.OutIp &" "
 _Act.Tracker 2 right _Arching.TrakPort add &
 escape &
 "ipport" 6 *trakactw

|Activate6
 "gotip" "ipport" "adminip ok!" 6 *trakactu

|Activate7
 "send&body=" "t" &_Arching.Kernel &"s***n123456" escape &
 "interval" 8 *trakactw

|Activate8
 "gotinterval" "interval" "***n ok!" 8 *trakactu

|Activate9
 "send&body=" "gprs123456" escape &
 "gprson" 10 *trakactw

|Activate10
 "gotgprs" "gprson" "gprs ok!" 10 *trakactu

|Activate11
 "send&body=" "Check123456" escape &
 "trackinfo" 12 *trakactw

|Activate12
 "gotinfo" "trackinfo" "GSM:" 12 *trakactu

|Activate13
 "send&body=" "smslink123456" escape &
 "locate" 14 *trakactw

|Activate14
 "gotlocate" "locate" "lat:" 14 *trakactu

|Activate15
%
% the entire activation has occurred, remove any end flag
%
 "end_" &_Act.Tracker text ofconn del
 "Status" !Sim.Track
 *trakstan
 "updtrak&udrowid=" &_Sim.Udev &"&dstatus=Enabled"
 dup "flag_tracker.txt" ofconn write
 *webportl

|Activate99
%
% error in activation
%

> not
{
%
% reached the end of the action sequences
%
} if