|Detected
%
% if not a Builder, process exif information
%
 _Aamg.ContrB not
 {
%
% not suppressed by Builder, for MMS or ENT process the incoming image
%
  "Lock" *xactjpeg
  {
%
% run the analysis of the source jpeg
%
   _Camera.Original "Run" *xactjpeg
   "Analyzing" *shootern
  } if
 } if
 false

|Analyzing
%
% if not a Builder, check result of scan look for : image/jpeg
%
 _Aamg.ContrB not
 {
  _Camera.Original "Check" *xactjpeg
  {
   {
%
% found proper mime type
%
    "incoming" text_xact         
    "Camera.OrigMade" sval
    "incoming" text!xact
    "Analyzed" *shootern
   }
   {
%
% did not find proper mime type
%
%%%   "Improper" *shootern
   } ifelse
  } if
 } if
 false

|Problem
 "Unlocked?" *xactjpeg
"unlk" log)(
 {
 }
 {
  "Locker" *xactjpeg
"lkr" log)(
  _Xact eq
  {
"^^^Problem jpeg analysis " &_Xact &" // " &_Camera.Original log#
   "Unlock" *xactjpeg
%
% ***ErrJpeg
%
  } if
 } ifelse
"lkr" log#
 false