home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Amiga / Internet / Telephone / UFT-Istec.lha / UFT-Istec / Install < prev    next >
Text File  |  1998-01-24  |  2KB  |  85 lines
  1. ;******************************************************************************
  2. ; UFT-Istec - Installscript
  3. ; Written by Swen K. Stullich/UFT
  4. ;******************************************************************************
  5.  
  6. ; Initialize a few things
  7. ;
  8.  
  9. ;******************************************************************************
  10. ;******************************************************************************
  11. ; Welcome
  12. (welcome (cat @app-name "-Installer"))
  13. (message (cat "Wilkommen zu dem " @app-name "-Install-Script\n\n" @app-name " ist «1997-98\nSwen K. Stullich\nUnited Forces Tools"))
  14.  
  15. ;******************************************************************************
  16. ; get application dir
  17. (set appdir
  18.     (askdir
  19.         (prompt (cat "Wohin solle die Applikation\n" @app-name "\nkopiert werden?"))
  20.             (help @askdir-help)
  21.             (default @default-dest)
  22.     )
  23. )
  24.  
  25. ; get document dir
  26. (set docdir
  27.     (askdir
  28.         (prompt (cat "Wohin solle die Dokumentation von\n" @app-name "\nkopiert werden?"))
  29.             (help @askdir-help)
  30.             (default "Help:")
  31.     )
  32. )
  33.  
  34.  
  35. ; Install
  36. (
  37.     (working "Installiere" @app-name)
  38.  
  39.     ; Install the application
  40.     (copyfiles
  41.         (prompt (cat "Kopiere " @app-name))
  42.         (help @copyfiles-help)
  43.         (source @app-name)
  44.         (dest appdir)
  45. ;        (pattern "#?")
  46.         (if (< (exists (tackon appdir @app-name)) 1) (infos) )
  47.         (confirm)
  48.     )
  49.  
  50.     ; Install the Reg-file
  51.     (copyfiles
  52.         (prompt (cat "Kopiere Registrierungsdatei"))
  53.         (help @copyfiles-help)
  54.         (source "Registrierung")
  55.         (dest appdir)
  56. ;        (pattern "#?")
  57.         (infos)
  58.         (confirm)
  59.     )
  60.  
  61.     ; install AmigaGuide file
  62.     (copyfiles
  63.         (prompt "Kopiere die Anleitung")
  64.         (help @copyfiles-help)
  65.         (source "Doks/")
  66.         (pattern "#?")
  67.         (dest docdir)
  68.         (infos)
  69.         (confirm)
  70.     )
  71.  
  72.     ; Install the gtlayout.lib
  73.     (copylib
  74.         (prompt (cat "Kopiere die gtlayout.library"))
  75.         (help @copylib-help)
  76.         (source "libs/gtlayout.library")
  77.         (dest "LIBS:")
  78.         (confirm)
  79.     )
  80. )
  81.  
  82. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  83. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  84. (run (cat "run " #mpath "/multiview Release.txt") )
  85.