#!/usr/bin/perl ;# ショッピングバスケットver 1.22 for Japanese ;# ;# Copyright (C)1997-2001 CGI-RESCUE,All rights reserved #初期設定 $reload = 'http://sv112.wadax-sv.jp/yamc.com/cgi-bin/kago/cargo.cgi'; $tyumon = 'https://sv112.wadax-sv.jp/yamc.com/cgi-bin/kago/tyumon.cgi'; $title = '山小酒店ショッピングバスケット'; $homepage = 'http://www.yamc.com/index.htm'; $body = ''; require 'http://sv112.wadax-sv.jp/yamc.com/cgi-bin/jcode-211.pl'; $taxrate = 0; #-- read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'}); # 標準入力に限定 if ($ENV{'QUERY_STRING'} ne "") { &error("不正な入力を検知しました"); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # 記録するデータはsjisに統一 &jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis'); $value =~ s//>/g; $value =~ s/://g; $value =~ s/,//g; $FORM{$name} = $value; } # クッキー読込 $cookies = $ENV{'HTTP_COOKIE'}; @cookie_pairs = split(/;/,$cookies); foreach $cookie_pair (@cookie_pairs) { ($name, $value) = split(/=/, $cookie_pair); $name =~ s/ //g; $DUMMY{$name} = $value; } $goods_next = 0; foreach $goods_num (1 .. $#cookie_pairs + 1) { $cookie_name = 'CARGO_'.$goods_num; if ($DUMMY{$cookie_name} =~ /^goods:/ || $DUMMY{$cookie_name} =~ /^removed/) { $GOODS[$goods_num] = $DUMMY{$cookie_name}; $goods_next = $goods_num + 1; } } # 分岐 if ($FORM{'action'} eq 'regist') { ®ist; } elsif ($FORM{'action'} eq 'remove') { &remove; } else { &html; } sub html { # 商品一覧 print "Content-type: text/html; charset=Shift_JIS\n\n"; print "\n"; print "$title\n"; print "\n"; print "\n"; print <<"EOF"; EOF print "$body\n"; print "
\n"; print "

$title

\n"; $zeibetsu_goukei = 0; foreach $j (1 .. $#GOODS + 1) { if ($GOODS[$j] =~ /^removed/i || $GOODS[$j] eq '') { next; } if (!$sonzai) { print "御注文商品一覧 ＞ 入力画面 ＞ 最終確認 ＞ 送信完了

\n"; print "

現在買い物かごには、次の商品が入っています

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $sonzai = 1; } @pairs = split(/,/,$GOODS[$j]); foreach $pair (@pairs) { ($name, $value) = split(/:/,$pair); $COOKIE{$name} = $value; } $unit = $COOKIE{'unit'}; 1 while $unit =~ s/(.*\d)(\d\d\d)/$1,$2/g; $shoukei = $shoukei2 = $COOKIE{'unit'} * $COOKIE{'amount'}; 1 while $shoukei2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; $zeibetsu_goukei = $zeibetsu_goukei2 = $zeibetsu_goukei + $shoukei; if ($shoukei2 eq '0') { &error('申し訳ございません','ご利用の環境に買い物カゴ対応しておりません'); } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; push(@MAIL,"$COOKIE{'goods'}:$COOKIE{'housou'}:$COOKIE{'amount'}:$COOKIE{'rem'}:$COOKIE{'unit'}:$shoukei2"); } if (!$sonzai) { print "

現在買い物かごには何も入っていません.

\n"; } else { 1 while $zeibetsu_goukei2 =~ s/(.*\d)(\d\d\d)/$1,$2/g; if ($taxrate != 0) { $tax = int($zeibetsu_goukei * ($taxrate / 100)); $sougoukei = $zeibetsu_goukei + $tax; 1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; $zei = '税別'; } else { $sougoukei = $zeibetsu_goukei + $tax; 1 while $sougoukei =~ s/(.*\d)(\d\d\d)/$1,$2/g; $zei = ''; } print "\n"; if ($taxrate != 0) { print "\n"; } print "
品番、商品名容量単価数量小計削除
$COOKIE{'goods'} $COOKIE{'housou'}$COOKIE{'rem'}$COOKIE{'unit'}円$COOKIE{'amount'}$shoukei2円
\n"; print "\n"; print "
$zei商品合計$zeibetsu_goukei2円
消費税$taxrate\%($tax円)込み商品合計$sougoukei円

\n"; print "

◆上記の商品合計に、送料等が加算されます◆

\n"; print "\n"; print "\n"; print "
送料、お支払い方法等については、下記より注意事項のページをご覧下さい
\n"; print "特商法による表\示（ご注文の前に必ずお読み下さい）

\n"; print "お買い物を続ける場合はトップページへ移動して下さい
\n"; print "※かごへの出し入れは延べ２０回までになります

\n"; print "
\n"; foreach $mail (@MAIL) { ($A,$B,$C,$D,$E,$F) = split(/:/,$mail,6); print "\n"; } if ($taxrate != 0) { print "\n"; } print "\n"; print "\n"; print "\n"; print "
ご注文がお決まりになりましたら、特商法による表\示をお読みのうえ、
\n"; print "御承諾後に入力画面へお進み下さい。
\n"; print "入力画面よりSSL対応ページとなります。
入力されたデータは暗号化されて送信されるため、
\n"; print "お客様の個人情報を保護いたします。

\n"; print "未成年者の方への酒類の販売はお断りしております
\n"; print "酒類を選択されている場合は２０歳以上の方のみ入力画面へお進み下さい。

\n"; print "\n"; print <<"EOF";



\n"; print "MiniCARGO

\n"; exit; } sub regist { if ($FORM{'amount'} =~ /\D/ || $FORM{'amount'} == 0) { &error('入力エラー','数量を英数半角で入力して下さい'); } $sales = "goods:$FORM{'goods'},housou:$FORM{'housou'},amount:$FORM{'amount'},unit:$FORM{'unit'},rem:$FORM{'rem'},"; push(@REG,$sales); if ($goods_next == 0) { $goods_next = 1; } if ($goods_next == 20) { &error('バスケット満杯','メモリがありません.
注文内容を削除しても復活はできません.
一旦ブラウザを閉じればメモリ復活することができます.'); } foreach $reg (@REG) { $cookie_name = "CARGO_$goods_next"; $GOODS[$goods_next] = $reg; print "Set-Cookie: $cookie_name=$GOODS[$goods_next];\n"; $goods_next++; } print "Location: $reload" . '?' . "\n\n"; exit; } sub remove { if ($FORM{'goods_num'} eq '') { &error('処理エラー','削除処理に失敗しました.
ブラウザを閉じれば選択したすべての商品を空にできます.'); } $cookie_name = "CARGO_$FORM{'goods_num'}"; $GOODS[$FORM{'goods_num'}] = "removed"; print "Set-Cookie: $cookie_name=$GOODS[$FORM{'goods_num'}];\n"; print "Location: $reload" . '?' . "\n\n"; exit; } sub error { print "Content-type: text/html; charset=Shift_JIS\n\n"; print "\n"; print "$title\n"; print "\n"; print "$body\n"; print "

$_[0]

\n"; print "

$_[1]

\n"; print "ブラウザの[戻る]ボタンを押して前の画面に移動して下さい\n"; print "\n"; exit; }