%
% detect new images and record the xact directory and contents
%
empty ofincom "*" File.Folders
%
% determine the next shooter directories in Incoming to process
%
countup
{
 pop
 dup normpath !Camera.Dir
%
% stack: [ . . . ] curpath
%
 dup filename
%
% stack: [ . . . ] curpath leaf-name
%
 length 2 gt
 {
  dup chuuter?
  {
   dup 2 right    
%
% stack: [ . . . ] curpath leaf-name shoot-number
%
   "Shooters" text?conn
   {
    chuuter!
%
% stack: [ . . . ] curpath
%

empty ofincom chuuter & folder -1 left ^"n"
dup logs
empty
{
 "*.bab" !wilder
 nextfile ?
 dup logs
 filing dup -1 left ^"p"
 dup tuck
 copyfile
 ".jpg" overext
 finaled
} loop
filing)

   }
   {
%
% stack: [ . . . ] curpath leaf-name 
%
    pop
   } ifelse
  }
  {
%
% stack: [ . . . ] curpath leaf-name
%
   pop
  } ifelse
 }
 {
%
% stack: [ . . . ] curpath leaf-name
%
  pop
 } ifelse
%
% stack: [ . . . ] curpath
%
 pop
} for