Subj : Caller Dropped Carrier script
To : All
From : Mvan Le
Date : Mon Dec 28 2009 07:20 pm
Here's a short script I wrote to read in a Maximus log file and separate those
annoying "Caller dropped carrier" sessions caused by internet port scans.
Filename: proc_cdc.vbs
Shell: Cscript, VBScript
Platform: Any operating system with Windows Scripting Host (WSH) installed eg.
Windows XP/2k/2k+[3,8]/Vista/7. You can get WSH for Windows9x & NT.
Purpose: All BBS call log entries with only "Caller dropped carrier" in them
are filtered to separate files eg. %filename%.cdc & %filename%.log.
Assumes: The log files to be processed do NOT have *.log or *.cdc extension.
The system for which this script was written writes Maximus log files
to "node%1.tmp" where %1 is the node number.
Input: Any Maximus log file
Output: Deletes input file and creates *.cdc (for Caller Dropped Carrier)
and *.log (Other).
Dim objFileLogfileCdc
Dim objFileLogfileNode
Dim objFileLogfileNodeTmp
Dim strLogfileNode
Dim strLogfileNodeTmp
Dim strLine, strLineBuf, strLineBufType
Dim intPos
Dim intLineCount
Dim i
' Get node%1.tmp filename
strLogfileNodeTmp = WScript.Arguments(0)
' Get node%1.tmp base filename
intPos = InStr(1, strLogfileNodeTmp, ".", vbTextCompare)
strLogfileNode = Left(strLogfileNodeTmp, intPos - 1)
' Open files for reading and/or appending
Set objFileLogfileNodeTmp = OpenTextFile(strLogfileNodeTmp, ForReading)
Set objFileLogfileNode = OpenTextFile(strLogfileNode & ".log", ForAppending)
Set objFileLogfileCdc = OpenTextFile(strLogfileNode & ".cdc", ForAppending)
intLineCount = 0
strLineBufType = ".log" ' Initialise default line buffer type
Do While objFileLogfileNodeTmp.AtEndOfStream <> True
strLine = objFileLogfileNodeTmp.ReadLine
strLineBuf = strLineBuf & strLine & vbNewLine
If RegExpTest("MAX Begin, v3.01", strLine) Then
' Reset line count and string buffer at beginning-of-call
strLineBuf = strLine & vbNewLine
intLineCount = 1
' An empty line signals end-of-call so flush string buffer to the correct log
file
ElseIf RegExpTest("^$", strLine) And intLineCount > 1 Then
Select Case strLineBufType
Case ".log"
If DEBUGGING Then
Wscript.Echo "Writing to " & strLogfileNode & ".log:"
Wscript.Echo strLineBuf
End If
objFileLogfileNode.WriteLine strLineBuf
strLineBuf = Null
intLineCount = 0
Case ".cdc"
If DEBUGGING Then
Wscript.Echo "Writing to " & strLogfileNode & ".cdc:"
Wscript.Echo strLineBuf
End If
objFileLogfileCdc.WriteLine strLineBuf
strLineBufType = ".log" ' Reset back to ".log" just to be sure
strLineBuf = Null
intLineCount = 0
End Select
End If
' Check every third line for CDC
If intLineCount = 3 Then
If RegExpTest("MAX Caller dropped carrier", strLine) Then
strLineBufType = ".cdc"
Else
strLineBufType = ".log"
End If
End If
intLineCount = intLineCount + 1
If DEBUGGING Then
If i > 100 Then ' Look at this number of lines only
Exit Do
End If
I = i+1
End If
Loop
If Not DEBUGGING Then
DeleteFile(strLogfileNodeTmp)
End If
Function OpenTextFile(strPathFilename, intMode)
Dim fso, fd
Set fso = CreateObject("Scripting.FileSystemObject")
Set fd = fso.OpenTextFile(strPathFilename, intMode, CreateIfNotExist)
Set OpenTextFile = fd
End Function
Function RegExpTest(patrn, strng)
Dim regEx, retVal ' Create variable.
Set regEx = New RegExp ' Create regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = True ' Set case sensitivity.
retVal = regEx.Test(strng) ' Execute the search test.
RegExpTest = retVal
End Function
Sub DeleteFile(strPathFilename)
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(strPathFilename)
f.Delete
End Sub
===============================================================================
Example RUNBBS.BAT:
===============================================================================
set LOGFILE_NODE=node%1.tmp
if errorlevel 255 goto UndefError
if errorlevel 16 goto Error
if errorlevel 12 goto EchoMail
if errorlevel 11 goto NetMail
if errorlevel 10 goto localmail
if errorlevel 5 goto Aftercall
if errorlevel 4 goto Error
if errorlevel 3 goto Error
if errorlevel 2 goto Done
if errorlevel 1 goto altx
:Done
rem ; Clean up log file by removing "Caller dropped carrier"
cscript %max%\scripts\proc_cdc.vbs %LOGFILE_NODE%
===============================================================================
--- Maximus 3.01
* Origin: Xaragmata / Adelaide SA telnet://xaragmata.mooo.com (3:800/432)
