#!/usr/local/bin/perl
#
# i-sho.txt は i-sho.cgi に名前変更してください。
;# iMODE専用 簡易姓名相性診断ゲーム version 1.01
;#
;# This is Freesoft.
;# Copyright(c)2000 by rescue.ne.jp
# [基本構成] ( )内はパーミッション値
#
# /public_html/（ホームページディレクトリ）
# |
# +-- /cgi-local/（任意のディレクトリ）
# |
# |-- i-sho.cgi (755)
# [履歴]
#
# v1.00 19/MAY/2000 初版
# v1.01 21/MAY/2000 帰るリンク先変数名の間違いの修正
#----------------#
# 初期設定 #
#----------------#
#◆名称
$title = '相性診断';
#◆設定
$body = '';
#◆帰るリンク
$bye = 'http://iMODE用の用意したトップページなど';
#-------------------------------------------------------------------------------
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
$buffer .= $ENV{'QUERY_STRING'};
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name,$value) = split(/=/,$pair);
$out{$name} = $value;
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$in{$name} = $value;
}
if (!$in{'action'}) { &input_form; exit; }
if ($in{'MY_NAME'} eq "") { &error("貴方の名前を書いてね！"); }
if ($in{'YOUR_NAME'} eq "") { &error("相手の名前を書いてね！"); }
foreach $key (0 .. length($in{'MY_NAME'})-1) { $MY_NAME += unpack("H2",substr($in{'MY_NAME'},$key,1)); }
foreach $key (0 .. length($in{'YOUR_NAME'})-1) { $YOUR_NAME += unpack("H2",substr($in{'YOUR_NAME'},$key,1)); }
$AISHO = ($MY_NAME + $YOUR_NAME) * $mday % 100;
if ($AISHO < 10) { $icon = "煉"; }
elsif ($AISHO >= 10 && $AISHO < 30) { $icon = "輦"; }
elsif ($AISHO >= 30 && $AISHO < 50) { $icon = "聯"; }
elsif ($AISHO >= 50 && $AISHO < 80) { $icon = "蓮"; }
else { $icon = "漣"; }
print "Content-type: text/html\n\n";
print <<"EOF";
$title
$body
撚$title撚
$in{'MY_NAME'}さんと$in{'YOUR_NAME'}さんの今日の相性は...
$icon$AISHO％
EOF
exit;
sub input_form {
print "Content-type: text/html\n\n";
print <<"EOF";
$title
$body
EOF
#著作リンクは削除しないでください.
}
sub error {
print "Content-type: text/html\n\n";
print <<"EOF";
相性診断
$body
画面を戻して$_[0]
戻る