; This Will Install Monalisa in your HardDisk system.
; Copyright 1993/94 by Celso Martinho.

(transcript "Installing Monalisa...")

(message "\n\n\nThis installation script installs Monalisa in your system. "
         "Please answer wysely and read carefully all the questions "
         "that are asked to you. Some default configurations are "
         "based in your answers here.\n\n")

(set @default-dest
  (askdir
    (prompt "In which disk or drawer should Monalisa gateway software be installed ? \n(A drawer for Monalisa will be created)")
    (help @askdir-help)
    (default @default-dest)
  )
)

(makedir (tackon @default-dest "Monalisa"))
(copyfiles
  (source "Monalisa.inf")
  (dest @default-dest)
  (newname "Monalisa.info")
)
(makedir (tackon @default-dest "Monalisa/Preferences")
  (prompt "Creating Preferences directory")
)
(makedir (tackon @default-dest "Monalisa/Logs")
  (prompt "Creating Logs directory")
)

(set tools
  (askoptions
    (prompt "Which Monalisa tools do you want to install?\n"
            "(The complete pack is highly recomended. If not"
            " all tools are installed, Monalisa may not work correctly.)")
    (default 15)
    (help @askoptions-help)
    (choices "PKTGen" "Fido2UUCP" "UUCP2Fido")
  )
)

(if (<> tools 0)
  (
    (makedir (tackon @default-dest "Monalisa/Executables"))
    (copyfiles
       (source "")
       (dest (tackon @default-dest "Monalisa/"))
       (pattern "Executables.info")
    )
  )
)

(if (in tools 0)
  (
    (makedir (tackon @default-dest "Monalisa/Executables/PKTGenerator")
      (prompt "Creating PKTGen directory")
    )
    (copyfiles
      (source "Executables/")
      (dest (tackon @default-dest "Monalisa/Executables"))
      (pattern "PKTGenerator.info")
    )
    (copyfiles
      (prompt "Copying PKTGen to Executables/")
      (help @copyfiles-help)
      (source "Executables/PKTGenerator/")
      (dest (tackon @default-dest "Monalisa/Executables/PKTGenerator/"))
      (pattern "#?")
    )
  )
)

(if (in tools 1)
  (
    (makedir (tackon @default-dest "Monalisa/Executables/Fido2UUCP")
      (prompt "Creating Fido2UUCP directory")
    )
    (copyfiles
      (source "Executables/")
      (dest (tackon @default-dest "Monalisa/Executables"))
      (pattern "Fido2UUCP.info")
    )
    (copyfiles
      (prompt "Copying Fido2UUCP to Executables/")
      (help @copyfiles-help)
      (source "Executables/Fido2UUCP/")
      (dest (tackon @default-dest "Monalisa/Executables/Fido2UUCP/"))
      (pattern "#?")
    )
  )
)

(if (in tools 2)
  (
    (makedir (tackon @default-dest "Monalisa/Executables/UUCP2Fido")
      (prompt "Creating UUCP2Fido directory")
    )
    (copyfiles
      (source "Executables/")
      (dest (tackon @default-dest "Monalisa/Executables"))
      (pattern "UUCP2Fido.info")
    )
    (copyfiles
      (prompt "Copying UUCP2Fido to Executables/")
      (help @copyfiles-help)
      (source "Executables/UUCP2Fido/")
      (dest (tackon @default-dest "Monalisa/Executables/UUCP2Fido/"))
      (pattern "#?")
    )
  )
)

(set contributions
  (askoptions
    (prompt "Which contribution utilities do you want installed?\n"
            "(Convert 2.0 is used in UUCP2Fido and Fido2UUCP.\n"
            "The others are optional and some are system\n"
            " specific utilities.)")
    (default 7)
    (help @askoptions-help)
    (choices "Convert 2.0" "Monalisa Scripts" "NNTPGet utilities")
  )
)

(if (<> contributions 0)
  (
    (makedir (tackon @default-dest "Monalisa/Contributions"))
    (copyfiles
       (source "")
       (dest (tackon @default-dest "Monalisa/"))
       (pattern "Contributions.info")
    )
  )
)

(if (in contributions 0)
  (
    (makedir (tackon @default-dest "Monalisa/Contributions/Convert")
      (prompt "Creating Convert directory")
    )
    (copyfiles
      (source "Contributions/")
      (dest (tackon @default-dest "Monalisa/Contributions/"))
      (pattern "Convert.info")
    )
    (copyfiles
      (prompt "Copying Convert to Contributions/")
      (help @copyfiles-help)
      (source "Contributions/Convert/")
      (dest (tackon @default-dest "Monalisa/Contributions/Convert/"))
      (all)
    )

(set env_setts
      (askbool
        (prompt "\nWould you like to install reqtools.library\n"
                "from Nico Francois in your LIBS: directory ?\n"
                "(It's needed for Convert 2.0 to work.)\n"
                "(It will not be copied if a newer version is present)")
        (help "\nreqtools.library will not overwrite your LIBS: "
              "directory if the current version of reqtools is "
              "higher than this one.")
        (choices "YES" "NO")
        (default 1)
        )
    )

(if (= env_setts 1)
  (copylib
  (source "Contributions/Convert/OS2.0/libs/reqtools.library")
  (dest "LIBS:")
  )
)

(message "\n\n\nWARNING!\n\n"
         "Don't move Convert Script files away from their original "
         "paths. These are kown by Fido2UUCP and UUCP2Fido as"
         "unique and available.\n")
	)
)

(if (in contributions 1)
  (
    (makedir (tackon @default-dest "Monalisa/Contributions/Scripts")
      (prompt "Creating Scripts directory")
    )
    (copyfiles
      (source "Contributions/")
      (dest (tackon @default-dest "Monalisa/Contributions/"))
      (pattern "Scripts.info")
    )
    (copyfiles
      (prompt "Copying Scripts to Contributions/")
      (help @copyfiles-help)
      (source "Contributions/Scripts/")
      (dest (tackon @default-dest "Monalisa/Contributions/Scripts/"))
      (all)
    )
  )
)

(if (in contributions 2)
  (
    (makedir (tackon @default-dest "Monalisa/Contributions/NNTPGet")
      (prompt "Creating NNTPGet directory")
    )
    (copyfiles
      (source "Contributions/")
      (dest (tackon @default-dest "Monalisa/Contributions/"))
      (pattern "NNTPGet.info")
    )
    (copyfiles
      (prompt "Copying NNTPGet to Contributions/")
      (help @copyfiles-help)
      (source "Contributions/NNTPGet/")
      (dest (tackon @default-dest "Monalisa/Contributions/NNTPGet/"))
      (all)
    )
  )
)

(set documentation
  (askbool
    (prompt "\nWould you like to install Monalisa Documentation ?")
    (help "\nMonalisa Documentation is highly recomended.")
    (choices "YES" "NO")
    (default 1)
  )
)

(if (= documentation 1) (
    (makedir (tackon @default-dest "Monalisa/Documentation")
      (prompt "Creating Documentation directory"))
    (copyfiles
      (source "")
      (dest (tackon @default-dest "Monalisa/"))
      (pattern "Documentation.info")
    )
    (copyfiles
      (prompt "Copying Docs to Documentation/")
      (help @copyfiles-help)
      (source "Documentation/")
      (dest (tackon @default-dest "Monalisa/Documentation/"))
      (pattern "#?")
    )
  )
)

(makeassign "MONALISA" (tackon @default-dest "Monalisa/"))
(startup "Monalisa Gateway"
  (prompt  "\nI will write some lines in your s:user-startup file. "
           "The purpose is to Assign MONALISA: to Monalisa's "
           "directory each time your system resets. MONALISA: "
           "assign is absolutely necessary. Don't remove it! ")
  (help    "\nThis is safe. Your user-startup will not be corrupt")
  (command "Assign MONALISA: \"" (tackon @default-dest "Monalisa/") "\"")
)

(set prefs
  (askbool
    (prompt "\nWould you like to install the\n default Preference Files ?\n"
            "Monalisa Modules will never start without these!\n\n"
            "If you are upgrading from archive 1.0a to 1.0b, answer NO "
            "and use the convertion program for UUCP2Fido after this "
            "installation. Check the Update/ directory.")
    (help "\nMonalisa Preferences must be present for it to work.")
    (choices "YES" "NO")
    (default 1)
  )
)

(if (= prefs 1) (
    (copyfiles
      (prompt "Copying Prefs to Preferences/")
      (help @copyfiles-help)
      (source "Preferences/")
      (dest (tackon @default-dest "Monalisa/Preferences/"))
      (pattern "#?")
    )
  )
)

(set mesgprefs
  (askbool
    (prompt "\nWould you like to install the\n error messages directory ?\n"
            "Default configurations look for messages here.")
    (help "\nThe messages can be edited in the future.")
    (choices "YES" "NO")
    (default 1)
  )
)

(if (= mesgprefs 1) (
    (makedir (tackon @default-dest "Monalisa/Messages")
      (prompt "Creating Preferences directory")
    )
    (copyfiles
      (prompt "Copying Message directory to Messages/")
      (help @copyfiles-help)
      (source "Messages/")
      (dest (tackon @default-dest "Monalisa/Messages/"))
      (pattern "#?")
    )
  )
)

(message "\n\n\nMonalisa requires that you have your Workbench "
         "installed correctly. This doesn't mean that it can't "
         "work with Floppy-Disk based systems but it's highly "
         "recommended that you have a Hard-Disk present.\n\n"
         "DONE!\n\n")

(message "\nIf you are upgrading from archive 1.0a to 1.0b "
         "you may want to run U2FConvert10a10b right away.\n\n"
         "Open the Update drawer and click twice in the icon")