ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/BBS/RA/BAT2FD10.ZIP/RA1.BAT

DOS Batch File | 1990-11-03 | 5.4 KB | 190 lines

Rem
Rem Batchfile for Node 1
Rem

Rem These batchfiles make use of a few special programs.
Rem
Rem DVCommand makes a window wait for xx seconds (DVCOxxxx.ZIP)
Rem CD-Check detects whether there is a carrier on the other line.

Rem
Rem Frontdoor is setup to exit with errorlevel 100 after incoming mail

@Echo Off
C:\Dv\Dvansi
Cls

Rem -----------------------------------------
Rem - Clean up mess after reboot or similar -
Rem -----------------------------------------

If Exist C:\Ra\Line2\Down Del C:\Ra\Line2\Down
If Exist C:\Ra\Line2\GoDown Del C:\Ra\Line2\GoDown

Rem --------------------------------------------------
Rem - Set COMports for DSZ and environment for RAQMX -
Rem --------------------------------------------------

Set DSZPORT=1
Set TCNODE=1

Rem - Main -----------------------------------------------------------
:Start

Rem -----------------------------------------
Rem - Check if Node 2 allows mailprocessing -
Rem -----------------------------------------

If Exist C:\Ra\Line2\Mail! Goto Do_Mail
If Exist C:\Fd\FdExit.100 Goto Do_Mail

:Start2
C:
Cd\Ra\Line1
Bnuhlp /C

Ra -N1 -E250 -M*M*HC:\Fd\Fd.Exe
If ErrorLevel 250 Goto AfterRA
If ErrorLevel 100 Goto Do_Mail
If ErrorLevel  90 Goto Maint
If ErrorLevel   6 Goto End
If Errorlevel   3 Goto BBS_Mail
Goto End

Rem - Exit after human caller; user entered mail----------------------------
:BBS_Mail

Rem - Exit after human caller-----------------------------------------------
:AfterRA
C:
Cd\Ra\Line1

:AfterRA2
Rem --------------------------------------------------------------
Rem - Grab XRS uploaded mail from Node 1 and copy to inbound dir -
Rem --------------------------------------------------------------

If Not Exist C:\Qmx\Line1\01e9*.* Goto AfterRA3
Set QmxMail=X
If Exist C:\Fd\Files\01e9.* Goto AfterRA3
Copy C:\Qmx\Line1\01e9*.* C:\Fd\Files
Del C:\Qmx\Line1\01e9*.*

:AfterRA3
Rem --------------------------------------------------------------
Rem - Grab XRS uploaded mail from Node 2 and copy to inbound dir -
Rem --------------------------------------------------------------

CD-Check 2
If Not Errorlevel 1 Goto AfterRA4
If Not Exist C:\Qmx\Line2\01e9*.* Goto AfterRA4
Set QmxMail=X
If Exist C:\Fd\Files\01e9*.* Goto AfterRA4
Copy C:\Qmx\Line2\01e9*.* C:\Fd\Files
Del C:\Qmx\Line2\01e9*.*

:AfterRA4

Rem ----------------------------------
Rem - Check if mailprocessing is due -
Rem ----------------------------------
If .%QmxMail%==.X Goto Do_Mail
If Exist C:\Msgs\Echomail.Bbs Goto Do_Mail
If Exist C:\Msgs\Netmail.Bbs Goto Do_Mail
Goto Start

Rem - X100-Import and export----------------------------------------------
:Do_Mail
If Exist C:\Fd\FdExit.100 Del C:\Fd\FdExit.100

Rem -------------------------------------------------------
Rem - Test if there is a carrier on Node 2                -
Rem - If yes:  Set FDexit in case it's a mailsession, and -
Rem -          Create a file "Mail!" if it's the BBS      -
Rem -------------------------------------------------------
CD-Check 2
If Errorlevel 1 Goto Do_Mail2
Rem > C:\Fd\Fd2\FdExit.170
Rem > C:\Ra\Line2\Mail!
Goto Start2

Rem ----------------------------------------
Rem - No carrier on Node 2: Take 'er down! -
Rem ----------------------------------------
:Do_Mail2
If Not Exist C:\Ra\Line2\Down Call Stop2.Bat


Rem -------------------------------------------
Rem - First process mail entered by BBS users -
Rem -------------------------------------------

C:
Cd\Fd
If Exist C:\Msgs\Echomail.Bbs TosScan scan
If Exist C:\Msgs\Netmail.Bbs Tsutil Export -c
If Exist C:\Msgs\Netmail.Bbs Del C:\Msgs\Netmail.Bbs

TosScan Mgr
TosScan Toss
Tsutil Import -f
If Exist Import.Xyz Tsutil Link
If Exist Import.Xyz Del Import.Xyz

Rem -------------------------------------------
Rem - Mail processing ready.                  -
Rem - Delete the flags for Node 2 and fire up -
Rem -------------------------------------------
If Exist C:\Ra\Line2\Mail! Del C:\Ra\Line2\Mail!
If Exist C:\Ra\Line2\Down Del C:\Ra\Line2\Down
If Exist C:\Fd\Fd2\FdExit.* Del C:\Fd\Fd2\FdExit.*
If Exist C:\Fd\FdExit.* Del C:\Fd\FdExit.*
Set QmxMail=

Goto Start

Rem - X90-Nightly Maintenance----------------------------------------------
:Maint
If Not Exist C:\Ra\Line2\Down Call Stop2.Bat
C:
cd\fd

Rem -------------------------------------------------------------
Rem - Do whatever needs to be done in maintenance               -
Rem - I compile the nodelist and do some household cleanup here -
Rem -------------------------------------------------------------

TSMaint Kill
Tsutil Kill NETMAIL -d 45 -k
Tsutil Maint -f -r
If Not ErrorLevel 1 Goto Night2

Rem -----------------------------------------------------
Rem - Tsutil Maint sometimes takes too much memory      -
Rem - In that case it will exit with an errorlevel      -
Rem - So why don't we use the slow method in that case? -
Rem -----------------------------------------------------
Tsutil Kill -S
Tsutil Pack -f -r

:Night2
Cd\Ra
RaUser -S -P -D75
Copy Remotlog.Cf1 Remotlog.Cfg
Remotlog
Copy Remotlog.Cf2 Remotlog.Cfg
Remotlog

Rem --------------------------------------------------------
Rem - All done. Delete signal flags and restart the mailer -
Rem --------------------------------------------------------

If Exist C:\Ra\Line2\Down Del C:\Ra\Line2\Down
Goto Start

Rem - Exit batchfile-------------------------------------------------------
:End