Apache httpd Log Rotate by Perl

Type(Type) 2006/12/23 20:29

一個老舊的 Perl - apache httpd Log Rotate 後台工具，
Windows/UNIX/LINUX 應該都可用。

代碼:


#!P:/Perl/bin/Perl.exe

($sec,$min,$hour,$mday,$mon,$year,$wday)=(localtime)[0,1,2,3,4,5,6];
$year += 1900;
$mon += 1;
$logg = $year."-".$mon."-".$mday.".log";
$errl = "error-".$logg;

print "Stopping APACHE2!".$/;
system( "P:\\Apache2\\bin\\apache -k stop" );

print "Renaming!...".$/;
system( "move P:\\Logs\\access.log P:\\Logs\\$logg" );
print "Renaming!...".$/;
system( "move P:\\Logs\\error.log P:\\Logs\\$errl" );

print "Restarting APACHE2!".$/;
system( "P:\\Apache2\\bin\\apache -k start" );

#apache
#httpd
#perl

#apache by Type
#httpd by Type
#perl by Type

(4,029 views)

"Apache httpd Log Rotate by Perl" 傳統頁面(電腦版)

首頁繪圖設計工作閒聊比賽活動美術討論標籤圖片

傳統桌面版 [ 登入/註冊 ]