#!/usr/local/bin/perl
# �u���[�܂�v�l�����\Ver0.08(i-mode��)
#
# �쐬�ҁF����
# mail: kuma@kuma-ori.net
# URL : http://kuma-ori.net
require '../cgi-bin/jcode.pl'; # jcode.pl���p�X
require './masuo.pl'; #
$cgi_name='ku-mani.cgi';
#=========================================�ݒ肱������
$ainame='���[�܂�';
$log=10; #���O�s���i���Ȗڂɂ��Ă��������B�j
# ���[�܂�摜
$img_kuma_nomal = './pic/gif/ku-mani_norm.gif'; # �m�[�}��
$img_kuma_warai = './pic/gif/ku-mani_warau.gif'; # ��
$img_kuma_okoru = './pic/gif/ku-mani_okoru.gif'; # �{
$img_kuma_odoroku = './pic/gif/ku-mani_odoroku.gif'; # ����
$img_kuma_naku = './pic/gif/ku-mani_naku.gif'; # ����
$img_kuma_tere = './pic/gif/ku-mani_tere.gif'; # �Ƃ�
$img_kuma_learn = './pic/gif/ku-mani_gakushu.gif'; # �w�K
# ���݂̉摜
$img_kuma_current = $img_kuma_nomal;
&form_deco;
masuo::Init('sjis','./dic/ku-man.dat','','',$ainame,'',1,0);
$name = $FORM{'name'};
if($name eq ""){
$name = "�y�������z";
};
# ���b�Z�[�W�o�͏���
# �w�K�@�\
split(/===/,$FORM{'ohanasi'});
if($_[0] ne "" && $_[1] ne ""){
$res = masuo::studyWord($_[0],$_[1]);
jcode::convert(\$res,'sjis');
$res = "�w�K~~~�w�K������";
}
elsif ($FORM{'ohanasi'}){
$res = masuo::getRes($FORM{'ohanasi'},$name);
# �������t�������Ƃ�
if (!$res){
$res = masuo::getRes('{�Ԏ���}',$name);
}
}
else{
$res= masuo::getRes('{�Ԏ���}',$name);
}
# �����
split(/~~~/,$res);
if($_[0] ne "" && $_[1] ne ""){
$Kanjo = $_[0];
$res = $_[1];
print "Kanjo=$Kanjo&";
};
&dispForm();
exit;
# �\������
sub dispForm{
if($Kanjo eq "�w�K"){
$img_kuma_current = $img_kuma_learn; # �w�K
}elsif($Kanjo eq "!"){
$img_kuma_current = $img_kuma_okoru; # �{��
}elsif($Kanjo eq "@"){
$img_kuma_current = $img_kuma_odoroku; # ����
}elsif($Kanjo eq "^"){
$img_kuma_current = $img_kuma_warai; # ��
}elsif($Kanjo eq ":"){
$img_kuma_current = $img_kuma_naku; # ����
}elsif($Kanjo eq "*"){
$img_kuma_current = $img_kuma_tere; # �Ƃ�
}else{
$img_kuma_current = $img_kuma_nomal;
}
print "Content-type: text/html\n\n";
print "\n";
print "\n";
print "\n";
print "���[�܂�Ƶ�ż";
print "\n";
print "\n";
print "憐���[�܂�TOP";
print "\n";
}
##### �f�R�[�h
##### �f�R�[�h
## �t�H�[������̃f�[�^����
sub form_deco {
if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
else { $buffer = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/\cM//g;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/\r|\n//g;
# &jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}
}