Hiki 運用開始 / mingplot: Flash 形式のグラフを生成するツール / Apache の error_log が肥大化 / error_log を分割するスクリプト

Hiki 運用開始

日記だと埋もれていったりするので、ドキュメント書きのために Wiki を置いてみた。

PC関係のノート

TODO: * ページ名.html で閲覧してもらう * Namazu で検索 * フォーマットを RD に変更 * CVS で履歴管理

mingplot: Flash 形式のグラフを生成するツール

mingplot

zphoto: ズーミングする写真集を作るツール も面白そう

Apache の error_log が肥大化

[Sat Nov 15 04:02:04 2003] [notice] SIGHUP received.  Attempting to restart
[Sat Nov 15 04:02:07 2003] [notice] Apache configured -- resuming normal
operations
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache shared memory removed (pid
2118)
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache semaphores removed (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Acquiring cache : uid 80 gid 80
perms 666 (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] PHPA 1.3.3r2 on
linux_i686_glibc2.1.3 (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Initialised 8MB cache at 0
x405d5000 with 512 process entries (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Lock thresholds 10/10 (pid 2118)
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache shared memory removed (pid
2118)
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache semaphores removed (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Acquiring cache : uid 80 gid 80
perms 666 (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] PHPA 1.3.3r2 on
linux_i686_glibc2.1.3 (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Initialised 8MB cache at 0x405d5000
with 512 process entries (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Lock thresholds 10/10 (pid 2118)
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache shared memory removed (pid
2118)
[Sat Nov 15 04:02:05 2003] [notice-phpa] Cache semaphores removed (pid 2118)
[Sat Nov 15 04:02:07 2003] [notice-phpa] Acquiring cache : uid 80 gid 80
perms 666 (pid 2118)

以下同じ内容で数十万件/日

しかもログ時刻は一緒。

PHPA Support Forum でも同じエラー出てる人たちがいるけどまだ解決していない模様

error_log を分割するスクリプト

#!/usr/local/bin/perl
# divlog.pl
#  : apache の error_log を分割する
$filename = shift(@ARGV);
open(FILE, "<$filename") or die("file not found");
while(<FILE>) {
    $line = $_;
    if($line =~ /^\[\w{3} (\w{3}) (\d{2}) [^]]+(\d{4})\]/)  {
        open(OUT, ">>$filename.$3$1$2");
        print OUT $line;
    }
}

実行結果

$ sudo ./divlog.pl error_log
$ ls
error_log
error_log.2003Nov04.gz
error_log.2003Nov05.gz
error_log.2003Nov06.gz
error_log.2003Nov07.gz
error_log.2003Nov08.gz
error_log.2003Nov09.gz
error_log.2003Nov10.gz
error_log.2003Nov11.gz