home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 3
/
AACD03.BIN
/
AACD
/
Magazine
/
AWeb
/
HTTX
/
Install-HTTX
< prev
next >
Wrap
Text File
|
1999-10-17
|
4KB
|
166 lines
; $VER: Install httx for aweb 1.2 17.10.99
; 17 Oct 1999 WHMP
; Description: Installer script for AWeb-II 3.x extras
(set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
(set awv 3)
(set awr 1)
(set #needInst43 "You must use Installer version 43 or greater. Use the Installer program from your AWeb-II disk.")
(if (< (/ @installer-version 65536) 43)
(abort #needInst43)
)
(set #installing "Installing ")
; offer to back up a file or drawer
(procedure bumprev #bumpfile #bumptxt
(if (exists #bumpfile)
(
(set bump 1)
(while (exists (cat #bumpfile "_old" bump) ) (set bump (+ bump 1)) )
(if
(askbool
(default 1)
(prompt (cat "\n\n\nBackup " #bumpfile " as "
#bumpfile "_old" bump " ?\n\n\n "
#bumptxt ) )
(help
(cat "\n\n\n\"" #bumpfile "\" is about to be over written.\n"
"\nYou are being given the chance to back it up."
" If you are unsure select yes... just in case ;-D ."
)
)
)
; (rename #bumpfile (cat #bumpfile "_old" bump))
( (set bdest (cat #bumpfile "_old" bump))
(copyfiles
(source #bumpfile)
(dest bdest)
(all)
)
)
)
)
)
)
;add a line to a settings file
(procedure addpref #preffile #preftext
(foreach "ENVARC:AWeb3" "~(program|browser|gui|network|window|settings)"
(
(if (= @each-type 2)
(run (cat "echo >>ENVARC:AWeb3/" @each-name "/" #preffile " \"" #preftext "\"") )
)
)
)
(run (cat "echo >>ENVARC:AWeb3/" #preffile " \"" #preftext "\"") )
)
(set #no-aweb-ii
(cat "You must have completed the AWeb-II 3.1 installation before "
"you can install the %s plug-in. No AWeb3: assign has been found."
)
)
(if (not (exists "AWeb3:" (noreq)))
(abort (#no-aweb-ii "Utilities"))
)
(set @default-dest "AWeb3:")
(bumprev "envarc:aweb3"
(cat "Your previously SAVED AWeb 3.1 configuration"
" is in this directory.")
) ; backup any previous AWeb3 prefs
(makedir "AWeb3:Plugins/HTTX" (infos))
(set httxdoc
(askoptions
(prompt
"\n\nQuale documentazione di HTTX installo?"
"\n Install which HTTX documentation ?"
)
(help #httx-doc-help)
(choices "documentazione italiana"
"English documentation"
)
(default 2)
)
)
(copyfiles
(source "httx")
(dest "AWeb3:Plugins/HTTX")
(all)
(prompt #installing "HTTX")
)
(protect "AWeb3:Plugins/HTTX/httxplugin.awebrx" "+s")
(protect "AWeb3:Plugins/HTTX/httxplugincfg.awebrx" "+s")
(protect "AWeb3:Plugins/HTTX/httxpluginprt.awebrx" "+s")
(protect "AWeb3:Plugins/HTTX/httxpluginCP.awebrx" "+s")
(delete "AWeb3:Plugins/httx/#?.prefs" )
(delete "AWeb3:Plugins/httx/HTTXPlugin.config" )
(if(not(bitand 2 httxdoc) ) (delete "AWeb3:Plugins/HTTX/HTTX.doc.eng.html") )
(if(not(bitand 1 httxdoc) ) (delete "AWeb3:Plugins/HTTX/HTTX.doc.ita.html") )
; Adjust the AWeb.prefs file to use HTTX
(addpref "gui"
(cat
"UBUT HTTXRun AWebPath:Plugins/HTTX/HTTXPlugincp.awebrx*N"
"PUPF 3Save as textRUN AWebPath:Plugins/HTTX/HTTXPlugin.awebrx TARGET %i*N"
"PUPF 3Print as textRUN AWebPath:Plugins/HTTX/HTTXPluginPrt.awebrx TARGET %i*N"
"AREX 1;AWebPath:Plugins/HTTX/HTTXPlugin.awebrx;Save As Text (HTTX)*N"
"AREX 2;AWebPath:Plugins/HTTX/HTTXPluginPrt.awebrx;Print As Text (HTTX)*N"
"AREX 3;AWebPath:Plugins/HTTX/HTTXPluginCfg.awebrx;HTTX Configuration*N"
"AREX 4;AWebPath:Plugins/HTTX/HTTXPlugincp.awebrx;HTTX Control Panel"
)
)
(copylib
(source "awnpipe-handler")
(dest "l:")
(prompt #installing "AWNPipe-handler")
)
(copyfiles
(dest "Devs:dosdrivers")
(source "awnpipe")
(prompt #installing "AWebNews Pipe:")
(infos)
)
(run "C:assign AWNPipe: dismount")
(run "C:mount AWNPipe:")
(if (= @user-level 2)
( bumprev "env:aweb3"
(cat "Your previous ACTIVE AWeb 3.1 configuration"
" is in this directory.")
) ;backup any active prefs
)
(delete "env:aweb3/#?" (all))
(copyfiles
(source "ENVARC:AWeb3")
(dest "ENV:AWeb3")
(all)
)
(complete 100)
(set @default-dest "AWeb3:plugins")
(exit "\n\n" @app-name
" is now installed.\n\n"
"If this is an update instalation be sure to check your GUI and/or ARexx menu"
" settings for duplicate entries.")