%
% issue news reports, management object
%
% stack: [ . . . ] news-action
%
"News" ofbin folder !News.Source
<
|Add
%
% add a news item, with:
% stack: news-text news-ref news-type news-action(Add)
%
 second !News.Ref
 &"_" ^
 &"_" *finsures 10 prezero &
 text ^_News.Source
 exch
 empty
 "News.Ref" sval
 catcr
 ^
 exch
 write

|Gather
%
% collect news updates, generates list items for dashboard display
% stack: news-type news-action(Gather)
%
 anytext !wilder
 empty
 empty
%
% stack: build-str seed
%
 {
%
% stack: path seed
%
  nextfile ?
%
% execute and add text line
%
  ^_News.Source exec
%
% add newsline to build string
%
% stack: build-str seed newsline
%
  &3) exch

 } loop
 pop
%
% stack: newslines
%
 "markmapu" *trakpreh
 _sumr
 ^'
<script>
reloader();
</script>
'

 "{{js}}" exch replall
 "news"
 &"_" *finsures 10 prezero &
 ^_News.Source
 html
 write

|Update
%
% info update news item
%

|Maint
%
% info for number of trackers, amount of traffic
%

|Flag
%
% engine battery lowered, gap in data reception, sms unresponsive
%

|Alert
%
% missing engine battery, overlong lagging data reception, no sms responses long period
%

|Tracker
%
% enable, disable, activate, traffic
%

|Sms
%
% sent message, received user text, received tracker response
%

|Login
%
% users logging in and out
%

|Geo
%
% fence warnings
%

> pop