【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;
}

■G-ID

KeyWiki Ver 0.6.9
(c) 2004 Ryota