; This is my first attempt at using the CBM Installer program
; Based on the Parbench installer script
(welcome (message "\n\n\nPLEASE NOTE\n\n\nThis installer script will NOT work if you booted from this floppy!")
)
(transcript "SerNet installation on \"SYS:ParNET\"...") ;Begin to hate
;parenthesis..
(complete 0)
(makedir "SYS:SerNET" ;Begin Makedir
(prompt "\n\n\n\nHit PROCEED to create SYS:SerNET\n\n(For Addtional Information on this step hit HELP.)") ;
(help "\n SerNet relies on there being a Drawer called SYS:SerNET in order for it to install properly. This drawer must exist in order for the remainder of this script to function.")
(infos) ;
(confirm) ;
) ;End Makedir
(makedir "SYS:DNET" ;Begin Makedir
(prompt "\n\n\n\nHit PROCEED to create SYS:DNET\n\n(For Addtional Information on this step hit HELP.)") ;
(help "\n SerNet relies on there being a Drawer called SYS:DNET in order for it to install properly. This drawer must exist in order for the remainder of this script to function.") ;
(confirm) ;
) ;End Makedir
(complete 10)
; **** Ok Ok, so its Really Clumsy but I don't know how to do multiple
; **** operators without it shifting to ELSE!!! Grrr...
(copyfiles
(Prompt "For Additional Information on these files hit HELP.")
(source "WS:SerNet")
(dest "SYS:SerNET/")
(files)
(infos)
(all)
)
(copyfiles
(Prompt "For Additional Information on this file hit HELP.")
(source "WS:DNET")
(dest "SYS:DNET/")
(files)
(infos)
(pattern "#?")
)
(Complete 35)
(copyfiles
(Prompt "For Additional Information on these files hit HELP.")
(source "WS:s")
(dest "SYS:s/")
(files)
(pattern "Dnet.#?")
)
(Complete 45)
(copyfiles
(Prompt "For Additional Information on these files hit HELP.")
(source "WS:s/NETDNET-SERVER")
(dest "SYS:s/")
)
(copyfiles
(Prompt "For Additional Information on these files hit HELP.")
(source "WS:s/RemoteExecute.cfg")
(dest "SYS:s/")
)
(Complete 55)
(copyfiles
(Prompt "\n\n\nHit PROCEED to copy 'Serial.Device' to SYS:\n\n(For Additional Information on this step hit HELP.)")
(help "\nSernet seems to prefer an old version of the Serial.Device\n\nThe installer will copy your original version\n\ninto the directory 'Serial.Device.Original'\n\nand copy across an old version.")
(source "Sys:Devs/Serial.Device")
(dest "Sys:Devs/Serial.Device.Original")
(files)
(confirm)
)
(copyfiles
(source "WS:Devs/Serial.Device")
(dest "SYS:Devs/")
(files)
)
(complete 65)
(copyfiles
(Prompt "For Addtional Information on these files hit HELP.")
(source "WS:l/Dpipe-Handler")
(dest "SYS:l/")
(files)
)
(copyfiles
(Prompt "For Addtional Information on these files hit HELP.")
(source "WS:l/Null-Handler")
(dest "SYS:l/")
(files)
)
(copyfiles
(Prompt "For Addtional Information on these files hit HELP.")
(source "WS:l/NetDNet-Handler")
(dest "SYS:l/")
(files)
)
(complete 85)
(copylib
(prompt "Copying Dres.library to Libs: directory.")
(help @copylib-help)
(source "WS:libs/Dres.library")
(dest "Libs:")
(confirm)
)
(copylib
(prompt "Copying xprz.modem.library to Libs: directory.")
(help @copylib-help)
(source "WS:libs/xprzmodem.library")
(dest "Libs:")
(confirm)
)
(copylib
(prompt "Copying UNDMS to c: directory.")
(help @copylib-help)
(source "WS:c/UNDMS")
(dest "c:")
(confirm)
)
(copylib
(prompt "Copying xprd to c: directory.")
(help @copylib-help)
(source "WS:c/xprd")
(dest "c:")
(confirm)
)
(complete 95)
(set Newcon
(exists "NEWCON:" (noreq))
)
(if (= Newcon 0)
(set Answer
(askchoice
(Prompt "Do you wish to mount 'NEWCON:' at Startup")
(help "\n Mounting this on Workbench 2 or 3 will prevent an error \n requester each time you boot Sernet.")
(choices "YES" "NO")
(default 0)
)
)
)
(if (= Answer 0)
(startup "Newcon"
(prompt "Adding MOUNT command to 'User-Startup'")
(help "A Mount command will be added to your User-Startup")
(command "Failat 21\n"
"Mount Newcon: FROM Sys:Sernet/Newcon.Mountlist\n"
