ホームページ領域変更申込みフォーム入力エラー

#! /usr/local/bin/perl ######################################################################## # メインプログラム名: ネットクルーズホームページ領域変更申込みフォーム # # サブプログラム名: mbup.cgi 　　　　　　　 # # このプログラムを無断で転用販売することを禁じます。 # # copyright:ichiroo kawamoto # # 作成日付:2000/06/22 # # 修正日付:2000/06/22 # ######################################################################## require "jcode.pl"; require "cgi-lib.pl"; require "henkan.pl"; require "syubetu.pl"; require "chkemail.pl"; require "shoki.pl"; &ReadParse; srand; $rand = int(rand(10000000000)); @dd = split(/&/,$ENV{'QUERY_STRING'}); $dd[0] = $rand; $ddd = $ENV{'QUERY_STRING'}; ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime; if ($year > 50) {$year = "19" . $year;} else {$year = "20" . $year;} $mon++; @week = ("日","月","火","水","木","金","土"); $wday = $week[$wday]; $time = "$mon月$mday日($wday)$hour時$min分$sec秒"; $MB = $in{"MB"}; $YEN = $in{"YEN"}; $NAME = $in{"NAME"}; $STEL = $in{"STEL"}; $TEL = $in{"TEL"}; $MAIL = $in{"MAIL"}; ################################# ファイル書き込み ###################################### if ($in{"KAKUTEI2"} eq "確定"){ if (-d "data" ne 1){ mkdir("data",0777); chmod(0777,"data"); } if (-e "data/data.txt" ne 1){ open(OUT,">data/data.txt"); close(OUT); } else{ #### 重複チェック ##### $atta = 0; open(IN,"data/data.txt"); $konma = ','; for ($i = 0;$i < 100000;$i++){ $line = ; if ($line eq ""){last;} @line = split(/$konma/,$line); if (($line[0] eq $HNAME && $line[10] eq $TEL1) || ($line[1] eq $NAME && $line[10] eq $TEL1)){ $atta = 1; last; } } close(IN); if ($atta eq 1){ print "Content-type: text/html\n\n"; print"\n"; print"\n"; print'ホームページ領域変更申込みフォーム入力エラー'."\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"\n"; print"\n"; print'ホームページ領域変更申込みフォーム入力エラー'."
\n"; print"\n"; print"\n"; print"

\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"同一データが既に存在します。

\n"; print"\n"; print"\n"; print"

\n"; print"
\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; print"プラウザの[戻る]キーで戻ってフォーム内容を修正して下さい。\n"; print"\n"; print"\n"; print"
\n"; print"
\n"; print"\n"; print"
\n"; exit(); } } open(IN,"data/data.txt"); open(OUT,">data/temp.txt"); flock(OUT,2); print OUT $NAME.','; print OUT $STEL.','; print OUT $TEL.','; print OUT $MAIL.','; print OUT $MB.','; print OUT $YEN.','; print OUT "\n"; for ($i = 0;$i < 100000;$i++){ $line = ; if ($line eq ""){last;} print OUT $line; } flock(OUT,8); close(OUT); close(IN); rename("data/temp.txt","data/data.txt"); chmod (0777,"data/data.txt"); print "Content-type: text/html\n\n"; print"\n"; print"\n"; print'フォーム入力終了画面'."\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"\n"; print"\n"; print'ホームページ領域変更お申し込みありがとうございます！！'."
\n"; print"\n"; print"\n"; print"
\n"; print"

\n"; print"
\n"; print"
\n"; $err = &make_message($to_email,'webmaster@netcruise.co.jp',$msg2); $err = &make_message($MAIL,'webmaster@netcruise.co.jp',$msg); print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"フォーム内容は、送信されました。
\n"; print"確認後、ホームページ領域の変更処理をさせていただきます。
\n"; print"
\n"; print"\n"; print"

\n"; print"
\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; exit(); } ################################# 入力フォーム確認 ###################################### if ($in{"KAKUTEI"} eq "確定"){ #print "Content-type: text/html\n\n"; #print"\n"; # 左右の空白を削除 $NAME = &henkan'kuuhaku($NAME); $STEL = &henkan'kuuhaku($STEL); $TEL = &henkan'kuuhaku($TEL); $MAIL = &henkan'kuuhaku($MAIL); # 文字中の空白を削除 $NAME = &henkan'kuuhaku2($NAME); $STEL = &henkan'kuuhaku2($STEL); $TEL = &henkan'kuuhaku2($TEL); $MAIL = &henkan'kuuhaku2($MAIL); # 文字中の"-","－"を削除 $TEL = &henkan'haihun($TEL); $p = 0; $atta = 0; @err = ""; #### 重複チェック ##### #open(IN,"data/data.txt"); #$konma = ','; #for ($i = 0;$i < 100000;$i++){ # $line = ; # if ($line eq ""){last;} # @line = split(/$konma/,$line); # if (($line[0] eq $NAME && $line[2] eq $TEL) || $line[2] eq $TEL || $line[3] eq $MAIL){ # $err[$p] = 'あなたのデータは既に登録済みです。'; # $p++; # $atta = 1; # last; # } #} #close(IN); # 必須エラー調査 if ($NAME eq ""){$err[$p] = 'お名前が記入されていません。';$p++;$atta = 1;} if ($STEL eq ""){$err[$p] = '電話番号市外局番が記入されていません。';$p++;$atta = 1;} if ($TEL eq ""){$err[$p] = '電話番号が記入されていません。';$p++;$atta = 1;} if ($MB eq ""){$err[$p] = '希望ホームページ容量(MB)が記入されていません。';$p++;$atta = 1;} if ($atta ne 1){ # 全角漢字以外はエラー、数字、記号もだめ $atta2 = 0; if (index(&syubetu'syubetu1($NAME),'記号') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($NAME),'数字') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($NAME),'半角') >= 0){$atta = 1;$atta2 = 1;} if ($atta2 eq 1){$err[$p] = 'お名前が正しく記入されていません。';$p++;} # 数字以外はエラー $atta2 = 0; if (index(&syubetu'syubetu1($STEL),'英') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($STEL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($STEL),'ひらがな') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($STEL),'記号') >= 0){$atta = 1;$atta2 = 1;} if (length($STEL) > 4 || length($STEL) < 2){$atta = 1;$atta2 = 1;} if (index(&syubetu'syubetu1($TEL),'英') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($TEL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($TEL),'ひらがな') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($TEL),'記号') >= 0){$atta = 1;$atta2 = 1;} if (length($TEL) > 8 || length($TEL) < 6){$atta = 1;$atta2 = 1;} if ($atta2 eq 1){$err[$p] = '自宅電話番号が正しく記入されていません。';$p++;} # 半角英小文字、"-" 記号以外はエラー if ($MAIL ne ""){ $atta2 = 0; if (index(&syubetu'syubetu1($MAIL),'全角') >= 0){$atta = 1;$atta2 = 1;} elsif (index(&syubetu'syubetu1($MAIL),'カタカナ') >= 0){$atta = 1;$atta2 = 1;} elsif (index($MAIL,'@') < 0){$atta = 1;$atta2 = 1;} if ($atta2 eq 1){$err[$p] = 'メールアドレスが正しく記入されていません。';$p++;} } } #print"j=$j"; if ($atta eq 1){ print "Content-type: text/html\n\n"; print"\n"; print"\n"; print'フォーム入力エラー'."\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"\n"; print"\n"; print'フォーム入力エラー'."
\n"; print"\n"; print"\n"; print"

\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; for ($p = 0;$p < 5;$p++){ if ($err[$p] eq ""){last;} print"$err[$p]

\n"; } if ($err[$p] ne ""){print"その他にもエラー有り
\n";} print"\n"; print"\n"; print"

\n"; print"
\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; print"プラウザの[戻る]キーで戻ってフォーム内容を修正して下さい。\n"; print"\n"; print"\n"; print"
\n"; print"
\n"; print"\n"; print"
\n"; exit(); } print "Content-type: text/html\n\n"; print"\n"; print"\n"; print'ネットクルーズＩＰ接続移行フォーム内容確認'."\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print'ネットクルーズホームページ領域変更フォーム内容確認'."\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

希望ホームページ容量	\n"; if ($MB ne ""){ print"\n"; print $MB."MB\n"; print"\n"; } else{ print"　"; } print"
お名前	\n"; if ($NAME ne ""){ print"\n"; print $NAME; print"\n"; } else{ print"　"; } print"
電話番号	\n"; if ($STEL ne "" \|\| $TEL ne ""){ print"\n"; print"$STEL-$TEL"; print"\n"; } else{ print"　"; } print"
メールアドレス	\n"; if ($MAIL ne ""){ print"\n"; print $MAIL."\n"; print"\n"; } else{ print"　"; } print"

\n"; print"\n"; print"

\n"; print"\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; exit(); } print "Content-type: text/html\n\n"; print"\n"; print"\n"; print'ネットクルーズホームページ領域変更申込みフォーム'."\n"; print''."\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"
\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print'ネットクルーズホームページ領域変更申込みフォーム'."\n"; print"\n"; print"\n"; print"

\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print'●既にネットクルーズの会員で、ホームページ領域（標準2MB）の変更を '."\n"; print'　希望される方はこのフォームでお申し込み下さい。 '."\n"; print'　変更されたホームページ領域の再変更も可能です。 '."\n"; print'　確認後、数日で領域変更処理をいたします。 '."\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"

\n"; print"\n"; print"\n"; print'　お申込内容記入欄'."\n"; print"\n"; print"\n"; print"

希望するホームページ領域サイズ（必須入力、月額20MB毎200円）	\n"; print"\n"; print"MB"."　　　　"."\n"; print"月額ネットクルーズ使用料＋円\n"; print"
お名前（必須入力）	\n"; print"\n"; print"
自宅電話番号（必須入力）	\n"; print"市外局番-\n"; print"
Ｅメールアドレス	\n"; print"\n"; print"

\n"; print"

\n"; print"\n"; print"

\n"; print"\n"; print"
\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"

\n"; print"\n"; print"
\n"; print"
\n"; print"

\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"\n"; print"
\n"; print"
\n"; print"
\n"; print"\n"; print"\n"; exit(); sub make_message{ local($TO_EMAIL,$EMAIL,$BUN) = @_; $sendmail = `which sendmail`; chop($sendmail); if (index($sendmail,'/sendmail') < 0){ $sendmail = `which mail`; chop($sendmail); } $message = ''; $message = $message . "From:$EMAIL\n"; $message = $message . "To:$TO_EMAIL\n"; $message = $message . 'Subject:ネットクルーズホームページ領域変更フォームよりの通知'."\n"; #$message = $message . 'Name:wooman.jpg'."\n"; #$message = $message . "Type:JPEG Image (image/jpeg)\n"; #$message = $message . "Encoding:base64\n"; $message = $message . $BUN; $message = $message . "\n"; $message = $message . "＜入力内容＞\n"; $message = $message . 'ホームページ領域変更申込み希望'."\n"; $message = $message . "お名前：$NAME\n"; $message = $message . "電話番号：$STEL-$TEL\n"; $message = $message . "メールアドレス：$MAIL\n"; $message = $message . "希望容量：$MB"."MB\n"; $message = $message . "＋月額：$YEN円\n"; $message = $message . "\n"; #print "sendmail=$sendmail
\n"; &jcode'convert(*message,'jis'); $err = ""; $err = open (MAIL,"|$sendmail $TO_EMAIL"); print MAIL $message; close (MAIL); return $err; }