%
% process geo fence alarms
%
"geo_*.txt" conn(
{
 nextfile ?
%
% next command new files
%
%%%"geo " log)(
 ".nnn" refiling?
 {
  false
 }
 {
  reading
%
% stack: path seed seed-content
%
"alarm " log)(
  dup !Sim.Data
  execstr
  _Sim.Data ".nnn" refile

  @Comm

  '<Type value="Outgoing"/>'
  _G.Cust &", "
  &_G.Phone &", (" &_G.License &")"
  &" at " &_G.Name
  _Arching.Supervisor -2 left
  *twilouts

  filing !Sim.Vio
  empty
  "Sim.Vio" sval
  &"*trakviol" catcr

  "fencevio_" _G.Name escape & text
  fourth
%
% response or lack of, is supervised coming from the tracker
%
  5 60 mul 1000 mul
  @Comm
%
% stack: event-content event-file event-path event-ms
%
  "NewTimer" do
  !G.Timer
  true
 } ifelse
 ?
} loop
pop2