%
% push a Shooter-based fcm message to their current reg token
%
% stack: push-xml status proc
%
% clear any .ber from the FCM push port
%
_Cloud.PortD &"_*.ber" ofconn delfiles
%
% find the registration token
%
chuuter *shootven
"shven" log)(
{
%
% has current registration token
%
% stack: push-xml status proc
%
 *fcmpusht
%
% stack: push-xml
%
"fcmpsh" log)(
 _Clup.PushN *cloudpre
 "___Reg___" _Reg.Token replall
 "___Title___" chuuter replall
 "___Oper___" rot asc2hex replall
 "___Venue___" _Shooter.Venue replall
 "*camerpla" *shootcld
 *cloudsuf
 _Clup.PushU *cloudddt
%
% set the active FCM push flag
%
 true !Aamg.Pushing
 true
}
{
%
% stack: push-xml status proc
%
 false
} ifelse
"shvxx" log)(
%
%            (if not sent)
% stack: [ push-xml status proc ] sent
%