home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / Dopus5 / opus511g.dms / in.adf / InstallOpus < prev    next >
Encoding:
Text File  |  1995-04-11  |  6.0 KB  |  308 lines
  1. ; Script to install Directory Opus version 5.0
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 5.0 30.3.94
  4. ; COPYRIGHT ©1995 GP SOFTWARE, AUSTRALIA
  5. ;
  6.  
  7.     (onerror
  8.         (makeassign "Opus5_Install" (safe))    
  9.     )
  10.  
  11.  
  12.     (complete 0)
  13.  
  14. ;check user has Dos 2
  15.     (set DOSTYPE (/ (getversion) 65536))
  16.     (if
  17.         (NOT (>= DOSTYPE 37))
  18.         (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  19.             " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  20.     )
  21.  
  22.  
  23. (set wbisgo 0)
  24.  
  25. ; just in case the installation was restarted
  26.  
  27.     (makeassign "Opus5_Install" (safe))
  28.  
  29. ; see if this is really an update
  30.  
  31.  
  32.     (set is_update 0)
  33.     (set DOPus_Dest (getassign "DOpus5" "a"))
  34.  
  35.  
  36. ; if update, be sure they want program in same place
  37.  
  38.     (if DOPus_Dest
  39.         (if    (askbool
  40.                 (prompt "Opus 5 ist schon in diesem System installiert.\n"
  41.                     "Die aktuelle Kopie befindet sich in \"" DOPus_Dest"\"."
  42.                     "\n\nWollen Sie in dieses Verzeichnis installieren?"
  43.                 )
  44.                 (help
  45.                     "Der Installer hat entdeckt, daß Sie schon eine Kopie von "
  46.                     "Opus 5 installiert haben. Sollte dies falsch sein oder "
  47.                     "Sie wollen das Update woanders installieren, wählen Sie "
  48.                     "NEIN an, ansonsten JA."
  49.                 )
  50.             (default 1)
  51.             )
  52.  
  53. ; if user wants in same place
  54.  
  55.             (set is_update 1)
  56.  
  57. ; if user wants in different place
  58.  
  59.             (set DOPus_Dest
  60.                 (tackon
  61.                     (askdir
  62.                         (prompt "Directory Opus 5 wird in seinem eigenen Verzeichnis installiert.\n\nWo soll das Verzeichnis 'Opus 5' erzeugt werden?")
  63.                         (help @askdir-help)
  64.                         (default @default-dest)
  65.                     )
  66.                     "Opus5"
  67.                 )
  68.             )
  69.         )
  70.  
  71.  
  72. ; else if not an update, get a location for program
  73. ; 
  74.         (set DOPus_Dest
  75.             (tackon
  76.                 (askdir
  77.                          (prompt "Directory Opus 5 wird in seinem eigenen Verzeichnis installiert.\n\nWo soll das Verzeichnis 'Opus 5' erzeugt werden?")
  78.                     (help @askdir-help)
  79.                     (default @default-dest)
  80.                 )
  81.                 "Opus5"
  82.             )
  83.         )
  84.     )
  85.  
  86.  
  87. ; now lock on to Install Disk volume 
  88.     
  89. ;    (askdisk
  90. ;        (prompt "\nBitte legen Sie die Diskette \"Opus5_Install\" ein.")
  91. ;        (help    "Opus 5 wird dann "
  92. ;            "von \"DOpus\" in Ihr System kopiert.")
  93. ;        (dest  "DOpus")
  94. ;        (newname "Opus5_Install")
  95. ;    )
  96.  
  97. ; make DOpus drawer & icon if not there
  98.  
  99.     (if     (not is_update)
  100.             (makedir DOPus_Dest (infos))
  101.     )
  102.  
  103. ; at this point we have a valid destination, so we tell installer where
  104. ; the application will end up so the exit page will be correct -- also,
  105. ; the installation log file (if any) will be copied to the destination
  106.     
  107.     (set @default-dest DOPus_Dest)
  108.  
  109.     (working "Lese Directory Opus Dateien von der Installdisk.")
  110.  
  111.     (copyfiles
  112.         (source "Opus5_Install:lhex")
  113.         (dest "ram:")
  114.     )
  115.  
  116.  
  117.  
  118.     (working "Entpacke Directory Opus 5 und Zusatzdateien.")
  119.  
  120.     (textfile
  121.         (dest "RAM:install_cmd")
  122.         (append 
  123.         "ram:lhex >NIL: <NIL: -qfw ""\""DOpus_Dest"\"" " x Opus5_Install:DO5.lha \n"
  124.         )
  125.     )
  126.  
  127.     (execute "RAM:install_cmd")
  128.     (run "delete ram:#?_cmd")
  129.     (run "delete ram:lhex")
  130.  
  131. (complete 80)
  132.  
  133.  
  134.  
  135. ;Get the users startup choices
  136.     (set mode (askchoice
  137.             (prompt "Opus 5 kann beim Booten des Rechners automatisch gestartet werden. Welchen Start wünschen Sie?")
  138.             (help    @askchoice-help    )
  139.             (choices "Opus 5 beim Booten starten"
  140.                  "Opus 5 beim Booten verborgen starten"
  141.                  "Opus 5 als Workbenchersatz !"
  142.                  "Opus 5 beim Booten nicht starten") 
  143.             (default 0)
  144.         )
  145.     )
  146.     
  147.     
  148. (complete 90)
  149.     
  150.  
  151.  
  152.     
  153.         
  154. ; start on boot normal
  155.     (if (= mode 0)
  156.         (
  157.             (copyfiles
  158.                 (source (tackon DOpus_dest "wbstartup/Opus5_Startup"))
  159.                 (dest "SYS:WBStartup")
  160.                 (infos)
  161.  
  162.             )
  163.  
  164.             (tooltype
  165.                 (dest "SYS:WBStartup/Opus5_Startup")
  166.                 (settooltype "CX_POPUP" "YES")
  167.     
  168.             )
  169.         )
  170.     )
  171.  
  172.  
  173. ; start on iconified normal
  174.     (if (= mode 1)
  175.         (
  176.  
  177.             (copyfiles
  178.                 (source (tackon DOpus_dest "wbstartup/Opus5_Startup"))
  179.                 (dest "SYS:WBStartup")
  180.                 (infos)
  181.  
  182.             )
  183.  
  184.             (tooltype
  185.                 (dest "SYS:WBStartup/Opus5_Startup")
  186.                 (settooltype "CX_POPUP" "NO")
  187.     
  188.             )
  189.         )
  190.  
  191.     )
  192.  
  193.  
  194.     
  195. ; use as wb replacement
  196.  
  197.     (if (= mode 2)
  198.         (
  199.         (set wbisgo 1)
  200.  
  201.         (if (= (exists "c:loadwb") 1)
  202.             (rename "c:LoadWB" "c:LoadWB_old")
  203.         )
  204.  
  205.         (copyfiles
  206.             (source (tackon DOpus_dest "c/LoadDB"))
  207.             (dest "c:")
  208.         )
  209.         (rename "c:LoadDB" "c:LoadWB")
  210.         )
  211.     )
  212.  
  213.                     
  214. ; start on boot iconified
  215.                             
  216.  
  217. (complete 95)
  218.  
  219. ; modify S:User-Startup
  220.  
  221.  
  222. ; set the script for user startup
  223.  
  224.     (startup "DirectoryOpus 5"
  225.         (prompt
  226.         "Die folgenden Zeilen müssen angefügt werden an die "
  227.         "\"S:User-Startup\", damit Ihr System ordnungsgemäß "
  228.         "konfiguriert ist.\n\n"
  229.         "ASSIGN DOpus5: \"" DOpus_Dest "\"\n"
  230.         "PATH DOpus5:c Add \n"
  231.         )
  232.         (help "Dies fügt Befehle in die S:user-startup ein, damit "
  233.             "Directory Opus korrekt funktionieren kann")
  234.         (command "ASSIGN DOpus5: \"" DOpus_Dest "\"\n")
  235.         (command "PATH DOpus5:c Add \n")
  236.     )
  237.  
  238.  
  239.  
  240. ;make sure assignment is set up so that Opus 5 can run
  241.     
  242.     (makeassign "DOpus5" DOPus_Dest)
  243.  
  244.     (textfile
  245.         (dest "RAM:serialise_cmd")
  246.         (append 
  247.         "dopus5:DirectoryOpus \n"
  248.         )
  249.     )
  250.  
  251.     (execute "RAM:serialise_cmd"
  252.         (prompt "Directory Opus 5 registrieren\n"
  253.             "---------------------------\n"
  254.             "Um Ihre wertvolle Investition zu schützen und "
  255.             "die Installation zu komplettieren, sollten Sie"
  256.             " jetzt Opus mit Ihren persönlichen Daten und der Seriennummer "
  257.             " der Installationsdisk registrieren.\n\n"
  258.             "Dies wäre auch ein guter Moment, die Registrierkarte"
  259.             " auszufüllen und an Ihren Vertreiber zurückzusenden."
  260.             " Technische Unterstützung und Garantie wird nur"
  261.             " gewährt, wenn eine gültige Registrierung beim Vertrieb"
  262.             " vorliegt."
  263.         )
  264.         (help
  265.             "Directory Opus 5 muß vor Benutzung registriert sein. Bitte wählen Sie 'Weiter' und geben Sie die geforderten Daten ein."
  266.         )
  267.         (confirm)
  268.     )
  269.  
  270.     (run "delete ram:#?_cmd")
  271.     
  272.  
  273.  
  274.     (if (= wbisgo 1)
  275.         (
  276.         (message "Da Sie Directory Opus als Workbenchersatz"
  277.               " benutzen wollen, entfernen Sie bitte"
  278.               " alle Disks aus den Laufwerken und Booten Ihren Rechner erneut.\n\n"
  279.               "*************************\n"
  280.               "******* WARNUNG *********\n"
  281.               "*************************\n"
  282.               " Vor diesem Neustart MUSS Opus 5 registriert worden sein."
  283.             )
  284.         )
  285.     )
  286.     
  287.  
  288.  
  289. ;     reinitialize assigns
  290.  
  291. (if (not @pretend)
  292.     (makeassign "DOpus5" DOPus_Dest)
  293.     
  294. )
  295.  
  296.  
  297.  
  298. (complete 100)
  299.  
  300. ; cleanup
  301. (makeassign "Opus5_Install" (safe))
  302.  
  303. ; bye bye HC
  304.  
  305. (exit text)
  306.  
  307.  
  308.