<< 掲示板に戻る



投稿者: えふ
タイトル: Re: MAX7.5の会員購入履歴の表示について
日付: 2017/7/15(Sat) 22:54:25
E-mail:
URL:
セキュリティ上お勧めしませんが、
index.htmlなどに
<a href="cgi/main.cgi?mode=member_mypage">履歴</a>
などと入力して、
main.cgiの248行などの
elsif($mode eq 'main'){
     &Member::Main('re',"",\%FORM,$DUMMY_ref);
}
の下に
elsif($mode eq 'mypage'){
     if(!-e $cartpl){
          &error("cartplがありません。");
     }
     require $cartpl;
     if(&Cart::NCheck(\%FORM,$DUMMY_ref)){
          &Member::Main('re',"",\%FORM,$DUMMY_ref,"mypage");
     }
     else{
          &error("認証できません。。");
     }
}

と追加

cgi/lib/cart/member.plの
748行の
$line=&CheckPass(${$FO_ref}{'email'},${$FO_ref}{'pass'},$FO_ref);



if($_[4] eq "mypage"){
     $el=${$FO_ref}{'email'};
     unless(open(FILE,$CF::m_log)){
          &main::error("m_logが開けません。");
     }
     $line="";
     while(<FILE>){
          ($email,$pass)=split(/,/,$_);
          if($email eq $el){
               $flag=1;
               $line=$_;
               last;
          }
     }
     close FILE;
     if(!$flag){
          &main::error("$elのデータは登録されていません。");
     }

}
else{
     $line=&CheckPass(${$FO_ref}{'email'},${$FO_ref}{'pass'},$FO_ref);
}

と変更してみてください。




※この記事に返信を書く (元記事は必要な部分のみ残してください。)
おなまえ: ※"通りすがり"のようなぞんざいなハンドルネームは止めてください。
タイトル:
メール:
ホーム: ☆☆ ※1つの投稿に質問を複数書き込まないでください。数日以上分けて投稿してください。
メッセージ:
削除パス: クッキー:

- CGI Pal -