%
% convert a slider template using a set of images
% referenced by their xact number
%
"xcopier" *finsures & &".cmd" ofbin !xcopy
empty !copier
"AsliderB" ^_TarXact File.MakeNorm !TarSlide

"copier.cmd" ^_TarSlide del

%
% read the slider template for the products of image
%
"AsliderB\wowsliderBlock.html" ofconn read
%
% format all six products in the slider template
%
"___1t___" "Beautiful 8x10 of #" &_Customer.Xact replall
"___1u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',1,'" &_Customer.Subject &"')" replall
"___1d___" "Hollywood stage venue taken on 8/29/2017" replall
%
% use the watermarked image for largest slider
%
_TarXact &"Gb.jpg"
"___1___.jpg" ^"data1\images\" ^_TarSlide
*xcpyfile
_TarXact &"Va.jpg"
"___1___.jpg" ^"data1\tooltips\" ^_TarSlide
*xcpyfile

"___2t___" "Nice ceramic mug of #" &_Customer.Xact replall
"___2u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',2,'" &_Customer.Subject &"')" replall
"___2d___" "Hollywood stage venue taken on 8/29/2017" replall
"c" 2 *sldrixac

"___3t___" "Comfortable shirt of #" &_Customer.Xact replall
"___3u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',3,'" &_Customer.Subject &"')" replall
"___3d___" "Hollywood stage venue taken on 8/29/2017" replall
"d" 3 *sldrixac

"___4t___" "Great collection of wallets #" &_Customer.Xact replall
"___4u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',4,'" &_Customer.Subject &"')" replall
"___4d___" "Hollywood stage venue taken on 8/29/2017" replall
"e" 4 *sldrixac

"___5t___" "You'll love the 6x8 #" &_Customer.Xact replall
"___5u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',5,'" &_Customer.Subject &"')" replall
"___5d___" "Hollywood stage venue taken on 8/29/2017" replall
"g" 5 *sldrixac

"___6t___" "5x7s say it all for #" &_Customer.Xact replall
"___6u___" "javascript:window.top.ActOn('" &_Customer.Xact &"',6,'" &_Customer.Subject &"')" replall
"___6d___" "Hollywood stage venue taken on 8/29/2017" replall
"f" 6 *sldrixac
dup logs

%
% write a temp htmx until the end of other copies
% then the htmx is copied into an html
%
"wowsliderBlock.htmx" ^_TarSlide to3rd write
dup ".html" reextend
*xcpyfile
%
% make sure the xact directory exists
%
_Arching.Secure &"xact" &_Customer.Xact File.MakeNorm
!SecureDest

_Arching.FullAux
<
|Full
%
% copy all xact directory files to the public results server
%

|Store
%
% these are the gened image sub-copies that go to the secure server
% supporting store operation
%
_TarXact &"Gb.jpg"
_SecureDest &"Gb.jpg"
*xcpyfile

/*
_TarXact &"Gc.jpg"
_SecureDest &"Gc.jpg"
*xcpyfile
_TarXact &"Gd.jpg"
_SecureDest &"Gd.jpg"
*xcpyfile
_TarXact &"Ge.jpg"
_SecureDest &"Ge.jpg"
*xcpyfile
_TarXact &"Gf.jpg"
_SecureDest &"Gf.jpg"
*xcpyfile
_TarXact &"Gg.jpg"
_SecureDest &"Gg.jpg"
*xcpyfile
_TarXact &"Va.jpg"
_SecureDest &"Va.jpg"
*xcpyfile
_TarXact &"Vc.jpg"
_SecureDest &"Vc.jpg"
*xcpyfile
_TarXact &"Vd.jpg"
_SecureDest &"Vd.jpg"
*xcpyfile
_TarXact &"Ve.jpg"
_SecureDest &"Ve.jpg"
*xcpyfile
_TarXact &"Vf.jpg"
_SecureDest &"Vf.jpg"
*xcpyfile
_TarXact &"Vg.jpg"
_SecureDest &"Vg.jpg"
*xcpyfile
*/

|Funnel
%
% copy files to the funnel going back to the public results server
% through ResPut
%
_TarXact &"*.*"
%
% stack: xact-src-spec dest-spec
%
% copy the entire xact
%
quoter exch quoter &" " ^
^"xcopy "
&" /s/e/v/c/h/r/y/z"
catcr
^_copier !copier

> pop

%
% save the xcopier cmd file used into the xact directory
%
_xcopy
"copier.cmd" ^_TarSlide
*xcpyfile

_copier
"AsliderB\*.*" ofconn
_TarSlide
%
% stack: post-cmd slider-src-spec dest-spec
%
% run the accumulated copy cmd
%
*runxcopy