Version 43.3
This commit is contained in:
commit
b6d82513ce
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
|
@ -0,0 +1,114 @@
|
|||
|
||||
Installer 43.3 Electronic Product License Agreement 3-May-96
|
||||
|
||||
Installer 43.3 and Installer project icon (hereinafter "Files") and
|
||||
their related documentation, utilities, and examples
|
||||
(c) Copyright 1995-96 Escom AG. All Rights Reserved
|
||||
|
||||
These Files and their related documentation, utilities, and examples
|
||||
are provided "AS-IS" and subject to change without notice; no warranties
|
||||
are made. All use is at your own risk. No liability or responsibility
|
||||
is assumed.
|
||||
|
||||
A. DISTRIBUTION OF UNMODIFIED INSTALLER DEVELOPER ARCHIVE
|
||||
|
||||
The complete and unmodified Installer developer archive, as provided
|
||||
by Escom or AMIGA Technologies, may be freely redistributed via any
|
||||
means which preserves its copyrights. The archive may not be sold for
|
||||
profit.
|
||||
|
||||
|
||||
B. DISTRIBUTION OF INSTALLER
|
||||
|
||||
Specific Files from the archive may be reproduced and distributed
|
||||
separately under license subject to agreement with the following terms
|
||||
and conditions (wherein the reference to Files shall mean Installer and
|
||||
the Installer project icon, either individually or collectively):
|
||||
|
||||
1. The Files may be reproduced but may not be modified in any way.
|
||||
|
||||
2. The Files may only be distributed as an integral part of a software
|
||||
product solely for AMIGA computers.
|
||||
|
||||
3. The related documentation, utilities, and examples provided by
|
||||
Escom or AMIGA Technologies may not be reproduced or distributed,
|
||||
in whole or in part, except as part of a complete and unmodified
|
||||
archive as provided by Escom or AMIGA Technologies.
|
||||
|
||||
4. Licensee shall hold Escom and AMIGA Technologies harmless from any
|
||||
and all claims, damages and liabilities resulting from or arising
|
||||
out of its use or distribution of the Files.
|
||||
|
||||
5. All copies of Licensee's software product containing the Files and
|
||||
of Licensee's product documentation related thereto (either paper
|
||||
or electronic) must include the following copyright notice:
|
||||
|
||||
Installer and Installer project icon
|
||||
(c) Copyright 1995-96 Escom AG. All Rights Reserved.
|
||||
Reproduced and distributed under license from Escom AG.
|
||||
|
||||
6. Licensee's product documentation (either paper or electronic) must also
|
||||
include a disclaimer substantially similar to the following:
|
||||
|
||||
INSTALLER SOFTWARE IS PROVIDED "AS-IS" AND SUBJECT TO CHANGE;
|
||||
NO WARRANTIES ARE MADE. ALL USE IS AT YOUR OWN RISK. NO LIABILITY
|
||||
OR RESPONSIBILITY IS ASSUMED.
|
||||
|
||||
7. Licensee may only distribute the versions of the Files that have
|
||||
been approved by Escom or AMIGA Technologies for electronic licensing
|
||||
as evidenced by AMIGA Technologies's inclusion of the Files in an
|
||||
official AMIGA Technologies archive or diskette containing the Files,
|
||||
the related documentation, utilities, and examples, and this Electronic
|
||||
License Agreement. Ongoing distributions must include only the most
|
||||
recently approved releases of the Files which AMIGA Technologies has
|
||||
designated for electronic licensing and distribution.
|
||||
|
||||
8. The Files may not be installed on a user's system or Workbench
|
||||
unless the installation procedure included with Licensee's product has
|
||||
determined that the user's system or Workbench does not contain a more
|
||||
recent version of the Files.
|
||||
|
||||
9. Such technical information as is contained in the Files (and any
|
||||
product thereof) or in the related documentation, utilities, and
|
||||
examples may not be exported in contravention of the laws and
|
||||
regulations of the Federal Republic of Germany.
|
||||
|
||||
10. Prior to any distribution of the Files, Licensee must acknowledge and
|
||||
consent to these terms by forwarding a completed and signed copy of
|
||||
this entire Agreement, on paper, to:
|
||||
AMIGA Technologies GmbH, Rechtsabteilung, Berliner Ring 89, D-64625 Bensheim, Germany
|
||||
|
||||
11. Escom or AMIGA Technologies may terminate this license at any time,
|
||||
with or without cause. This license and Licensee's rights hereunder
|
||||
will automatically terminate upon any breach of these terms and
|
||||
conditions. Upon any such termination, Licensee shall destroy all
|
||||
copies of the Files and the related documentation, utilities, and
|
||||
examples in its possession.
|
||||
|
||||
|
||||
|
||||
Installer 43.3 Electronic Product License Agreement 3-May-96
|
||||
|
||||
I have read, understood, and agree to the terms of this license agreement.
|
||||
|
||||
Licensee (Name):
|
||||
|
||||
Address:
|
||||
|
||||
|
||||
|
||||
Phone #:
|
||||
|
||||
Developer # (if any):
|
||||
|
||||
Date:
|
||||
|
||||
Signature:
|
||||
|
||||
Names of product(s) which will contain the Files:
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Binary file not shown.
|
|
@ -0,0 +1,36 @@
|
|||
|
||||
|
||||
************************************************************************
|
||||
* *
|
||||
* COPYRIGHTS *
|
||||
* *
|
||||
* UNLESS OTHERWISE NOTED, ALL FILES ARE *
|
||||
* *
|
||||
* Copyright (c) 1995-1996 ESCOM AG. All Rights Reserved *
|
||||
* *
|
||||
************************************************************************
|
||||
|
||||
|
||||
************************************************************************
|
||||
* *
|
||||
* COPYRIGHTED DEVELOPER MATERIALS *
|
||||
* *
|
||||
************************************************************************
|
||||
|
||||
THIS SOFTWARE AND INFORMATION IS COPYRIGHTED.
|
||||
|
||||
************************************************************************
|
||||
* *
|
||||
* DISCLAIMER *
|
||||
* *
|
||||
* THIS SOFTWARE AND INFORMATION IS PROVIDED "AS IS". *
|
||||
* NO REPRESENTATIONS OR WARRANTIES ARE MADE WITH RESPECT TO THE *
|
||||
* ACCURACY, RELIABILITY, PERFORMANCE, CURRENTNESS, OR OPERATION *
|
||||
* OF THIS SOFTWARE AND INFORMATION, AND ALL USE IS AT YOUR OWN RISK. *
|
||||
* NEITHER ESCOM AG NOR THE AUTHORS ASSUME ANY RESPONSIBILITY OR *
|
||||
* LIABILITY WHATSOEVER WITH RESPECT TO YOUR USE OF THIS SOFTWARE *
|
||||
* AND INFORMATION. *
|
||||
* *
|
||||
************************************************************************
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,731 @@
|
|||
;------------------------------------------------------------------------
|
||||
;
|
||||
; This Surfer-Install is used only for Surfer 1.2!
|
||||
;
|
||||
; $VER: Surfer-Install 2.4 (27.3.96)
|
||||
;
|
||||
; (C)1996 ESCOM AG
|
||||
; created by Heinz Wrobel, this work is dedicated to Joan Thuesen
|
||||
; small changes by Olaf `Olsen' Barthel
|
||||
;
|
||||
;------------------------------------------------------------------------
|
||||
|
||||
; Never ever leave junk lying around!
|
||||
;
|
||||
(onerror (CLEANUP))
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
(if (= @language "deutsch")
|
||||
(
|
||||
(set #wrongversion
|
||||
(cat "Achtung! Es ist eine alte Version des Programmes 'Installer' "
|
||||
"auf Ihrem Amiga!\n\nDie Installation benötigt mindestens Installer 42.9.\n\n"
|
||||
"Bitte überprüfen Sie Ihre Konfiguration!"
|
||||
))
|
||||
|
||||
(set #welcome
|
||||
(cat "Willkommen zur Installation des Internet-Surfer-Paketes von Amiga Technologies!"
|
||||
))
|
||||
|
||||
(set #surferdestdir-prompt "Bitte geben Sie die Schublade an, in der die Schublade 'Internet' für das Surfer-Paket angelegt werden soll.\n")
|
||||
(set #surferdestdir-help "Üblicherweise wird das Surfer-Paket nach 'Work:' installiert.")
|
||||
|
||||
(set #destdir-prompt "Bitte geben Sie die Schublade an, in der %s installiert werden sollen.\n")
|
||||
(set #destdir-help "Wenn Sie Ihre Installation modifiziert haben, kann es sein, daß der Installer und das Surfer-Paket manche Schubladen nicht sicher finden kann!\n\nBleiben Sie bei den Vorgabewerten, wenn Sie sich nicht sicher sind!")
|
||||
|
||||
(set #surfdir-info "die Surfer-Applikationen")
|
||||
(set #muidir-info "die AT-MUI-Schublade und zugehörige Dateien")
|
||||
(set #devsdir-info "zusätzliche Gerätetreiber")
|
||||
(set #envdir-info "zusätzliche Einstellungen")
|
||||
(set #classesdir-info "ClassAct-Dateien und zusätzliche Datatypes")
|
||||
(set #libsdir-info "zusätzliche Systembibliotheken")
|
||||
(set #localedir-info "landessprachliche Kataloge")
|
||||
(set #fontsdir-info "zusätzliche Zeichensätze")
|
||||
|
||||
(set #installing "Installiere %s ...")
|
||||
|
||||
(set #no-diskspace "Um das Surfer-Paket in '%s' zu installieren, benötigen Sie mindestens %ld Bytes freien Plattenspeicher!")
|
||||
|
||||
(set #startup-prompt "Es müssen zu S:User-Startup einige Eintragungen für %s hinzugefügt werden:\n\n%s")
|
||||
(set #startup-help "Für die korrekte Funktion des Surfer-Paketes sind diese Eintragungen nötig.")
|
||||
|
||||
(set #ask-config "Das Surfer-Paket ist jetzt vollständig installiert. Wollen Sie es gleich konfigurieren? Bitte starten Sie Ihren Amiga nach der Konfiguration einmal neu!")
|
||||
(set #ask-config-help "Ohne eine Konfiguration nach der Installation oder nach einem Update könnten Sie später Probleme haben!")
|
||||
|
||||
(set #bonus-disk "Auf der letzten Diskette des Surfer-Pakets finden Sie als Bonus das FAX-Programm MultiFax-Light. Sie können es von dort bei Bedarf separat installieren.")
|
||||
|
||||
(set #ask-disk1 "Bitte legen Sie die Diskette 'SurferDisk1' ein!")
|
||||
(set #ask-disk2 "Bitte legen Sie die Diskette 'SurferDisk2' ein!")
|
||||
(set #ask-disk3 "Bitte legen Sie die Diskette 'SurferDisk3' ein!")
|
||||
|
||||
(set #muiinst-prompt "Wollen Sie die existierende aktuelle MUI-Version mit dem möglicherweise älteren MUI-AT V14.107 überschreiben?")
|
||||
(set #muiinst-help "Sie scheinen schon eine aktuelle MUI-Version zu verwenden. Überschreiben Sie sie nur, wenn Sie ganz sicher sind.")
|
||||
|
||||
(set #inetinst-prompt "INet-225 scheint schon installiert zu sein. Wollen Sie trotzdem die mitgelieferte Version 7.100 installieren?")
|
||||
(set #inetinst-help "Sie scheinen schon INet-225 zu verwenden. Wenn Ihre Version funktionsfähig ist, dann benötigen Sie INet V7.100 aus dem Surfer-Paket nicht.")
|
||||
|
||||
(set #prefsave-prompt "Wollen Sie die schon existierenden Voreinstellungen für\n\n'%s'\n\nbeibehalten?")
|
||||
(set #prefsave-help "Wenn Sie die existierenden Voreinstellungen nicht übernehmen, dann werden diese mit Vorgabewerten überschrieben!")
|
||||
|
||||
)
|
||||
|
||||
;-------- English --------
|
||||
(
|
||||
(set #wrongversion
|
||||
(cat "You have an old version of the program 'Installer' "
|
||||
"on your Amiga!\n\nThe installation procedure needs at least Installer 42.9.\n\n"
|
||||
"Please check your configuration!"
|
||||
))
|
||||
|
||||
(set #welcome
|
||||
(cat "Welcome to the the Installation of the Amiga Technologies Internet Surfer Package!"
|
||||
))
|
||||
|
||||
(set #surferdestdir-prompt "Please select the drawer where the drawer 'Internet' for the Surfer package should be created.\n")
|
||||
(set #surferdestdir-help "Typically, 'Work:' is selected as destination.")
|
||||
|
||||
(set #destdir-prompt "Please select the drawer where %s should be installed.\n")
|
||||
(set #destdir-help "If you have modified your installation, the Installer and the Surfer package may not be able to find certain drawers. If you are not sure, keep with the default values.")
|
||||
|
||||
(set #surfdir-info "the Surfer applications")
|
||||
(set #muidir-info "the AT-MUI drawer")
|
||||
(set #devsdir-info "additional device drivers")
|
||||
(set #envdir-info "additional preferences")
|
||||
(set #classesdir-info "ClassAct files and some Datatypes")
|
||||
(set #libsdir-info "additional libraries")
|
||||
(set #localedir-info "locale catalogs")
|
||||
(set #fontsdir-info "additional fonts")
|
||||
|
||||
(set #installing "Installing %s...")
|
||||
|
||||
(set #no-diskspace "To install the Surfer package into '%s', you need at least %ld bytes of free harddrive space!")
|
||||
|
||||
(set #startup-prompt "Some lines need to be added to S:User-Startup for %s:\n\n%s")
|
||||
(set #startup-help "The Surfer package won't work correctly without these lines!")
|
||||
|
||||
(set #ask-config "The Surfer package has now been installed. Do you want to set up the configuration for it? Please reboot your Amiga once after the Surfer configuration!")
|
||||
(set #ask-config-help "Without setting up the configuration after an installation or an update, you might run into problems later!")
|
||||
|
||||
(set #bonus-disk "On the last disk of the Surfer package, you'll find the FAX-Software MultiFax-Light as a little extra. If you want to try it, please install it separately.")
|
||||
|
||||
(set #ask-disk1 "Please insert disk 'SurferDisk1'!")
|
||||
(set #ask-disk2 "Please insert disk 'SurferDisk2'!")
|
||||
(set #ask-disk3 "Please insert disk 'SurferDisk3'!")
|
||||
|
||||
(set #muiinst-prompt "Do you want to overwrite your current up to date MUI version with the possibly older MUI-AT V14.107?")
|
||||
(set #muiinst-help "You seem to have a MUI version installed alread that is up to date. Don't overwrite it if you aren't completely sure about it.")
|
||||
|
||||
(set #inetinst-prompt "INet-225 seems to be already installed. Do you want to install the Surfer INet 7.100 anyway?")
|
||||
(set #inetinst-help "It seems that you already have INet-225 installed on your system. If this installation works well, you don't need the INet V7.100 in this package.")
|
||||
|
||||
(set #prefsave-prompt "Do you want to keep the existing preferences for\n\n'%s'?")
|
||||
(set #prefsave-help "If you don't keep existing preferences, they will be overwritten with default values!")
|
||||
|
||||
)
|
||||
) ; if
|
||||
|
||||
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Cleanup any temporary mess we created
|
||||
(procedure CLEANUP
|
||||
; Nothing to cleanup
|
||||
(delete (tackon @default-dest ".tempinstall") (all) (optional "force"))
|
||||
) ; CLEANUP
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Obtain an installation path
|
||||
(procedure GETPATH #gp_envname #gp_default #gp_remdir #gp_msg #gp_help
|
||||
|
||||
(set #gp_res "")
|
||||
(while (= "" #gp_res)
|
||||
(set #gp_res #gp_default)
|
||||
(if (not (exists #gp_res (noreq)))
|
||||
(
|
||||
; Surfer 1.1 Hack! We will have a work, but not right now.
|
||||
(if (= #gp_res "Work:")
|
||||
(
|
||||
(set #gp_res "")
|
||||
(set #gp_default @default-dest)
|
||||
)
|
||||
) ; if
|
||||
|
||||
(if (<> "" #gp_envname)
|
||||
(
|
||||
(set #gp_res (getenv (cat "Surfer/Path_" #gp_envname)))
|
||||
|
||||
(if (AND (<> "" #gp_res) #gp_remdir)
|
||||
(
|
||||
; Remove the "Internet" suffix
|
||||
(set #gp_res (pathonly #gp_res))
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
(
|
||||
(set #gp_res "")
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
|
||||
(if (OR (= "" #gp_res) (= @user-level 2))
|
||||
(
|
||||
; We had a problem. So we need to ask the user!
|
||||
(set #gp_res
|
||||
(expandpath
|
||||
(askdir
|
||||
(prompt #gp_msg)
|
||||
(help #gp_help)
|
||||
(default #gp_default)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
) ; if
|
||||
|
||||
; If the directory does not exist, retry!
|
||||
(if (<> "" #gp_res)
|
||||
(
|
||||
(if (not (exists #gp_res (noreq)))
|
||||
(set #gp_res "")
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
) ; while
|
||||
|
||||
; return the result!
|
||||
(set #gp_res #gp_res)
|
||||
|
||||
) ; GETPATH
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
(procedure RUNLHEX #rl_archive #rl_dest #rl_msg
|
||||
(working (#installing #rl_msg))
|
||||
(run (cat "C:lhex \"-qfw" #rl_dest "\" x \"" #rl_archive "\""))
|
||||
) ; RUNLHEX
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Unpack an archive like RUNLHEX, but to a temporary subdirectory
|
||||
(procedure RUNLHEX2TEMP #rl2t_archive #rl2t_dest #rl2t_msg
|
||||
|
||||
(set #rl2t_destpath #rl2t_dest)
|
||||
|
||||
(set #rl2t_temppath (tackon @default-dest ".tempinstall"))
|
||||
(delete #rl2t_temppath (all) (optional "force"))
|
||||
(makedir #rl2t_temppath)
|
||||
|
||||
(RUNLHEX #rl2t_archive #rl2t_temppath #rl2t_msg)
|
||||
|
||||
) ; RUNLHEX2TEMP
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
(procedure UPD_TEMP2DEST #rl2t_usecopylib #rl2t_file
|
||||
|
||||
; This may be called multiple times after RUNLHEX2TEMP
|
||||
; it will update a file from the temporary area to the
|
||||
; actual destination using copylib if requested to do so.
|
||||
|
||||
(set #rl2t_src (tackon #rl2t_temppath #rl2t_file))
|
||||
(set #rl2t_dst (tackon #rl2t_destpath #rl2t_file))
|
||||
|
||||
(working (#installing #rl2t_file))
|
||||
|
||||
; A directory as source needs special handling!
|
||||
(if (= (exists #rl2t_src) 2)
|
||||
(
|
||||
; A directory as source means copying the whole thing as is
|
||||
; Use copyfiles for copying
|
||||
(copyfiles
|
||||
(source #rl2t_src)
|
||||
(dest #rl2t_dst)
|
||||
(optional "force" "askuser")
|
||||
(all))
|
||||
)
|
||||
(
|
||||
; Not a directory, copy the file to the correct destination
|
||||
(set #rl2t_dstdir (pathonly #rl2t_dst))
|
||||
(makedir #rl2t_dstdir)
|
||||
|
||||
(if #rl2t_usecopylib
|
||||
(
|
||||
; Use copylib for copying
|
||||
(copylib
|
||||
(source #rl2t_src)
|
||||
(dest #rl2t_dstdir)
|
||||
(optional "force" "askuser")
|
||||
)
|
||||
)
|
||||
(
|
||||
; Use copyfiles for copying
|
||||
(copyfiles
|
||||
(source #rl2t_src)
|
||||
(dest #rl2t_dstdir)
|
||||
(optional "force" "askuser")
|
||||
)
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
|
||||
; Now delete the file/dir in the temporary storage area to conserve
|
||||
; disk space
|
||||
(delete #rl2t_src (all) (optional "force"))
|
||||
|
||||
) ; UPDATETEMP2DEST
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Cleanup the temporary directory created in RUNLHEX2TEMP
|
||||
(procedure KILLTEMP
|
||||
|
||||
(delete #rl2t_temppath (all) (optional "force"))
|
||||
|
||||
) ; KILLTEMP
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Save a prefs file into a suitable subdirectory
|
||||
(procedure SAVEPREFS #sps_basedir #sps_file
|
||||
|
||||
(set #sps_name (tackon #sps_basedir #sps_file))
|
||||
(if (exists #sps_name)
|
||||
(
|
||||
; Yo. The file exists. Save it!
|
||||
(set #sps_prefsdir (tackon (pathonly #sps_name) ".oldprefs"))
|
||||
|
||||
(makedir #sps_prefsdir)
|
||||
(copyfiles
|
||||
(source #sps_name)
|
||||
(dest #sps_prefsdir)
|
||||
(optional "force" "askuser"))
|
||||
)
|
||||
) ; if
|
||||
|
||||
); SAVEPREFS
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Ask the user if he wants to keep his/her prefs and cleanup
|
||||
; things accordingly
|
||||
(procedure SAVEPREFSEND #spe_basedir #spe_subdir #spe_appname
|
||||
|
||||
; This matches SAVEPREFS
|
||||
(set #spe_prefsdir (tackon #spe_basedir (tackon #spe_subdir ".oldprefs")))
|
||||
|
||||
(if (exists #spe_prefsdir)
|
||||
(
|
||||
; We got prefs to check. default is "Yes, keep them"
|
||||
(if (askbool (prompt (#prefsave-prompt #spe_appname))
|
||||
(help #prefsave-help)
|
||||
(default 1))
|
||||
(
|
||||
; Yo. Keep the old prefs!
|
||||
(copyfiles
|
||||
(source #spe_prefsdir)
|
||||
(dest (tackon #spe_basedir #spe_subdir))
|
||||
(pattern "#?")
|
||||
(optional "force" "askuser"))
|
||||
)
|
||||
) ; if
|
||||
|
||||
; Ok, done keeping prefs. Now kill the backup!
|
||||
(delete #spe_prefsdir (all) (optional "force"))
|
||||
)
|
||||
) ; if
|
||||
|
||||
); SAVEPREFSEND
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; We can't handle this script without Installer 42.9 or better!
|
||||
(if (< @installer-version 2752521)
|
||||
(
|
||||
; Big problem!
|
||||
(message #wrongversion)
|
||||
(exit (quiet))
|
||||
)
|
||||
)
|
||||
|
||||
; find out how the user wants to install things
|
||||
(welcome #welcome)
|
||||
|
||||
(complete 0)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; We have several destinations to check as our package is unfortunately
|
||||
; somewhat spread out.
|
||||
|
||||
; We assume a new installation on an A1200 without MUI or INet!
|
||||
(set AddWorkAssign FALSE)
|
||||
(set AddINetAssign TRUE)
|
||||
(set InstallMUI FALSE)
|
||||
(set AddMUIAssign FALSE)
|
||||
(set InstallINet FALSE)
|
||||
(set AddINetAssign FALSE)
|
||||
(set IsUpdate FALSE)
|
||||
|
||||
; First find the Surfer base
|
||||
|
||||
(set #surferdirbase (GETPATH "SurferPackage" "Work:" TRUE #surferdestdir-prompt #surferdestdir-help))
|
||||
|
||||
; We have to create a drawer "Internet" there!
|
||||
(set #surferdir (tackon #surferdirbase "Internet"))
|
||||
|
||||
; If this is a new installation, we check the diskspace!
|
||||
(if (not (exists #surferdir))
|
||||
(
|
||||
; For a new setup, we should leave some space!
|
||||
(if (< (getdiskspace #surferdirbase) 4000000)
|
||||
(abort (#no-diskspace #surferdirbase 4000000))
|
||||
)
|
||||
|
||||
; Just to be sure.
|
||||
(makedir #surferdir (infos))
|
||||
)
|
||||
(
|
||||
; This must be an update!
|
||||
(set IsUpdate TRUE)
|
||||
)
|
||||
)
|
||||
|
||||
; Ok, we found the correct destination now
|
||||
(set @default-dest #surferdir)
|
||||
|
||||
; MUI only needs to be installed if there isn't a suitable version
|
||||
; already. So we need to check for MUI 14.107 first!
|
||||
(if (< (getversion "LIBS:muimaster.library") 917611)
|
||||
(
|
||||
; Hmm. We don't have suitable MUI. Install it
|
||||
(set InstallMUI TRUE)
|
||||
(set AddMUIAssign TRUE)
|
||||
)
|
||||
(
|
||||
; Ok. A suitable MUI is there. In expert mode ask the user if he
|
||||
; wants to overwrite it with the old one.
|
||||
(if (= @user-level 2)
|
||||
(
|
||||
(if (askbool (prompt #muiinst-prompt)
|
||||
(help #muiinst-help)
|
||||
(default 0))
|
||||
(
|
||||
; Ok. Install it anyway!
|
||||
(set InstallMUI TRUE)
|
||||
(set AddMUIAssign TRUE)
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
|
||||
; If we already have INet, check before simply installing it
|
||||
; This works a lot like the MUI check!
|
||||
; We require INet 7.100.
|
||||
(if (<> "" (getassign "INet" "av"))
|
||||
(
|
||||
(if (< (getversion "INet:libs/inet.library") 458852)
|
||||
(
|
||||
; Hmm. We don't have suitable INet. Install it
|
||||
(set InstallINet TRUE)
|
||||
(set AddINetAssign TRUE)
|
||||
)
|
||||
(
|
||||
; Ok. A suitable INet is there. In expert mode ask the user if he
|
||||
; wants to overwrite it with the old one.
|
||||
(if (= @user-level 2)
|
||||
(
|
||||
(if (askbool (prompt #inetinst-prompt)
|
||||
(help #inetinst-help)
|
||||
(default 0))
|
||||
(
|
||||
; Ok. Install it anyway!
|
||||
(set InstallINet TRUE)
|
||||
(set AddINetAssign TRUE)
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
) ; if
|
||||
)
|
||||
(
|
||||
; Hmm. We don't have suitable INet. Install it
|
||||
(set InstallINet TRUE)
|
||||
(set AddINetAssign TRUE)
|
||||
)
|
||||
) ; if
|
||||
|
||||
; This is tricky. We want the boot-volume as default, but the
|
||||
; user might have reassigned it. In that case we assume that
|
||||
; s/he knows what s/he is doing!
|
||||
(if InstallMUI
|
||||
(
|
||||
(set #muidir (GETPATH "" "SYS:" TRUE (#destdir-prompt #muidir-info) #destdir-help))
|
||||
)
|
||||
) ; if
|
||||
|
||||
(set #envdir "ENVARC:")
|
||||
(set #devsdir (GETPATH "" "DEVS:" TRUE (#destdir-prompt #devsdir-info) #destdir-help))
|
||||
(set #classesdir (GETPATH "" "SYS:Classes" TRUE (#destdir-prompt #classesdir-info) #destdir-help))
|
||||
(set #libsdir (GETPATH "" "LIBS:" TRUE (#destdir-prompt #libsdir-info) #destdir-help))
|
||||
(set #localedir (GETPATH "" "LOCALE:" TRUE (#destdir-prompt #localedir-info) #destdir-help))
|
||||
(set #fontsdir (GETPATH "" "FONTS:" TRUE (#destdir-prompt #fontsdir-info) #destdir-help))
|
||||
|
||||
(complete 5)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; First, we install lhex and Installer into C: This won't change and
|
||||
; we need them.
|
||||
(askdisk (dest "SurferDisk1") (prompt #ask-disk1) (help @askdisk-help))
|
||||
|
||||
(working (#installing "Installer"))
|
||||
(copylib
|
||||
(source "Installer")
|
||||
(dest "C:")
|
||||
(optional "force" "askuser")
|
||||
)
|
||||
|
||||
(complete 8)
|
||||
|
||||
(working (#installing "lhex"))
|
||||
(copylib
|
||||
(source "lhex")
|
||||
(dest "C:")
|
||||
(optional "force" "askuser")
|
||||
)
|
||||
|
||||
(complete 5)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Now install Inet, fonts.lha and locale.lha, because they reside on disk #1
|
||||
(if InstallINet
|
||||
(
|
||||
(SAVEPREFS #surferdir "Inet/db/group")
|
||||
(SAVEPREFS #surferdir "Inet/db/networks")
|
||||
(SAVEPREFS #surferdir "Inet/db/protocols")
|
||||
(SAVEPREFS #surferdir "Inet/db/services")
|
||||
(SAVEPREFS #surferdir "Inet/db/syslog.conf")
|
||||
(RUNLHEX "inet.lha" #surferdir "INet")
|
||||
(SAVEPREFSEND #surferdir "Inet/db" "INet")
|
||||
)
|
||||
) ; if
|
||||
(complete 15)
|
||||
|
||||
(RUNLHEX "locale.lha" #localedir #localedir-info)
|
||||
(complete 18)
|
||||
|
||||
(RUNLHEX "fonts.lha" #fontsdir #fontsdir-info)
|
||||
(complete 19)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; On disk #2, we got work_(www|email|irc|ftp).lha, libs.lha, devs.lha, envarc.lha
|
||||
(askdisk (dest "SurferDisk2") (prompt #ask-disk2) (help @askdisk-help))
|
||||
|
||||
(SAVEPREFS #surferdir "WWW/Bookmarks.html")
|
||||
(SAVEPREFS #surferdir "WWW/MindWalker.prefs")
|
||||
(RUNLHEX "SurferDisk2:work_www.lha" #surferdir #surfdir-info)
|
||||
(SAVEPREFSEND #surferdir "WWW" "MindWalker")
|
||||
(complete 20)
|
||||
|
||||
(SAVEPREFS #surferdir "E-Mail/Voodoo.prefs")
|
||||
(RUNLHEX "SurferDisk2:work_email.lha" #surferdir #surfdir-info)
|
||||
(SAVEPREFSEND #surferdir "E-Mail" "Voodoo")
|
||||
(complete 24)
|
||||
|
||||
(RUNLHEX "SurferDisk2:work_irc.lha" #surferdir #surfdir-info)
|
||||
(complete 28)
|
||||
(RUNLHEX "SurferDisk2:work_ftp.lha" #surferdir #surfdir-info)
|
||||
(complete 30)
|
||||
|
||||
(RUNLHEX2TEMP "SurferDisk2:libs.lha" #libsdir #libsdir-info)
|
||||
(UPD_TEMP2DEST TRUE "gtlayout.library")
|
||||
(KILLTEMP)
|
||||
|
||||
(complete 35)
|
||||
(RUNLHEX2TEMP "SurferDisk2:devs.lha" #devsdir #devsdir-info)
|
||||
(UPD_TEMP2DEST TRUE "networks/ppp.device")
|
||||
(UPD_TEMP2DEST TRUE "networks/slip.device")
|
||||
(UPD_TEMP2DEST FALSE "DataTypes")
|
||||
(KILLTEMP)
|
||||
|
||||
(complete 40)
|
||||
|
||||
(SAVEPREFS #envdir "sana2/ppp0.config")
|
||||
(SAVEPREFS #envdir "sana2/slip0.config")
|
||||
(RUNLHEX "SurferDisk2:envarc.lha" #envdir #envdir-info)
|
||||
(SAVEPREFSEND #envdir "sana2" #envdir-info)
|
||||
(complete 42)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; On disk #3, we got classes.lha, locale.lha, fonts.lha, and MUI.lha
|
||||
(askdisk (dest "SurferDisk3") (prompt #ask-disk3) (help @askdisk-help))
|
||||
|
||||
(RUNLHEX2TEMP "SurferDisk3:classes.lha" #classesdir #classesdir-info)
|
||||
(UPD_TEMP2DEST TRUE "window.class")
|
||||
(UPD_TEMP2DEST TRUE "arexx.class")
|
||||
(UPD_TEMP2DEST TRUE "DataTypes/gif.datatype")
|
||||
(UPD_TEMP2DEST TRUE "DataTypes/jpeg.datatype")
|
||||
(UPD_TEMP2DEST TRUE "DataTypes/png.datatype")
|
||||
(UPD_TEMP2DEST TRUE "DataTypes/xbm.datatype")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/button.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/checkbox.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/clicktab.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/integer.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/layout.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/listbrowser.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/scroller.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/space.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/speedbar.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/string.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Gadgets/textfield.gadget")
|
||||
(UPD_TEMP2DEST TRUE "Images/bevel.image")
|
||||
(UPD_TEMP2DEST TRUE "Images/drawlist.image")
|
||||
(UPD_TEMP2DEST TRUE "Images/glyph.image")
|
||||
(UPD_TEMP2DEST TRUE "Images/label.image")
|
||||
(UPD_TEMP2DEST TRUE "Images/penmap.image")
|
||||
(KILLTEMP)
|
||||
|
||||
(complete 62)
|
||||
(RUNLHEX "SurferDisk3:work.lha" #surferdir #surfdir-info)
|
||||
(complete 65)
|
||||
; Install MUI only if needed!
|
||||
(if InstallMUI
|
||||
(
|
||||
(RUNLHEX "SurferDisk3:mui.lha" #muidir #muidir-info)
|
||||
)
|
||||
) ; if
|
||||
(complete 80)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; There is the config backup-directory that might not exist yet.
|
||||
; Some stuff depends on it!
|
||||
(makedir (tackon #surferdir "Surfer-Backup"))
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; We might need to create a Work: Assign. This is basically
|
||||
; Surfer 1.1 magic!
|
||||
; This is a necessary hack: Surfer MUST reside in Work:Internet currently!
|
||||
; (Surfer 1.1!)
|
||||
(if (= "" (getassign "Work" "adv"))
|
||||
(Set AddWorkAssign TRUE)
|
||||
) ; if
|
||||
|
||||
(if AddWorkAssign
|
||||
(
|
||||
(set cmd (cat "Assign Work: \"" #surferdirbase "\"\n"))
|
||||
(startup "INTERNET-SURFER"
|
||||
(prompt (#startup-prompt "Surfer Package" cmd))
|
||||
(help #startup-help)
|
||||
(command cmd)
|
||||
)
|
||||
|
||||
; If we have to add a Work: Assign, we better create one right now
|
||||
; The user might want to start the surfer right away!
|
||||
(makeassign "Work" #surferdirbase)
|
||||
)
|
||||
)
|
||||
(complete 82)
|
||||
|
||||
; MUI might need one, too on a new installation
|
||||
(if AddMUIAssign
|
||||
(
|
||||
(set cmd (cat "Assign MUI: " (tackon #muidir "MUI-AT") "\nAssign LIBS: MUI:Libs ADD\nAssign LOCALE: MUI:Locale ADD\n"))
|
||||
(startup "MUI-AT"
|
||||
(prompt (#startup-prompt "AT-MUI" cmd))
|
||||
(help #startup-help)
|
||||
(command cmd)
|
||||
)
|
||||
|
||||
(if (not @pretend)
|
||||
(
|
||||
; To help the poor fools
|
||||
(makeassign "MUI" (tackon #muidir "MUI-AT"))
|
||||
(run "Assign LIBS: MUI:Libs add")
|
||||
(run "Assign LOCALE: MUI:Locale add")
|
||||
))
|
||||
)
|
||||
)
|
||||
(complete 85)
|
||||
|
||||
; We should not forget INet!
|
||||
(if AddINetAssign
|
||||
(
|
||||
(set #t (tackon #surferdir "INet"))
|
||||
(set cmd (cat "IF EXISTS \"" #t "\"\n Assign INet: \"" #t "\"\n Path INet:C ADD\nENDIF\n"))
|
||||
(startup "INet"
|
||||
(prompt (#startup-prompt "AT-INet" cmd))
|
||||
(help #startup-help)
|
||||
(command cmd)
|
||||
)
|
||||
|
||||
; Magic to avoid clashes!
|
||||
(if (<> "" (getassign "INet" "adv"))
|
||||
(run "Path INet:c remove")
|
||||
)
|
||||
|
||||
; To help the poor fools
|
||||
(if (not @pretend)
|
||||
(
|
||||
(makeassign "INet" #t)
|
||||
))
|
||||
|
||||
(run "Path INet:c add")
|
||||
)
|
||||
)
|
||||
(complete 90)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Something nifty. The user might still have an unmodified startup
|
||||
; where T: points to RAM: We can't have that on an A1200 or Surfer
|
||||
; won't run due to lack of memory. RAM: has the special feature
|
||||
; that it is always full. We make use of this and expect at least 10K
|
||||
; free temporary space!
|
||||
(if (< (getdiskspace "T:") 10000)
|
||||
(
|
||||
(set #t (tackon #surferdir "Temp"))
|
||||
; Hmm. It seems that this guy is using RAM:
|
||||
(set cmd (cat "If Not Exists \"" #t "\"\n MakeDir \"" #t "\"\nEndIf\nDelete >NIL: \"" (tackon #t "#?") "\" quiet all\nAssign T: \"" #t "\"\n"))
|
||||
(startup "TEMPDIR"
|
||||
(prompt (#startup-prompt "Surfer" cmd))
|
||||
(help #startup-help)
|
||||
(command cmd)
|
||||
)
|
||||
|
||||
(makedir #t)
|
||||
(if (not @pretend)
|
||||
(
|
||||
(makeassign "T" #t)
|
||||
))
|
||||
)
|
||||
)
|
||||
(complete 95)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Finally create some information about where surfer resides now
|
||||
(makedir "ENV:Surfer")
|
||||
(makedir "ENVARC:Surfer")
|
||||
(textfile (dest "ENV:Surfer/Path_SurferPackage") (append #surferdir))
|
||||
(textfile (dest "ENVARC:Surfer/Path_SurferPackage") (append #surferdir))
|
||||
(complete 97)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; Inform the user about MF-Light
|
||||
(message #bonus-disk (all))
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; The user might want to update the configuration! This is valid for all
|
||||
; user levels!
|
||||
(user 2)
|
||||
(if (askbool (prompt #ask-config) (help #ask-config-help) (default 1))
|
||||
(
|
||||
; Just a try!
|
||||
(run (tackon #surferdir "Internet-Setup"))
|
||||
)
|
||||
)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
; That's it!
|
||||
(complete 100)
|
||||
|
||||
(CLEANUP)
|
||||
(exit)
|
||||
|
||||
;------------------------------------------------------------------------
|
||||
|
||||
; *** EOT ***
|
||||
Binary file not shown.
|
|
@ -0,0 +1,163 @@
|
|||
; This is test of many of the features of the Installer
|
||||
; Prints out debugging info if run from CLI
|
||||
|
||||
(transcript "On making \"T:Fred\"...")
|
||||
|
||||
(makedir "T:fred"
|
||||
(prompt "I will now create the directory \"T:Fred\"")
|
||||
(help @makedir-help)
|
||||
(infos)
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(copyfiles
|
||||
(prompt "Copying all devices to Fred.")
|
||||
(help @copyfiles-help)
|
||||
(source "DEVS:")
|
||||
(dest "T:fred/angie")
|
||||
(pattern "#?.device")
|
||||
(files)
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(copylib
|
||||
(prompt "Copying one device to Fred.")
|
||||
(help @copylib-help)
|
||||
(source "LIBS:version.library")
|
||||
(dest "T:fred/angie")
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(startup "FredApp"
|
||||
(prompt
|
||||
"Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use FredApp.")
|
||||
(help "No help for this function")
|
||||
(command "assign Fred: T:\n")
|
||||
)
|
||||
|
||||
(tooltype
|
||||
(prompt "Tooltype test")
|
||||
(help "No help here either")
|
||||
(dest "T:fred")
|
||||
(noposition)
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(textfile
|
||||
(prompt "Creating a textfile...")
|
||||
(help "The 'NO HELP' generation continues!")
|
||||
(dest "T:fred/prayer")
|
||||
(append "In the begining there was the Amiga 1000, and this was good...\n")
|
||||
(include "DEVS:Mountlist")
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(run "info >t:fred/result"
|
||||
(prompt "Running 'info'")
|
||||
(help "This will only work from the CLI!")
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(if @pretend
|
||||
(makeassign "FRED" "T:" (safe))
|
||||
(makeassign "FRED" "T:fred")
|
||||
)
|
||||
|
||||
(rename "Fred:result" "Fred:data"
|
||||
(prompt "Renaming 'result' to 'data'")
|
||||
(help "So why wasn't it named that in the first place??")
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(delete "FRED:angie/printer.device"
|
||||
(prompt "Going to delete Fred's printer.")
|
||||
(help "That's nice...")
|
||||
(confirm)
|
||||
)
|
||||
|
||||
(message "End of first set of tests!")
|
||||
|
||||
(set name
|
||||
(askdir
|
||||
(prompt "OK, where was that directory??")
|
||||
(help @askdir-help)
|
||||
(default "FRED:")
|
||||
)
|
||||
)
|
||||
|
||||
(debug "Directory was " name)
|
||||
|
||||
(set name
|
||||
(askfile
|
||||
(prompt "OK, where was that file??")
|
||||
(help @askfile-help)
|
||||
(default "FRED:angie")
|
||||
)
|
||||
)
|
||||
|
||||
(debug "File was " name)
|
||||
|
||||
(set name
|
||||
(askstring
|
||||
(prompt "OK, what should I have named that data file?")
|
||||
(help @askstring-help)
|
||||
(default "happy_file")
|
||||
)
|
||||
)
|
||||
|
||||
(debug "String was " name)
|
||||
|
||||
(set name
|
||||
(asknumber
|
||||
(prompt "How old are you?")
|
||||
(help @asknumber-help)
|
||||
(range 1 150)
|
||||
(default 32)
|
||||
)
|
||||
)
|
||||
|
||||
(debug "Number was " name)
|
||||
|
||||
(set name
|
||||
(askchoice
|
||||
(prompt "How do you rate things so far?")
|
||||
(help @askchoice-help)
|
||||
(choices "Pretty good" "OK" "Only fair" "Rather dismal")
|
||||
(default 0)
|
||||
)
|
||||
)
|
||||
|
||||
(debug "Choice was " name)
|
||||
|
||||
(set name
|
||||
(askoptions
|
||||
(prompt "What would you like to eat?")
|
||||
(help @askoptions-help)
|
||||
(choices "Hamburger" "Fries" "Salad" "Strawberry Shake" "Apple Pie")
|
||||
(default 9)
|
||||
)
|
||||
)
|
||||
|
||||
(debug "Options bits were " name)
|
||||
|
||||
(set name
|
||||
(askbool
|
||||
(prompt "Should Puerto Rico become the next state?")
|
||||
(help "It's up to YOU.")
|
||||
(choices "Make a State" "Nuke 'Em")
|
||||
(default 0)
|
||||
)
|
||||
)
|
||||
|
||||
(debug "Result of AskBool was " name)
|
||||
|
||||
(trap 1
|
||||
(askbool
|
||||
(prompt "Please hit ABORT!")
|
||||
(help "Pretty please...")
|
||||
)
|
||||
)
|
||||
|
||||
(abort
|
||||
"Well, I hope you liked this test of the emergency installer system!"
|
||||
)
|
||||
Binary file not shown.
Loading…
Reference in New Issue