; EXCELSIOR! BBS Evaluation Release - June 14, 1993
(welcome "Welcome to the EXCELSIOR! BBS Installation Utility")
(transcript "Starting Install")
(set x 0)
(set root "")
(set y 0)
(set y @user-level)
(user 2)
(set name (askstring
(prompt "Please enter the name YOU wish to\nbe known as on the BBS\n«20 characters max»")
(help @askstring-help)
(default "Your Name")))
(set passwd (askstring
(prompt "Please enter the password you want to use\n«15 characters max»")
(help @askstring-help)
(default "Your Password")))
(while (NOT (= x 2))
(set root (askdir
(prompt "What drawer should the BBS files be installed in?\nPlease MAKE NEW DRAWER if necessary!")
(help @askdir-help)
(default "SYS:")))
(set x (exists root)))
(user y)
(set @default-dest root)
(set path (tackon root "MBASE"))
(makedir path)
(set path (tackon root "FBASE"))
(makedir path)
(set path (tackon root "NEWS"))
(makedir path)
(set path (tackon root "MAIL"))
(makedir path)
(set path (tackon root "DOORS"))
(makedir path)
(textfile
(prompt "Setting up...");
(help "'NO HELP'")
(dest "T:excelsiorpath")
(append root)
)
(set var ("%s\n%s\n" name passwd))
(textfile
(prompt "Setting up...");
(help "'NO HELP'")
(dest "T:excelsiorbin")
(append var)
)
(set path (tackon root "LANGUAGES"))
(makedir path)
(copyfiles
(prompt "Available Languages")
(help @copyfiles-help)
(source "SYSTEM/LANGUAGES/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "TEXT"))
(makedir path)
(set path2 (tackon root "LOGS"))
(makedir path2)
(set path1 (tackon path "ENGLISH"))
(makedir path1)
(copyfiles
(prompt "Text Files")
(help @copyfiles-help)
(source "SYSTEM/TEXT/ENGLISH/")
(dest path1)
(pattern "#?")
(files)
)
(set path (tackon root "TRANSLATION"))
(makedir path)
(copyfiles
(prompt "Available Translation Tables")
(help @copyfiles-help)
(source "SYSTEM/TRANSLATION/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "XMAIL"))
(makedir path)
(copyfiles
(prompt "FIDO Processing Files")
(help @copyfiles-help)
(source "SYSTEM/FIDO/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "C"))
(makedir path)
(copyfiles
(prompt "External Programs")
(help @copyfiles-help)
(source "C/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "DATA"))
(makedir path)
(copyfiles
(prompt "Data Files")
(help @copyfiles-help)
(source "SYSTEM/DATA/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "HELP"))
(makedir path)
(copyfiles
(prompt "Help File")
(help @copyfiles-help)
(source "HELP/")
(infos)
(dest path)
(pattern "#?")
(files)
)
(copyfiles
(prompt ("Copying BBS System Files to %s" root))
(help @copyfiles-help)
(source "SYSTEM/")
(infos)
(dest root)
(pattern "#?")
(files)
)
(set path (tackon root "L"))
(makedir path)
(copyfiles
(prompt "Handlers")
(help @copyfiles-help)
(source "SYSTEM/L/")
(dest path)
(pattern "#?")
(files)
)
(copyfiles
(prompt ("Copying BBS Binaries to %s" root))
(help @copyfiles-help)
(source "BIN/")
(infos)
(dest root)
(pattern "#?")
(files)
)
(copyfiles
(prompt "Script Files")
(help @copyfiles-help)
(source "SYSTEM/S/")
(dest "S:")
(pattern "#?")
(files)
)
(set path (tackon root "EVENTS"))
(makedir path)
(copyfiles
(prompt "Event Scheduler")
(help @copyfiles-help)
(source "SYSTEM/EVENTS/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "Editors"))
(makedir path)
(copyfiles
(prompt "Text Editors")
(help @copyfiles-help)
(source "SYSTEM/EDITORS/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "UTILITIES"))
(makedir path)
(copyfiles
(prompt "Utility Files")
(help @copyfiles-help)
(source "UTILITIES/")
(dest path)
(pattern "#?")
(files)
)
(set path (tackon root "C"))
(set first ("mount NULL: from DEVS:mountlist.excelsior\npath add %s\nrun >nil: <nil: ECOM" path))
(startup "EXCELSIOR!"
(prompt
"Some instructions need to be added to the \"S:user-startup\" so that your system will be properly configured to use EXCELSIOR!")
(help "No help for this function")
(command first)
)
(exit ("Please run BBSCONFIG, located in \"%s\" to configure your system!\n\nOnce finished, you can run the program 'MASTER' also located in \"%s\" to start the BBS" root root))
