Amiga ISO Collection/AmigaUtilCD1.iso/Disk&HD/LFC-DM21.DMS/in.adf/INSTALL-DiskMAGIC2_HD

Text File | 1997-02-19 | 9.5 KB | 488 lines

;$VER: DiskMAGIC version 2.96
;(c) Copyright 1996 HiSoft
;DiskMAGIC 2 Installation script - S Marriott

(set #introduction
(cat "\nThis installer allows you to install \n\nDiskMAGIC 2\n\n to your "
     "Hard drive or update an existing version.\n"
     "Please make sure you have at least 1.8Mb of free disk space\n\n"))

(set #no-inst
(cat "\nThere is not enough free disk space on the seleceted partition "
     "\n"
     "Installation ABORTED "))


(set #COPYDIR    (cat "\nPlease select the location for the DiskMAGIC drawer\n\n"
))

(set #SIZE 1)

(set @language "English")

(set os-version (/ (getversion) 65536))
(set os-13 (< os-version 36))
(set os-20 (>= os-version 36))
(set os-21 (>= os-version 38))



(Procedure Inst_NormFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @display (cat "Copy "@FName" from "@SOURCE" \nto "@Dest))
    (copyfiles (prompt @display)(help @copyfiles-help)(source @Source)(choices @FName)(files)(infos)(dest @Dest)(confirm))
)

(Procedure Inst_PatternFiles
    (if (< (getdiskspace @Dest) @Size)
        (abort #no-inst))

    (set @display (cat "Copy "@FName" from "@SOURCE" \nto "@Dest))
    (copyfiles (prompt @display)(help @copyfiles-help)(source @Source)(pattern @Pattern)(infos)(dest @Dest)(confirm))
)



(message #introduction)
(welcome)
(set old_level @user-level)

(complete 0)


(set @default-dest
    (askdir
        (prompt #COPYDIR)
        (help    #askdir-help)
        (default "WORK:")
    )
)

(set @default-dest (tackon @default-dest "DiskMAGIC"))
(set @default-src "DiskMAGIC_2:")


(if
    (= (exists @default-dest) 0)
    (makedir @default-dest)
)

(if
    (= (exists "locale:catalogs/english/mt.catalog") 1)
    (delete "locale:catalogs/english/mt.catalog")
)


(set oldflag 0)

(if
    (=
    (AND (exists (tackon @default-dest "DiskMAGIC"))
          (exists (tackon @default-dest "Config"))) 1)

(
    (message "\nYou already have a version of DiskMAGIC "
                "installed on your system. "
                "The installer will replace the old version "
                "with the current version.\n\n"
    )
    (set oldflag 1)




(set configflag
    (askchoice              ; old prefs will be lost
        (prompt     "DiskMAGIC 2 contains new menus, gadgets "
                "and file types as well as new Archive definitions.\n "
                "If you install these, then you old settings "
                "will be lost.\n\n "

                "When installing the new preferences, the old "
                "config files will be stored under the extension .bak\n"
                "So that these can be restored again if necessary.")
        (help "For more information see the manual page A-4. ")
        (choices "Install new config files" "Do not install new config files")
        (default 1)
    )
)

    (if (= configflag 1)
     (
        (message    "\nThe new prefs will not  "
                    "be installed.\n"

                    "The following prefs will be lost:\n "
                    "Screen, Window, colours and Startup-Sequence "
                    "or scripts.\n"
        )
     )
    )

    (if (= configflag 0)
     (
        (message "\nThe new prefs will be installed. The following "
                    "config files will be relplaced by new ones:\n"
                    "arc.cfg, filetypes.cfg, gadgets.cfg, menus.cfg\n\n"
                    "The old config files have been renamed to:\n"
                    "arc.bak, filetypes.bak, gadgets.bak, menus.bak"

        )
     )
    )

)



)

    (askdisk
        (prompt "\n\n\nPlease insert Disk 1")
        (help #askdir-help)
        (dest "DiskMAGIC_2")
    )



(complete 5)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "DiskMAGIC2")
    (set @Size #SIZE)
    (Inst_PatternFiles)
)



(if
    (= (exists (tackon @default-dest "DiskMAGIC")) 1)
    (
    (delete (tackon @default-dest "DiskMAGIC"))
    )
)


(if
    (= (exists (tackon @default-dest "DiskMAGIC.info")) 1)
    (
    (delete (tackon @default-dest "DiskMAGIC.info"))
    )
)


(if
    (= (exists (tackon @default-dest "Symbole.iff")) 1)
    (
    (delete (tackon @default-dest "Symbole.iff"))
    )
)





(complete 10)


(if (= oldflag 1)
 (


    (if (= configflag 1)
    ; Do not install new configs

    (

        (set @Source (tackon @default-src "Config"))
        (set @Dest (tackon @default-dest "Config"))


       (set @Pattern "patterns.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "drwbrushes.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "MTConfig")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "internals.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

    )
    )


    (if (= configflag 0)
    ; Install new configs

    (


        (set @Source (tackon @default-src "Config"))
        (set @Dest (tackon @default-dest "Config"))

        (rename (tackon @Dest "arc.cfg") (tackon @Dest "arc.bak"))
        (rename (tackon @Dest "filetypes.cfg") (tackon @Dest "filetypes.bak"))
        (rename (tackon @Dest "gadgets.cfg") (tackon @Dest "gadgets.bak"))
        (rename (tackon @Dest "menus.cfg") (tackon @Dest "menus.bak"))


       (set @Pattern "arc.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "filetypes.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "gadgets.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "menus.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "patterns.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "drwbrushes.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "MTConfig")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

       (set @Pattern "internals.cfg")
        (copyfiles (source @Source) (dest @Dest) (pattern @Pattern))

    )
    )

 )
)




(if (= oldflag 0)
 (
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Config")
    (set @Size 80000)
    (Inst_PatternFiles)
 )

)



(complete 20)


(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Prefs")
    (set @Size 300000)
    (Inst_NormFiles)
)

(complete 30)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "Icons")
    (set @Size 40000)
    (Inst_NormFiles)

)


(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "read.me")  ; please read
    (set @Size 1000)
    (Inst_PatternFiles)
)


(complete 40)


(
(set @Source (tackon @default-src "catalog/english"))
(set @Dest (tackon @default-dest "LOCALE:Catalogs/english"))
(set @FName "mt.catalog")
(set @Size 26000)
(Inst_NormFiles)
)

    (makedir (tackon @default-dest "libs"))

(
    (set @Source @default-src)
    (set @Dest (tackon @default-dest "libs"))
   (set @FName "mt.library")
    (set @Size 30000)
    (Inst_NormFiles)
)


(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "rexx")
    (set @Size 125000)
    (Inst_NormFiles)
)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "c")
    (set @Size 12000)
    (Inst_PatternFiles)
)

    (askdisk
        (prompt "\n\n\nPlease insert disk 2")
        (help #askdir-help)
        (dest "DM2_Disk2")
    )

(set @default-src "DM2_Disk2:")
(complete 50)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "LHA")
    (set @Size 125000)
    (Inst_PatternFiles)
)


(complete 60)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "docs")
    (set @Size 125000)
    (Inst_PatternFiles)
)



(complete 70)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @Pattern "Module")
    (set @Size 5000)
    (Inst_PatternFiles)
)


(complete 80)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
    (set @Pattern "Brushes")
    (set @Size 125000)
    (Inst_PatternFiles)
)

(complete 90)

(
    (set @Source @default-src)
    (set @Dest @default-dest)
   (set @FName "MT_Symbole.iff")
    (set @Size 180000)
    (Inst_NormFiles)
)



(complete 95)





    (
    ; ------- Change startup



    (set command1 (cat "SETENV MTPATH=" "\"" @default-dest "\""))
    (set command2 (cat "ASSIGN LIBS: " "\"" (tackon @default-dest "LIBS\" ADD")))
    (set command3 (cat "PATH " "\"" (tackon @default-dest "LHA\" ADD")))
    (set command1.txt
        (cat
             "\n\n\nDiskMAGIC 2 will now assigns paths to the user-startup.\n\n"
        )
    )

    (startup "DiskMAGIC"
        (prompt command1.txt)
        (help #help-startup)
        (command command1)
        (command (cat "\n" command2))
        (command (cat "\n" command3))
        (if (= iconifyflag 0)
         (
            (command (cat "\n" command4))
         )
        )

    )
    )

    (run command1)
    (run command2)
    (run command3)

(complete 100)

; ------- End


(USER 2)
    (Message "DiskMAGIC 2 Installation complete..\n"
        "\nTo obtain your 30 days free technical support and notification of"
        " updates, please complete your registration card and return"
        " it to:-\n\n"
        "          North America            Rest of world    \n"
        "         Oregon Research              HiSoft        \n"
        "    16200 S.W. Pacific Highway    The Old School    \n"
        "            Suite 162               Greenfield      \n"
        "             Tigard                 Bedford, UK     \n"
        "            OR 97224                 MK45 5DE       \n"
        "Phone: [phone]            [phone]   \n"
        "FAX:   [phone]            [phone]   \n"
        "EMail: [e-mail]       [e-mail]\n"
        )

    (Message "Please remember, UK technical support is\n between 2-3p.m."
            " Mon-Fri\nIf you need technical support, please remember to have when you"
        " phone, your:-\nSerial Number\nSoftware version number\nMachine"
        " configuration (RAM,Processor,Hard disk etc.)\n\n Please also have a"
        " clear and concise description of the problem you are having to ensure"
        " that we can deal with your problem as quickly as possible.\n\n"
        " Select Proceed to quit to Workbench"
        "\n Please reboot for the changes to take effect...")



;=============================================================================