Amiga ISO Collection/AmigaUtilCD1.iso/Fax/GPFA.DMS/in.adf/Install-GPFax

Text File | 1994-02-27 | 11.5 KB | 507 lines

; Script to install GPFax Class 1 software
;
; GPFINSTALL_VERSION    $VER: install-GPFax C1 1 2.9.93
;

    ; set up a error cleanup routine


; predefined modem init strings for Class 1 modems

(set C1I_USR    "ATE0V1X4&D2S0=0&H2&B1")
(set C1I_COMMA    "ATE0V1X4&D2*F2S0=0")
(set C1I_AVTEK    "AT&F+C61E0B0X4&C1&D2&P1")
(set C1I_ICE    C1I_AVTEK)
(set C1I_224    "AT&FE0B0X4&C1&D2&P1")
(set C1I_GEN    "AT&F&C1&D2S7=90")
(set C1I_SUP      "AT&F2E0")
(set C1I_144      C1I_GEN)

(set C1T_USR    "USRobotics")
(set C1T_COMMA     "Comma or Spirit")
(set C1T_AVTEK     "Avtek / NetComm Pocket")
(set C1T_ICE     "AutoIce")
(set C1T_224      "Rockwell 224 chipset")
(set C1T_SUP      "Supra 144LC")
(set C1T_144      "Generic 144LC")
(set C1T_GEN      "Generic Class 1")

(set C1M_USR    "USR")
(set C1M_COMMA     "COMMA")
(set C1M_AVTEK     "AVTEK")
(set C1M_ICE     "AC3")
(set C1M_224      "G224")
(set C1M_SUP      "SUPRA144LC")
(set C1M_144      "144LC")
(set C1M_GEN      "GENERICC1")


; predefined modem init strings for Class 2 modems

(set C2I_GEN    "AAT&FE0V1X4&K3&C1&D2S0=0")
(set C2I_SUPRA    "AT&F2E0")
(set C2I_ZYXEL    "AT&FE0")
(set C2I_AVTEK    C2I_GEN)
(set C2I_PP    C2I_GEN)

(set C2T_SUPRA     "Supra Class 2")
(set C2T_ZYXEL    "ZyXEL")
(set C2T_AVTEK    "Avtek CD930 or M7F")
(set C2T_PP    "Pract.Periph. / MR&D")
(set C2T_GEN      "Generic Class 2")

(set C2M_SUPRA    "SUPRA")
(set C2M_GEN      "GENERICC2")
(set C2M_ZYXEL    "ZYXEL")
(set C2M_AVTEK    "AVTEK")
(set C2M_PP    "PP")

(set CLASS1    "GPFax Class 1")
(set CLASS2    "GPFax Class 2")
(set CLASSX    "Unknown Test Modem")




(procedure findclass
    (textfile
    (dest "RAM:tmp_cmd")
    (append     "GPFax:checkclass\n")
    )
    (execute "RAM:tmp_cmd")
    (set classtype (getenv "faxclass"))
)


(onerror
    (makeassign "GPFax_Disk" (safe))
)


(complete 0)

    ; just in case the installation was restarted

(makeassign "GPFax_Disk" (safe))        ; start fresh

    ; see if this is really an update



(set is_update 0)
(set GPFax_dest (getassign "GPFax" "a"))


    ; if update, be sure they want program in same place

(if GPFax_dest
    (if (askbool
            (prompt "Your current copy of GPFax appears to be located in the drawer named \""
                    GPFax_dest
                    "\". Do you want the update installed in that drawer?"
            )
            (help
                "The installer has determined that you may already have a "
                "copy of GPFax installed on your system. If this is wrong or "
                "you want the update installed elsewhere, select NO as an "
                "answer. Otherwise, select YES."
            )
            (default 1)
        )

        (set is_update 1)        ; if user wants in same place

        (set GPFax_dest            ; if user wants in different place
            (tackon
                (askdir
                    (prompt "A In which disk or drawer should GPFax be installed?")
                    (help @askdir-help)
                    (default @default-dest)
                )
                "GPFax"
            )
        )
    )


; else if not an update, get a location for program
;
    (set GPFax_dest
        (tackon
            (askdir
                (prompt "B In which disk or drawer should GPFax be installed?")
                (help @askdir-help)
                (default @default-dest)
            )
            "GPFax"
        )
    )
)

(set modemclass 2)
(set classtype    0)
(set screen 0)
(set colours 0)
(set whichmodem 0)

(until (= AllDone 5)
    (set AllDone 10) ; reinit for loop
    (set modemclass
        (askchoice
        (prompt "Which version of GPFax do you wish to install?.")
        (choices CLASS1 CLASS2 CLASSX)
        (help "\nSelect FAX Class for your modem.\n If unknown please READ the modem manual first!.\n")
        (default modemclass)
        )
    )


    (if    ( = modemclass 0)
        (set classtype 1)
        (set classtype 2) ;else
    )

    (if    (= modemclass 2) ;CLASSX
        (if     (askbool
            (prompt "\nThe Installer will now attempt to check your modem.\n\n"
                "Please ensure that the modem is switched on and connected to your Amiga.\n\n"
                "NOTE: If your modem is not connected, abort this install, switch your computer off before you connect your modem to the serial port!")
            (help "\nGPFax will attempt to determine the fax class by interrogating your modem.\n")
            (choices "Yes Check" "No Reselect")
            (default 1)
            )
            (
                (findclass)
                (if     (= classtype 0)
                    (
                        (set AllDone 1)
                        (if    (askbool
                            (prompt "\nERROR!\nEither your modem did not respond or it is not fax capable!")
                            (help "\nIncorrect response from modem! Try again?\n")
                            (choices "Reselect" "Reselect")
                            (default 0)
                            )
                        )
                    )
                    (if     (askbool ;else type!=0
                        (prompt "\nYour modem reports fax class = " classtype)
                        (help "\nThis should report 1 for Class 1 modems or 2 for TR29.2 Class 2 modems\n")
                        (choices "Ok Continue" "Reslect")
                        (default 1)
                        )
                        (set AllDone 10)
                        (set AllDone 1) ;else reselect
                    )
                )
            )
            (set AllDone 1) ;else reselect
         )
    )



    (if    (= AllDone 10)
        (
            (if    ( = classtype 1)
                (
                    (set whichmodem
                        (askchoice
                        (prompt "GPFax Class 1 software will run on most\nGeneric Class 1 fax modems.\n Please select your modem type.")
                        (choices C1T_USR C1T_COMMA C1T_AVTEK C1T_ICE C1T_224 C1T_SUP C1T_144 C1T_GEN )
                        (help "\nSelect the Brand of your modem.\n If not listed select "C1T_GEN"\n")
                        (default whichmodem)
                        )
                    )
                    (set modem (select whichmodem      C1M_USR C1M_COMMA C1M_AVTEK C1M_ICE C1M_224 C1M_SUP C1M_144 C1M_GEN ))
                    (set init  (select whichmodem       C1I_USR C1I_COMMA C1I_AVTEK C1I_ICE C1I_224 C1I_SUP C1I_144 C1I_GEN ))
                    (set modemname (select whichmodem C1T_USR C1T_COMMA C1T_AVTEK C1T_ICE C1T_224 C1T_SUP C1T_144 C1T_GEN ))
                    (set classname "Class 1")


                )
                (if    ( = classtype 2) ;else
                    (
                        (set whichmodem
                            (askchoice
                            (prompt "GPFax Class 2 software will run on most\nGeneric Class 2 fax modems.\n Please select your modem type.")
                            (choices C2T_SUPRA C2T_ZYXEL C2T_AVTEK C2T_PP C2T_GEN)
                            (help "\nSelect the Brand of your modem.\n If not listed select "C2T_GEN".\n")
                            (default whichmodem)
                            )
                        )
                        (set modem (select whichmodem  C2M_SUPRA C2M_ZYXEL C2M_AVTEK C2M_PP C2M_GEN))
                        (set init  (select whichmodem  C2I_SUPRA C2I_ZYXEL C2I_AVTEK C2I_PP C2I_GEN))
                        (set modemname (select whichmodem C2T_SUPRA C2T_ZYXEL C2T_AVTEK C2T_PP C2T_GEN))
                        (set classname "Class 2")

                    )
                )
            )


            (if     (askbool
                (prompt "\nThe default Modem Init string\n for your " modemname " modem\n"
                    "is \n" init "\n\n"
                    "Do you wish to change this or use the default?")
                (help "\nIf in doubt use the default. If you wish you change the string, please consult intructions from your modem manufacturer")
                (choices "Accept Default" "Modify")
                (default 0)
                )
                (
                    (set definit 0) ;default
                )
                (
                    (set definit 1) ;modify
                    (set init
                        (askstring
                            (prompt "Your selected modem type is "     (select whichmodem C1T_USR C1T_COMMA C1T_AVTEK C1T_ICE C1T_224 C1T_SUP C1T_144 C1T_GEN)
                                "\nPlease confirm the Modem Initialisation Commands.")
                            (help "\nThis should be carefully selected according to the instructions from your modem manufacturer.")
                            (default init)
                        )
                    )
                )
            )
        )

    )

    (if    (= AllDone 10)
        (
            (set screen
                (askchoice
                (prompt "Please select the Screen type for GPFax")
                (choices "Custom Screen" "WorkBench" )
                (help "\nGPFax can run on the Workbench Screen or on its own Custom Screen. This is controlled by the toolttype SCREEN= in the GPFax icon.\n")
                (default screen)
                )
            )
            (if    (= screen 0)
                (set colours
                    (askchoice
                    (prompt "On the Custom Screen, do you wish to use our Workbench2 style Colours or the current default Workbench Colours?")
                    (choices "Use Custom Colours" "Use WorkBench Colours" )
                    (help "\nOn a custom screen you can use the GPFax default colours or use the default colour set from Workbench.\nIf using a 2024 or moniterm monitor choose WB colours.\n")
                    (default colours)
                    )
                )
                (set colours 0) ;else

            )

            (if    ( = screen 0)
                (set cp (cat "\nColour Prefs : " (select colours  "GPFax Custom" "WB Colours" )))
                (set cp "\n")
            )


            (if    (askbool
                    (prompt "Your have selected the following settings:-\n "
                        "\nModem Class  : " classname
                        "\nModem Type   : " modemname
                        "\nInitString   : " init
                        "\nScreenType   : " (select screen "Customscreen" "Workbench" )
                        cp
                    )
                    (help "\nIf details are not correct you may re-select any choice\n")
                    (choices  "Re-Enter" "Correct") ;reverse choice to force accept
                    (default 0)
                )
                (set AllDone 1) ;reenter
                (set AllDone 5) ; correct
            )
        )
    )

)

        ; now lock on to volume 'GPFax'

    (askdisk
    (prompt "Please insert \n the master program disk \n labeled \"GPFax\".")
    (help    "The GPFax program and other options will be copied "
            "from the \"GPFax\" into your system.")
    (dest  "GPFax")
    (newname "GPFax_Disk")
)

    ; make GPFax drawer & icon if not there

(if (not is_update)
    (makedir GPFax_dest (infos))
)

    ; at this point we have a valid destination, so we tell installer where
    ; the application will end up so the exit page will be correct -- also,
    ; the installation log file (if any) will be copied to the destination
(set @default-dest GPFax_dest)


(set whichfiles
    (askoptions
        (prompt "Please select the files to be copied")
        (help    "This allows you to select only certain parts of the GPFax "
            "system to be installed on your hard drive. For normal installation "
            "select all the items")
        (choices "GPFax program, printer driver & fonts"
             "ViewFax program"
             "Update Notes"
             "Sample Fax files"
             "ARexx Examples")

    )
)


(if    (in whichfiles 0)
    (


        (working "\n\nInstalling GPFax Class " classtype " program\n")
        (textfile
            (dest "RAM:install_cmd")
            (append
            "GPFax_Disk:lha  x GPFax_Disk:z.lha " classtype " RAM:\n"
            "copy RAM:" classtype "  \"" (tackon GPFax_dest "GPFax")"\"" "\n"
            "delete RAM:"classtype "\n"
            )
        )
        (execute "RAM:install_cmd")
        (run "delete ram:#?_cmd")

        (copyfiles
            (source "GPFax_Disk:GPFax.info")
            (dest GPFax_dest)
        )

        (copyfiles
            (source "GPFax_Disk:devs/printers/gpfax.driver")
            (dest "DEVS:printers")
        )

        (copyfiles
            (source "GPFax_Disk:fonts")
            (dest "FONTS:")
            (all)
        )

        (copyfiles
            (source "GPFax_Disk:DataMessage.txt")
            (dest GPFax_dest)
        )

    )
)

(complete 50)

(if    (in whichfiles 1)
    (copyfiles
        (source "GPFax_Disk:ViewFax")
        (dest GPFax_dest)
        (infos)
    )
)

(complete 75)

(if    (in whichfiles 2)
    (copyfiles
        (source "GPFax_Disk:Updates")
        (dest GPFax_dest)
        (infos)
    )
)

(complete 80)


(tooltype
    (dest GPFax_dest)
    (noposition)
)


(makedir (tackon GPFax_dest "FAX_OUT")    (infos))

(makedir (tackon GPFax_dest "FAX_IN")    (infos))


(if    (in whichfiles 3)
    (
        (copyfiles
            (source "GPFax_Disk:Fax_in")
            (dest (tackon GPFax_dest "Fax_in"))
            (all)
            (infos)
        )
        (copyfiles
            (source "GPFax_Disk:Fax_in")
            (dest (tackon GPFax_dest "Fax_in"))
            (all)
            (infos)
        )
    )
)

(if    (in whichfiles 4)
    (
        (copyfiles
            (source "GPFax_Disk:Rexx_Samples")
            (dest (tackon GPFax_dest "Rexx_Samples"))
            (all)
            (infos)
        )
    )
)


(tooltype
    (dest (tackon GPFax_dest "GPFax"))
    (if    definit
        (settooltype "INITSTRING" init)
    )
    (settooltype "MODEMTYPE" modem)
    (settooltype "SCREEN" (select screen "CUSTOMSCREEN" "WORKBENCH" ))
    (if    colours
        (settooltype "USEWBCOLOURS" "TRUE")
        (settooltype "USEWBCOLOURS")
    )
)

(complete 95)

;     modify S:User-Startup

(startup "GPFax"
    (prompt
        "Some instructions need to be added to the \"S:user-startup\" "
        "so that your system will be properly configured to use GPFax.")
    (help "Do this or GPFax won't work!!")
    (command
        "ASSIGN GPFax: \"" GPFax_dest "\"\n"
    )
)

;     reinitialize assigns

(if (not @pretend)
    (makeassign "GPFax" GPFax_dest)

)



(complete 100)

    ; cleanup

(makeassign "GPFax_Disk" (safe))

    ; this is not strictly necessary, but doesn't hurt -- there is always
    ; a default (exit) at the end of any script

(exit)