;                                                                       __
; ---------------------------------------------------------------      ///
; Mail Manager Installation Script by Marco Musso & Pino Aliberti __  ///
; --------------------------------------------------------------- \\\///
;     Give credit where the credit is due                          \///

(set prompt-mmdir "Where should I install Mail Manager (a drawer called MM will be created) ?")
(set help-mmdir "You must choose where to create your MM: dir...")

(set prompt-startup "Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use Mail Manager")
(set help-startup "These are the assignments for a correct use of Mail Manager")

(set prompt-copy-locale "Shall I copy the locale files ?")
(set help-copy-locale "Answer 'Yes' if you want a localized MailManager.\nIn any case I'll keep a copy of the catalogs in MM:Locale.")

(set prompt-copy-font "Shall I copy the MMBrowse and MMClean Fonts ?")
(set help-copy-font "These are special fonts designed to allow more characters to be clearly displayed on the screen.")

(set message-MMprefs "Now I will run MM_Prefs.\nBy asking you for a little information MM_Prefs will create a default point configuration with which you should be immediatelly able to run Mail Manager as a 'normal' point")

(set yes-inst "Yes")

(set no-inst "No")


; ********************
; *** Main Program ***
; ********************

(set inst-dir (pathonly @icon))
(set main-dir (tackon inst-dir "//MM"))

(complete 0)

; *** ask the user for the MM: assign and create the directory
(set mmdir (askdir (prompt prompt-mmdir)
                   (help help-mmdir)
                   (disk)
                   (default "MAIL:")
           )
)

(set @default-dest (tackon mmdir "MM"))
(makedir @default-dest)

(set mm-info (tackon inst-dir "//MM.info"))
(copyfiles (source mm-info) (dest mmdir))

(if (not @pretend) (makeassign "MM" @default-dest))


; *** now we proceed with the real installation

; *** copy History and ReadMe files
(set history-files ("History#?"))
(copyfiles (source main-dir) (dest "MM:") (pattern history-files) (infos))

(set readme-files ("ReadMe#?"))
(copyfiles (source main-dir) (dest "MM:") (pattern readme-files) (infos))



; *** copy bin files
(makedir "MM:Bin")
(set mmbin-info (tackon inst-dir "/Bin.info"))
(copyfiles (source mmbin-info) (dest "MM:"))

(set bin-dir (tackon inst-dir "/bin"))
(copyfiles (source bin-dir)
           (dest "MM:Bin")
           (all)
           (infos)
)


(complete 10)


; *** copy docs files
(makedir "MM:Docs")
(set mmdocs-info (tackon inst-dir "/Docs.info"))
(copyfiles (source mmdocs-info) (dest "MM:"))

(set doc-dir (tackon inst-dir "/docs"))
(copyfiles (source doc-dir)
           (dest "MM:Docs")
           (all)
           (infos)
)


(complete 20)


; *** copy registration
(makedir "MM:Registration")
(set mmreg-info (tackon inst-dir "/Registration.info"))
(copyfiles (source mmreg-info) (dest "MM:"))

(set registration-dir (tackon inst-dir "/registration"))
(copyfiles (source registration-dir)
           (dest "MM:Registration")
           (all)
           (infos)
)


(complete 30)


; *** copy standard rexx files
(makedir "MM:Rexx")

(set stdrexx-dir (tackon inst-dir "/rexx"))
(copyfiles (source stdrexx-dir)
           (dest "MM:Rexx")
           (all)
           (optional nofail)
)


(complete 40)


; *** copy previews
(makedir "MM:Previews")
(set mmprev-info (tackon inst-dir "/Previews.info"))
(copyfiles (source mmprev-info) (dest "MM:"))

(set previews-dir (tackon inst-dir "/previews"))
(copyfiles (source previews-dir)
           (dest "MM:Previews")
           (all)
           (infos)
           (optional nofail)
)


(complete 50)


; *** copy contrib
(makedir "MM:Contrib")

(set contrib-dir (tackon inst-dir "/contrib"))
(copyfiles (source contrib-dir)
           (dest "MM:Contrib")
           (all)
           (optional nofail)
)


(complete 60)


; *** copy the default userlist
(set ex-userlist (tackon inst-dir "/other/MM.UserList"))
(copyfiles (source ex-userlist) (dest "MM:") )


(complete 70)


; *** copy example CFGs
(makedir "MM:Config")

(set config-dir (tackon inst-dir "/config"))
(copyfiles (source config-dir)
           (dest "MM:Config")
           (all)
           (optional nofail)
)


(complete 80)


; *** copy font files
(set fonts-dir (tackon inst-dir "/fonts"))
(if (askbool (prompt prompt-copy-font)
             (help help-copy-font)
             (default 1)
             (choices yes-inst no-inst))
        (copyfiles  (prompt prompt-copy-font)
                    (help help-copy-font)
                    (source fonts-dir)
                    (dest "FONTS:")
                    (all)
                    (optional nofail)
        )
)


(complete 90)


; *** warn the user that we must write to the user-startup
(startup "Mail Manager" (prompt prompt-startup)
                        (help help-startup)
                        (command
                                "if exists \"" @default-dest "\"\n"
				"   assign MM: \"" @default-dest "\"\n"
				"endif\n"
                        )
)


(complete 95)

; *** Run MM_Prefs
( message message-MMprefs )

(run "MM:Bin/MM_Prefs")


(complete 100)

; **********************************************
; **** End Mail Manager Installation Script ****
; **********************************************