home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magazyn WWW 1999 July
/
www_07_1999.iso
/
prez
/
amiga
/
KidHTML1_25.lha
/
KidHTML1.25
/
Install
< prev
next >
Wrap
Text File
|
1998-09-16
|
2KB
|
102 lines
; Installer script KidHTML v1.x
;
; 18.08.1998 by Marcio Esper
(complete 0)
(delete "s:KidHTML.key")
(complete 1)
(message"\n\nKidHTML v1.25\n\nby\n\nMarcio Esper\n\n1998")
(message
"\n\nKidHTML is shareware.\n\nPlease consider registering!"
"\n\nSee the doc for more info.\n\nor mail to \n\nicemanmail@iname.com"
; (ALL)
)
(complete 3)
(message "\n\n Internet suport at\n\nhttp://www.allnet.com.br/iceman/")
(set #DEST0
(askdir
(prompt "Where do you want to install KidHTML ? A drawer will be created there.")
(help (cat @askdir-help)
)
(default "Work:")
)
)
(complete 6)
(set #DEST (tackon #DEST0 "KidHTML"))
(complete 8)
(makedir #DEST (infos))
(complete 10)
(if (= (exists "KidHTML.key") 1)
(copyfiles (dest "sys:s/") (source "KidHTML.key")))
(complete 16)
(copyfiles (dest #DEST) (source "KidHTML1.25"))
(complete 25)
(copyfiles (dest #DEST) (source "KidHTML1.25.info"))
(complete 50)
(makedir (tackon #DEST "Script") )
(complete 55)
(makeassign (tackon #DEST "KidHTML"(safe)))
(complete 57)
(copyfiles (dest #DEST) (source "KidHTMLconfig"))
(complete 59)
(copyfiles (source "script/") (dest (tackon #DEST "script") (all) ))
(complete 63)
(complete 70)
(makedir (tackon #DEST "Docs") )
(complete 72)
(complete 74)
(copyfiles (dest #DEST) (source "KidHTMLconfig.info"))
(complete 75)
(copyfiles (source "docs/") (dest (tackon #DEST "Docs") (all) ))
(complete 80)
(makedir (tackon #DEST "HTMLcode") )
(complete 84)
(copyfiles (source "HTMLcode/") (dest (tackon #DEST "HTMLcode") (all) ))
(complete 87)
(complete 88)
(copyfiles (dest #DEST) (source "KidArexxConfig"))
(complete 89)
(complete 90)
(complete 91)
(copyfiles (source "ARexx/") (dest (tackon #DEST "ARexx") (all) ))
(complete 92)
(complete 93)
(copyfiles (dest #DEST) (source "KidArexxConfig.info"))
(complete 94)
(complete 95)
(copyfiles (dest #DEST) (source "ARexx.config"))
(complete 96)
(complete 97)
(complete 98)
(copyfiles (source "Example/") (dest (tackon #DEST "Example")) (all))
(startup "KidHTML"
(prompt "Some commands will be added to your \"s:user-startup\" file.")
(help @startup-help)
(command "if exists \"" #DEST "\"\n")
(command " assign KidHTML: \"" #DEST "\"\n")
(command "endif")
)
(complete 99)
(complete 100)
(message "\n\nPlease rebut your computer and\n\nrun KidHTMLconfig before use KidHTML!!!!!\n\nThank you for use this soft!")
(set @default-dest (tackon #DEST "KidHTML"))