#!/usr/bin/perl require "../cgi-bin/sv-lib.pl"; require "../cgi-bin/jcode.pl"; require "../cgi-bin/pico-lib.pl"; #◎共通変数 # $FORM{mode} … モード（"mise", "cate", "seek"） # $FORM{id} … 店舗ID、もしくはカテゴリID、あるいはキーワード # $FORM{tugi} … 店舗内カテゴリID # $FORM{px} … 現在表示しているページ（0〜） # $FORM{max} … １ページ最大表示件数（20,50,100） # $FORM{img} … 画像表示フラグ（0,1） # $FORM{sot} … ソート条件（"phgh", "plow"） # @list … 抽出済み商品データ配列 # %mise_name … 店舗名（キー：店舗ID） #▼ ベースパス作成 $this_pgm = "http://$ENV{'HTTP_HOST'}$ENV{'SCRIPT_NAME'}"; $base_path = $this_pgm; $base_path =~ s/\/(\w+)(\.*)(\w*)$/\//; #▼ データファイルパス $item_path = "../cgi-bin/datas/syouhin.cgi"; #商品 $msct_path = "../cgi-bin/datas/misekate.cgi"; #店舗カテゴリ $cate_path = "../cgi-bin/datas/catego.cgi"; #共通カテゴリ $tamo_path = "../cgi-bin/datas/tamo.cgi"; #多目的 $gaiyou_path = "../cgi-bin/datas/gaiyou.cgi"; #会社概要 $icon_path = "../cgi-bin/icos/"; #アイコン #▼ 引数取得 if($ENV{'PATH_INFO'} ne ""){ #● 擬似ディレクトリの場合 @line = split/\//,$ENV{'PATH_INFO'}; if($line[1] eq "mise"){ # 店舗商品一覧 ($FORM{mode}, $FORM{id}, $FORM{tugi}, $FORM{px}) = @line[1,2,3,4]; ($FORM{max}, $FORM{sot}, $FORM{img}) = (split/\_/,$line[5])[0,1,2]; }elsif($line[1] eq "cate"){ # カテゴリ一覧 ($FORM{mode}, $FORM{id}, $FORM{px}) = @line[1,2,3]; ($FORM{max}, $FORM{sot}, $FORM{img}) = (split/\_/,$line[4])[0,1,2]; } undef(@line); }else{ #● 引数がGET,POSTで来た場合 &form_get; } #▼ 初期値設定 # 画像表示（明確に「非表示」でない場合、表示する） $FORM{img} = 1 if $FORM{img} ne "0"; # 表示するページ − １ $page_idx = $FORM{px}; #何回店舗を比較的公平に扱いますか $shop_lvl = 5; #１ページ最大表示件数 $max_disp = ($FORM{max} > 100)? 100: ($FORM{max} > 0)? $FORM{max} : 20; @maxs = qw(20 50 100); for(@maxs){ $elect = ($_ == $max_disp)? "selected" : ""; $max_sel_option .= qq(