home *** CD-ROM | disk | FTP | other *** search
- echo off
- d:
- Rem Make sure the network is all set up properly
- call netset
- Rem Set environment variables for all the multinode stuff
- Rem tell schat! where the BBS main directory is.
- set schat!=d:\qbbs
- Rem Tell DSZ what port to use (for XRDOOR)
- set bnuport=1
- Rem Set a variable to hold the baud rate (used as a switch and to allow a relog)
- set baud=%1
- Rem Lets me do an emergency restart if I have to reboot for some reason.
- Rem By doing an EXEBBS RESTART
- if %baud%==restart goto restart_quick
- :top
- Rem This line gets called for ALL remote logons.
- cd\qbbs
- if %baud%==local goto local_quick
- quickbbs -b%baud% -e0 -t%3 -m%6
- goto after_quick
-
- :local_quick
- Rem Log onto the BBS from a function key drop to DOS from the mailer.
- cd\qbbs
- quickbbs -l -e0
- goto after_quick
-
- :restart_quick
- Rem Reload the BBS after a type 15 exit.
- d:
- cd\qbbs
- quickbbs -r -e0
-
- :after_quick
- if errorlevel 7 goto relog
- if errorlevel 6 goto outside
- if errorlevel 5 goto net&echo
- if errorlevel 4 goto echo_only
- if errorlevel 3 goto net_only
- goto out
-
- :outside
- Rem Call the batch file to run doorway for remote maint.
- echo off
- command.com /c d:\bat\outside.bat /d:512
- goto restart_quick
-
- :relog
- Rem Allow a user to log into the system again. Allows more than one account
- Rem per call.
- cd\qbbs
- goto top
-
- :net&echo
- rem fall through to echo_only
-
- :echo_only
- Rem This calls DVEXEC if in DV and scans for mail. Falls through
- rem if not in DV and still does the scan.
- BNU/U
- echo ATH1&D0 > com1:
- beep 10 25
- echo ATH1&D0 > COM1:
- call mscan.bat
- goto out
- cd\qbbs
- qecho -e -a
- goto out
-
- :net_only
- Rem Same as above.
- BNU/U
- echo ATH1&D0 > com1:
- beep 10 25
- echo ATH1&D0 > COM1:
- call mscan.bat
- goto out
- cd\qbbs
- mailscan
- del netmail.bbs
-
- :out
-
- :get_out
- Rem Return to run.bat
- BNU/U
- echo ATH1&D0 > com1:
- beep 10 25
- echo ATH1&D0 > COM1:
- cd\qbbs
- uplog
- qguest
- cd\
- bnu /z2 /R:4096 /T:512 /l0:38400
-
-