コメント欄

Netscapeのmailto:を活用してコメント欄の実現してみました。 ユーザが書き入れた内容がメールになって届けられます。 Netscapeでないとコメントが送れず,また受け取った後に変換が 必要なのですが,実現が簡単なのが取り柄です。

qmail.html [rw-r--r--, 644]★1


  <head>
  <title></title>
  </head>
  <body>
  <h1>アンケートにお答え下さい</h1>
  
  <form method="post" action="mailto:sfukada@educ.hiroshima-u.ac.jp"> ★2
  あなたのお名前:<input name="name"><br>
  ご意見:<br>
  <textarea name="comment" cols=40 rows=4>
  </textarea><P>
  <input type="submit" value="mail">
  </form>
  <hr>
  <I>by Shozo Fukada</I>
  </body>
★1:[ ]内にファイルのパーミッションを示しました。
★2:ここにメールの送り先を書きます。

このコメント欄で送られてきたメールは,例えば,

name=%90%5B%93c%8F%BA%8EO&comment=%83R %83%81%83%93%83g%97%93%82%C9%8F%91%82% AB%8D%9E%82%F1%82%C5%0D%0A%82%DD%82%DC %82%B5%82%BD%81B

のように化けています。これを元通りに戻すために,次の Perlスクリプトを使ってみて下さい。

mrev.pl


  while(<>) {
  	$_ =~ s/[&=]/\n/g;
  	$_ =~ s/\+/ /g;
  	$_ =~ s/%([0-9A-Fa-f]{2})/pack("H2", $1)/eg;
  	print $_;
  }


Shozo Fukada(sfukada@educ.hiroshima-u.ac.jp)