鬱だ氏ね！コードレッド(Code Red)

昨日あたりから「新しい亜種が出た」との噂が多いのでバイナリ部分も
記録するスクリプトを置いてみた。

#!/usr/local/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$date_now = sprintf("%02d/%02d/%02d-%02d:%02d:%02d",$year-100,$mon +1,$mday,$hour,$min,$sec);
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
open(WRITE,">> CodeRed.log");
print WRITE "*****$date_now from $ENV{'REMOTE_ADDR'}\n$buffer\n";
close(WRITE);
print "Content-type: text/html\n\ndummy";
exit;

10匹くらい記録したけど新種は見当たらないなあ。