nph-status.pl

带mod_cache的lighttpd服务器,性能有很大提高,可以让一个1G带宽跑满不是神话 使用是直接解压后./configure -C就可以生成mod_cache模块的lighttpd.

#!/usr/bin/perl 

my $status = 200;

if (defined $ENV{"QUERY_STRING"}) {
	$status = $ENV{"QUERY_STRING"};
}

if ($status == 0 && $status ne "0") {
	# not a number, just send as content
	print $status;
} else {
	print "HTTP/1.0 ".$status." FooBar\r\n\r\n";
}