#!/usr/local/bin/perl require "./setup.pl"; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if ($ENV{'QUERY_STRING'} ne '') { $buffer .= "\&$ENV{'QUERY_STRING'}"; } if ($center) { $center1 = '
'; $center2 = '
'; } if ($buffer eq "") { &error('エラー','使用する商品ファイルが指定されていません.',"Usage http://URI/search.cgi\?_file=商品設定ファイル名(拡張子は不要)"); } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/,$pair); if ($name eq '') { next; } if ($name ne 'FF' && $name ne 'IDX') { push(@Buf,"$name=$value"); } $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value,'euc'); $value =~ s///g; $value =~ s/\n//g; $value =~ s/\r//g; $value =~ s/\f//g; $value =~ s/\t//g; $FORM{$name} = $value; } $strings_sjis = $FORM{'strings'}; &jcode'convert(*strings_sjis,'sjis'); if ($FORM{'_file'} eq '') { &error('アクセスエラー','使用する商品ファイルが指定されていません.',"Usage http://URI/search.cgi\?_file=商品設定ファイル名(拡張子は不要)"); } if (!-e "$base_dir$FORM{'_file'}\.csv") { &error('設定エラー',"商品設定ファイル$FORM{'_file'}が見つかりません."); } &lock; #商品設定ファイルを開く if (!open(FILE,"$base_dir$FORM{'_file'}\.csv")) { &error('エラー','商品ファイルが読み出せません.'); } while () { push(@BASE,$_); } close(FILE); if ($FORM{'FF'} eq '') { $FF = 0; } else { $FF = $FORM{'FF'}; } $TO = $FF + $page - 1; if ($TO > $#BASE) { $TO = $#BASE; } $hit = 0; $next_num = ''; foreach $num ($FF .. $#BASE) { $BASE[$num] =~ s/\n//g; $data = $data2 = $BASE[$num]; if ($data eq '') { next; } &jcode'convert(*data,'euc'); ($code,$name,$tanka,$rem,$rem2,$rem3,$url,$type) = &DecodeCSV($data); if ($code =~ /^#/ || $code =~ /^$/ || $tanka =~ /\D/) { next; } $search_strings = "$code $name $rem $rem2 $rem3"; if ($FORM{'strings'} ne '') { if ($search_strings =~ /^([\x00-\x7F]|[\x8E\xA1-\xFE][\xA1-\xFE]|\x8F[\xA1-\xFE]{2})*$FORM{'strings'}/i) { ; } else { next; } } if ($FORM{'tanka'} ne '') { $tanka =~ s/\\//g; if ($tanka == 0) { next; } ($min,$max) = split(/\,/,$FORM{'tanka'}); if ($min eq '-') { if ($tanka >= $max) { next; }} elsif ($max eq '-') { if ($tanka < $min) { next; }} else { if ($tanka < $min || $tanka >= $max) { next; }} } if ($FORM{'FF'} ne '') { $allhits = $FORM{'allhits'}; if ($hit == $page) { last; } else { push(@NEW,$data2); $hit++; } } else { if ($allhits % $page == 0) { push(@Index,$num); } if ($hit < $page) { $hit++; push(@NEW,$data2); } $allhits++; if (defined($code{$code})) { push(@ERR,$code); } else { $code{$code} = $code; } } } if ($FORM{'allhits'} eq '') { push(@Buf,"allhits=$allhits"); $FORM{'allhits'} = $allhits; } if ($FORM{'FF'} ne '') { @Index = split(/\s/,$FORM{'IDX'}); } if (!@NEW) { &error('検索結果','ご指定の条件では抽出されませんでした.'); } $count_new = @NEW; if ($backreset) { $body =~ s/ $title_bar $center1 $body $goods_name

$msg_top1

EOF if (@ERR) { print "Error 商品コードが重複しているデータ > @ERR

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

タイトル・名前など

検索結果 $FORM{'allhits'} 件 [ EOF $buf = join('&',@Buf); $idx = join('+',@Index); foreach (0 .. $#Index) { $view_page = $_ + 1; if ($FF == $Index[$_] || ($FORM{'FF'} eq '' && $_ == 0)) { print " $view_page"; $page_now = $view_page; } else { print " $view_page"; } } $FROM = $page_now * $page - ($page - 1); $LAST = $FROM + $count_new - 1; print <<"EOF"; ] [更新]

ページ $page_now ($FROM〜$LAST)

EOF #--------------------> foreach (@NEW) { s/\t//g; s/\n//g; if (/^#/) { next; } if (/^$/) { next; } ($code,$name,$tanka,$rem,$rem2,$rem3,$url,$type) = &DecodeCSV($_); #商品名と備考中のコロンを改行に変換 $name =~ s/\:/
/g; $rem =~ s/\:/
/g; $rem2 =~ s/\:/
/g; $rem3 =~ s/\:/
/g; if ($rem eq '') { $rem = '　'; } if ($rem2 eq '') { $rem2 = '　'; } if ($rem3 eq '') { $rem3 = '　'; } #URLが記入されていればリンク処理 if ($url ne '') { $name = "$name"; } $tanka =~ s/\\//g; # 円記号を除去 1 while $tanka =~ s/(.*\d)(\d\d\d)/$1,$2/g; #単価にカンマ挿入 $c++; unless ($c % 2) { $bg = "#ffeedd"; } else { $bg = "#ffffff"; } #１行おきにセルの背景色を替える print <<"EOF"; \n"; } if (-e $lockfile) { unlink($lockfile); } print <<"EOF";
番号 タイトル 売価 $rem_name $rem_name2 $rem_name3 かごへ
$code $name $tanka $rem $rem2 $rem3 EOF #数量入力タイプによって処理 if ($type == 1) { #商品コードはセミコロンで挟む形式で項目名として渡す print "入れる"; } elsif ($type == 2) { #商品コードはセミコロンで挟む形式で項目名として渡す print ""; } else { #商品コードはセミコロンで挟む形式で項目名として渡す print "個"; } print "

検索結果 $FORM{'allhits'} 件 [ EOF $buf = join('&',@Buf); $idx = join('+',@Index); foreach (0 .. $#Index) { $view_page = $_ + 1; if ($FF == $Index[$_] || ($FORM{'FF'} eq '' && $_ == 0)) { print " $view_page"; $page_now = $view_page; } else { print " $view_page"; } } $FROM = $page_now * $page - ($page - 1); $LAST = $FROM + $count_new - 1; print <<"EOF"; ] [更新]


クリックした後、しばらく時間がかかります
下の欄の【現在のお買物０円】の金額が変わったら
その横に出てくる【ご注文へ】ボタンを押してください

EOF if ($taxps == 1) { print "※ 別途消費税がかかります."; } elsif ($taxps == -1) { print "※ 消費税は含まれています."; } elsif ($taxps == 0) { print "※ 消費税はいただきません."; } print <<"EOF";

[前の画面] [かごの中を見る/ご注文へ] [$end_name]

$msg_btm1

$center2 EOF exit; sub lock { # ロック方式の自動判定 symlink()優先 $symlink_check = (eval { symlink("",""); }, $@ eq ""); if (!$symlink_check) { $c = 0; while(-f "$lockfile") { # file式 $c++; if ($c >= 3) { &error('リトライエラー','ただいま混雑している可能性があります.','戻ってもう一度実行してみてください.'); } sleep(2); } open(LOCK,">$lockfile"); close(LOCK); } else { local($retry) = 3; while (!symlink(".", $lockfile)) { # symlink式 if (--$retry <= 0) { &error('リトライエラー','ただいま混雑している可能性があります.','戻ってもう一度実行してみてください.'); } sleep(2); } } } sub DecodeCSV { local($text) = @_; local(@fields) = (); local($a); $text =~ s/\n//; if ($text eq '') { return (); } while ($text =~ m/"([^\\]*(\\.[^\\]*)*)",?|([^,]+),?|,/g) { $a = defined($1) ? $1 : $3; $a =~ s/""/"/g; $a =~ s/&/&/g; $a =~ s/"/"/g; $a =~ s//>/g; push(@fields,$a); } push(@fields, undef) if $text =~ m/,$/; @fields; } sub error { if (-e $lockfile) { unlink($lockfile); } local (@msg) = @_; local ($i); print "Content-type: text/html\n\n"; print <<"EOF"; ERROR $body $center1

$_[0]

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

[戻る]

$center2 EOF exit; }