home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Index / Scripts / show_prg_cpreq < prev    next >
Encoding:
AmigaDOS Script File  |  1995-09-07  |  810 b   |  34 lines
  1. .key Language/A,Application/A,DEV
  2. .bra {
  3. .ket }
  4.  
  5. CD {DEV}:
  6.  
  7. IF NOT EXISTS ENV:MPUSEMETATOOL
  8.     SetEnv MPUSEMETATOOL "MPUSEMETATOOL"
  9. ENDIF
  10. IF NOT EXISTS ENV:MPDEFAULTDEST{$$}
  11.     Echo >ENV:MPDEFAULTDEST{$$} "RAM:"
  12. ENDIF
  13.  
  14. IF {Language} EQ "deutsch"
  15.     Execute :Index/Scripts/requestdrawer $MPDEFAULTDEST{$$} "Zielverzeichnis wählen" ENV:MPDEFAULTDEST{$$}
  16.     IF WARN
  17.         Skip end
  18.     ENDIF
  19. ELSE
  20.     Execute :Index/Scripts/requestdrawer $MPDEFAULTDEST{$$} "Choose destination directory" ENV:MPDEFAULTDEST{$$}
  21.     IF WARN
  22.         Skip end
  23.     ENDIF
  24. ENDIF
  25.  
  26. Copy FROM :Index/infos/{Application}.path TO ENV:MPTMPCPPATH{$$}
  27.  
  28. :C/FindPearlsEnvVars SET
  29. Execute :SYS/S/CopyToHD "$MPTMPCPPATH{$$}" $MPDEFAULTDEST{$$} $MPUSEMETATOOL COPYDRAWERANDICON {Language}
  30. :C/FindPearlsEnvVars UNSET
  31. Delete ENV:MPTMPCPPATH{$$} ENV:MPDEFAULTDEST{$$} QUIET
  32.  
  33. LAB end
  34.