%
% create thumbnail and web sized images for gallery
%
% stack: xact user-guid image-dest-url image-dest-phys image-filename
%         full-spec subject-phone shooter-device shooter-num venue
%
!Shooter.Venue
!Shooter.Number
!Shooter.Device
!Shooter.Subject
!Shooter.Full
!Shooter.Image
!Shooter.ImgPhys
!Shooter.ImgDest
!Shooter.User
!Xact

_Shooter.Full !Image1

_Image1 ^_CameraDir !Im1

_Im1 exists not
{
 "NoImage.jpg" ^_ImageDir
 _Im1
 copyfile
} if

_Xact isnull)
{
}
{
_Arching.PhysChain &"xact" &_Xact File.MakeNorm !TarXact
"xact" &_Xact jpg !TarFile
"//*
function YactSrc()
{
 GalRoot = "
 _Shooter.Image quoter & &";
 GalIm = "
 _Im1 *jsphfspc quoter & &";
 TargGalA = "
 _Shooter.ImgPhys &"FullSizeImages\" &_TarFile *jsphfspc quoter & &";
 TargGalB = "
 _Shooter.ImgPhys &"Thumbnails\" &_TarFile *jsphfspc quoter & &";
 TargGalC = "
 _Shooter.ImgPhys &"WebImages\" &_TarFile *jsphfspc quoter & &";
 Xact = " &_Xact &";
}
"
"YactSrc.jsx" ofdesk write
"//+Server
//*
Yacting("
 _ImageDir &"GM" &_Image1 ".txt" reextend
 read
 "WebImageWidth=""" Str.Right
 """" slice exch &","
 exch
 "WebImageHeight=""" Str.Right
 """" slice exch &","
 exch
 "ThumbNailWidth=""" Str.Right
 """" slice exch &","
 exch
 "ThumbNailHeight=""" Str.Right
 """" Str.Left
 & & &

 &",aiw,aih"

 &
 jspend
 *phocperf

} ifelse