【reissue.cgi】

#!/usr/bin/perl
###################################################################
#■概要：G-ID再発行
###################################################################
require '../lib/util.pl';
require '../lib/jcode.pl';
require '../lib/common.pl';
require '../lib/default.pl';
&parseInput();
&default();
##################################################################
#◆初期設定
$ThisName = 'reissue.cgi';
##################################################################
#◆引数代入
$Case = $in{'Case'};
$Mail1 = $in{'Mail1'};
$Mail2 = $in{'Mail2'};
$Flag = 'False';
##################################################################
#◆初期画面出力
if($Case eq ''){
$HTML .= &simpleHeader('G-ID再発行');
$HTML .= "ここはG-IDを紛失してしまった方のための再発行フォームです。<br>\n";
$HTML .= "下記のフォームからG-ID登録時と同じメールアドレスを入力して送信ボタンを押すと、そのメールアドレスまでG-ID付きのメールが送信されます。<br>";
$HTML .= "<br>";
$HTML .= "<form action='$ThisName' method='post'>";
$HTML .= "■メールアドレス<br>";
$HTML .= "<input type='text' name='Mail1' size='20' maxlength='50'>";
$HTML .= "<select name='Mail2'>";
$HTML .= "<option value=''>\@以降を選ぶ</option>";
$HTML .= "<option value='d.vodafone'>\@d.vodafone.ne.jp</option>";
$HTML .= "<option value='r.vodafone'>\@r.vodafone.ne.jp</option>";
$HTML .= "<option value='h.vodafone'>\@h.vodafone.ne.jp</option>";
$HTML .= "<option value='t.vodafone'>\@t.vodafone.ne.jp</option>";
$HTML .= "<option value='c.vodafone'>\@c.vodafone.ne.jp</option>";
$HTML .= "<option value='k.vodafone'>\@k.vodafone.ne.jp</option>";
$HTML .= "<option value='n.vodafone'>\@n.vodafone.ne.jp</option>";
$HTML .= "<option value='s.vodafone'>\@s.vodafone.ne.jp</option>";
$HTML .= "<option value='q.vodafone'>\@q.vodafone.ne.jp</option>";
$HTML .= "<option value='docomo'>\@docomo.ne.jp</option>";
$HTML .= "<option value='ezweb'>\@ezweb.ne.jp</option>";
$HTML .= "<option value='c3.ezweb'>\@c3.ezweb.ne.jp</option>";
$HTML .= "</select><br>";
$HTML .= "<br>";
$HTML .= "<input type='hidden' name='Case' value='ReissueEnd'>";
$HTML .= "<hr color='#FFFFFF'>";
$HTML .= "<input type='submit' value='情報送信'>";
$HTML .= "</form>";
$HTML .= &simpleFooter();
print $HTML;
exit;
}
##################################################################
#◆入力チェック後、再発行メール送信
if($Case eq 'ReissueEnd'){
#□入力チェック
if($Mail1 eq '' || $Mail2 eq ''){
$ErrMsg .= "・メールアドレスが未記入です。<br>\n";
}
if($Mail1 =~ m/[^a-zA-Z0-9\-\_\/\.\+\?]/){
$ErrMsg .= "・メールアドレスが不正です。<br>\n";
}
#□エラーメッセージ出力
if($ErrMsg ne ''){
&Error("$ErrMsg<br><hr>前の画面に戻って入力した値を確認してくださいm(__)m");
}
#□メールアドレス連結
$Mail = $Mail1.'@'.$Mail2.'.ne.jp';
#□ユーザ登録簿存在チェック
@Record = &fread("$USRREG/register.dat");
foreach $Record (@Record){
($No_f,$Name_f,$Mail_f) = split(/\t/,$Record);
if(lc($Mail) eq lc($Mail_f)){
$G_ID = &checkNo($No_f);
$Flag = 'True';
last;
}
}
#□メールアドレスが存在しなかった場合終了
if($Flag eq 'False'){
&Error("このメールアドレスは登録されていません。前の画面に戻って入力した値を確認してくださいm(__)m");
}
#□G-ID再発行メール送信
$from = $SupportMail;
$to = $Mail;
$subject = 'G-ID再発行メール';
$body = "$Name_fさんのG-IDは「$G_ID」です。今後は忘れないようにしてくださいね(^^)\n";
&SendMail($from,$to,$subject,$body);
#□完了メッセージ出力
$HTML .= &simpleHeader('G-ID再発行完了');
$HTML .= "ただいまG-IDが書かれたメールを$Mailまで送信しました。メールが届くまでしばらくお待ち下さい。<br>";
$HTML .= "<br>";
$HTML .= "もししばらく待ってもメールが届かない方は、前の画面に戻り情報を確認してください。<br>";
$HTML .= &simpleFooter();
print $HTML;
exit;
}

---