[an error occurred while processing this directive] SevenLines - 7rwcntr
[an error occurred while processing this directive]
パズル的軟件

SevenLines

7rwcntr (ランダム文章表示機能付カウンタ)

7rwcntr は、SSI もしくは CGI プログラムとして利用できるアクセスカウンタです。 本日 / 昨日 / 総計の三つのカウントと、ランダムな一行文章を表示する機能があります。

一行の定義は 「79 byte 以内の文字列 + LF」 としています。

名称:
CGI プログラム (Perl Script)
内容量:
476 byte (shebang を含まない)
製造者:
闇主

パッケージは頁下方にて配布

#!/usr/local/bin/perl
sub o{open(F,"+<$_")?eval{flock F,2}:die;<F>}chomp(($_,$d,$s,$g,@f)=<DATA>);($a
,$t,$y,$l)=split/\t/,o;$l=$l!~($r="@ENV{REMOTE_ADDR,HTTP_USER_AGENT}");$s=!$s?1
:dbmopen(%r,$d,420)?(time-$r{$r}>$s,$r{$r}=time)[0]:die;if($l&$s){(localtime)[3
]-(localtime((stat F)[9]))[3]and$y=$t,$t=0;seek F,0,0;print F join"\t",++$a,++$
t,$y,$r;eval{truncate F,tell F}}chomp($w.=$l[rand(@l=o)])for sort< $g>;$m=@ARGV
?javascript:plain;printf join("\n","Content-Type: text/$m\n",@f),$w,$a,$t,$y

ご注意: 当サイトにて公開されている製作物の作者は、 それら製作物の使用で生じた如何なる損害に対しても責任を負いません。 また、製作物やその利用方法に関する質問、製作物に対する要望等に、 作者は応える義務を持ちません。

当サイトにて公開されている製作物は、それぞれの作者が著作権を有します。 配布パッケージのライセンス文書に従ってお取り扱い下さい。 配布パッケージが存在しない場合は、作者の許諾なしに転載・再配布等は行えません。

当サイトは大塚製薬及び同社の製品とは一切関係ありません。 :-p

http://cm.xrea.cc/

最終更新日: Fri, 26 Mar 2004 16:13:26 JST