#!/usr/bin/perl #↑サーバーに合わせて設定してください # #/////////////////////////////////////////////////////////// # # Hal Shopping Cart System(zipshop_hal_pro_AG900W) # スクリプト名:frontpage.cgi(2006/08/17) # 本スクリプトの著作権はハル・ネットワークスに属します。 # 本スクリプトについての質問は下記へお願いします。 # info@hal9800.com http://www.hal9800.com/ # -NOTE- # 2005/06/16 カゴの中の合計金額を表示するよう改良 # 2006/03/20 カゴの中身を表示するように改良 # 2006/03/24 カゴの商品を削除できるようにする(W) # 2006/08/17 問い合わせフォームを導入 # # 2007/08/08 show_unitの全商品にロケート # #/////////////////////////////////////////////////////////// #--初期設定ここから----------------------------------------- #jcode.plへのパスを指定(通常はこのまま) require '../common/jcode.pl'; #config.plへのパスを指定(通常はこのまま) require '../common/config.pl'; #library.plへのパスを指定(通常はこのまま) require '../common/library.pl'; #カテゴリー記録ファイルへのパス(通常はこのまま) require '../common/cate.pl'; #基本設定読み込み(変更しないで下さい) &config; #カテゴリー読み込み(変更しないで下さい) &cate; #=================== #携帯用リンクの設定 #=================== #携帯ショップのトップページのURLを設定 $ishop_url='http://〜/zipshop_hal_pro_AG9W/ishop/frontpage.cgi'; #============= #基本色の設定 #============= $dark="#666666";#基本濃色 $light="#efefef";#基本薄色 $kagowaku="#cccccc";#カゴ枠色 #========================== #frontpage.cgi編集の注意点 #========================== #1. print <<"EOF";の行から、その行以降で最初に出てくる #EOFの行までの範囲内(ヒアドキュメントといいます)では、ほぼ自由 #にHTMLを記述できます。 #("@"などの特殊文字を使用する場合は"\@"とします。) # #2. 商品詳細ページへリンクの作成 #商品詳細ページに直接リンクを貼るときは以下のようにします。 #(画像など) #code=〜の「〜」の部分に表示させたい商品コードを書きます。 #========================================================== #買い物かごファイルの保存期間を秒単位で指定(1日=86400秒) #========================================================== $del_time='86400'; #--初期設定ここまで----------------------------------------- #古くなった不要のカートを削除 @file_name = glob("$cart_dir/*"); foreach(@file_name){ @stat = stat $_; if($del_time < (time - $stat[9])){ unlink $_; } } #商品記録ファイルを設定 $cart_id = $ENV{'REMOTE_ADDR'}; $cart = "$cart_dir/$cart_id.cart"; #---2007/08追加 print "Location: show_unit.cgi?mode=recom&h_type=1\n\n"; exit; #---2007/08追加 &decode; $category=$category2="$in{'category'}"; $subcategory=$subcategory2="$in{'subcategory'}"; $delete=$in{'delete'}; $del_code=$in{'del_code'}; $del_option1=$in{'del_option1'}; $del_option2=$in{'del_option2'}; $del_option3=$in{'del_option3'}; if($delete){&del_item($del_code,$del_option1,$del_option2,$del_option3);} if(! -e $cart){ $total='0'; $list.="
|
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||