%
% create thumbnails of uploads
%
"Mms\" ofconn
empty
{
 "*.cmb" !wilder
 nextfile ?
 dup fileroot
 hex2asc
"-------" log)(
 "_" slice !cmbroot
 hex2asc "/" "\" replall
 -1 left oflocal
"+++++++" log)(
 !cmbloc

 empty !cmbext
 _cmbroot &"_01.psd" ^_cmbloc
"+-+-+-+-" log)(
 dup exists
 {
  pop ".psd" !cmbext
 }
 {
  ".jpg" reextend exists
  {
   ".jpg" !cmbext
  }
  {
   ".png" reextend exists
   {
    ".png" !cmbext
   }
   {
   } ifelse
  } ifelse
 } ifelse

 _cmbext any)?
"----cmbext" log)(
 {

  _cmbroot -2 right
  &_cmbext ^_cmbloc
dup logs

%%% "c:\___Work\targetb.mp4"
%%% dup logs

  dup del

  _cmbloc

%%% "c:\inetpub\wwwroot\Work\MMS\5557654321\"
dup logs
  empty
  {
   _cmbroot &"*" &_cmbext
dup logs
%%% "1688587039864_MMSource_*.psd"
   !wilder
   nextfile ?
dup logs
   filing fourth appendb
   filing
   dup 4 right second -4 right dup 2 right exch -5 right &"x" ^ ^
")))))" log)(
   overwrite
%%% del
  } loop
  filing)

  pop

 }
 {

 } ifelse

 finaled
} loop
filing)