%
% create new incoming raw image for target
%
% stack: vias-dir share-file
%
_Cust.Target _Cust.Subject eq$
"ctargr" log)(

%
% stack: subject-reged
%
{
%
% already registered, no invitation
%
}
{
%
% not yet registered, send invitation message
%
 _Shooter.Twi "TwilOut" *allseter 10 right
 _Cust.Target
 "..." _Cust.Message hex2asc &
%
% stack: sms-channel dest-phone addtl-msg
%
 *custivit
} ifelse
%
% stack: vias-dir share-file
%

_Cust.Xact !Xact
xactinfo

_Fup.PhoSend !Nsg.PhoSend
_Fup.PhoNum !Nsg.PhoNum
_Msg.xact !Nsg.PhoXact

_Cust.Caption hex2asc trim

dup 1 right "*" eq$
dup !Fup.PhoSend
{
 empty !Msg.xact
 dup -1 right 10 right !Fup.PhoNum
 -11 right trim

 dup 16 right
 length 16 eq
 {

  dup 4 left lower
  "upl_" eq$
  {

   !Msg.xact
   -16 right
  }
  {
   pop
  } ifelse
 }
 {
  pop
 } ifelse

} if
trim
asc2hex
!Cust.Caption

_Nsg.PhoSend
{
 _Nsg.PhoSend !Fup.PhoSend
 _Nsg.PhoNum !Fup.PhoNum
 _Nsg.PhoXact !Msg.xact
} if

_Camera.Original
"camorig" log)(
dup
"_" 0 11 1 parse noext
"camorih" log)(
%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route color prod-type sms-body-text crop
%
pop _Cust.Crop ^"_"
pop2nd

_Cust.Caption

_Fup.PhoSend
{
 " " &_Msg.xact &_Fup.PhoNum &"*" asc2hex &
} if
^

%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route color prod-type new-capt&new-crop
%
pop2&3 _Cust.Color &"_"
%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route new-capt&new-crop new-color
%
false !Cust.Remake
_Cust.ProdType "*" atleft(
{
 -1 left true !Cust.Remake
} if
%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route new-capt&new-crop new-color new-prod
%
&"_"
&

%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route new-capt&new-crop new-color&new-prod
%
^

%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route new-color&new-prod&new-capt&new-crop
%
^"_"
exch _Cust.Tem "M" gt$
{
%
% this is a font
%
 lower
}
{
%
% this is a background
%
 upper
} ifelse
^

%
% stack: orig jsms "MMS" subject date time ordinal
%         twi-route&new-color&new-prod&new-capt&new-crop 
%
pop2nd _Cust.Tem
dup "M" gt$
{
 asc 0x0D sub 0x0F and 0x30 or char
}
{
 asc 0x0F and 0x30 or char
} ifelse
&"_" ^
%
% stack: orig jsms "MMS" subject date time
%           ordinal&twi-route&new-color&new-prod&new-capt&new-crop
%
%
% stack: orig jsms "MMS" subject date time new
%
"camorij" log)(
exch &"_" ^
exch &"_" ^
%
% stack: orig jsms "MMS" subject new
%
pop2nd _Cust.Target &"_" ^
%
% stack: orig jsms "MMS" new
%
"camorik" log)(
exch &"_" ^
%
% stack: orig jsms new
%
pop2nd jsnow &"_" ^
%
% stack: orig target-spec
%
_Cust.RemStatus
zeronull
0x07 and 0x07 eq
_Cust.ProdType 1 right *protypes
_Arching.Otype zero
{
}
{
 pop false
} ifelse
"*&*&*custnocomp" log)(
pop false
!Cust.NoComp
_Cust.Remake
{

 dup !Cust.Root
%
% stack: orig target-spec
%
 _Cust.Xact !Xact
 "incoming.txt" ofxact exists
"*&*&*incomexist" log)(
 {
  "_remake.txt" ofxact del
%%% _Xact 1 left
  _Cust.ProdType 1 right
  *finsures &
  dup !Cust.Remade

  empty ofxact -1 right
  exch ^"xact" ofsnap
  dup &"\" !Cust.Remadir
  copydir

%
% remove conflicting markers for new directory
%
  "phase.txt" ^_Cust.Remadir del


  _Cust.NoComp
  {
%%% "Subject_Displayed.txt" ^_Cust.Remadir del
   "TacWvR_1876_vGallery1.jpg" ^_Cust.Remadir del
   "ProdMMT_1.jpg" ^_Cust.Remadir del
  }
  {

   "Subject_Message.txt" ^_Cust.Remadir del
   "Subject_Displayed.txt" ^_Cust.Remadir del
   "Display.txt" ^_Cust.Remadir del
%%% "Present_1.jpg" ^_Cust.Remadir del
   "TacWvR_1876_vGallery1.jpg" ^_Cust.Remadir del
   "ProdMMT_1.jpg" ^_Cust.Remadir del
   "Psm.png" ^_Cust.Remadir del

   "Psm" _Cust.Crop 0x0F and & jpg ^_Cust.Remadir
"%^%^% custcrop" log)(
   "Psm.jpg" ^_Cust.Remadir
"%^%^% custdest" log)(
   copyfile
   "Psm" _Cust.Crop 0x0F and & png ^_Cust.Remadir
   "Psm.png" ^_Cust.Remadir
   copyfile

  } ifelse
  "*.new" ^_Cust.Remadir delfiles
  "phase_*.txt" ^_Cust.Remadir delfiles
  "Unsent_*.*" ^_Cust.Remadir delfiles
%
% mark the original directory with info about the new
%
  "Remade_" &_Cust.Remade
  Time.Now Time.FullOrder
  dup !Cust.Rematime
  & text ofxact
  dup !Cust.NewRmk
  empty
  "Cust.Rematime" sval
  "Cust.Remade" sval

  exch write

  _Cust.Remade ^" *" &"* " catcr
 "_remake.txt" ofxact write

/*
%
% copy in-process over composite display jpg and
% product display jpg, plus tacWv product piece,
% remake incoming.txt, preserve timed copy of it
% and the full-size composite
%
 "incoming.txt" ofxact
 "incoming" Time.Now Time.FullOrder & text ofxact
dup logs
 copyfile

 "Ab.jpg" ofxact
 "Ab" Time.Now Time.FullOrder & jpeg ofxact
dup logs
 copyfile
*/

 empty !Tack
 _Cust.Subject &"_tack"
 text*subj
 _Tack any)?
"ctakmmse" log)(
 pop
 _Xact
 dup ^"xact_" text oftack
"tackcheck" log)(
 second !Xact
 _Cust.Remade ^"xact_" text oftack
 copyfile

 dup !Xact

 _Xact !SrcXact
 "SrcXact.txt" ofxact
"sxacting" log)(
 exec$

 _Cust.NewRmk
 dup filename
 "xact" &_SrcXact ofsnap folder ^
"newrmk" log)(
 copyfile

   _Cust.ProdType 1 right
   <
   |6 "D"
   |7 "B"
   |5 "C"
   > not
   {
   "A"
   } if
   ^"_prod_" &_SrcXact text oftack
   _Cust.Remade ^" *****x" &"x***** "
   exch write 

   !Xact

   _Cust.Prod 1 right *protypes
   _Arching.Otype zero
   {
    0 !Shooter.Color
   }
   {
    _Arching.Otype !Shooter.Color
   } ifelse

   _Cust.Remade !Xact

   "incoming.txt" ofxact read
   '"' slice '"' right$
%
% stack: orig target-spec left-part right-part
%
   ^'.jpg"' ^3 ^'"' &
%
% stack: orig target-spec new-inc-text
%
   dup "incoming.txt" ofxact write
   "remake.txt" ofxact write

"doneshare" log)(
%
% stack: orig target-spec
%
   pop2
   _Cust.NoComp
   {
    _Xact

    "Image_" &_SrcXact &"_004" text oftack
")*)*)imgtack" log)(
    exists
    second !Xact
    {
%
% true invoked remake
%
     _Xact catcr
     "OnlyMake.txt" ofxact write
     "Products" *shootern
     "incoming.txt" ofxact read
     _Xact text "Current\" ofconn ^
     write
    }
    {
%
% in the first set of product remakes
%
     "Post" *shootern
    } ifelse

    !Xact

   }
   {
    _Xact
    "Image_" &_SrcXact &"_004" text oftack
")*)*)imgtack" log)(
    exists
    exch !Xact
    {
     _Xact catcr
     "OnlyMake.txt" ofxact write
     "Prod" *shootern
     "incoming.txt" ofxact read
     _Xact text ofcur
     write
    }
    {
     "Post" *shootern
    } ifelse
   } ifelse

   _Xact
   *tackmkap
%
% stack: xact
%
   dup !Xact
   *tackmkao

   "TacTv.html" ofsrc read
   "___Prods___"
%
% always cr before inserted js
%
   _Shooter.ProdType *slidrprd
'
PriceSetter(' &_Shooter.ProdType &',"' &_Prod.Short &'",' &_Prod.Price &');
'
   replall
   "___Updating__" "true" replall
   "___Group___"  _Shooter.ProdType letter replall
   "___ProdType___"  _Shooter.ProdType letter replall
   "___SrcXact___" _SrcXact replall
   "___caption___" _Shooter.Caption escape replall
   second
"tsubmk" log)(
   !Xact
%
% stack: xact tacyh
%
   *tackmkaf

   !Xact

   xactinfo
   *xactgath
   *xacthist
  }
  {
%
% no source xact exists
%
"****** cannot remake ****** " &3 &" into spec " &2 logs
   pop2
  } ifelse
 }
 {
%
% stack: orig target-spec
%
 &".gpj"
 "Chuuter" *allseter &"\" ^
 ofincom
 dup logs
 dup tuck
 exch
 _Cust.Xact 
"cuxact" log)(
 !Xact
 pop "incoming.jpg"
 ofxact
dup logs
 exch
 copyfile
%
% stack: target-spec
%
".jpg" overext
} ifelse