"; if(!$scsuc){ open(LOG,"$datafile");@log=
//g; } if($lang[222] ne '\t'){ &csvsplit($log[$i]); @data = @values; }else{ $log[$i] =~ s/"//g; @data = split(/$lang[222]/,$log[$i]); } if(!$cartgif && "$cooknamefk" ne "pola"){ if("$mobile" eq 'e' && !$data[38]){ next; }elsif("$mobile" eq 'v' && !$data[37]){ next; }elsif($mobile && !$data[36]){ next; } } if($FORM{'pf'} || $FORM{'pt'}){ $tmppt = $FORM{'pt'}; if(!$tmppt){$tmppt = 9999999999;} if($FORM{'pf'} > $data[6] || $tmppt < $data[6]){next;} } if(!$lang[290] && "$FORM{'pass'}" ne "$mpass" && (($data[45] && "$data[45]" ne "1") || ($data[46] && "$data[46]" ne "1"))){ ×aleck; if($t[1] && (index("$data[45]", ":") >= 0 && $todate < $t[1]) || (index("$data[46]", ":") >= 0 && $todate > $t[1])){ $tmp = ''; foreach (@data) { $tmp .= "$_$lang[222]"; } $log[$i] = $tmp; } } if("$FORM{'apass'}" eq "null" && !$data[9]){$data[9] = 'm';} if( (!$cartgif && $data[9] && $data[3] && $data[2] && "$cooknamefk" eq "pola") || (!$cartgif && $data[3] && $data[33]) || ($cartgif && $data[9] && $data[3] && $data[2]) || ("$FORM{'pass'}" eq "$mpass")){ push(@fulllog,"$log[$i]"); if($FORM{'zoom'} && "$FORM{'zoom'}" eq "$data[1]"){ $zhit = 1; if(!$lang[290] && "$FORM{'pass'}" ne "$mpass"){×aleck;} @zoomg = @data; $zoomlog = $log[$i]; $zoomg[2] =~ s/
//g; $zoomg[2] =~ s/
//g; if($zoomg[2] =~ /^"/){$zoomg[2] =~ s/"//;$zoomg[2] =~ s/"*$//;} if($zoomg[3] =~ /^"/){$zoomg[3] =~ s/"//;$zoomg[3] =~ s/"*$//;} if($zoomg[4] =~ /^"/){$zoomg[4] =~ s/"//;$zoomg[4] =~ s/"*$//;} last; }elsif($FORM{'goods'} && "$FORM{'goods'}" eq "$data[1]"){ @zoomg = @data; }elsif(!$toppage){ push(@nlog,"$log[$i]"); } } if( (!$cartgif && $data[9] && $data[3] && $data[2] && "$cooknamefk" eq "pola") || (!$cartgif && $data[3] && $data[33]) || ($cartgif && $data[9] && $data[3] && $data[2])){ if("$FORM{'mode'}" eq "catcnt"){ push(@aflog,"$log[$i]"); if($i > 0){ $xmlsec .=<<"EOM";
ご希望のメッセージを入れてお作りします。,,19635,,,m,,,デザインの確認が取れてから、約7〜10営業日前後でのお届けとなります。,999,,,,18700,https://www.nairegift.info/photoc/p/$FORM{'pu'},,,https://www.nairegift.info/photoc/p/$FORM{'pu'},,特注感満載!厚さ1.1mmのアメリカ製アルミフォトパネル:
写真の品質を落とさず特殊なアルミ板に印刷する技術を使用しています。厚さはわずか1.1mmですが、非常に強いアルミ板ですので、折れ曲がることはありません。
,,メッセージおよびレイアウトの確認について:担当コンシェルジュよりご連絡を差し上げます。
完成イメージをご確認いただいた後に制作を開始いたします。,バラがゴージャス&石けんの香りがプレゼントを演出します:光沢がある箱にお入れします。プレゼント前に中身を確認できます。
バラはローズの香り漂う、花びら型の石けんです。(有料オプション)
花びら1枚でちょうど両手がしっかり洗えるくらいになっています。石けんとしてはもちろん、玄関先やリビングなどに飾っておいてもかわいいです。
,,,代金引換可能,,,,デザインサンプル:,,デザイン:inputhidden https://www.nairegift.info/photoc/p/$FORM{'pu'},メッセージ:input
持ち運びに便利!雨にも強いフィルム加工紙袋をおつけする事もできます。
,,,,,,,,,,,,nairegift5@gmail.com,A,285,"; &csvsplit($zoomlog); @data = @values; @zoomg = @data; $manycatmode = 'noright'; $css .=<<"EOM"; EOM } if($FORM{'zoom'} && !$zhit){ print "Location: $domain/\n\n";exit; } if(!$FORM{'cookiehtml'} && $FORM{'zoom'} && $buffer !~ /\/$/ && !$mobile && !$zoomurlnew && $FORM{'zoom'} ne "photocreate"){ print "Location: $scriptf/zoom_$FORM{'zoom'}/\n\n";exit; } if(!$FORM{'cookiehtml'} && $FORM{'c'} && $buffer !~ /\/$/ && !$mobile && !$FORM{'gzip'}){ print "Location: $scriptf/c_$FORM{'c'}/\n\n";exit; } if($FORM{'key'}){ for($ir=0;$ir<=$#redirectkey;$ir++){ if("$FORM{'key'}" eq "$redirectkey[$ir]"){ print "Location: $redirecturl[$ir]\n\n";exit; } } } @log = @nlog; #print "2 $#log - $#sflog
"; } sub mailcook{ $cookname = 'mailcook'."$cooknamefk"; &get_cookie; if($FORM{'email'}){ print "Set-Cookie: $cookname=$FORM{'email'}; expires=$gmtcook\n"; } } sub mycheckcook{ if(!$mobile){ $cookname = 'mycheckcook'."$cooknamefk"; &get_cookie; if($FORM{'zoom'}){ $zoomg[28] =~ s/ / /g; $zoomg[2] =~ s/
//g; $zoomg[2] =~ s/
//g; $cook = "$FORM{'zoom'},$zoomg[2],$zoomg[21]<>"; if(!$lang[370]){$lang[370] = 19;} for($ci=0;$ci<=$#ck;$ci++){ @ckdata = split(/\,/,$ck[$ci]); if("$FORM{'zoom'}" ne "$ckdata[0]" && $ckdata[0]){ $cook = "$cook"."$ck[$ci]<>"; if($lang[370] <= $ci){last;} } } if($FORM{'cookiehtml'}){ $cookenc = &urlencode("$cook"); $cookenc =~ s/%2C/\,/g; print "Set-Cookie: $cookname=$cookenc; expires=$gmtcook\n"; } $mycheck = $cook; }else{ $mycheck = $nowcook; } } } sub afidcook{ if(!$mobile){ $cookname = 'afidcook'."$cooknamefk"; &get_cookie; $cook = "afid,$FORM{'afid'}<>"; print "Set-Cookie: $cookname=$cook; expires=$gmtcook\n"; } } sub mycheckkeycook{ $cookname = 'mycheckkey'."$cooknamefk"; &get_cookie; if($FORM{'zoom'}){ if($zoomg[0] =~ / /){ @keys = split(/ /,$zoomg[0]); }elsif($zoomg[0] =~ / /){ @keys = split(/ /,$zoomg[0]); }else{ $keys[0] = $zoomg[0]; } }else{ @keys = split(/ /,$FORM{'key'}); } $cook = ""; for($i=0;$i<=$#keys;$i++){ $cook = "$keys[$i]<>"; } if(!$lang[370]){$lang[370] = 19;} for($ci=0;$ci<=$#ck;$ci++){ $cook = "$cook"."$ck[$ci]<>"; if($lang[370] <= $ci){last;} } if($FORM{'cookiehtml'}){ $cookenc = &urlencode("$cook"); $cookenc =~ s/%2C/\,/g; print "Set-Cookie: $cookname=$cookenc; expires=$gmtcook\n"; } } sub cartcook{ $cook = ""; $nowcook = ""; $cookname = 'shopingcart'."$cooknamefk"; &get_cookie; if($FORM{'goods'}){ if(!$FORM{'cnt'}){$FORM{'cnt'} = 1;} if("$FORM{'goods'}" eq "card0001"){ $cno = -1; }else{ $cno = 0; } for($i=0;$i<=$#ck;$i++){ @datac = split(/\,/,$ck[$i]); if(!$datac[1]){next;} $cno++; $tmpdata = "$cno,"; if("$datac[1]" eq "$FORM{'goods'}" && $FORM{'cnt'} && "$datac[0]" eq "$FORM{'ckno'}"){ $tmpdata = "$tmpdata$datac[1],$FORM{'cnt'},"; for($ii=3;$ii<=$#datac;$ii++){ $tmpdata .= "$datac[$ii],"; } $cook .= "$tmpdata<>"; $same = 1; }elsif("$datac[1]" eq "$FORM{'goods'}" && "$datac[0]" eq "$FORM{'del'}"){ $same = 1; }elsif("$FORM{'del'}" eq "all"){ $cook = ""; $same = 1; last; # }elsif("$datac[1]" eq "$FORM{'goods'}"){ # $same = 1; # $cook = $nowcook; # last; }else{ for($ii=1;$ii<=$#datac;$ii++){ $tmpdata .= "$datac[$ii],"; } $cook .= "$tmpdata<>"; } } if(!$same && $lang[290] == 30){ $cook = "0,$FORM{'goods'},$FORM{'cnt'},$FORM{'sel0'},$FORM{'sel1'},$FORM{'sel2'},$FORM{'sel3'},$FORM{'sel4'},$FORM{'sel5'},$FORM{'sel6'},$FORM{'sel7'},$FORM{'sel8'},$FORM{'sel9'},$FORM{'sel10'},$FORM{'sel11'},$FORM{'sel12'},$FORM{'sel13'},$FORM{'sel14'},$FORM{'sel15'},$FORM{'sel16'},$FORM{'sel17'},$FORM{'sel18'},$FORM{'sel19'},$FORM{'sel20'},$FORM{'sel21'},$FORM{'sel22'},$FORM{'sel23'},$FORM{'sel24'},$FORM{'sel25'},$FORM{'sel26'},$FORM{'sel27'},$FORM{'sel28'},$FORM{'sel29'},$FORM{'selhid'},$FORM{'cost'},<>$cook"; }elsif(!$same && $lang[290]){ if("$FORM{'goods'}" eq "card0001"){ $cno++; $cook = "$cook$cno,$FORM{'goods'},$FORM{'cnt'},$FORM{'sel0'},$FORM{'sel1'},$FORM{'sel2'},$FORM{'sel3'},$FORM{'sel4'},$FORM{'sel5'},$FORM{'sel6'},$FORM{'sel7'},$FORM{'sel8'},$FORM{'sel9'},$FORM{'sel10'},$FORM{'sel11'},$FORM{'sel12'},$FORM{'sel13'},$FORM{'sel14'},$FORM{'sel15'},$FORM{'sel16'},$FORM{'sel17'},$FORM{'sel18'},$FORM{'sel19'},$FORM{'selhid'},$FORM{'cost'},<>"; }else{ $cook = "0,$FORM{'goods'},$FORM{'cnt'},$FORM{'sel0'},$FORM{'sel1'},$FORM{'sel2'},$FORM{'sel3'},$FORM{'sel4'},$FORM{'sel5'},$FORM{'sel6'},$FORM{'sel7'},$FORM{'sel8'},$FORM{'sel9'},$FORM{'sel10'},$FORM{'sel11'},$FORM{'sel12'},$FORM{'sel13'},$FORM{'sel14'},$FORM{'sel15'},$FORM{'sel16'},$FORM{'sel17'},$FORM{'sel18'},$FORM{'sel19'},$FORM{'selhid'},$FORM{'cost'},<>$cook"; } }elsif(!$same){ $cook = "0,$FORM{'goods'},$FORM{'cnt'},$FORM{'sel0'},$FORM{'sel1'},$FORM{'sel2'},$FORM{'sel3'},$FORM{'sel4'},$FORM{'sel5'},$FORM{'sel6'},$FORM{'sel7'},$FORM{'sel8'},$FORM{'sel9'},$FORM{'selhid'},$FORM{'cost'},<>$cook"; } if($mobile){ &set_cookie; }else{ if(!$sessionid){ $sessionid = genUniqID(); print "Set-Cookie: $cookname=$sessionid; expires=$gmtcookcart\n"; } open(LOG,"$sefld/$sessionid.cgi");@selog=
$mailtax - $mailtotal\n\n@olog
"; #exit; if($newmon){ open(LOG,">$orderfld/$orderfile.cgi");flock(LOG,2);truncate(LOG,0);seek(LOG,0,0);print LOG @olog;close(LOG); chmod(0666,"$orderfld/$orderfile.cgi"); }else{ open(LOG,"+<$orderfld/$orderfile.cgi");flock(LOG,2);truncate(LOG,0);seek(LOG,0,0);print LOG @olog;close(LOG); } if($lang[352]){ if(!$spath){$spath = ".";} # open(LOG,"$spath/aftermail/order/order.cgi");my @adminlog=
"; &cartck; &footer; exit; } } $cartcook = $nowcook; @cck = @ck; } sub mailcommake{ if($d[30] && !$d[31]){$d[31] = $d[30];} if($d[30] && $datac[2] == 2 && index($d[30], "<>") < 0){ $cps = $d[30]; }elsif($d[30] && $d[31] && $datac[2] > 2){ $cps = $d[31]; }else{ $cps = $d[6]; } if($lang[309] == 1){ $d[2] .= "(ベース価格 $cps円)"; } if($lang[290] && $lang[290] != 1){ $max12 = 2 + $lang[290]; }elsif($lang[290]){ $max12 = 22; }else{ $max12 = 12; } for($si=3;$si<=$max12;$si++){ $tmp = ''; if(index($datac[$si], " ") >= 0){ @tmp = split(/ /,$datac[$si]); $tmp = $tmp[$#tmp]; } if(index($datac[$si], "・・・") >= 0 && $datac[$si] =~ /円$/){ @tmp = split(/・・・/,$datac[$si]); $tmp = $tmp[$#tmp]; $tmp =~ s/円//g; $cps = $tmp; }elsif($tmp !~ /^\+/ && $tmp !~ /^\-/ && $tmp =~ /円$/){ if($tmp =~ m/(.*?)円/i){ $cps = $cps + $1; } }elsif($tmp =~ m/\+(.*?)円/i){ $cps = $cps + $1; }elsif($tmp =~ m/\-(.*?)円/i){ $cps = $cps - $1; } } $tcost = $cps * $datac[2]; if($d[8]){ $makercom = "$maker$lang[91]$d[8]"; }else{ $makercom = ""; } if("$d[7]" eq 'free'){$d[7]='';} if($d[7] && !$sendcosttype){ $sendcom = "\n["."$lang[57]"."]\n$d[7]\n"; }else{ $sendcom = ""; } local($partsno) = &urlencode("$datac[1]"); $tmpcom = ''; $tmpcom2 = ''; if($lang[290] && $lang[290] != 1){ $max12 = 2 + $lang[290]; $maxd = 3 + $lang[290]; }elsif($lang[290]){ $max12 = 22; $maxd = 23; }else{ $max12 = 12; $maxd = 13; } if($datac[$maxd]){ $datacmaxd = $datac[$maxd]; jcode::convert(\$datacmaxd,'euc'); @dsel = split(/\_/,$datacmaxd); } $addsels = ""; for($si=3;$si<=$max12;$si++){ if($datac[$si]){ $sim = $si-3; $dselsim = $dsel[$sim]; jcode::convert(\$dselsim,'sjis'); $datac[$si] =~ s/\.comma\./\,/g; $datac[$si] =~ s/
/\n/g; if(index($domain, "http://smaphocase.com") >= 0 && "$datac[$si]" eq "ラッピングなし +0円"){ }else{ if($taxplus == 0){ $tmpcost = ""; $tmptotal = ""; $datac2 = ""; @tmp = split(/ /,$datac[$si]); if(index($datac[$si], " ") >= 0){ $tmpcost = $tmp[$#tmp]; } if(index($datac[$si], "・・・") >= 0 && $datac[$si] =~ /円$/){ @tmp = split(/・・・/,$datac[$si]); $tmp = $tmp[$#tmp]; $tmp =~ s/円//g; $cps = int($tmp / $ctax1); }elsif($datac[$si] !~ /^\+/ && $datac[$si] !~ /^\-/ && $datac[$si] =~ /円$/){ if($datac[$si] =~ m/(.*?)円/i){ $cps = $cps + $1; } }elsif($datac[$si] =~ m/\+(.*?)円/i){ $cps = $cps + $1; }elsif($datac[$si] =~ m/\-(.*?)円/i){ $cps = $cps - $1; }else{ $tmp[0] = $datac[$si]; } @tmpcosttmp = (); if(index($tmpcost, "(") >= 0){ @tmpcosttmp = split(/(/,$tmpcost); $tmpcost = $tmpcosttmp[0]; $tmpcosttmp[1] = "(".$tmpcosttmp[1]; } $tmpcost =~ s/\+//g; $tmpcost2 = $tmpcost; $tmpcost2 =~ s/円//g; $datac2 = $datac[2]; $tmptotal = $tmpcost2 * $datac2; if(!$tmptotal || $tmpcost !~ /円$/){ $tmpcost = ""; $tmptotal = ""; $datac2 = ""; }elsif($tmptotal){ $tmpcost = &addcamma($tmpcost2); $tmptotal = &addcamma($tmptotal); } if($tmpcost){ $priceadd{$orderno} += $tmpcost2; $addsels .= <<"EOM"; $dselsim:$datac[$si] [$lang[7]$tmptotal$lang[6]]($datac2 x $lang[7]$tmpcost$lang[6]) EOM }else{ $tmpcom .= <<"EOM"; $dselsim:$datac[$si] EOM } }else{ $tmpcom .= <<"EOM"; $dselsim:$datac[$si] EOM } } $tmpcom2 .= "/$dselsim:$datac[$si]"; } } my $mtcomment; my $tcomment; if($lang[339] && $orderno == 1){ my $lang339 = $lang[339]; my $atmailto = "@mailto"; my @mailto339 = split(/<>/,$d[$lang339]); for($si=0;$si<=$#mailto339;$si++){ if(index("$mailto339[$si]", '@') >= 0 && index("$atmailto", "$mailto339[$si]") < 0){ push(@mailto,$mailto339[$si]); if($lang[347] && !$add339 && (index("$mailto339[$si]", 'nairegift') >= 0 || index("$mailto339[$si]", 'gmail') >= 0)){ $mailto339[$si] =~ s/\@abistudio\.com//g; $mailto339[$si] =~ s/\@nairegift\.com//g; $mailto339[$si] =~ s/\@gmail\.com//g; $mailto339[$si] =~ s/order//g; $mailto339[$si] =~ s/nairegift//g; $odno .= $mailto339[$si]; $add339 = 1; } } } } # if($lang[358]){ # my @mailto358 = split(/\,/,$lang[358]); # my $atmailto = "@mailto"; # for($si=0;$si<=$#mailto358;$si++){ # if("$d[56]" eq "A" && index("$atmailto", "$mailto358[$si]") < 0){ # push(@mailto,$mailto358[$si]); # } # } # } if($lang[353] && !$add353 && $orderno == 1){ my $lang353 = $lang[353]; if($d[$lang353]){ $odno .= '-'.$d[$lang353]; } $add353 = 1; } if($lang[368] && !$add368){ opendir(DIR, "$orderfld"); my @files = readdir(DIR); closedir(DIR); my $star = 0; my $tname = $FORM{'name'}; $tname =~ s/ //g; $tname =~ s/ //g; for (my $i=0; $i<=$#files; $i++){ open(LOG,"$orderfld/$files[$i]");my @olog=
/g; $tmpcom2 =~ s/,/,/g; if($lang[222] eq '\t'){ $tline .=<<"EOM"; $acdate\t$odno\t$nline[2]\t$datac[1]\t$d[2]$freeinput$tmpcom2\t$cpscsv\t$datac[2]\t$tcost\t$totaf\t\t$FORM{'email'}\t$FORM{'name'}\t$FORM{'name2'}\t$FORM{'post'}\t$adresst\t$FORM{'tel'}\t$FORM{'pay'}\t$freecomment\t$d[44]\t$sendcostcnt\t$tesuryo\t$fmdat\t EOM }else{ $d[28] =~ s/\s*$//; push(@newline,"$acdate$lang[222]$odno$lang[222]$nline[2]$lang[222]$datac[1]$lang[222]$d[2]$freeinput$tmpcom2$lang[222]$cpscsv$lang[222]$datac[2]$lang[222]$tcost$lang[222]$totaf$lang[222]$lang[222]$FORM{'email'}$lang[222]$FORM{'name'}$lang[222]$FORM{'name2'}$lang[222]$FORM{'post'}$lang[222]$adresst$lang[222]$FORM{'tel'}$lang[222]$FORM{'pay'}$lang[222]$freecomment$lang[222]$lang[222]$lang[222]$d[44]$lang[222]$fmdat$lang[222]$d[28]$lang[222]$d[14]\n"); #print "sidata -> $sidata
@newline\n\n"; } # push(@newline, $tline); if("$d[7]" eq 'free'){$d[7]='';$maxsendcost = '';$sendfreeflg = 1;} if($maxsendcost < $d[7]){$maxsendcost = $d[7];} #print "t1: $datac[2] * $cps
"; $subtotal = $subtotal + ($datac[2] * $cps); #print "t1: $subtotal
"; if(!$sendcosttype){ $subtotals = $subtotals + ($datac[2] * $d[7]); } $subtotalc = $subtotalc + $datac[2]; } sub mailcomget{ #print "Content-type: text/html\n\n"; $adresst = "$FORM{'adress'}$lang[413]$FORM{'adress2'}"; $freecomment = $FORM{'freecomment'}; $adresst =~ s/
/ /g; $adresstm = $adresst; if($FORM{'adress3'}){ $adresst .= "<>$FORM{'adress3'}"; $adresstm .= "\n$FORM{'adress3'}"; } if(!$lang[421]){ $freecomment =~ s/
/ /g; } $FORM{'adress'} =~ s/
/\n/g; $FORM{'adress2'} =~ s/
/\n/g; $FORM{'freecomment'} =~ s/
/\n/g; if($tushanid1){ $fmdat .= "$tushanid1$lang[222]$tushanid2$lang[222]$cooknamefk$lang[222]"; } $hassoyotei = "\n"; if($lang[367] && !$lang[412]){ my $ua = LWP::UserAgent->new; my $res = $ua->get("http://www3023ud.sakura.ne.jp/opr/index.cgi?$lang[367]"); if ($res->is_success) { $hasoyotei = $res->content; if("$lang[320]" ne "sjis"){from_to($dt,"utf8","sjis");} if($hasoyotei){$hassoyotei = "\nご注文日:$acdate\n当店発送\予\定日:$hasoyotei";} } } open(FM,"$formadd");@fm=
$adressdata[3]";} $FORM{$fma} = "$lang[73]$adressdata[0]
$adressdata[1]$adressdata[2]$adressdata[3]
$adressdata[4] $lang[94]
TEL $adressdata[5]"; }elsif($fmdata[5] == 3){ $ffma = $FORM{$fma}; $ffma =~ s/\n/
/g; if($fmdata[6] && "$fmdata[6]" eq "$ffma"){ next; } } $fmtmp = &tagdel($fmdata[0]); if("$fmtmp" eq "配送方法"){ if($lang[389] && $takuhaifreecost){ @freearea = split(/\,/,$lang[389]); for($ia=0;$ia<=$#freearea;$ia++){ if(index("$FORM{'adress'}", "$freearea[$ia]") >= 0 || index("$FORM{'shipadress'}", "$freearea[$ia]") >= 0){ $FORM{$fma} = "復興応援で宅配便配送&送料無料!"; last; } } } $haisou = "\n[$fmtmp]\n$FORM{$fma}\n"; }elsif($fmdata[5] == 3 && $lang[100]){ $fmmail .= "\n$lang[100]\n$FORM{$fma}\n"; }else{ $fmmail .= "\n[$fmtmp]\n$FORM{$fma}\n"; } if(index($fmtmp, "お届け先") >= 0){ $otodokesaki = "$fmtmp:\n$FORM{$fma}\n"; $otodokesaki =~ s/
/\n/g; } }elsif($fmdata[5] == 3 && $lang[100]){#送付先が同じ $fmmail .= "\n$lang[100]\n$lang[73]$FORM{'post'}\n$adresstm\n$FORM{'name'}($FORM{'name2'}) $lang[94]\nTEL $FORM{'tel'}\n"; } if(!$fmdata5flg){ $fmdat .= "$FORM{$fma}$hasoyoteitag$lang[222]"; } } $fmdat =~ s/
/ /g; $fmmail =~ s/
/\n/g; if($sendfreecost || $campaignsendfreecost || $sendcosttype){ for($ic=0;$ic<=$#ck;$ic++){ @datac = split(/\,/,$ck[$ic]); $hit = 0; if($datac[1]){ $tmporderno = $ic + 1; &costcount($tmporderno); } #print "a: $subtotal - $mailsubtotal
"; } if($sendfreecost && $sendfreecost <= $subtotal && $campaignsendfreecost && $campaignkeyhit){ $sendfreeflg = 1; }elsif($sendfreecost && $sendfreecost <= $subtotal && !$campaignsendfreecost){ $sendfreeflg = 1; } $subtotal = 0; $subtotals = 0; $subtotalc = 0; }else{ for($ic=0;$ic<=$#ck;$ic++){ @datac = split(/\,/,$ck[$ic]); $hit = 0; if($datac[1]){ $tmporderno = $ic + 1; &costcount($tmporderno); } #print "a2: $subtotal - $mailsubtotal
"; } if($sendfreecost && $sendfreecost <= $subtotal && $campaignsendfreecost && $campaignkeyhit){ $sendfreeflg = 1; }elsif($sendfreecost && $sendfreecost <= $subtotal && !$campaignsendfreecost){ $sendfreeflg = 1; } $subtotal = 0; $subtotals = 0; $subtotalc = 0; } if(@orderapilog){ @sflog = @orderapilog; }else{ &loaddata("notapi"); if($sendfreecost || $campaignsendfreecost || $sendcosttype){ for($ic=0;$ic<=$#ck;$ic++){ @datac = split(/\,/,$ck[$ic]); $hit = 0; if($datac[1]){&costcount;} $mailsubtotal = $subtotal; #print "b: $subtotal - $mailsubtotal
"; } if($sendfreecost && $sendfreecost <= $subtotal && $campaignsendfreecost && $campaignkeyhit){ $sendfreeflg = 1; }elsif($sendfreecost && $sendfreecost <= $subtotal && !$campaignsendfreecost){ $sendfreeflg = 1; } $subtotal = 0; $subtotals = 0; $subtotalc = 0; }else{ for($ic=0;$ic<=$#ck;$ic++){ @datac = split(/\,/,$ck[$ic]); $hit = 0; if($datac[1]){&costcount;} $mailsubtotal = $subtotal; #print "b2: $subtotal
"; } if($sendfreecost && $sendfreecost <= $subtotal && $campaignsendfreecost && $campaignkeyhit){ $sendfreeflg = 1; }elsif($sendfreecost && $sendfreecost <= $subtotal && !$campaignsendfreecost){ $sendfreeflg = 1; } $subtotal = 0; $subtotals = 0; $subtotalc = 0; } } #print "c: $subtotal - $mailsubtotal
"; if($areasendfile && !$sendfreeflg){ $adress = $FORM{'adress'}; for($ifm=1;$ifm<=$#fm;$ifm++){ $fma = "formadd$ifm"; if($FORM{$fma}){ @fmdata = split(/$lang[222]/,$fm[$ifm]); if($fmdata[5] == 3){ if($lang[391] && !$mobile){ my @adressdata = split(/
/,$FORM{$fma}); if($adressdata[3]){ $adress = $adressdata[1]; $FORM{regist} = 1; } } if(!$FORM{regist}){ $ffma = $FORM{$fma}; $ffma =~ s/\n/
/g; if($fmdata[6] && "$fmdata[6]" eq "$ffma"){ }else{ $adress = $FORM{$fma}; } } last; } } } &areasendget($adress, $FORM{'adress'}); } #print "c2: $subtotal - $mailsubtotal
"; for($i=0;$i<=$#ck;$i++){ @datac = split(/\,/,$ck[$i]); if(!$datac[1]){next;} $hit = ''; for($icc=0;$icc<=$#sflog;$icc++){ if(index($sflog[$icc], $datac[1]) < 0){next;} &csvsplit($sflog[$icc]); @d = @values; # @d = split(/$lang[222]/,$sflog[$icc]); ×aleck(1); if($d[1] && $datac[1] && "$d[1]" eq "$datac[1]"){ $d[2] =~ s/
//g; $d[2] =~ s/
//g; $hit = 1; last; } } $freeinput = ''; if(!$hit && $datac[1] && $datac[3]){ @d = (); $d[1] = $datac[1]; $d[2] = $datac[3]; if($lang[290]){ $d[6] = $datac[24]; }else{ $d[6] = $datac[14]; } $d[9] = 'm'; $hit = 1; $freeinput = "($lang[64])"; } if($hit){ $orderno = $i + 1; &mailcommake; } } #print "c3: $subtotal - $mailsubtotal
"; # if($lang[337] && $zaikoupdateflg){ # my $ua = LWP::UserAgent->new; # $ua->timeout(200); # my $res = $ua->get("http://www.e-tsuhan.com/update/index.cgi"); # } if(!$subtotal && -e 'data/paysfree.cgi'){ $paysfile = 'data/paysfree.cgi'; } open(PY,"$paysfile");@pays=
/\n/g; last; } } if($campaignkeyhit && $campaignsvc && $sendfreeflg){ $tesuryo = 0; }elsif(!$campaignkeyhit && !$campaignsendfreecost && $campaignsvc && $sendfreeflg){ $tesuryo = 0; }elsif("$tesuryofreename" eq 'charge'){ $tesuryo = 0; $sendfreeflg = 1; }elsif($tesuryofreename){ foreach (@tesuryofreenames) { if(index("$FORM{'pay'}", $_) >= 0){ $tesuryo = 0; $sendfreeflg = 1; } } } &totalcostcount; #print "d: $subtotal - $mailsubtotal
"; if(!$taxplus){ $mailtotal = $mailsubtotal; $tax = &addcamma($tax); } if($sendfreeflg){ if(!$taxplus){ $sc = $lang[65]; }else{ $sc = "\n["."$lang[57]"."]\n$lang[65]\n"; } $sendcostcnt = 0; }elsif($areasendfile){ $mailtotal += $totalsendcost; $totalsendcost = &addcamma($totalsendcost); if(!$taxplus){ $sc = "$lang[7]$totalsendcost$lang[6]"; }else{ $sc = "\n["."$lang[57]"."]\n$lang[7]$totalsendcost$lang[6]\n"; } $msc = "$lang[57] $lang[7]$totalsendcost$lang[6]\n"; $sendcostcnt = $totalsendcost; }elsif($sends){ if($totalsendcost < 0){$tmps = "$lang[66]";} $totalsendcost = &addcamma($totalsendcost); if(!$taxplus){ $sc = "$lang[7]$totalsendcost$lang[6]"; }else{ $sc = "\n["."$lang[57]"."$tmps]\n$lang[7]$totalsendcost$lang[6]\n"; } $msc = "$lang[57]$tmps $lang[7]$totalsendcost$lang[6]\n"; $sendcostcnt = $totalsendcost; } my $zenkaku = ' '; if($tesuryo){ if(!$taxplus){ $tc = "["."$lang[67]"."]$zenkaku$lang[7]$tesuryo$lang[6]\n"; $mailtotal += $tesuryo; }else{ $tc = "\n["."$lang[67]"."]\n$lang[7]$tesuryo$lang[6]\n"; } $mtc = "$lang[67] $lang[7]$tesuryo$lang[6]\n"; } if($waribiki){ $tc = "\n[特別割引]\n-$lang[7]$waribiki$lang[6]\n"; $mtc = "特別割引 -$lang[7]$waribiki$lang[6]\n"; } $total = &addcamma($total); $mcomment .= "$msc$mtc$lang[68] $lang[7]$total$lang[6]"; $FORM{'adress'} =~ s/
/\n/g; $FORM{'adress2'} =~ s/
/\n/g; $FORM{'freecomment'} =~ s/
/\n/g; if(!$taxplus){ $tax = int($mailsubtotal * $ctax); $mailtotal += $tax; $mailtax = $tax; $tax = &addcamma($tax); $tax = "$lang[7]$tax$lang[6]"; }else{ $tax = "$lang[75]"; } $newline[0] =~ s/\s*$//; @np = split(/$lang[222]/,$newline[0]); for($in=0;$in<=$#np;$in++){ if($in == 9){ if(!$taxplus){ $totalsu = $mailtotal; } $npl .= "$totalsu$lang[222]"; }elsif($in == 18){ $npl .= "$sendsm$lang[222]"; }elsif($in == 19){ $npl .= "$tesuryo$lang[222]"; }else{ $npl .= "$np[$in]$lang[222]"; } } $npl =~ s/$lang[222]*$//; splice(@newline,0,1,"$npl\n"); if(!$taxplus && $lang[70]){ $mailtotaladdcamma = &addcamma($mailtotal); $mailsubtotaladdcamma = &addcamma($mailsubtotal); $comment .= <<"EOM"; ================== [小 計]$zenkaku$lang[7]$mailsubtotaladdcamma$lang[6] [$lang[70]]$zenkaku$tax [送 料]$zenkaku$sc $tc================== [合 計]$zenkaku$lang[7]$mailtotaladdcamma$lang[6] $haisou [$lang[71]] $FORM{'pay'} $dp[1] ================== $lang[72] $lang[73]$FORM{'post'} $adresstm $FORM{'name'}($FORM{'name2'}) $lang[94] TEL $FORM{'tel'} mailto:$FORM{'email'} $fmmail [$lang[74]] $FORM{'freecomment'} EOM }elsif($lang[70] && index($domain, "http://smaphocase.com") >= 0){ $comment .= <<"EOM"; ================== [$lang[69]] $lang[7]$subtotal$lang[6] $sc$tc \[$lang[70]\] $tax [$lang[68]] $lang[7]$total$lang[6] $haisou [$lang[71]] $FORM{'pay'} $dp[1] ================== $lang[72] $lang[73]$FORM{'post'} $adresstm $FORM{'name'}($FORM{'name2'}) $lang[94] TEL $FORM{'tel'} mailto:$FORM{'email'} $fmmail [$lang[74]] $FORM{'freecomment'} EOM }elsif($lang[70]){ $comment .= <<"EOM"; ================== [$lang[69]] $lang[7]$subtotal$lang[6] $sc [$lang[70]] $tax $tc [$lang[68]] $lang[7]$total$lang[6] $haisou [$lang[71]] $FORM{'pay'} $dp[1] ================== $lang[72] $lang[73]$FORM{'post'} $adresstm $FORM{'name'}($FORM{'name2'}) $lang[94] TEL $FORM{'tel'} mailto:$FORM{'email'} $fmmail [$lang[74]] $FORM{'freecomment'} EOM }else{ $comment .= <<"EOM"; ================== [$lang[69]] $lang[7]$subtotal$lang[6] $sc $tc [$lang[68]] $lang[7]$total$lang[6] [$lang[71]] $FORM{'pay'} $dp[1] ================== $lang[72] $FORM{'name'} $lang[94] $FORM{'adress2'} $lang[73]$FORM{'post'} $FORM{'adress'} Phone:$FORM{'tel'} mailto:$FORM{'email'} $fmmail [$lang[74]] $FORM{'freecomment'} EOM } #print "Content-type: text/html\n\n"; #print "
$comment
"; #exit; } sub postin{ my $ua = LWP::UserAgent->new; my $res = $ua->get("https://abistudio20.sakura.ne.jp/post/posts.cgi?q=$FORM{'post'}"); if ($res->is_success) { $dt = $res->content; if($dt =~ m/\"address\" \: \"(.*?)\"/i){$FORM{'adress'} = $1;} } } sub postseek{ print <<"EOM";
"; } } sub finalck{ open(FM,"$formadd");@fm=
※メールが届かない場合はお客様の携帯電話に受信拒否設定がされています。
kwkw.jpを受信できる状態にしてから、ご連絡下さい。メールを再送します。
EOM $comment =<<"EOM"; $sitenamejの通信販売をご利用いただき、誠にありがとうございました。 お手数ですが、以下のページからカード決済をお願いいたします。 https://www.shopgear.ne.jp/sgp/cgi-ssl/payment.cgi?_SGPid=$cubitid&_price=$totalsu&_opt1=$odno&_mail=$FORM{'email'} 決済終了後、ご注文内容確認〜商品準備が出来次第、順次発送となります。 よろしくお願いいたします。 $sitenamej $domain/ EOM &send_email("$sitenamej - クレジットカード決済のお願い", $mailfrom, $FORM{'email'}, '', '', $comment); }elsif($mobile){ if($dp[2] =~ /^cubit/){#NTT print <<"EOM"; $lang[104]
EOM }elsif($dp[2] =~ /^econtext/){ $mtel = $FORM{'tel'}; $mtel = &ztoh($mtel); $mtel =~ s/\-//g; $mtel =~ s/ //g; print <<"EOM"; $lang[104]
EOM }elsif($dp[2] =~ /^mizuho/){ print <<"EOM"; $lang[104]
EOM }elsif($dp[2] =~ /^zeus/){#ゼウス $mtel = $FORM{'tel'}; $mtel = &ztoh($mtel); $mtel =~ s/\-//g; $mtel =~ s/ //g; print <<"EOM"; $lang[104]
EOM }elsif($dp[2] =~ /^digix/){#degix print <<"EOM"; クレジットカード決済に進むメールをお送りしましたので、そちらをご確認の上、手続きをお願いいたします。
EOM $comment =<<"EOM"; $sitenamejの通信販売をご利用いただき、誠にありがとうございました。 お手数ですが、以下のページからカード決済をお願いいたします。 https://web22.sslsv.com/www.e-tsuhan.com/ca.cgi?REF_ID=$odno&AMOUNT=$totalsu 決済終了後、ご注文内容確認〜商品準備が出来次第、順次発送となります。 よろしくお願いいたします。 $sitenamej $domain/ EOM &send_email("$sitenamej - クレジットカード決済のお願い", $mailfrom, $FORM{'email'}, '', '', $comment); } print <<"EOM"; $lang[102]< $FORM{'email'} >$lang[103]$lang[105]
$lang[307] EOM if($afid){ &afmreg($afid,$subtotalf,$odno); } if($smafmbfly_c){ &smafreg($hmsaff,$subtotalf,$odno); } if($smartcfly_c){ &smartcreg($scmaff,$odno,$subtotalf); } if($hmsaff){ &hmsaff("$hmsaff&price=$subtotalhms"); } if($scommercem && $scmaff){ &scmsaff("ckcbnobt=$scmaff&cid=$scommercem&ri=$odno$scdata"); } }else{ $hstep = 4; &flowtag; if($lang[333]){ open(FM,"$areasendfile");@areasend=
EOM }else{ print <<"EOM"; |
EOM
}
print <<"EOM";
$otherfly $lang[102] EOM if($lang[372]){ print <<"EOM"; ご注文日時:$acdate ご注文番号:$odno $lang[372] EOM } if($dp[2] eq 'digitalcheck_eng'){#デジタルチェック英語 print <<"EOM";
EOM }elsif($dp[2] =~ /^digitalcheck/ && $dp[2] !~ /conveni/ && $dp[2] !~ /daibiki/){#デジタルチェック if($dp[2] eq 'digitalcheck_a'){ $dgurl = 'https://www.c-check.co.jp/cgi-bin/bp/bp32.dll'; }elsif($dp[2] eq 'digitalcheck_b'){ $dgurl = 'https://www.digitalcheck.ne.jp/cgi-bin/bp/bp32.dll'; }elsif($dp[2] eq 'digitalcheck_c'){ $dgurl = 'https://www.c-check.co.jp/cgi-bin/crDewE.dll'; } print <<"EOM";
EOM }elsif($dp[2] =~ /^econtext/){ $mtel = $FORM{'tel'}; $mtel = &ztoh($mtel); $mtel =~ s/\-//g; $mtel =~ s/ //g; if($lang[411]){ $lang[104] = "自動的に支払ページに移動しますので、このままお待ちください。 $lang[411]秒たっても進まない場合は下のボタンをクリックしてください。"; $lang[411] = $lang[411] * 1000; print <<"EOM"; EOM $automoveflg = 1; } print <<"EOM"; $lang[104]$lang[411]秒たっても進まない場合は下のボタンをクリックしてください。"; $lang[411] = $lang[411] * 1000; print <<"EOM"; EOM $automoveflg = 1; } print <<"EOM"; $lang[104]ご請求明細は以下の\表\記となります。 VISA/MASTER →JMS TEL0570066773(最初にAWが付く場合もあります。) JCB →JS TEL0570066773 EOM }elsif($dp[2] =~ /^paypal/){#paypal if($lang[411]){ $lang[104] = "自動的に支払ページに移動しますので、このままお待ちください。 $lang[411]秒たっても進まない場合は下のボタンをクリックしてください。"; $lang[411] = $lang[411] * 1000; print <<"EOM"; EOM $automoveflg = 1; } print <<"EOM"; $lang[104]
EOM }elsif($dp[2] =~ /^degix/){#デジックス print <<"EOM"; $lang[104]$lang[411]秒たっても進まない場合は下のボタンをクリックしてください。"; $lang[411] = $lang[411] * 1000; print <<"EOM"; EOM $automoveflg = 1; } print <<"EOM"; $lang[104]$lang[104]$lang[411]秒たっても進まない場合は下のボタンをクリックしてください。"; $lang[411] = $lang[411] * 1000; print <<"EOM"; EOM $automoveflg = 1; } print <<"EOM"; $lang[104] |
$lang[105]$smtag