#!/usr/bin/perl #----------歯科Ｑ＆Ａ掲示板スクリプト----------# $TITLE_BORD = '歯に関するあらゆるＱ＆Ａ情報無料提供サービス'; $TITLE_L_BORD = '歯Ｑ＆Ａコーナー'; $base_cgi = './bord.cgi'; $answer = '../mst/answer.mste'; $question = '../mst/question.mste'; $vis_log = '../mst/visitor.log'; $vis_count = '../mst/visitor.cnt'; $help = '../sub_help.htm'; $quest_form = '../quest.htm'; $admin_mail = 'info@st-se.co.jp'; $bord_url = 'http://www.st-se.co.jp/sika_info/index.htm'; ##******************************パラメータ設定******************************## ######################## Method Getting ######################## require './jcode.pl'; if ($ENV{'REQUEST_METHOD'} eq "POST"){ read(STDIN, $buffer_c, $ENV{'CONTENT_LENGTH'}); }else { $buffer_c = $ENV{'QUERY_STRING'}; } @r_cont = split(/&/, $buffer_c); foreach $r_cont (@r_cont){ ($name, $value) = split(/=/, $r_cont); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'sjis'); $in{$name} = $value; } ######################## until here ######################## $cond = $in{'cond'}; if( $cond ne 'answer_4'){ ## HTML プリント共通部分を最初に記載 ## print <<"END_OF_HTML"; Content-type: text/html $TITLE_BORD END_OF_HTML ## プリント共通部分　ここまで ## } ################################################アクセス制限 #$bakamuke = $ENV{'REMOTE_HOST'}; #if( $bakamuke eq 'yahoobb219014000041.bbtec.net'){ #print <<"EOH"; # #現在、このコンピュータから当サービスへのアクセスが禁止されています。 #身元調査中です。少々、お待ちください。 # # # #EOH #exit; #}############################################################### #################### 左側クエスチョンメニュー ###################### if( $cond eq 'hed'){ print <<"END_OF_HTML";

$TITLE_L_BORD

　このサービスを利用するのが初めてで、 使用方法の解らない方は、ここをクリックしてください。

ヘルプページへ！
END_OF_HTML open(DATA,$question); flock(DATA,2); $temp = ; flock(DATA,8); close(DATA); @question = split(/\[@~@\]/,$temp); shift(@question); @question = reverse @question; for( $i = 0; $i <= $#question; $i++){ @temp = split(/\<\+\+\+\>/,$question[$i]); if( $temp[7] == 0){ $temp = sprintf("男性"); }else{ $temp = sprintf("女性"); } if( $temp[6] ne ''){ $temp[6] = sprintf("%d歳：",$temp[6]); } $temp[5] =~ s/
//g; $temp[5] =~ s/ //g; print "

Ｑ．$temp[5] （$temp[6]$temp）

\n"; } print <<"END_OF_HTML";

質　問　す　る　！

END_OF_HTML &visit_log(0); print "\n"; } #################### 左側クエスチョンメニュー　ここまで ###################### #################### 質問登録反映メニュー ###################### elsif( $cond eq "question"){ $name = $in{'name'}; $mailad = $in{'mailad'}; $add1 = $in{'add1'}; $haisha = $in{'haisha'}; $age = $in{'age'}; $SEX = $in{'SEX'}; $content = $in{'content'}; $name =~ s//>/g; $content =~ s//g; if( $content eq ''){ &error(0,'投稿内容'); } $age =~ s//>/g; $age =~ s/ //g; @temp = split(//,$age); if( $age ne '' || $age != 0){ $age = sprintf("%d",$age); if( $age > 107){ &error(0,'有効な年齢'); } foreach $_(@temp){ if( $_ lt 0 || $_ gt 9){ &error(0,'半角数値'); } } } $haisha =~ s//>/g; $haisha =~ s/ //g; $haisha =~ s/\n/
/g; $mailad =~ s//>/g; $mailad =~ s/ //g; $add_t = &sub_dis($add1); if( $mailad ne ''){ @temp = split(//,$mailad); for( $temp = $i = 0; $i <= $#temp; $i++){ if( $temp[$i] eq '@' && $i != 0){ $temp = 1; } } if( $temp == 0){ &error(0,'メールアドレスに正確な値'); }else{ &send_mail(0,$mailad,$name,$add_t,$haisha,$content,$age,$SEX); } } &send_mail(0,$admin_mail,$name,$add_t,$haisha,$content,$age,$SEX); open(DATA,"$question"); $temp = ; close(DATA); @question = split(/\[@~@\]/,$temp); for( $num_1 = $i = 0; $i <= $#question; $i++){ @temp = split(/\<\+\+\+\>/,$question[$i]); $temp[0] = ("%d",$temp[0]); $num_1 = $temp[0] + 1; } $temp = time; $temp = sprintf("\[@~@\]%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%d\<\+\+\+\>%d" ,$num_1,$name,$mailad,$add1,$haisha,$content,$age,$SEX,$temp); open(DATA,">>$question"); flock(DATA,2); print DATA $temp; flock(DATA,8); close(DATA); print <<"END_OF_HTML";

質問を登録しました！

　質問の登録を完了しました！

　直ぐに答えていただける方が来ますので、当ページへ頻繁にチェックしに来てください。この画面を閉じて終了です。
END_OF_HTML &visit_log(1); } #################### 質問登録反映メニュー　ここまで ###################### #################### 回答群照会###################### elsif( $cond eq 'answer_1' || $cond eq 'answer_5'){ $num = $in{'num'}; $name = $in{'name'}; $content = $in{'content'}; $mailad_t = $in{'mailad_t'}; &visit_log(4,$num); open(DATA,$answer); flock(DATA,2); $temp = ; flock(DATA,8); close(DATA); if( $cond eq 'answer_5'){ if( $num > 0){ $num = 0 - $num; } } @answer = split(/\[@~@\]/,$temp); @quest_nest = @question = (); shift( @answer); for( $i = $n = 0; $i <= $#answer; $i++){ @temp = split(/\<\+\+\+\>/,$answer[$i]); if( $temp[7] == $num){ $temp = sprintf("%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%d" ,$temp[0],$temp[1],$temp[2],$temp[3],$temp[4],$temp[5],$temp[6],$temp[7]); push( @question, $temp); $num_nest = 0 - $temp[0]; $n++; for( $x = 0; $x <= $#answer; $x++){ @temp = split(/\<\+\+\+\>/,$answer[$x]); if( $temp[7] == $num_nest){ $temp = sprintf("%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%d" ,$temp[0],$temp[1],$temp[2],$temp[3],$temp[4],$temp[5],$temp[6],$temp[7]); push( @mailad_nest, $temp[2]); push( @question, $temp); push( @quest_nest, $n++); } } } } if($cond eq 'answer_5'){ $miura = $in{'miura'}; for( $x = 0; $x <= $#answer; $x++){ @temp = split(/\<\+\+\+\>/,$answer[$x]); if( $temp[0] == $miura){ $miura = sprintf("%s 』

　　　に対して、

『 ",$temp[5]); } } }else{ $miura = ''; } print <<"END_OF_HTML";
\n \n
★ $nameさん からの質問

『 $miura $content 』

END_OF_HTML if( $#question >= 0){ print "
関連回答を下に表\示します。
\n"; }else{ print " 　現在、まだこの質問に関しての回答が出ておりません。\n 質問内容にお答えいただける方は、以下の 回答する をクリックして、$nameさんの質問にお答えください。\n"; } print "
\n"; if( $cond eq 'answer_1'){ $temp = sprintf("parent.migi_sita.location.href"); }else{ $temp = sprintf("parent.re_migi_sita.location.href"); } if( $#quest_nest < 0){ $quest_nest[0] = -1; } $content =~ s/
//g; for( $i = $n = 0; $i <= $#question; $i++){ @temp = split(/\<\+\+\+\>/,$question[$i]); if( $i != $quest_nest[$n]){ print " \n
\n \n"; print " A.$temp[1]さんのお答え\n"; $x = 0; }else{ if( $x != 0){ print " \n \n \n"; } $temp[7] = 0 - $temp[7]; print " ⇒ R e．\n $temp[1]さんの更なるReply\n"; $x++; } } print <<"END_OF_HTML";

回　答　す　る

END_OF_HTML } #################### 回答群照会　ここまで ###################### #################### 回答登録 ###################### elsif( $cond eq "answer" || $cond eq 'answer_3'){ $num = $in{'num'}; $add1= $in{'add1'}; $name = $in{'name'}; $check = $in{'check'}; $content = $in{'content'}; $mailad_t = $in{'mailad_t'}; if( $check == 1){ $mailad = $in{'mailad'}; $haisha = $in{'haisha'}; $name =~ s//>/g; $name =~ s/ //g; if( $name eq ''){ &error(0,'名前'); } $content =~ s/>/>/g; $content =~ s//g; if( $content eq ''){ &error(0,'投稿内容'); } $haisha =~ s//>/g; $haisha =~ s/ //g; $haisha =~ s/\n/
/g; $mailad =~ s//>/g; $mailad =~ s/ //g; $add_t = &sub_dis($add1); if( $mailad_t ne ''){ &send_mail(2,$mailad_t,$name,$add_t,$haisha,$content,$mailad); } &send_mail(1,$admin_mail,$name,$add_t,$haisha,$content); if( $mailad ne ''){ $i = 0; @temp = split(//,$mailad); for( $temp = $i = 0; $i <= $#temp; $i++){ if( $temp[$i] eq '@' && $i != 0){ $temp = 1; } } if( $temp == 0){ &error(0,'メールアドレスに正確な値'); }else{ if( $haisha eq ''){ $haisha = sprintf("未回答"); } &send_mail(1,$mailad,$name,$add_t,$haisha,$content); } } open(DATA,"$answer"); $temp = ; close(DATA); @answer = split(/\[@~@\]/,$temp); for( $num_1 = $i = 0; $i <= $#answer; $i++){ @temp = split(/\<\+\+\+\>/,$answer[$i]); $temp[0] = ("%d",$temp[0]); $num_1 = $temp[0] + 1; } $temp = time; $temp = sprintf("\[@~@\]%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%s\<\+\+\+\>%s\<\+\+\+\>%d\<\+\+\+\>%d" ,$num_1,$name,$mailad,$add1,$haisha,$content,$temp,$num); open(DATA,">>$answer"); flock(DATA,2); print DATA $temp; flock(DATA,8); close(DATA); print <<"END_OF_HTML";

回答返信を登録しました！

　御回答返信の内容を登録しました！

　歯について悩んでいらっしゃる方へのご回答、誠にありがとうございました。この画面を閉じて終了です。
END_OF_HTML &visit_log(3); }else{ if( $cond eq 'answer_3'){ $temp = sprintf("Ｒｅ."); }else{ $temp = sprintf("質問"); } print <<"END_OF_HTML";

質　問　回　答　コ　ー　ナ　ー


$temp $name さんの・・・
$content への回答


　下のフォームに、回答内容を記載して、回答ボタンを押してください。
　また、質問にお答えいただける方には、 大変お手数をおかけ致しますが、登録に関わる注意点を下記に記載いたしますので、必ず厳守の程をよろしくお願いいたします。
◎　歯科医等の歯を治療する方のみ、登録ができます。
◎　得意な診療について、一切は事実に基づいて登録してください。
◎　多数の患者さんがご覧になっているため、なるべく簡易的な診療方法の説明文をお願いいたします。
◎　登録抹消ご希望の場合は、抹消希望の内容に歯科医名と住所を記載し、info@\st-se.co.jp迄お願いします。
◎　いたずら、若しくは架空の物を決して登録してはいけません。 ハッキング行為は決して許しません。※注
※注 こちらに関して、違反があった場合は、世界中のプロバイダーと協力し、徹底的に身元を追求し、法を用いて処罰します。
■ 　 お　名　前


■ 　 メールアドレス

■ 　 住んでいる地区