#!/usr/local/bin/perl if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'}); } else { $QUERY_DATA = $ENV{'QUERY_STRING'}; } $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $month = sprintf("%02d",$mon + 1); $mday = sprintf("%02d",$mday); if(!open(dat,"kousin.txt")){exit;} $kdate=; close(dat); $n=$QUERY_DATA; if($n eq ""){exit;} if($n eq "kousinok"){ &kousin; print "Content-type: text/html\n\n"; print "ok"; exit; } if($hour>10){&kousin;} if(length($n)==2){$des=substr($n,0,1);$n=substr($n,1,1);} $n--; if($n==2){$n2="a";} else{ if($n>2){ $n--; } $n2=substr($kdate,$n,1); } $f="kousingp/$des$n2.gif"; if(!open(dat,$f)){exit;} print "Content-type: image/gif\n"; print "Content-length: ".(stat($f))[7]."\n\n"; print ; close(dat); exit; sub kousin{ if(!open(dat,">kousin.txt")){exit;} print dat "$month$mday"; close(dat); }