home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / SYS / Rexx / MakePhotoCD.IDesk < prev    next >
Text File  |  1995-04-05  |  762b  |  32 lines
  1. /* generates catalogs from PhotoCDs */
  2.  
  3. /* --------------------- standard startup ----------------------- */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. if( ADDRESS() ~= "IDESK_REXXPORT" ) then
  8.     ADDRESS IDESK_REXXPORT
  9.  
  10. /* -------------------------------------------------------------- */
  11.  
  12. catname = "PhotoCD.Cat" /* <- edit the catalog name if you want */
  13.  
  14. IDREQUEST "Abort|Continue" '"This Script needs a PhotoCD mounted as CD0:"'
  15. if (RESULT = 1) then exit
  16.  
  17. IDGETPATH '"Where to store the catalog?"'
  18. if (RC > 0) then exit
  19.  
  20. catdir = RESULT
  21.  
  22. if (right(catdir, 1) ~= ':') then
  23.     catdir = catdir || '/'
  24.  
  25.  
  26. SETTPREFS DITHER TRUE
  27. SETTPREFS TSIZE STD
  28.  
  29. GENCAT '"'||catdir||catname||'"' "CD0:PHOTO_CD/IMAGES" "#?.PCD"
  30.  
  31. IDREQUEST OK '"Catalog has been stored as:'||'0A'x||catdir||catname||'"'
  32.