%
% whether was zero or is now zero, start the next user check
%
 empty !Fen.Vios
 "chk" &_Sim.Sid text*conn
 _Fen.Vios !Vio.Text
 false !Fen.Changed
 empty "Fencing" connect
 empty
 {
 "chk" &_Sim.Sid &"_*.vio" !wilder
  nextfile ?
"+++++++++++nextvio" log)(
  empty !Fen.Vios
  execing
  _Vio.Text _Fen.Vios eq$
  {
  }
  {
   true !Fen.Changed
%
% change in vio status, check for new violation
%
   false !Vio.Flag
   _Fen.Vios "," 1 -1 1 split
   countup
   {
    pop
    _Vio.Text &","
    exch found)?
    {
    }
    {
%
% new violation
%
     true !Vio.Flag
    } ifelse
   } for

%
% any change of fence vios causes new vip file in fencing
%
   filing
   dup ".vip" reextend
   copyfile
   filing
   "chk" &_Sim.Sid conntext
   copyfile

   _Vio.Flag
   {
/*
 _Fen.Seed -3 left noext !Sim.PartImei
 "Sid" !Sim.Track
 *trakstan

*/
 _Sim.Sid
"Sid is" log)(
 any)?
 {


%
% vehicles/tracker js for lists
%
% matching vehicles and trackers
%
  _Sim.UniqueName
"tracker" log)(
  pop
  empty !Sim.License
  "Vehicle" !Sim.Track
  "Vehicles" text*conn

  _Sim.License any)?
"License" log)(
  {

   _IMEI !Sim.Imei

%
% now have info for tracker and vehicle
% get user
%
/*
   _Sim.Imei 10 right
   ^"user&subject="
"reqportal" log)(
   "Local" *webportn
*/

_Sim.License escape
^"alldata&license="
"reqportal" log)(
   "Local" *webportn
/*
   *tellresx
"portal resp" log)(
   any?
   {
    empty !UserID
    execstr

*/

    empty !UserID
 "License_" &_Sim.License text*conn
    _UserID any)?
"hasuser" log)(
    {
     _FirstName
"first is" log)(
     pop

     "chk" &_Sim.Sid &".nnn" ofconn exists
     {
     }
     {
      "No Repeat"
      "chk" &_Sim.Sid &".nnn" ofconn
      write
      @Comm
 
      '<Type value="Outgoing"/>'
      _FirstName &" " &_LastName &", "
      _PhoneNumber & &", (" &_Sim.License &")"
      &" for fences " &_Fen.Vios
%%%  _Arching.Supervisor -2 left
      "6785493123"
%%% "5594928743"
      ^"+1"
%%%_Arching.TwiNumberA
      "+16786479500"

"+12702009855"

%
% stack: msg-xml-ins msg-body outgo-number dial-number
%
"http://phosend.com:8080/sendout?command=xmit&dialr="
exch -2 left &
&"&numbr="
exch -2 left &
&"&bodyr="
exch asc2hex &
pop2nd
dup logs
%%% 4702906325&to=5594928743&text=41626364

*webrespn

/*
      _Arching.TwiAcctAuth
%
% stack: msg-xml-ins msg-body outgo-number dial-number auth-code
%
      @Comm
      _Arching.TwiAcctSid @!AcctSid
      @^MsgOut
*/

      !MsgOut
      @@
     } ifelse

    } if

%%%   } if

  } if

 } if

   }
   {
   } ifelse

  } ifelse

  deleting

 } loop
 filing)

_Fen.Changed
{
 *trakviop
} if