%
% generate html needed
%
 Task.@

%
% stack: base-path user-guid image-count image-list
%
"list " log()
!User.List
!User.Count
!User.User
"path " log()
!User.BasePath

"UserList.html" oflocal read !User.Template
empty !User.Summary

%
% create user images list html
%
_User.List ofconn
exec
countup
{
 pop
%
% analyze the user metadata
%
 unescape
 !User.Meta
 !User.Id

%%% <MetaData
%%%% ImageFile="IMG_20170802_184448.jpg"
%%%% WebImageFile="IMG_20170802_184448.jpg"
%%%% ImagePath="C:\___Fire\mojoportal\Web\Data\Sites\1\GalleryImages\41\"
%%%% ThumbnailFile="IMG_20170802_184448.jpg"
%%%% UserPhone="8083759425"
%%%% FullSpec="8083759425_stage15_8084659534_IMG_20170802_184448.jpg"
%%%% Shooter="stage15" Device="8084659534"
%%%% Caption="IMG_20170802_184448.jpg from stage15_8084659534"
%%%% Description="<p>IMG_20170802_184448.jpg from venue (stage) of shooter (15)</p>"
%%%% OriginalFilename="IMG_20170802_184448.jpg"
%%%% WebImageWidth="550" WebImageHeight="550"
%%%% ThumbNailWidth="100" ThumbNailHeight="75"
%%%% ChrominanceTable="9" LuminanceTable="8"
%%% />
 _User.Meta
 "<MetaData " """" replall
 "/>" "" replall
 "=""" "`" replall
 """ " """ *setmetas " catcr &"""" replall
 "`" """ """ replall
 &""""
dup logs
 dup !User.Xmeta
 execstr pop
 root\
 _Meta.ImageFile
"img " log()
 "htmlgens " &2 &" -- " *flagging
%
% move to the gallery this image is part of
%
  _Meta.ShootLoc &"_" &_Meta.DeviceLoc !Shooter.Prefix

 seek*
"genning " log()
 {
  !\
  "xact" \_ !Xact
%
% set the meta data info into the node for this image
%
"<tr><td><h5>Xact " &_Xact 
 }
 {
  "<tr><td><h5>&nbsp;"
 } ifelse


   &"</h5></td>
   <td><h3>" &_Shooter.Prefix &" " &_Meta.ImageFile &"</h3></td>
</tr>"
  ^_User.Summary !User.Summary

} for

_User.Template
"<!--Summary-->" _User.Summary replall
"___User___" _Meta.UserPhone replall
"UP" &_Meta.UserPhone html ofsnap write
Tree.Changed

"IfrGo(""" &_Arching.VirChain &"/UP" &_Meta.UserPhone html");
"
dup logs
Help.!