misao全文検索

2000/03/04 (土) 00:44:08　 ▼　 ◇　 [mirai]
#!/usr/bin/perl
;#-----------------------------------------------------
;# time2date.cgiスクリプト0.0.1
;# Copyright 2000 伸光工作所 All rights reserved.
;#-----------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime(time);
$month = $mon+1;
$wday = ('日','月','火','水','木','金','土')[$wday];
if ($sec < 10)  { $sec   = "0$sec";   }
if ($min < 10)  { $min   = "0$min";   }
if ($hour < 10) { $hour  = "0$hour";  }
if ($month < 10){ $month = "0$month"; }
if ($mday < 10) { $mday  = "0$mday";  }
$year = $year +1900;
$date1 = "$year年$month月$mday日（$wday曜日）$hour時$min分$sec秒";
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
if($ENV{'REQUEST_METHOD'} eq "POST"){
&partition;
if( -2147483648 <= $FORM{'name'} && $FORM{'name'} <= 2147483647 && $FORM{'name'} ne "" ){
&timeconv;
&result;}}
&html;
exit;

sub partition {
@pairs = split(/&/,$buffer); 
foreach $pair(@pairs){ 
($name,$value) = split(/=/,$pair); 
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; 
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORM{$name} = $value;
}
}

sub timeconv{
($sec,$min,$hour,$mday,$mon,$year,$wday)=localtime($FORM{'name'});
$month = $mon+1;
$wday = ('日','月','火','水','木','金','土')[$wday];
if ($sec < 10)  { $sec = "0$sec";    }
if ($min < 10)  { $min = "0$min";    }
if ($hour < 10) { $hour = "0$hour";  }
if ($month < 10){ $month = "0$month";}
if ($mday < 10) { $mday = "0$mday";  }
$year = $year +1900;
$date = "$year年$month月$mday日（$wday曜日）$hour時$min分$sec秒";
}

sub html{
print "Content-type: text/html\n\n";
print "<html LANG=ja><head>";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">";
print "<META HTTP-EQUIV=\"pragma\" CONTENT=\"no-cache\"><META HTTP-EQUIV=\"Cache-Control\" CONTENT=\"no-cache\">";
print "<META NAME=\"author\" CONTENT=\"time→date\">";
print "<META NAME=\"title\" CONTENT=\"time→date\">";
print "<META NAME=\"keywords\" CONTENT=\"time→date\">";
print "<title>time→date</title>";
print "</head><body>";
print "<a name=\"TOP\">time→date</a><br>\n";
print $date1,"<br>\n";
print "<FORM ACTION=\"time2date\.cgi\" METHOD=POST>\n";
print "<INPUT TYPE=text NAME=\"name\" VALUE=\"\" SIZE=48>\n";
print "<INPUT TYPE=submit VALUE=\"time→date\">";
print "</FORM>\n";
print "</body></html>";
exit;
}
sub result{
print "Content-type: text/html\n\n";
print "<html LANG=ja><head>";
print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=x-sjis\">";
print "<META HTTP-EQUIV=\"pragma\" CONTENT=\"no-cache\"><META HTTP-EQUIV=\"Cache-Control\" CONTENT=\"no-cache\">";
print "<META NAME=\"author\" CONTENT=\"time→date\">";
print "<META NAME=\"title\" CONTENT=\"time→date\">";
print "<META NAME=\"keywords\" CONTENT=\"time→date\">";
print "<title>time→date</title>";
print "</head><body>";
print "<a name=\"TOP\">time→date</a><br>\n";
print $date1,"<br>\n";
print "<FORM ACTION=\"time2date\.cgi\" METHOD=POST>\n";
print "<INPUT TYPE=text NAME=\"name\" VALUE=\"\" SIZE=48>\n";
print "<INPUT TYPE=submit VALUE=\"time→date\">";
print "</FORM>\n";
print $FORM{'name'},"=",$date;
print "</body></html>";
exit;
}