#!/usr/local/bin/perl ;# ショッピングバスケットシステム version 1.22 for Japanese ;# ;# Copyright (C) 1997-2001 CGI-RESCUE, All rights reserved. ;# Scripts Found at: http://www.rescue.ne.jp/ ;# 履歴(History) ;# v0.00 04/Oct/97 初期版 ;# v1.00 20/Jun/98 公開版リリース ;# v1.10 19/Jul/98 備考欄が送信されない点を修正 ;# v1.11 29/Oct/98 カーボンコピー機能を廃止し代替処理 ;# v1.12 ;# v1.20 14/Nov/01 特定商取引に関する法律(特商法)に対応 ;# v1.21 24/Nov/01 タグ記述ミスの修正(cargo.cgi) ;# v1.22 04/Des/01 消費税率が０の場合に合計が出ないバグの修正(cargo.cgi) #----------------# # 初期設定 # #----------------#---------------------------------------------------------------------- #このスクリプトのＵＲＬ(httpからフルパスで設定) $reload = 'http://設置した場所/cargo.cgi'; #ありがとうメッセージのＵＲＬ(httpからフルパスで設定) $location = 'http://設置した場所/thanks.html'; #WebFORMの設定 $webform = 'http://設置した場所/webform.cgi'; #サービス名 $title = 'ショッピングバスケット'; #商品選択画面 $modoru = 'http://設置した場所/'; #ホームページ $homepage = 'http://ホームページ/'; #BODY設定 $body = ''; #日本語コード変換らいぶらり require './jcode-211.pl'; #消費税率(%) 算出しない場合は 0 と設定 $taxrate = 5; #特定商取引に関する法律(特商法)で義務付けされている告知表示 ... $tokushoho = <<'EOF'; ～ EOF の間に記述する $tokushoho = <<'EOF'; ○販売業者名 ○所在地 ○電話番号 ○販売価格、送料、代金の支払い時期および方法 ○商品代金以外の必要料金 ○申し込みの有効期限 ○引渡し時期 ○返品特約 ○返品期限と返品送料 ○不良品の取り扱い EOF #--------------------------------------------------------------------------------------- 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"; $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; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; push(@MAIL,"$COOKIE{'goods'}:$COOKIE{'amount'}:$COOKIE{'rem'}:$COOKIE{'unit'}:$shoukei2"); } if (!$sonzai) { print "

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

\n"; 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 "\n"; } print "

商品名	単価	数量	備考	小計
$COOKIE{'goods'}	$COOKIE{'unit'}円	$COOKIE{'amount'}	\ $COOKIE{'rem'}	\ $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"; print "

EOF } print "

[×注文しない]

\n"; print "

\n"; # ●著作表示(これを削除すると利用規定違反となります) # ●フリーソフト(無償)でご利用いただく代わりに、当サイトの紹介リンクを入れさせていただきます. ↓ print "MiniCARGO

\n"; exit; } sub regist { if ($FORM{'amount'} =~ /\D/ || $FORM{'amount'} == 0) { &error('入力エラー','数量を入力してください.'); } $sales = "goods:$FORM{'goods'},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; }