;NAP-Mailer Installation script
;by Mirko Tocchella
;$VER: 1.0 (13-Apr-96)

(set @app-name "NAP-Mailer Installation")
(set @user-level 2)

(set osver (/ (getversion "LIBS:version.library") 65536))
(if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
(if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
(if (= osver 41) (set workbench "4.0"))

(set vernum1 (getversion "Mailer.exe")) (set ver1 (/ vernum1 65536))
(set rev1 (- vernum1 (* ver1 65536) ) ) (set NAPver (cat ver1 "." rev1))


(set #about (cat "\n\n\nWilkommen zu\n\nNAP-Mailer " NAPver "\n\nCopyright ©1996 by Mirko Tocchella\n\nAlle Rechte bleiben vorbehalten.\n") )
(set #where   "Wohin möchten Sie den NAP-Mailer installieren? Ein Verzeichniss mit dem Namen 'NAP-Mailer' wird erstellt, falls es noch nicht vorhanden ist.")
(set #whereh  "Wählen Sie eine Partition oder Verzeichniss aus, in welcher der NAP-Mailer samt allen Dateien kopiert werden soll. Ein spezielles Verzeichniss wird automatisch angelegt.")
(set #whered  "Wohin soll die Domkumentation des NAP-Mailers kopiert werden ?")
(set #wheredh "Sie können hier ein Verzeichniss aussuchen, in welches die Dokumentation des NAP-Mailers hineinkopiert wird.")
(set #old     "\n\nSie haben bereits eine Version des NAP-Mailers auf Ihrem System.\n\nWenn Sie fortfahren, wenden alle Programmdateien überschrieben (nicht das Adressbuch und die Konfigdateien).")
(set #copy       "Kopiere NAP-Mailer Dateien")
(set #copydok    "Kopiere NAP-Mailer Anleitung")
(set #wheredocs  "Wohin soll die Dokumentation zum NAP-Mailer installiert werden ?")
(set #modify_ss  (cat "Füge das NAP-Mailer Assign Ihrer \"s:user-startup\" Datei hinzu."))
(set #byebye "\nBitte führen Sie nun einen Neustart Ihres Amigas durch." )
(user 2)

;(message #about)
(welcome)
(user 2)
(message #about)

(set Package (getassign "NAP-Mailer"))
(if (= Package "")
(
        (set Package (getassign "AmiTCP"))
   (if (= Package "") (set Package (getassign "INET")))
        (set NAPdir (askdir (prompt #where) (help #whereh) (default Package)))
        (set NAPdir (tackon NAPdir "NAP-Mailer"))
        (makedir NAPdir (infos))
)
((set NAPdir Package)
(askbool (prompt #old) (help #old) (choices "Weiter" "Weiter")))
)
(complete 20)
(copyfiles (prompt #copy) (source "Mailer.exe") (newname "Mailer.exe") (help @copyfiles-help) (infos) (dest NAPdir))
(complete 25)
(copyfiles (prompt #copy) (source "Author.IFF") (newname "Author.iff") (help @copyfiles-help) (infos) (dest NAPdir))
(complete 30)
(makedir (tackon NAPdir "EINGANG"))
(complete 35)
(makedir (tackon NAPdir "AUSGANG"))
(complete 40)
(makedir (tackon NAPdir "GESENDET"))
(complete 45)
(makedir (tackon NAPdir "ARCHIV"))
(complete 50)
(makedir (tackon NAPdir "EINGANG1"))
(complete 55)
(makedir (tackon NAPdir "EINGANG2"))
(complete 60)
(makedir (tackon NAPdir "ARCHIV1"))
(complete 65)
(makedir (tackon NAPdir "ARCHIV2"))
(complete 70)
(makedir (tackon NAPdir "ReadIn"))
(complete 80)
(set DokDir (askdir (prompt #whered) (help #wheredh) (default NAPdir)))
(copyfiles (prompt #copydok) (source "NAP-Mailer.guide") (newname "NAP-Mailer.guide") (dest NAPdir) (infos))

(complete 90)
(makeassign "NAP-Mailer" NAPdir)
(startup "NAP-Mailer" (prompt #modify_ss) (help @startup-help) (command "Assign NAP-Mailer: \"" NAPdir "\"\n"))
(set @default-dest NAPdir)

(complete 100)
(exit #byebye)