#!/usr/local/bin/perl # # フォーム画面からの入力データを自分宛に送信する　 # # id=mail1.cgi # # update. 98.8.26 # # メール機能を使うときの定義 $sendmail = '/usr/lib/sendmail'; # 送信先（受け取り側）のメールアドレスを設定する $myaddress = ''; $bkhmpg = "http://www.kumagaya.or.jp/~chichibu/cgi.html"; require 'cgi-lib.pl'; require 'jcode.pl'; &ReadParse; # フォームからの入力データ $name=$in{'name'}; $addr=$in{'addr'}; $comm=$in{'comm'}; # タグの無効化 $ckdt=$name ; &tagck ; $name=$ckdt; $ckdt=$addr ; &tagck ; $addr=$ckdt; $ckdt=$comm ; &tagck ; $comm=$ckdt; # コメントの改行のみをカットする @disp = split(/\n/,$comm); $msg=""; foreach (@disp) { if (length($_) > 1) { $msg=$msg.$_."\n"; } # end of if } # end of foreach $comm=$msg; # コメントの文字長チェック if (length($comm) > 300) {$comm = substr($comm,0,300) ; } # 送信する内容をセットする # フォームからのメールアドレスをReply-Toにセットする # 文字化けを防ぐため項目名を入力データとともにフォームから受け取る $message = <\n"; print "\n"; print "mail1.cgi 8/26\n"; print "\n"; print "\n"; print ''.$t.'' . "\n"; $ng = "戻る"; &jcode'convert(*ng,"sjis"); print ''.$ng.'
'; print '

'; print ''; print $m0."\n"; print ''; print '

'; # お名前 print ''; print $m1."\n"; print ''; print '
'; print $a."\n"; print '

'; # アドレス print ''; print $m2."\n"; print ''; print '
'; print $b."\n"; print '

'; #コメント print ''; print $m3."\n"; print ''; print '
'; # 改行して表示させる @disp = split(/\n/,$c); foreach (@disp) { if (length($_) > 1) { print $_."\n"; print '
'; } # end of if } # end of foreach print "\n"; print "\n"; # # タグの無効化サブルーチン # sub tagck { $ckdt =~ s//>/ig; $ckdt =~ s///ig; } ########## end of script ################