%
% stack: mesg prefix
%

empty ofyone
empty
{
 "*.msg" !wilder
 nextfile ?
%
% decode the type of message
%
 dup "_" slice noext !Shooter.Mother
 lower
 <
 |wocus
%
% baby products and web focus elements complete
% from the builder
% copy the ParnSite as new copy of web focus
%
  "ParnSite" ofsnap dup folder !src
  _Shooter.Mother ofsnap dup folder !dest
  copydir
%
% copy the individual images that are dedicated to the infant
%
  1 !idx
  *babyxact
  {
   !Xact
%
% copy the 1st photo and the male or female birth announcement
%
   "incoming.jpg" ofxact
%%% results/pppppppppp/assets/images/BabyPhotoA.jpg
   _Shooter.Mother &"\assets\images\BabyPhotoA.jpg" ofsnap
   copyfile

   "Present_1.jpg" ofxact
   _Shooter.Mother &"\assets\images\BabyPhotoD.jpg" ofsnap
   copyfile

%
% copy the baby footprint
%
   
  }
  {
%
% no first baby image
%
  } ifelse
 |sum
%
% create summary sms of baby vital statistics
%
 |make
%
% generate all baby info and images through
% templates and create web focus
%
% look up the baby image xact in 1 or 1a
%
  *baby1xac
"()()()BabyImage" log)(
  {
%
% process the first baby images and web focus
%
% stack: baby-xact
%
   !Xact

empty !Shooter.InSrc
empty !Shooter.ExSrc
"InSrc" text*xact

1 *xactsrct
empty ofxact
empty
{
 "phase_?????_Post.new" !wilder
 nextfile ?
 filing del
} loop
filing)
"?ann*.jpg" ofxact delfiles
"Make" *shootern
*xactocur

  }
  {

  } ifelse



 > not
 {

 } if
 finaled
} loop
filing)