Net Connect/NetConnect - Version 1.iso/install_netconnect

Text File | 1997-03-17 | 23.9 KB | 808 lines

; $VER: Install-NetConnect 1.0 (08.12.96)

(complete 0)

(set lng         @language)
(set app-name        @app-name)
(set netconnect-name    (cat "NetConnect"))
(set netconnect-dir    (cat "NetConnect"))
(set atcp-name        (cat "AmiTCP"))
(set atcp-dir        (cat "AmiTCP-4.5"))
(set mui-name        (cat "MUI"))
(set mui-dir        (cat "MUI"))

(welcome "    Welcome to the " app-name " installation.\n")

(set
 need-version        37

 install-disk        ""
 AmiTCP-pkt-file    (tackon install-disk "AmiTCP/AmiTCP.pkt")
 Docs-pkt-file        (tackon install-disk "AmiTCP/AmiTCPDocs.pkt")
 NapsaFonts-pkt-file    (tackon install-disk "AmiTCP/NapsaFonts.pkt")
 dist-networks-dir    (tackon install-disk "AmiTCP/Devs/Networks")
 dist-data-dir        (tackon install-disk "Data")
 dist-mui-dir        (tackon install-disk "MUI")
 dist-programs-dir    (tackon install-disk "Programs")
 dist-docs-dir        (tackon install-disk "Docs")
 dist-handler-dir    (tackon install-disk "L")
 dist-libs-dir        (tackon install-disk "Libs")
 dist-env-dir        (tackon install-disk "ENV")
 dist-fonts-dir        (tackon install-disk "Fonts")

 UnPkt-file        (tackon install-disk "AmiTCP/UnPkt")

 netconnect-assign    (cat netconnect-name ":")
 atcp-assign        (cat atcp-name ":")
 mui-assign        (cat mui-name ":")

 conf-dir    (tackon atcp-assign "db")
 bin-dir    (tackon atcp-assign "bin")
)

(onerror
 (if old-atcp-directory
     (makeassign atcp-name old-atcp-directory))
 (if old-netconnect-directory
     (makeassign netconnect-name old-netconnect-directory))
 (if old-mui-directory
     (makeassign mui-name old-mui-directory))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure check-system-version

 (set exec-version (/ (getversion) 65536))
 (transcript "Running on exec version " exec-version ".")
 (if (< exec-version need-version)
   ((transcript "Installation aborted due too old operating system.")
   (abort "NetConnect requires at least operating system 2.04")))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure check-old-assign

 (transcript "Checking for already installed NetConnect.")
 (set old-netconnect-directory
    (if (exists netconnect-assign (noreq))
        (getassign netconnect-name)
        ""))
 (if old-netconnect-directory
    (transcript "Existing NetConnect detected at directory " old-netconnect-directory "."))

 (transcript "Checking for already installed AmiTCP.")
 (set old-atcp-directory
    (if (exists atcp-assign (noreq))
        (getassign atcp-name)
        ""))
 (if old-atcp-directory
    (transcript "Existing AmiTCP detected at directory " old-atcp-directory "."))

 (transcript "Checking for already installed MUI.")
 (set old-mui-directory
    (if (exists mui-assign (noreq))
        (getassign mui-name)
        ""))
 (if old-mui-directory
    (transcript "Existing MUI detected at directory " old-mui-directory "."))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(procedure check-cpu-type

 (set cpu-type (database "cpu"))
 (set cpu-is-020-or-better
    (AND (<> cpu-type "68000")
    (<> cpu-type "68010")))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; arguments:
;;
;;   unpkt-source      - the source archive
;;   unpkt-destination - the destination directory
;;   unpkt-sdp         - number of directories to strip
;;   unpkt-title-name  - descriptive name of the archive
;;   unpkt-title-not   - installation unit name

(procedure run-unpkt

 (if (exists unpkt-source)
    ((transcript "Dearchiving " unpkt-source " files to " unpkt-destination ".")
        (working "Writing files to " unpkt-destination "...")
        (if (= @pretend 0)
            ((if (run (cat UnPkt-file " "
                "\"" unpkt-source "\" "
                "\"" unpkt-destination "\""
                " SDP=" unpkt-sdp
                " >\"CON:9/9/600/100/UnPkt Output/INACTIVE/AUTO\" "))
            (abort "    UnPkt could not dearchive the " unpkt-source ". "
                "This may be due to:\n"
                "    * Not enough disk space\n"
                "    * Not enough memory\n"
                "    * Corrupted archive\n"
                "    * Corrupted UnPkt\n"))))
    1)
    ((transcript unpkt-source " could not be located, and is NOT installed!")
        (message "\nWARNING\n\nCould not locate the " unpkt-title-name " archive.\n"
            unpkt-title-not " is NOT installed!")
    0)
 )
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure copy-netc-files-to-destination

 (copyfiles
    (prompt "Copy the NetConnect Controller & Prefs")
    (help @copyfiles-help)
    (source install-disk)
    (choices "NetConnect" "NetConnectPrefs" "AmiTCPPrefs")
    (dest netconnect-assign)
    (infos)
    (optional "nofail")
 )

 (set tmp-var (tackon netconnect-assign "Data"))
 (if (NOT (= 2 (exists tmp-var)))
    (makedir tmp-var))
 (copyfiles
    (prompt "Copying images and other data files to:\n\n" tmp-var)
    (help @copyfiles-help)
    (source dist-data-dir)
    (dest tmp-var)
    (choices "Images" "Misc" "MailIn" "MailOut" "NewsIn" "NewsOut" "Download" "Upload")
    (infos)
    (optional "nofail"))
 (copyfiles
    (prompt "Copying .info for Data drawer to:\n\n" netconnect-assign)
    (help @copyfiles-help)
    (source install-disk)
    (dest netconnect-assign)
    (choices "Data.info")
    (infos)
    (optional "nofail" "force"))

 (copyfiles
    (prompt "Copying documentation to:\n\n" (tackon netconnect-assign "Docs"))
    (help @copyfiles-help)
    (source install-disk)
    (dest netconnect-assign)
    (choices "Docs")
    (infos)
    (optional "nofail"))

 (copyfiles
    (prompt "Copying fonts to:\n\n" "Fonts:")
    (help @copyfiles-help)
    (source dist-fonts-dir)
    (dest "Fonts:")
    (all)
    (fonts)
    (optional "nofail"))

 (copyfiles
   (prompt "Copying env variables to:\n\nENVARC:")
   (help @copyfiles-help)
   (source dist-env-dir)
   (dest "ENVARC:")
   (pattern "~(NC.prefs)")
   (confirm)
   (optional "askuser"))
 (copyfiles
   (prompt "Copying env variables to:\n\nENV:")
   (help @copyfiles-help)
   (source dist-env-dir)
   (dest "ENV:")
   (pattern "~(NC.prefs)")
   (optional "askuser")
 )
 (if (NOT (exists "ENV:NC.Prefs"))
    (copyfiles
      (prompt "Copying default NetConnect\npreference file to:\n\nENV:")
      (help @copyfiles-help)
      (source (tackon dist-env-dir "NC.prefs"))
      (dest "ENV:")
      (optional "nofail"))
 )
 (if (NOT (exists "ENVARC:NC.Prefs"))
    (copyfiles
      (prompt "Copying default NetConnect\npreference file to:\n\nENVARC:")
      (help @copyfiles-help)
      (source (tackon dist-env-dir "NC.prefs"))
      (dest "ENVARC:")
      (optional "nofail"))
 )

 (foreach dist-handler-dir "#?"
   (copylib
     (prompt "Copying " @each-name " to:\n\nL:")
     (help "You should copy all handlers if you want NetConnect to work correctly.")
     (source (tackon dist-handler-dir @each-name))
     (dest "L:")
     (infos)
     (optional "force")
     (confirm)
   )
 )

 (foreach dist-libs-dir "#?"
   (copylib
     (prompt "Copying " @each-name " to:\n\nLibs:")
     (help "You should copy all libraries if you want NetConnect to work correctly.")
     (source (tackon dist-libs-dir @each-name))
     (dest "Libs:")
     (infos)
     (optional "force")
     (confirm)
   )
 )

 (if (askbool
    (prompt "Would you like the \"NetConnect Controller\" to be copied into your WBStartup drawer ?")
    (help "If you choose to copy NetConnect into your WBStartup drawer it will be started automatically everytime you reboot your Amiga.\n")
    (default 1))
    (copyfiles
      (prompt "Copy the NetConnect Controller to:\n\nSYS:WBStartup")
      (help @copyfiles-help)
      (source install-disk)
      (choices "NetConnect")
      (dest "SYS:WBStartup")
      (infos)
      (optional "nofail")
    )
 )
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure copy-atcp-files-to-destination

 (set
  unpkt-source        AmiTCP-pkt-file
  unpkt-destination    atcp-dest
  unpkt-sdp        1
  unpkt-title-name    "AmiTCP/IP program"
  unpkt-title-not    "AmiTCP/IP"
  )
 (if (run-unpkt)
 (
   (set
    unpkt-source    Docs-pkt-file
    unpkt-destination    atcp-dest
    unpkt-sdp        1
    unpkt-title-name    "AmiTCP/IP Documentation"
    unpkt-title-not    "AmiTCP/IP"
   )
   (run-unpkt)


    (if (NOT (= 2 (exists (tackon atcp-assign "log"))))
        (makedir (tackon atcp-assign "log")))
    (if (NOT (= 1 (exists (tackon atcp-assign "log/wtmp"))))
        (textfile (dest (tackon atcp-assign "log/wtmp"))))
    (protect (tackon bin-dir "netstat") "+s +e")
    (protect (tackon bin-dir "SynClock") "+s +e")
    (protect (tackon bin-dir "stopnet") "+s +e")
    (protect (tackon bin-dir "NapsaTerm") "+p +e")

;;; set default user to "nobody" since it is already defined in AmiTCP:db/passwd

(textfile (dest "ENVARC:LOGNAME")
    (append (cat "nobody"))
    (safe)
)
(textfile (dest "ENV:LOGNAME")
    (append (cat "nobody"))
    (safe)
)

  1)
  0)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure copy-mui-files-to-destination

 (copyfiles
    (prompt "Copying MUI to:\n\n" mui-assign)
    (help @copyfiles-help)
    (source dist-mui-dir)
    (dest mui-assign)
    (all)
    (infos)
    (optional "nofail"))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; arguments:
;;
;; uus::commands - commands to add
;; uus::section  - section name
;;
(procedure update-user-startup

 (set uus::complete (cat ";BEGIN " uus::section "\n"
    uus::commands
    ";END " uus::section "\n"))

 (set startup-changed 1)
 (startup
    uus::section
    (command uus::commands)
    (prompt "Installer will modify your S:User-Startup file. "
        "Following lines will be appended to it:\n\n"
        uus::complete)
    (help "   Installer needs to make indicated modifications to "
        "your user startup file.\n"
        "   You should make modifications later by hand if you skip this part.")
 )
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(procedure install-user-databases

 (transcript "Installing user databases")

 (procedure get-mufs-version
    (set mufs-vernum    (getversion "multiuser.library" (resident)))
    (set mufs-ver        (/ mufs-vernum 65536))
    (set mufs-rev        (- mufs-vernum (* ver 65536)))
 )
 (procedure passwd-create
    (copyfiles
        (prompt "Copying " passwd-source " to AmiTCP:db/passwd.")
                (help @copyfiles-help)
        (source passwd-source)
        (dest conf-dir)
        (newname "passwd")
        (optional "nofail"))
 )
 (procedure group-create
        (copyfiles
         (prompt "Copying " group-source " to AmiTCP:db/group.")
             (help @copyfiles-help)
         (source group-source)
         (dest conf-dir)
         (newname "group")
         (optional "nofail")))

 (set passwd-source    (tackon conf-dir "passwd-example"))
 (set group-source    (tackon conf-dir "group-example"))
 (if (>= @user-level 2)
    (message "\nCopying user database from file\n\n\"" passwd-source "\"\n\n"
        "and group database from file\n\n\"" group-source "\"\n\n")
 )
 (passwd-create)
 (group-create)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(procedure set-must-reboot

 (if (<> (getversion "netinfo.device" (resident)) 0)
    ((set netinfo-temp-file "t:netinfo-expunge-script")
        (textfile (dest netinfo-temp-file)
            (append (cat
                "failat 5000\n"
                "avail flush >nil:\n"
                "avail flush >nil:\n")
            )
            (safe)
        )
    (execute netinfo-temp-file))
 )
 (set netinfo-version (getversion "netinfo.device" (resident)))
 (if (AND (<> netinfo-version 0) (< netinfo-version 4))
    ((set must-reboot-after-install 1)
    (message "You seem to have some parts of an old " atcp-name
        " installation running.  Because of this the user "
        "database updating will have no effect before you reboot "
        "your Amiga.\n\nFor this reason you _must_ reboot after the installation "
        "and before the \"AmiTCP Prefs\" is run.")
    )
 )
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Ask which parts to install
;;;
;;; on return following variables will have boolean values:
;;;
;;;  do-install-netconnect
;;;  do-install-provider
;;;  do-install-amitcp
;;;  do-install-mui
;;;
(procedure ask-install-options
 (set install-options-bitmap
    (askoptions
        (prompt "Select parts to install:\n\nSee the help for explanation on each item.")
        (choices "NetConnect"
            "Provider configuration files"
            "AmiTCP/IP"
            "MUI 3.8")
        (default %1111)
        (help "NetConnect:\n"
            "Tools for launching Internet applications and for configuring AmiTCP/IP easily with a GUI.\n\n"
            "Provider configuration files:\n"
            "Predefined provider configurations. Makes configuration of AmiTCP a lot easier.\n\n"
            "AmiTCP/IP:\n"
            "The AmiTCP/IP protocol stack. This includes binaries, documentation, help files and example configuration files.\n\n"
            "MUI 3.7:\n"
            "The Magic User Interface by Stefan Stuntz. It is required for NetConnect to work.\n\n")
    )

    do-install-netconnect    (in install-options-bitmap 0)
    do-install-provider    (in install-options-bitmap 1)
    do-install-amitcp    (in install-options-bitmap 2)
    do-install-mui        (in install-options-bitmap 3)
  )
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure install-netconnect

 (transcript "Selecting destination directory for the installation of NetConnect.")
 (set netconnect-dest (askdir
        (prompt "Select directory where to install " app-name ".\n A drawer called NetConnect will be created\n You need 9MB+ of free space to install NetConnect")
        (help "Here you can specify the location where to install the " app-name ".\n"
            "Installer will create a subdirectory called `"
            netconnect-dir "' in the selected directory and copy the " @app-name " files to it.")
        (newpath)
        (default @default-dest)
 ))
 (textfile (dest (tackon netconnect-dest (cat netconnect-dir ".info")))
    (include (tackon install-disk "info.netconnect")))
 (set netconnect-dest (tackon netconnect-dest netconnect-dir))
 (makedir netconnect-dest)
 (makeassign netconnect-name netconnect-dest)
 (set @default-dest netconnect-dest)

 (copy-netc-files-to-destination)

 (install-programs)

 (set uus::commands (cat "assign " netconnect-assign " \"" netconnect-dest "\"\nrun RexxMast <>nil:\n"))
 (set uus::section "NetConnect")
 (update-user-startup)
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure install-provider

 (transcript "Copying provider files.")

 (set tmp-var (tackon netconnect-assign "Data/Providers"))
 (if (NOT (= 2 (exists tmp-var)))
    (makedir tmp-var))
 (copyfiles
    (prompt "Please select the countries you would like to install the provider configuration files for\n\n")
    (help "You should at least select the country you live in.")
    (source (tackon dist-data-dir "Providers"))
    (dest tmp-var)
    (pattern "#?")
    (confirm "average")
    (optional "nofail" "force"))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure copy-old-prefs

 (if (askbool
   (prompt "Would you like to copy the preference and data files from your old installation ?\n(AmTelnet, AmTerm, Microdot-II and Voyager)")
   (help "If you accept it is likely that you can continue using the programs with your old settings. You wouldn't have to copy / move any files yourself.")
   (default 1))
   (
     (if (= 2 (exists (tackon old-netconnect-directory "Programs/AmTelnet")))
     (
       (copyfiles
          (prompt "Copy old AmTelnet preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/AmTelnet"))
          (pattern ".amtelnet#?")
          (dest (tackon netconnect-assign "Programs/AmTelnet"))
          (infos)
          (optional "nofail")
       )
       (copyfiles
          (prompt "Copy old AmTelnet preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/AmTelnet"))
          (pattern "#?.Prefs")
          (dest (tackon netconnect-assign "Programs/AmTelnet"))
          (infos)
          (optional "nofail")
       )
     ))
     (if (= 2 (exists (tackon old-netconnect-directory "Programs/AmTerm")))
     (
       (copyfiles
          (prompt "Copy old AmTerm preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/AmTerm"))
          (pattern ".AmTerm#?")
          (dest (tackon netconnect-assign "Programs/AmTerm"))
          (infos)
          (optional "nofail")
       )
       (copyfiles
          (prompt "Copy old AmTerm preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/AmTerm"))
          (pattern "#?.Prefs")
          (dest (tackon netconnect-assign "Programs/AmTerm"))
          (infos)
          (optional "nofail")
       )
     ))
     (if (= 2 (exists (tackon old-netconnect-directory "Programs/Microdot-II")))
     (
       (copyfiles
          (prompt "Copy old Microdot-II preferences & data")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/Microdot-II"))
          (pattern "Data#?")
          (dest (tackon netconnect-assign "Programs/Microdot-II"))
          (infos)
          (optional "nofail")
       )
       (copyfiles
          (prompt "Copy old Microdot-II preferences & data")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/Microdot-II"))
          (pattern "#?.prefs")
          (dest (tackon netconnect-assign "Programs/Microdot-II"))
          (infos)
          (optional "nofail")
       )
       (copyfiles
          (prompt "Copy old Microdot-II preferences & data")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/Microdot-II"))
          (pattern "#?.Addressbook")
          (dest (tackon netconnect-assign "Programs/Microdot-II"))
          (infos)
          (optional "nofail")
       )
     ))
     (if (= 2 (exists (tackon old-netconnect-directory "Programs/Voyager")))
     (
       (copyfiles
          (prompt "Copy old Voyager preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/Voyager"))
          (pattern "Bookmarks.#?")
          (dest (tackon netconnect-assign "Programs/Voyager"))
          (infos)
          (optional "nofail")
       )
       (copyfiles
          (prompt "Copy old Voyager preferences")
          (help @copyfiles-help)
          (source (tackon old-netconnect-directory "Programs/Voyager"))
          (pattern "#?.prefs")
          (dest (tackon netconnect-assign "Programs/Voyager"))
          (infos)
          (optional "nofail")
       )
     ))
   )
 )
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure install-programs

 (copyfiles
    (prompt "Copying programs to:\n\n" (tackon netconnect-assign "Programs"))
    (help @copyfiles-help)
    (source install-disk)
    (dest netconnect-assign)
    (choices "Programs")
    (infos)
    (optional "nofail"))

  (if old-netconnect-directory (copy-old-prefs))
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure install-amitcp

 (transcript "Selecting destination directory for the installation of AmiTCP.")
 (set atcp-dest (if (= @user-level 2)
    (askdir
      (prompt "Select directory where to install " atcp-name ".")
      (help "Here you can specify the location where to install " atcp-name ".\n"
            "Installation must NOT be made on top of an older version of " atcp-name ".\n"
            "Installer will create a subdirectory called `" atcp-dir "' to the selected "
            "directory and copy the " atcp-name " files to it.\n\nIt is suggested that you select the just"
            " created direcotry \"" @default-dest "\" so the AmiTCP files are within the NetConnect Package.")
      (newpath)
      (default @default-dest)
    )
    (@default-dest))
 )
 (textfile (dest (tackon atcp-dest (cat atcp-dir ".info")))
    (include (tackon install-disk "AmiTCP.info"))
 (set atcp-dest (tackon atcp-dest atcp-dir)))
 (makedir atcp-dest)

 (makeassign atcp-name atcp-dest)
 (if (NOT (= 2 (exists (tackon atcp-assign "devs"))))
  (makedir (tackon atcp-assign "devs")))


 (copy-atcp-files-to-destination)


 (set uus::commands (cat "assign " atcp-assign " \"" atcp-dest "\"\n"
                         "path " bin-dir " add\n"
                         "Assign APIPE: Exists > NIL:\n"
                         "IF Warn\n"
                         "  Mount APIPE: from AmiTCP:devs/APipe-Mountlist\n"
                         "EndIf\n"))
 (set uus::section "AmiTCP/IP")
 (update-user-startup)


 (set
  unpkt-source        NapsaFonts-pkt-file
  unpkt-destination    "Fonts:"
  unpkt-sdp        1
  unpkt-title-name    "NapsaTerm fonts"
  unpkt-title-not    "NapsaTerm special fonts"
 )
 (run-unpkt)


 (transcript "Updating Sana-II device drivers.")

 (if (NOT (= 2 (exists "DEVS:Networks")))
   (makedir "DEVS:Networks"))

 (working "Checking Sana-II device drivers...")

 (if (= 2 (exists dist-networks-dir))
   (foreach dist-networks-dir "#?.device"
     (copylib
       (prompt "Copying " @each-name " to:\n\nDEVS:Networks")
       (help @copylib-help)
       (source (tackon dist-networks-dir @each-name))
       (dest "DEVS:Networks")
       (infos)
       (optional "force")
       (confirm)
     )
   )
   (message "No Sana-II drivers found on the installation disk")
 )
)



;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(procedure install-mui

 (transcript "Selecting destination directory for the installation of MUI.")
 (set mui-dest
   (askdir
     (prompt "Select directory where to install " mui-name ".\nA drawer called MUI will be created")
     (help "Here you can specify the location where to install " mui-name ".\n"
           "Installer will create a subdirectory called `" mui-dir "' to the selected "
           "directory and copy the " mui-name " files to it.")
     (newpath)
     (default "SYS:")
   )
 )
 (if (exists (tackon mui-dest mui-dir))
   ((message "The drawer \"MUI\" already exists in the selected directory.\nIt will be renamed to \"MUI.old\".")
    (rename (tackon mui-dest mui-dir) (cat (tackon mui-dest mui-dir) ".old")
      (prompt "renaming old MUI dir")
      (help @rename-help))
   ))

 (textfile (dest (tackon mui-dest (cat mui-dir ".info")))
    (include "info.mui"))
 (set mui-dest (tackon mui-dest mui-dir))
 (makedir mui-dest)
 (makeassign mui-name mui-dest)

 (copy-mui-files-to-destination)

 (set mui-script "t:mui-script")
 (textfile
   (dest mui-script)
   (append "assign MUI: " mui-dest "\n"
           "assign LIBS: " (tackon mui-dest "Libs") " ADD\n"
           "assign LOCALE: " (tackon mui-dest "Locale") " ADD\n")
   (safe))
 (protect mui-script "+s +e")
 (execute mui-script)

 (set uus::commands (cat "assign " mui-assign " \"" mui-dest "\"\n"
                         "assign LIBS: \"" (tackon mui-assign "Libs") "\" ADD\n"
                         "assign LOCALE: \"" (tackon mui-assign "Locale") "\" ADD\n"))
 (set uus::section "MUI")
 (update-user-startup)
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Installatation sequence
;;;

;; Initialize "global" variables to default values (not complete)
;;
(set
 startup-changed        0
 must-reboot-after-install    0
 uus::commands            ""
)

(complete 00) (transcript "On making " app-name ".")
(complete 02) (check-system-version)
(complete 03) (check-old-assign)
(complete 04) (check-cpu-type)

(set @default-dest (if (= 2 (exists "Work:" (noreq)))
   "Work:"
   (cat (getdevice "SYS:") ":")))

(complete 5) (ask-install-options)
(complete 10) (if do-install-netconnect    (install-netconnect))
(complete 30) (if do-install-provider    (install-provider))
(complete 40) (if do-install-amitcp    (install-amitcp))
(complete 50) (if do-install-mui    (install-mui))
(complete 80) (if do-install-netconnect ((message "Configuring AmiTCP") (run "NetConnect:AmiTCPPrefs")))

(complete 90)
(if do-install-amitcp    ;; Ask if old configuration should be copied
  ((set-must-reboot)
   (if (exists (tackon conf-dir "passwd"))
     (transcript "There is already a user database.")
     ((complete 95) (install-user-databases)))
  )
)

(complete 100)
(exit (if startup-changed
  (cat "You should reboot your Amiga to enable the changes made to system startup files."))
  (if must-reboot-after-install
    (cat "\nYou MUST reboot before configuring " atcp-name ". Start \"AmiTCP Prefs\" from WorkBench after the reboot "
         "to configure your new " atcp-name " installation.\n")
  )
)
;; EOF
;;