=[ TOKO_J.htm ]=============================================
<HTML>
<HEAD>
<TITLE>御意見質問投稿コーナー</TITLE>
</HEAD>
<BODY>
このページでは私のソフトについての質問などを簡単に送信していただく
ために用意したものです。ご質問などは電子メールでWebMasterあてに送信さ
れ、お送りいただいた質問には３号館の
<A HREF="http://www.vector.co.jp/authors/VA004908/SUPPORT.htm">
サポートコーナー</A>
で回答させていただきます。
<HR>
<FORM ACTION="tokoj.cgi" METHOD="POST">
Your Name/氏名:<INPUT SIZE="30" TYPE="text" NAME="name" VALUE=""><BR>
E-Mail/メールアドレス:<INPUT SIZE="40" TYPE="text" NAME="email" VALUE=""><BR>
対象プログラム名:<SELECT NAME="program">
<OPTION SELECTED>Corpus Wizard
<OPTION>Text処理
<OPTION>DeHTML
<OPTION>KPL印刷
<OPTION>FENG辞書関連
<OPTION>その他
</SELECT><BR>
Question/質問:
<TEXTAREA COLS="60" ROWS="3" NAME="descrip" WRAP="soft"></TEXTAREA><BR>
<INPUT TYPE="submit" VALUE="送 信">
<INPUT TYPE="reset" VALUE="リセット">
</FORM>
<HR>
<CENTER>
|
<A HREF="SOFT_J.htm">ソフトウェア広場へ</A>
|
<A HREF="indexj.html">２号館トップへ</A>
|
<A HREF="http://www.vector.co.jp/authors/VA004908/index.html">３号館へ</A>
|</CENTER><BR>
<HR>
御意見・御要望はこちらへどうぞm(__)m :
<ADDRESS><A HREF="mailto:ned30616@pcvan.or.jp"><ned30616@pcvan.or.jp></A></ADDRESS><BR>
</BODY>
</HTML>
================================================
=[ toko.cgi ]===============================================
#!/usr/mesh/bin/perl5
if($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN,$str,$ENV{'CONTENT_LENGTH'});
}
else
{
$str=$ENV{'QUERY_STRING'};
}
#defaults
$mymail="ned30616\@pcvan.or.jp";
$mailto = "/usr/lib/sendmail ".$mymail;
@part=split('&',$str);
foreach $i (@part)
{
($variable,$value)=split('=',$i);
$value=~ s/\015\012/\012/g;
$value=~ s/\015/\012/g;
$cgi{$variable}=$value;
}
$name=$cgi{'name'};
$email=$cgi{'email'};
$program=$cgi{'program'};
$descrip=$cgi{'descrip'};
open(MAIL,"| $mailto");
print MAIL <<EOF;
Subject: Message From TOKO_J.htm
FROM: nbc03301@niftyserve.or.jp
TO:ned30616@pcvan.or.jp
Name = $name
Email= $email
Prog= $program
Content =$descrip
EOF
close(MAIL);
print "Content-Type: text/html\n\n";
print "<HTML><BODY><HEAD><TITLE>Send Mail to the WebMaster</TITLE></HEAD><BODY>";
print "<H1>ありがとうございました</H1>";
print "あなたのメッセージはWebマスター宛に送信されたとおもいます、多分<BR>";
print "<HR><CENTER><A HREF=\"indexj.html\">トップページへ戻る</A></CENETER>";
print "</BODY></HTML>";
================================================
ホームページQ&Aトップに戻る //
神戸フェニックスラボ２号館