<< 掲示板に戻る



投稿者: えふ
タイトル: Re: otoiawase_form(商品お問い合わせ)について
日付: 2018/8/2(Thu) 17:58:26
E-mail:
URL:
main.cgiの
313行の
&Otoiawase::Form("",\%FORM);

&Otoiawase::Form("",\%FORM,"","",$DUMMY_ref);
と変更して

cgi/lib/cart/otoiawase.plの32行の
$e_ref=$_[3];
の下に
$DUMMY_ref=$_[4];
と追加

43行の
$item="${$FO_ref}{'no'} ${$FO_ref}{'item'}";
の下に

($flag,$el)=&NCheck($FO_ref,$DUMMY_ref);
if($flag){
unless(open(FILE,$CF::m_log)){
&main::error("m_logが開けません。");
}
$flag2=0;
while(<FILE>){
($email,$pass,$kibou,$point,$name1)=split(/,/,$_);
if($email eq $el){
$flag2=1;
$na=$name1;
last;
}
}
close FILE;
if(!$flag2){
&main::error("データがありません。");
}
$email=$el;
$name=$na;
}

と追加

83行の

sub Check{
の上に
sub NCheck{
my($flag,$dum,$sessid,$sid,$now,$limit,$email,$timer,$ip,$FO_ref,$DUMMY_ref,$email_d);

$FO_ref=$_[0];
$DUMMY_ref=$_[1];

$flag=0;

if(!${$DUMMY_ref}{'ninsho'}){
return $flag;
}

($dum,$dum,$sessid)=split(/__/,${$DUMMY_ref}{'ninsho'});

&Func::filelock($CF::lockfile_n);

unless(open(FILE, $CF::ninsholog)){
&main::error("ninshologが開けません。ファイル名を確認してください。");
}
$now=time;
$limit=365*24*60*60;
while(<FILE>){
($sid,$timer,$email,$ip)=split(/,/,$_);
if($sid eq $sessid){
if(($ip eq $ENV{'REMOTE_ADDR'}) && (($now-$timer) <= $limit)){
$email_d=$email;
$flag=1;
}
last;
}
}
close FILE;

&Func::unlock;

return ($flag,$email_d);

}

と追加
以上です



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

- CGI Pal -