(working "Deleting preferences file of DFA V1.x...")
(run "delete ENV:DFA/DFA.prefs")
(run "delete ENVARC:DFA/DFA.prefs")
)
)
(if (exists "SYS:WBStartup/DFA")
(
;
; Delete DFA executable
;
(working "Deleting DFA V1.x executable...")
(run "delete SYS:WBStartup/DFA")
(run "delete SYS:WBStartup/DFA.info")
)
)
)
)
)
(
(message
( "No old version of DFA found!\nYou either don't have an old version installed, or it is on a place on your harddisk where it wasn't found.\n\nIf you have installed an old version of DFA anywhere on your system, please delete it manually or make sure that both versions don't run at the same time, as they are not compatible in some ways."
)
)
)
)
(message
( "*** DFA is SHAREWARE ***\n \nIf you use it regularly, please remember that you have to register!\n\nPlease notice that the amount of time the author is able to invest into DFA depends directly on the number of people who register.\nFor details about the registration, please read the documentation!\n\nEnjoy using DFA.\n\nDirk Federlein"
)
)
(set @default-dest "SYS:")
(complete 0)
;
; Set the dir and archive name for the binaries
;
(set bindir "DFA/")
(set binarchive "DFA/DFA-20.lha")
; ************************
; Install the DFA - Server
; ************************
;
; Select destination drawer
;
(set serverdest
(askdir
(prompt "Please select a place for the DFA-Server executable")
(default "SYS:WBStartup")
(help "Choose a destination partition or directory "
"to contain the DFA-Server executable. The install "
"program copies the DFA-Server executable 'DFA' "
"to the location you choose. "
"No extra drawer will be created! "
)
)
)
;
; Extract executable from archive
;
(working "Extracting DFA-Server executable from archive...")
