%
%%% |Upcopy
%
% copy assets to public server
%
*vendings
"Upcopy" log)(
<
|Quick
 _Axu.Message
 <
 |Present
  "Present_1.jpg"
 |Products
  "ProdMMSC_1.jpg" ofxact "ProdMMS_1.jpg" ofxact copyfile
  "ProdMMS_1.jpg"
 |Animated
  "AurU.gif"
 > not
 {
  "Db.jpg"
 } if
|Single
 _Axu.Message
 <
 |Present
  "Present_1.jpg"
 |Products
  "ProdMMSD" &_Shooter.ProdType &"_1.jpg"
  ofxact "ProdMMS_1.jpg" ofxact copyfile
  "ProdMMS_1.jpg"
 |Animated
  "AurU.gif"
 > not
 {
  "Db.jpg"
 } if
> not
{
 _Axu.Message
 <
 |Present
  "Present_1.jpg"
 |Products
  "ProdMMS_1.jpg"
 |Animated
  "AurU.gif"
 > not
 {
  "Db.jpg"
 } if
} if
!Clup.Filer
false !Clup.Switched
"out" ofxact folder System.EmptyDir
_Xact dup !Clup.Xact
{
 _Clup.Filer any? not ?
%
% stack: xact-filename
%
% add a file to a subfolder of xact images to multipart transmit
%
 outchain
%
% stack: xact-filename mpart-src
%
 second _Clup.Xact abs ^"xact" &"\" ofsnap ^
%
% stack: xact-filename mpart-src xact-spec
%
"xspec" log)(
 rot
%%% empty
%%% chained
 _Clup.Xact abs ^"xact" ofchain &"/"
 second "\" left$/
"bksl" log)(
 any?
 {
  "\" "/" replall
  & &"/"
  exch "\" right$/ exch
 }
 {
 } ifelse
"prenc" log)(
 enc^dest
%
% stack: mpart-src xact-spec xact-enc-filename
%
 ^3)
"xenc" log)(
%
% stack: xact-spec xact-enc-spec
%
 copyfile
 _Clup.Xact negative
 {
  "holder" !Clup.Filer
  true !Clup.Switched
  _Tack !Clup.Xact
 } if
 _Axu.Message
 <
 |Present
  *camezflt
 |Products
  *camezfls
 |Animated
 > not
 {
 } if
} loop
!Xact
*mparchan
"Uploaded" *shootern