#!/usr/bin/perl ##################################### # # # exshopm Ver 1-00 # # # # 制作・著作権者ウェビングアイ # # (BERO&MAYU) # # http://www.newjpn.com/alpha/ # # http://www.newjpn.com/webing-i/ # # E-mail:sx6m-khr@asahi-net.or.jp # # # ##################################### require "exlibm.cgi"; $ORAND=""; $SKEY=""; $L_PRI=""; $H_PRI=""; #####表示画面 sub disp_func { # local($cat00, $kago01)=@_; local($cat00, $kago01); if(@_[0]) { $cat00=@_[0]; } else { $cat00=""; } if(@_[1]) { $kago01=@_[1]; } else { $kago01=""; } print "\n"; open(IN,"$DATFILE"); @rows=; close(IN); @rows=reverse(@rows); if($RVAL{'recpos'}){ $recp=$RVAL{'recpos'}; } else { $recp=1; } $endp=$recp+$MAXPAGE-1; local($tmp_a)=$SIZ_TITO."pt"; if($PTITLEG) { $PTITLEG="

"; } else { if($PTITLE) { $PTITLEG=" ".$PTITLE; } else { $PTITLEG=""; } } local(@cat_array); $cat_cnt=0; for($i=0; $i<=$MAXDATA; $i++) { last if($i > $#rows); $value=$rows[$i]; chop($value); # 保存時にLFだけを付けたので文末一文字削除 ($skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf)=split(/\,/,$value); $findf=0; for($k=0; $k<$cat_cnt; $k++) { if($cat_array[$k] eq $category) { $findf=1; last} } if($findf==0) { $cat_array[$cat_cnt]=$category; $cat_cnt++; } } $AL_WIDTH = $MN_WIDTH + $BD_WIDTH; print <<"HTM";

$PTITLEG

HTM $kago01=$RVAL{'kago'} if($RVAL{'kago'}); #print "kago01=($kago01) rval=($RVAL{'kago'})
"; @kagop=split(/\:/,$kago01); #print "kagop=(@kagop)($#kagop) cat=$cat00 "; if($RVAL{'cat01'}) { $CATF=0; $cat00=$RVAL{'cat01'}; } $DP_TYPE=$RVAL{'dptype'} if($RVAL{'dptype'}); print <<"HTM";

商品カテゴリ

HTM for($i=0; $i<$cat_cnt; $i++) { print <<"HTM"; HTM last if($i > $#rows); } print <<"HTM";

$cat_array[$i]

HTM $ORAND=$RVAL{"orand01"}; $SKEY=$RVAL{"skey01"}; $L_PRI=$RVAL{"l_pri01"}; $H_PRI=$RVAL{"h_pri01"}; $L_PRI =~ s/[^0-9]//g; $H_PRI =~ s/[^0-9]//g; if($ORAND && $ORAND eq "2") { $tmp_v1=""; $tmp_v2="checked"; } else { $tmp_v1="checked"; $tmp_v2=""; } print <<"HTM";

商品検索

HTM if($MYMSGSA){ print <<"HTM";

$MYMSGSA

HTM } print <<"HTM";

HTM local(@kagolist,$tanka,$ko,$skei); local($kagokei)=0; local($kagokei2,$offval); for($i=0;$i<$MAXKAGO;$i++) { last if($i > $#kagop); @kagolist=split(/\//,$kagop[$i]); $tanka=$kagolist[2]; $ko=$kagolist[3]; $skei=$kagolist[4]; while($tanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($ko=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($skei=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } print <<"HTM"; HTM $kagokei2=$kagokei+=$kagolist[4]; } local($catnum)=$i; if($i==0) { print "\n"; print "\n" if($OFFDATA>0 && $OFFDATA<=100); }else { while($kagokei=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } print <<"HTM"; HTM if($OFFDATA>0 && $OFFDATA<=100) { $offval=$kagokei2*$OFFDATA/100; $kagokei2=$kagokei2-$offval; while($kagokei2=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($offval=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } print <<"HTM"; HTM } if($i>=$MAXKAGO) { print "\n"; } } print <<"HTM";

商品コード	商品名	単価	個数	小計
$kagolist[0]	$kagolist[1]	\\ $tanka	$ko	\\ $skei	HTM if($RVAL{'textkey'}) { print <<"HTM"; HTM } print <<"HTM";
カゴの中身はありません
ただ今、レジにて$OFFDATA％割引中！
HTM if($TAXF eq "ON") {print "（税抜き）";} else {print "（税込み）";} print <<"HTM"; 合計金額：　\\ $kagokei
（$OFFDATA％割引）： - \\ $offval
HTM if($TAXF eq "ON") {print "（税抜き）";} else {print "（税込み）";} print <<"HTM"; 差し引き合計金額：　\\ $kagokei2
カゴの中身が一杯です一度に注文指定頂ける商品種類は $MAXKAGO 件までです

HTM if($CATF!=0 && !$RVAL{'textkey'}){ print <<"HTM";

HTM if(1>$cat_cnt) { print "－　商品データがありません　－

（右下部より LOGIN して商品データを登録ください）\n"; } else { print "－　左の商品カテゴリを選択（クリック）ください　－\n"; } open(IN,"$TOPFILE"); @trows=; close(IN); print <<"HTM";

@trows

HTM } else { if($RVAL{'textkey'}) { &disp_func_c(@rows); } else { print <<"HTM";

$cat00

HTM if($RVAL{'dptype'} eq "ON") { &disp_func_b(@rows); } else { print <<"HTM";

HTM &disp_func_a(@rows); } } } #if end print <<"HTM";

HTM if($MYMSGSB){ print <<"HTM";

$MYMSGSB

HTM } } #####通常表\示画面 sub disp_func_a { local(@rows)=@_; $datap=0; local($tmp_in,$zaiko,$ko); for($i=0; $i<=$MAXDATA ; $i++) { last if($i > $#rows); $value=$rows[$i]; chop($value); ($skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf)=split(/\,/,$value); $no=$i+1; next if($cat00 ne $category); $datap++; next if($datap <$recp); last if($datap>$endp); $tanka=$price; while($tanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $tanka="\\ ".$tanka; if($imgurl) { $imgtag="

"; }else{ $imgtag="

画像無

"; } if($imgurlB) { $imgtagB="　

"; }else{ $imgtagB="

"; } if($imgurlC) { $imgtagC="

"; }else{ $imgtagC="

"; } if($dprice) { $dtanka=$dprice; while($dtanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $tanka="\\ ".$dtanka." 　".$tanka.""; } if($STYLE_IN eq "1") { if($sdf<=1) {$zaiko=1;} elsif($sdf>=$MAXSELM) {$zaiko=$MAXSELM;} else {$zaiko=$sdf}; $tmp_in="個数："; } else { $tmp_in="個数：個半角"; } if($ZAN_DISP eq "ON") {$tmp_in=$tmp_in."（残 $sdf）";} print <<"HTM"; HTM } # for end print "

"; if($endp < $datap) { # PREV処理 $nextp=$endp+1; print <<"HTM"; 前の $MAXPAGE 件 HTM } print "

"; if($endp > $MAXPAGE) { # NEXT処理 if($recp >= $MAXPAGE) { $nextp=$recp-$MAXPAGE; } else { $nextp=1; } print <<"HTM"; 次の $MAXPAGE 件 HTM } print "

"; } #####一覧表\示画面 sub disp_func_b { local(@rows)=@_; $datap=0; local($tmp_in,$zaiko,$ko); print <<"HTM"; HTM $r_width=sprintf("%-d\%",100/$DP_RETU); $retu=0; for($i=0; $i<=$MAXDATA ; $i++) { last if($i > $#rows); $value=$rows[$i]; chop($value); ($skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf)=split(/\,/,$value); $no=$i+1; next if($cat00 ne $category); $datap++; last if($datap>$MAXDATA); $tanka=$price; while($tanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $tanka="\\ ".$tanka; if($imgurl) { $imgtag="

"; }else{ $imgtag="

画像無

"; } if($imgurlB) { $imgtagB="

"; }else{ $imgtagB="

"; } if($imgurlC) { $imgtagC="

"; }else{ $imgtagC="

HTM $retu=$DP_RETU; } $retu--; print <<"HTM"; \n"; } else { print <<"HTM"; $tmp_in

HTM } print <<"HTM"; HTM if($retu==0) { print ("\n"); } } # for end if($retu>0) { while($retu>0) {print("\n"); $retu--;} print ("\n"); } print <<"HTM"; HTM } #####検索表\示画面 sub disp_func_c { local(@rows)=@_; $datap=0; local($tmp_in,$zaiko,$ko); $SKEY =~ s/[ \t　]+$//; #スペース（半角、全角）、タブが末尾に１個以上きた場合にその部分をカット local(@skey03)=split(/\s+/,$SKEY); print <<"HTM";

HTM print " $SKEY 　\n" if($SKEY); print " $L_PRI 円以上\n" if($L_PRI); print " $H_PRI 円以下\n" if($H_PRI); print <<"HTM";

HTM $r_width=sprintf("%-d\%",100/$DP_RETU); $retu=0; for($i=0; $i<=$MAXDATA ; $i++) { last if($i > $#rows); $value=$rows[$i]; chop($value); ($skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf)=split(/\,/,$value); if($SKEY) { if($tmp_v1 eq "checked") { #AND $nof=0; for($j=0; $j<100; $j++) { last if($j > $#skey03); $nof=1 if($skey03[$j] && (index($value,$skey03[$j]) < 0)); } } else { #OR $nof=1; for($j=0; $j<100; $j++) { last if($j > $#skey03); $nof=0 if($skey03[$j] && (index($value,$skey03[$j]) >= 0)); } } next if($nof==1); } next if($L_PRI && ($L_PRI > $price)); next if($H_PRI && ($H_PRI < $price)); $no=$i+1; $datap++; last if($datap>$MAXDATA); $tanka=$price; while($tanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $tanka="\\ ".$tanka; if($imgurl) { $imgtag="

"; }else{ $imgtag="

画像無

"; } if($imgurlB) { $imgtagB="

"; }else{ $imgtagB="

"; } if($imgurlC) { $imgtagC="

"; }else{ $imgtagC="

HTM } print <<"HTM"; HTM if($retu==0) { print ("\n"); } } # for end if($retu>0) { while($retu>0) {print("\n"); $retu--;} print ("\n"); } print <<"HTM"; HTM } #####法規定表\示画面 sub about_func { open(IN,"$ABTFILE"); @arows=; close(IN); print <<"HTM";

◆特定商取引法定表\示事項◆

@arows

画面を閉じる HTM } #####カゴの中に入れる sub kagoin_func { #追加データ local($kosuu02)=$RVAL{"_kosuu"}; local($kago02)=$RVAL{"ckago"}; local($sdf02)=$RVAL{"sdf"}; $sdf02=int $sdf02; if($kosuu02>0 && $kosuu02<=$sdf02 && $RVAL{"cknum"}<$MAXKAGO) { local($price02)=$RVAL{"price"}; $kosuu02=int $kosuu02; local(@kp,@klist,$kei,$findf); @kp=split(/\:/,$kago02); $findf=0; for($i=0;$i<$MAXKAGO;$i++) { last if($i > $#kp); @klist=split(/\//,$kp[$i]); if($klist[0] eq $RVAL{"code"}) { $kosuu02+=$klist[3]; $kosuu02=$sdf02 if($kosuu02>$sdf02); $kei=$price02*$kosuu02; $kp[$i]=join('/',$RVAL{"code"},$RVAL{"goods"},$price02,$kosuu02,$kei); $kago02=join(':', @kp); $findf=1; last; } } if($findf==0) { #カゴ中身 if($kago02) { $kago02=$kago02."\:"; } $kei=$price02*$kosuu02; local($in_kago)=join('/',$RVAL{"code"},$RVAL{"goods"},$price02,$kosuu02,$kei); $kago02= $kago02.$in_kago; } } &disp_func($RVAL{"cat01"},$kago02); } #####カゴから出す sub kagoout_func { local($kago02)=$RVAL{"ckago"}; local($no)=$RVAL{"ino"}; local(@kp)=split(/:/,$kago02); splice(@kp,$no,1); local($rkago)=join(':',@kp); &disp_func($RVAL{"cat01"},$rkago); } #####注文フォーム sub inform_func { local($kagokei2); print "\n"; local($kago01)=$RVAL{'ckago'} if($RVAL{'ckago'}); #print "kago01=($kago01) rval=($RVAL{'kago'})
"; @kagop=split(/\:/,$kago01); #print "kagop=(@kagop)($#kagop) cat=$cat00 "; local($flist)=""; $AL_WIDTH = $MN_WIDTH + $BD_WIDTH; print <<"HTM"; HTM local(@kagolist,$tanka,$ko,$skei); local($kagokei)=0; local($kagokei3,$kagokei2,$offval); local($maxrows,$gtag,$gazou,@rows,$value,$skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf); if($GZ_WIDTH<=1) {$GZ_WIDTH=1;} elsif($GZ_WIDTH>=500) {$GZ_WIDTH=500;} if($GZ_HEIGHT<=1) {$GZ_HEIGHT=1;} elsif($GZ_HEIGHT>=500) {$GZ_HEIGHT=500;} open(IN,"$DATFILE"); @rows=; close(IN); $maxrows=$#rows; for($i=0;$i<$MAXKAGO;$i++) { last if($i > $#kagop); @kagolist=split(/\//,$kagop[$i]); $tanka=$kagolist[2]; $ko=$kagolist[3]; $skei=$kagolist[4]; while($tanka=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($ko=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($skei=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $flist=$flist."::".$kagolist[0]."　".$kagolist[1]."　\\".$tanka."　(×".$ko.")　＝　\\".$skei; $gazou=""; if($GAZOU_F) { for($j=0;$j<$MAXDATA;$j++) { last if($j>$maxrows); $value=$rows[$j]; chop($value); ($skey,$code,$category,$goods,$imgurl,$imgurlB,$imgurlC,$price,$dprice,$infom,$sdf)=split(/\,/,$value); if($code eq $kagolist[0] && $imgurl) { $gazou=$imgurl; last; } } } if($gazou) {$gtag="$kagolist[0]

"; } else {$gtag="$kagolist[0]";} print <<"HTM"; HTM $kagokei+=$kagolist[4]; } if($i==0) { print "\n"; }else { $kagokei3=$kagokei2=$kagokei; #コピーを２つくる while($kagokei=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } print <<"HTM"; HTM if($OFFDATA>0 && $OFFDATA<=100) { $offval=$kagokei2*$OFFDATA/100; $kagokei3=$kagokei2=$kagokei2-$offval; while($kagokei2=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($offval=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $flist=$flist."::（$OFFDATA％割引） - \\".$offval."::"; print <<"HTM"; HTM } if($i>=$MAXKAGO) { print "\n"; } } print <<"HTM";

商品コード／画像	商品名	単価	個数	小計
$gtag	$kagolist[1]	\\ $tanka	$ko	\\ $skei
カゴの中身はありません
HTM if($TAXF eq "ON") {print "（税抜き）";$flist=$flist."::::（税抜き合計）　\\".$kagokei."::";} else {print "（税込み）";} print <<"HTM"; 合計金額：　\\ $kagokei
（$OFFDATA％割引）： - \\ $offval
HTM if($TAXF eq "ON") {$flist=$flist."::（税抜き）"; print "（税抜き）";} else {$flist=$flist."::（税込み）"; print "（税込み）";} $flist=$flist."差し引き合計金額：　\\".$kagokei2."::"; print <<"HTM"; 差し引き合計金額：　\\ $kagokei2
カゴの中身が一杯です

HTM if($TAXF eq "ON") { local($taxvf)=$kagokei3*$TAXDATA*0.01; local($taxv)=int($taxvf); if(($FLTCMD eq "1" && ($taxvf-$taxv)>0) || ($FLTCMD eq "2" && ($taxvf-$taxv)>=0.5)) { $taxv+=1; } local($kei)=$kagokei3+$taxv; while($taxv=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } while($kei=~ s/(.*\d)(\d\d\d)/$1,$2/g) { } $flist=$flist."::消費税額　".$taxv." 円　（税込み）合計商品代金　".$kei." 円::"; print <<"HTM";

消費税額（$TAXDATA %)	$taxv 円
（税込み）合計商品代金	$kei 円

HTM } else { $flist=$flist."::（税込み）合計商品代金　".$kagokei2." 円::"; print <<"HTM";

（税込み）合計商品代金

　 $kagokei2 円

HTM } open(IN,"$ODRFILE"); @orows=; close(IN); print <<"HTM";

@orows

HTM if($i>0) { print <<"HTM";

　※ご記入後、下部の「注文送信画面へ」をクリックしてください

HTM if($DAIGAEF eq "ON") { print <<"HTM";

・代金引換（商品のお届け時に商品と引換に代金を支払うこと）について
　　代金引換を希望する　　代金引換を希望しない

HTM } if($WRAPPF eq "ON") { print <<"HTM";

・贈物用の包装について
　　包装を希望する　　包装を希望しない

HTM } print <<"HTM";

ご購入者（発注者）様の情報入力欄
Ｅメール
御名前
御住所	※ 必ず発注者様の御住所を入力ください。
御住所	郵便番号　　　都道府県　　　市町村、番地
電話番号

特記事項入力欄

HTM if($ZOUTOUF eq "ON") { print <<"HTM";

・ご贈答などで、お届け先と御住所と異なる場合などはこちらへ必要事項をご入力ください。

HTM } print <<"HTM";

・ご相談、ご要望などをありましたらお書き込みください

HTM } &linkon; } #####注文確認 sub ckform_func { print "\n"; local($savef)=1; if(!$RVAL{'fname'}) { &error("御名前が未入力です"); $savef=0; } if(!$RVAL{'fpno'}) { &error("郵便番号が未入力です"); $savef=0; } if(!$RVAL{'fken'}) { &error("都道府県名が未入力です"); $savef=0; } if(!$RVAL{'fadd'}) { &error("市町村、番地が未入力です"); $savef=0; } if(!$RVAL{'ftel'}) { &error("電話番号が未入力です"); $savef=0; } if(!$RVAL{'fmail'}) { &error("メールアドレスが未入力です"); $savef=0; } if($RVAL{'fmail'} && $RVAL{'fmail'} !~ /(.*)\@(.*)\.(.*)/) { &error("メールアドレスエラー".$mail02); $savef=0; } if($savef==1) { local($formlist)=$RVAL{'flist02'}; $formlist=~ s/::/
/g; local($kago01)=$RVAL{'ckago02'} if($RVAL{'ckago02'}); @kagop=split(/\:/,$kago01); print <<"HTM";

■注文商品: $formlist HTM if($DAIGAEF eq "ON") { print <<"HTM";
■代金引換: $RVAL{'fdaigae'} HTM } if($WRAPPF eq "ON") { print <<"HTM";
■贈物用包装: $RVAL{'fwrapp'} HTM } print <<"HTM";
■Ｅメール: $RVAL{'fmail'}
■御名前: $RVAL{'fname'}
■御住所: $RVAL{'fpno'}
$RVAL{'fken'} $RVAL{'fadd'}
■電話番号: $RVAL{'ftel'} HTM if($ZOUTOUF eq "ON") { print <<"HTM";
■お届け先: $RVAL{'fzadd'} HTM } print <<"HTM";
■ご要望・特記事項: $RVAL{'fmemo'}

HTM local($flist)=$formlist; $formlist=~ s/
/\n/g; local($pinf)="\n■注文商品\n".$formlist; $pinf=$pinf."\n■代金引換\n".$RVAL{'fdaigae'} if($DAIGAEF eq "ON"); $pinf=$pinf."\n■贈物用包装\n".$RVAL{'fwrapp'} if($WRAPPF eq "ON"); $pinf=$pinf."\n■Ｅメール\n".$RVAL{'fmail'}."\n■氏名\n".$RVAL{'fname'}."\n■住所\n".$RVAL{'fpno'}."\n".$RVAL{'fken'}."\n".$RVAL{'fadd'}."\n■電話番号\n".$RVAL{'ftel'}; $pinf=$pinf."\n■お届け先\n".$RVAL{'fzadd'} if($ZOUTOUF eq "ON"); $pinf=$pinf."\n■特記事項\n".$RVAL{'fmemo'}; if($MAILF eq "ON") { print <<"HTM"; HTM } &linkon; } #####SENDMAIL 発信 sub smail_func { $smcmd="| ".$SMPATH." -t"; print "\n"; # if(1) { if(-e $SMPATH) { open(MAIL, "$smcmd"); # open(MAIL, "> testsm.txt"); $subject=$PTITLE."　－商品注文－"; $mdata="$RVAL{'mbody'}"; $mdata=~ s/，/,/g; $fmessage="送信者のＩＰアドレス"; &jcode'convert(*subject,'jis'); &jcode'convert(*mdata,'jis'); &jcode'convert(*fmessage,'jis'); print MAIL "To: $MAILADD\n"; print MAIL "From: $RVAL{'fmail01'}\n"; print MAIL "Subject: $subject\n"; print MAIL "Content-Type: text/plain;\n\n"; print MAIL "$mdata\n"; print MAIL "\n***** $fmessage : $ENV{'REMOTE_ADDR'} *****\n"; close(MAIL); &custlog_func($RVAL{'fmail01'},$RVAL{'fname01'},$RVAL{'fpno01'},$RVAL{'fken01'},$RVAL{'fadd01'},$RVAL{'ftel01'},$RVAL{'fdata01'}) if($LOGDF eq "ON"); if($RTNMF eq "ON") { local($r_msgs01)=$RTN_MSGS; $r_msgs01=~ s/
/\n/g; open(MAIL, "$smcmd"); # open(MAIL, "> testrm.txt"); $subject2=$PTITLE."　－送信内容の確認－"; &jcode'convert(*subject2,'jis'); &jcode'convert(*r_msgs01,'jis'); print MAIL "To: $RVAL{'fmail01'}\n"; print MAIL "From: $MAILADD\n"; print MAIL "Subject: $subject2\n"; print MAIL "Content-Type: text/plain;\n\n"; print MAIL "$mdata\n"; print MAIL "\n\n******************************\n"; print MAIL "$r_msgs01\n"; close(MAIL); } print <<"HTM"; 送信しました
HTM } else { &error("sendmailコマンド（$SMPATH）が見つかりません"); } &linkon; } sub custlog_func { local($fmail02,$fname02,$fpno02,$fadd02,$ftel02,$fdata02); $fmail02=@_[0]; $fname02=@_[1]; $fpno02=@_[2]; $fadd02=@_[3].@_[4]; $ftel02=@_[5]; $fdata02=@_[6]; $fdata02=~ s/
/　/g; $fdata02=~ s/，//g; local($rec_ary)=join(',',"1",$fmail02,$fname02,$fpno02,$fadd02,$ftel02,$fdata02,$ENV{'REMOTE_ADDR'},&get_today,&get_time); &f_lock; open(OUT,">>$RLOGFILE"); print OUT "$rec_ary","\n"; close(OUT); &f_unlock; ########### 指定数以上のデータを削除する open(IN,"$RLOGFILE"); local(@rows)=; close(IN); if($MAXLOGD <= $#rows) { while($MAXLOGD <= $#rows) { shift(@rows); } &f_lock; open(OUT,">$RLOGFILE"); print OUT @rows; close(OUT); &f_unlock; } ########## } #####ヘルプ画面 sub help_func { print "\n"; print <<"HTM";

◆ 商品表\示の操作方法

　　

　商品の説明記事を表\示します。

　　

　カテゴリ内の商品を一覧表\示します。

　　

　２枚目、３枚目の商品画像を表\示します。

◆ 商品の選択から注文までの操作方法

’商品カテゴリ’の中からご覧になりたい商品類を選択（クリック）します。
商品カテゴリ名をクリックするとカテゴリ間の移動が可能\です。
掲載されていいる商品の説明、写真等をご覧下さい。
商品を検索する場合は、キーワード（文字比較）または価格帯を入力して「検索する」ボタンをクリックします。
購入したい（注文したい）商品がありましたら、購入個数を入力後、ボタンをクリック（選択）します。
商品はボタンをクリックするごとに上部のカゴに入ります（代金が計算されます）。
上部のカゴから出したい（商品を戻したい）時は、戻したい商品の横のボタンをクリック下さい。
商品の選択は商品カテゴリ間を移動しながら連続して実行できます。
商品の選択が終えましたらボタンをクリックします。
注文画面で送料及び消費税を含めた支払い代金や購入希望商品の内容を再度ご確認ください。
注文画面で支払い方法や商品の引渡し時期、返品等の各規約、取引の詳細をご熟読ください。（※）
注文画面の「注文入力フォーム」より御氏名、お届け先などの指定情報を入力の上ボタンをクリックしてください。
送信内容を確認後ボタンをクリックすると注文メールが当店へ送信されます。

※ 送料、商品の引渡し、代金の支払いなどの詳細については「注文画面」をご覧ください。

画面を閉じる HTM } #メイン処理 &init_func; &snd_func; &com_func; %RVAL=&get_decode; $ORD=$RVAL{"order"}; &htm_start($PTITLE); if($ORD eq "help") {&help_func();} elsif($ORD eq "about") {&about_func();} elsif($ORD eq "kagoin") {&kagoin_func();} elsif($ORD eq "kagoout") {&kagoout_func();} elsif($ORD eq "inform") {&inform_func();} elsif($ORD eq "ckform") {&ckform_func();} elsif($ORD eq "smail") {&smail_func();} elsif($ORD eq "disp") {&disp_func();} else {&disp_func();} &htm_end; exit;