home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / multiworks_install / rexx / addstamp.mw next >
Text File  |  1996-06-23  |  998b  |  40 lines
  1. /*******************************************************/
  2. /* ARexx-Script für das Hinzufügen eines Stamps.             */
  3. /* Das Stamp wird in Root:NeueStamps erzeugt.                   */
  4. /* © 1995 Synetic Software                                                         */
  5. /* Geschrieben von Holger Ankermann                                         */
  6. /*******************************************************/
  7.  
  8. arg file
  9. /*say file*/
  10.  
  11. address command
  12. options results
  13. if ~SHOW("PORTS", "rexx_mwdatabase") then    do
  14.     'Run >NIL: <NIL: MultiWorks:MWDatabase'
  15.     wait 5
  16.     /*address 'rexx_mwdatabase' DBToBack*/    /* Screen nach hinten */
  17.     end
  18.  
  19. verzeichnis="Root:NeueStamps"
  20. address 'rexx_mwdatabase'
  21.  
  22. /* Testen, ob verz. schon da, sonnst neu erstellen */
  23. DBLock    verzeichnis
  24. dirlock=result
  25. if RC~=0 then do
  26.         DBLock    "Root:"; tmpl=result
  27.         DBMakeDir tmpl "NeueStamps" STAMPSDIR
  28.         DBUnLock tmpl
  29.         DBLock    verzeichnis
  30.         dirlock=result
  31. END
  32.  
  33. if RC==0 then
  34.     do
  35.         DBMakeStamp dirlock file "SIZE=90" "COMP=70" "SAVER=jpeg.mwsaver" CROP DT
  36.     if RC ~=0 then say "--Nicht gefunden--"
  37.         DBUnLock    dirlock
  38.     end
  39. exit(0)
  40.