home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 52
/
Amiga_Dream_52.iso
/
Amiga
/
Workbench
/
Commodites
/
tradWeb.lha
/
InstalltradWeb
/
install-TradWeb
< prev
next >
Wrap
Text File
|
1998-03-28
|
2KB
|
100 lines
;test d'installer
;----------------------------------
;definition des variables de base
;
;MINSUSER AVERAGE
;
;LANGUAGE francais
;--------------------------
;dans quel repertoire
;--------------------------
(set #name
(askdir
(prompt "Indiquer le rΘpertoire ou placer TradWeb \n un repertoire TradWeb sera crΘer ")
(help @askdir-help)
(default "ram:")
)
)
;--------------------------------
;determine l'origine des fichiers
;--------------------------------
(set #source (pathonly @icon))
(set #path (tackon #name "tradweb"))
(set #repertoire (exists #path) )
;--------------------------------
;verifie si repertoire existant
;--------------------------------
(if #repertoire
(
(abort "RΘpertoire ou fichier dΘja existant \n Installation interrompue "
"\n Effacer le fichier ou repertoire "
"\n et recommencer l'installation"
"\n ou recommencer et choissiser "
"\n un autre repertoire de destination")
)
(makedir #path
(prompt "Repertoire TradWeb en cours de creation")
(help @makedir-help)
(infos)
(confirm)
)
)
(complete 10 %)
(set @default-dest #path)
;----------------------------------
;cherche si on copie tout
;----------------------------------
(set #choix (askoptions
(prompt "Installer aide en ligne")
(help "Indiquez les fichiers annexes a copier \n Aucun fichier est n'indispensable")
(choices "aide franτais" )
(default 1)
)
)
(complete 20 %)
;----------------------------------
;copie les fichiers
;----------------------------------
;copie du programme
(copyfiles
(prompt "Copier TradWeb")
(help "Copie le programme dans le rΘpertoire choisi")
(source (tackon #source "TradWeb"))
(infos)
(dest #path)
(noposition)
(confirm)
)
(complete 50 %)
;----------------------------------
;si copie demandes repertoire doc
;----------------------------------
(if (BITAND 1 #choix )
(copyfiles
(prompt "Copier aide")
(help "Copie le ficier aide dans le rΘpertoire ")
(source (tackon #source "aide"))
(dest #path )
(infos)
(noposition)
(confirm)
)
)
;--------------------
;copier le complement
;--------------------
(complete 100 %)