%
% download snaps from cloud platform
% get the images for the next shooter
%
_Cluq.Inhibit _Cluq.Active or
{
%%%"&&--- Q" &_Cluq.Inhibit &" " &_Cluq.Active log#
}
{


_Clup.Xact positive _Clup.ActvX not and
"hasxactv" log)(
{
 
%
% upload next file in xact folder to public cloud
%

 _Clup.Filer any)?
 {
 _Clup.FileF *cloudpre
 "___Clouder___" _Clup.Filer
 ".htm" "-cloud.htm" replall
 "results\xact" &_Clup.Xact &"\" ^ replall
 "___Dest___" _Clup.Filer "\" "/" replall "xact" &_Clup.Xact &"/" ofvir ^ -1 left replall
 "___After___" 1 &" *cloudfle" asc2hex replall
 *cloudsuf
 _Clup.FileX *cloudcdt
 }
 {
  0 !Clup.Xact
%
% no proper info for image received
%
  false !Cluq.Active
"&&&&&>>> Q" log#
 } ifelse
%
% stack: 
%


}
{

 _Cluq.Shooter "Shooters" text?conn
%%%"cluqaa" log)(
 {
%
% record the shooter number for downstream use
%
  _Shooter.Number !Clur.ShootNum
%
% get the fully processed lookup for images of the shooter
%
  "_Final_" &_Shooter.Number text_bin !Cluq.Done
%
% process the shots that have been sent by the app
%
  false !fven
  "_Shots_" &_Shooter.Number text?bin_
%%%"cluqbb" log)(
  countup
  {
   pop
%%%"cluqff" log)(
%
% look through the shots discovered on the cloud
%
   _fven not
   {
%
% we have not sifted from recorded shots any unfulfilled
% image transfer
%
    _Cluq.Done
%%%"cluqdd" log)(
    second lookstr?
%%%"cluqcc" log)(
    {
%
% now we have an image that has not been downloaded
% get the info for downloading the image
%
     second "_Shots_" &_Shooter.Number text?bin pop
     _Venue quoter &" !Venue" &; &
     _Filed quoter &" !Filed" &; &
     second quoter &" !Stamp" &; &
%
% update the finalized images with the new transfer candidate
%
     !Cluq.Done
%
% record the new candidates time stamp
%
     dup !gven
%
% we now have an image, other candidates  will be skipped
%
     true !fven
    } if
   } if
   pop
  } for
  _fven
  {
%
% found an image that needs to download
% save the updated finalized download lookup
%
   _Cluq.Done "_Final_" &_Shooter.Number text!bin
   _gven !Clur.Stamp
%
% get the candidates info, record venue for downstream action
%
   _gven "_Shots_" &_Shooter.Number text?bin pop
   _Venue !Clur.Venue
%
% start downloading image
%
   _Clup.FileN *cloudpre
   "___Venue___" _Venue replall
   "___Stamp___" _gven replall
   "*camerflf" *shootcld
   *cloudsuf
   _Clup.FileU *cloudcdt
   true !Cluq.Active
%%%"&&&&&<<< Q" log#
  } if
%
% move on to the next ordinal shooter
%
  +:Cluq.Shooter


 }
 {
%
% rotate around to the first ordinal shooter
%
  0 !Cluq.Shooter
 } ifelse
} ifelse


} ifelse