Apache Logfile- Größe begrenzen

@echo off & setlocal
set "Log=D:\Apache-TestLog.txt"  
set "Days=4"  

set "Src=%temp%\ALogTemp.txt"  
set "Dst=%temp%\ALog.txt"  
set "GFD=%temp%\GetFormattedDate.vbs"  
echo sM=",Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec":aM=Split(sM,","):aW=Array("","Sun","Mon","Tue","Wed","Thu","Fri","Sat")>%GFD%  
echo iDDiff=-WScript.Arguments(0):iM=InStr(sM,WScript.Arguments(1)):If iM=0 Then WScript.Quit(1) Else iM=(iM+2)/4>>%GFD%
echo dtD=DateSerial(WScript.Arguments(3),iM,WScript.Arguments(2)-iDDiff):If Not IsDate(dtD) Then WScript.Quit(1)>>%GFD%
echo WScript.Echo aW(Weekday(dtD))^&" "^&aM(Month(dtD))^&" "^&Right("0"^&Day(dtD),2)>>%GFD%  
set /p FirstLine=<"%Log%"  
for /f "tokens=2,3,5 delims= " %%i in ('echo %FirstLine%') do set "Dat=%%i %%j %%k"  

copy "%Log%" "%Dst%">nul  
for /l %%d in (0,1,%Days%) do call :RemoveDeltaDayLogEntries %%d
move "%Dst%" "%Log%"  
goto :eof

:RemoveDeltaDayLogEntries
for /f "delims=" %%i in ('cscript //nologo %GFD% %1 %Dat%') do set "Filter=%%i"  
if not defined Filter goto :eof
echo Entferne Zeilen mit Datum: %Filter%
move "%Dst%" "%Src%"  
findstr /v /b "[%Filter%" "%Src%" > "%Dst%"  

LogFormat %{"%YY-%mm-%dd %HH:%MM:%SS")t {und der Rest der Zeile nach Belieben}  
-oder-
LogFormat %{"%YYYY%%mm%dd %HH:%MM:%SS")t  

[Thu Sep 20 21:50:22 2007] [notice] Apache/2.2.4 (Win32) DAV/2 mod_ssl/2.2.4 OpenSSL/0.9.8e mod_autoindex_color PHP/5.2.3 configured -- resuming normal operations
[Thu Sep 20 21:50:22 2007] [notice] Server built: Mar  5 2007 11:23:00
[Thu Sep 20 21:50:22 2007] [notice] Parent: Created child process 2720
[Thu Sep 20 21:50:24 2007] [notice] Child 2720: Child process is running
[Thu Sep 20 21:50:24 2007] [notice] Child 2720: Acquired the start mutex.
[Thu Sep 20 21:50:24 2007] [notice] Child 2720: Starting 250 worker threads.
[Thu Sep 20 21:50:24 2007] [notice] Child 2720: Starting thread to listen on port 443.
[Thu Sep 20 21:50:24 2007] [notice] Child 2720: Starting thread to listen on port 80.
[Fri Sep 21 06:32:18 2007] [notice] Apache/2.2.4 (Win32) DAV/2 mod_ssl/2.2.4 OpenSSL/0.9.8e mod_autoindex_color PHP/5.2.3 configured -- resuming normal operations
[Fri Sep 21 06:32:18 2007] [notice] Server built: Mar  5 2007 11:23:00
[Fri Sep 21 06:32:18 2007] [notice] Parent: Created child process 1880
[Fri Sep 21 06:32:19 2007] [notice] Child 1880: Child process is running
[Fri Sep 21 06:32:19 2007] [notice] Child 1880: Acquired the start mutex.
[Fri Sep 21 06:32:19 2007] [notice] Child 1880: Starting 250 worker threads.
[Fri Sep 21 06:32:19 2007] [notice] Child 1880: Starting thread to listen on port 80.
[Fri Sep 21 06:32:19 2007] [notice] Child 1880: Starting thread to listen on port 443.
[Fri Sep 21 17:54:13 2007] [notice] Apache/2.2.4 (Win32) DAV/2 mod_ssl/2.2.4 OpenSSL/0.9.8e mod_autoindex_color PHP/5.2.3 configured -- resuming normal operations
[Fri Sep 21 17:54:13 2007] [notice] Server built: Mar  5 2007 11:23:00
[Fri Sep 21 17:54:13 2007] [notice] Parent: Created child process 2056
[Fri Sep 21 17:54:14 2007] [notice] Child 2056: Child process is running
[Fri Sep 21 17:54:14 2007] [notice] Child 2056: Acquired the start mutex.
[Fri Sep 21 17:54:14 2007] [notice] Child 2056: Starting 250 worker threads.
[Fri Sep 21 17:54:14 2007] [notice] Child 2056: Starting thread to listen on port 443.
[Fri Sep 21 17:54:14 2007] [notice] Child 2056: Starting thread to listen on port 80.

@echo off & setlocal
set "Log=D:\Apache-TestLog.txt"  
set /a Days=5

set "Src=%temp%\ALogTemp.txt"  
set "Dst=%temp%\ALog.txt"  
set "GFD=%temp%\GetFormattedDate.vbs"  
echo sM=",Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec":aM=Split(sM,","):aW=Array("","Sun","Mon","Tue","Wed","Thu","Fri","Sat")>%GFD%  
echo iDDiff=-WScript.Arguments(0):iM=InStr(sM,WScript.Arguments(1)):If iM=0 Then WScript.Quit(1) Else iM=(iM+2)/4>>%GFD%
echo dtD=DateSerial(WScript.Arguments(3),iM,WScript.Arguments(2)-iDDiff):If Not IsDate(dtD) Then WScript.Quit(1)>>%GFD%
echo WScript.Echo aW(Weekday(dtD))^&" "^&aM(Month(dtD))^&" "^&Right("0"^&Day(dtD),2)>>%GFD%  
set /p FirstLine=<%Log%
set FirstLine=%FirstLine:~0,26%
for /f "tokens=2,3,5 delims= " %%i in ('echo %FirstLine%') do set "Dat=%%i %%j %%k"  
set /a Days-=1

copy "%Log%" "%Dst%">nul  
for /l %%d in (0,1,%Days%) do call :RemoveDeltaDayLogEntries %%d
move "%Dst%" "%Log%"  
goto :eof

:RemoveDeltaDayLogEntries
for /f "delims=" %%i in ('cscript //nologo %GFD% %1 %Dat%') do set "Filter=%%i"  
if not defined Filter goto :eof
echo Entferne Zeilen mit Datum: %Filter%
move "%Dst%" "%Src%"  
findstr /v /b "[%Filter%" "%Src%" > "%Dst%"  

[31/Okt/2007:18:04:41 +0100] - username IP ...........

@echo off & setlocal
set "Log=E:\access.log"  
set /a Days=7

set "Src=%temp%\ALogTemp.txt"  
set "Dst=%temp%\ALog.txt"  
set "GFD=%temp%\GetFormattedDate.vbs"  
echo sM=",Jan,Feb,Mär,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez":aM=Split(sM,",")>%GFD%  
echo iDDiff=-WScript.Arguments(0):iM=InStr(sM,WScript.Arguments(2)):If iM=0 Then WScript.Quit(1) Else iM=(iM+2)/4>>%GFD%
echo dtD=DateSerial(WScript.Arguments(3),iM,WScript.Arguments(1)-iDDiff):If Not IsDate(dtD) Then WScript.Quit(1)>>%GFD%
echo WScript.Echo Right("0"^&Day(dtD),2)^&"/"^&aM(Month(dtD))^&"/"^&Year(dtD)>>%GFD%  
set /p FirstLine=<%Log%
set FirstLine=%FirstLine:~1,11%
for /f "tokens=1-3 delims=/" %%i in ('echo %FirstLine%') do set "Dat=%%i %%j %%k"  
set /a Days-=1

copy "%Log%" "%Dst%">nul  
for /l %%d in (0,1,%Days%) do call :RemoveDeltaDayLogEntries %%d
move "%Dst%" "%Log%"  
goto :eof

:RemoveDeltaDayLogEntries
for /f "delims=" %%i in ('cscript //nologo %GFD% %1 %Dat%') do set "Filter=%%i"  
if not defined Filter goto :eof
echo Entferne Zeilen mit Datum: %Filter%
move "%Dst%" "%Src%"  
findstr /v /b "[%Filter%" "%Src%" > "%Dst%"  

sM = ",Jan,Feb,Mär,Apr,Mai,Jun,Jul,Aug,Sep,Okt,Nov,Dez" 'verwendete Monatsnamen  
'Aufteilung der Namen (in ein Array; eigentlich nullbasiert,  
'    aber durch das erste Komma oben stimmen Name und Monatszahl überein)  
aM = Split(sM, ",")  

'Erstes übergebenes Argument (ebenfalls nullbasiert) ist die Tagedifferenz   
'    (das "-" ist syntaktisch bedingt - siehe unten)  
iDDiff = -WScript.Arguments(0)

'Monatsnummer als Integer ermitteln - Schritt 1: Position im String sM feststellen  
iM = InStr(sM, WScript.Arguments(2))
If iM = 0 Then 'Monatsname gefunden?  
	'Nein, daher Ende (mit Errorlevel 1 - wird zwar nicht weiter verwendet,  
	'    schadet aber auch nicht)  
	WScript.Quit(1)
Else
	'Monatsnummer als Integer ermitteln - Schritt 2: aus Position im String Monatszahl ermitteln  
	iM = (iM + 2) / 4
End If

'Datum aus iM und den weiteren Argumenten zusammenstellen - Jahr, Monat, Tag;  
'    dabei auch gleich Tagedifferenz berücksichtigen -   
'    hier wird ein negativer Wert benötigt, daher oben der Vorzeichenwechsel  
dtD = DateSerial(WScript.Arguments(3), iM, WScript.Arguments(1)- iDDiff)

 'Falls kein gültiges Datum entstanden ist, mit Fehler beenden  
If Not IsDate(dtD) Then WScript.Quit(1)

'Datum formatiert ausgeben: Tag mit führender 0, Monat als Text  
WScript.Echo _
	Right("0" & Day(dtD), 2) & "/" & _  
	aM(Month(dtD)) & "/" & _  
	Year(dtD)

Logformat "%{%Y%m%d %H:%M %S}t [...weitere definierte %-Vars..] " NameDesLogformats