#!/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/ 生茶（荒茶）の青木園
荒茶（生茶）の青木園
当園では生茶（荒茶）の通信販売を行っております
産地直送で皆様のお手元に美味しいお茶をお届けいたします

　お茶の本場静岡では、あえて加工や選別をしていないお茶を生茶または荒茶といい、生産者の心意気が伝わるお茶として大変親しまれております。

おかげさまで本年度の限定品は完売いたしました。
おいしい空気がお茶をおいしくします
いっしょにがんばっている父です
きれいな水もおいしいお茶を育てます
おいしい空気
父です
きれいな水
生茶はしっかりした温度管理が必要なため、スーパーや百貨店では手に入れる事が困難なお茶です。新鮮な生のお茶をぜひ一度ご賞味ください。

青木園のココがお得！

　5,000円以上お買い上げの場合送料無料
　完全無料包装（缶代・箱代についても無料）
　安心の郵便振替　郵便振替については手数料無料
　1週間以内の返品OK
お急ぎの方は下記の一覧から注文できます。
商品の注文数を入力して一覧の下のボタンをクリックして下さい。
消費税込みの価格を\表\示しております
EOF if (@ERR) { print "Error 商品コードが重複しているデータ > @ERR

\n"; } # $selected{$FORM{'tanka'}} = "selected"; $buf = join('&',@Buf); $idx = join('+',@Index); print <<"EOF";
商品名
摘取方
100g
200g
500g
1Kg
摘み取り時期
新茶
手づみ茶
手摘み
1,680円
3,360円
8,400円
16,800円
 4月中旬 〜下旬
新茶
手づみ茶
手摘み
1,365円
2,730円
6,825円
13,650円
 4月下旬
田舎
荒茶1号
ハサミ
1,050円
2,100円
5,250円
10,500円
 4月下旬
田舎
荒茶2号
ハサミ
840円
1,680円
4,200円
8,400円
 4月下旬〜
5月下旬
田舎
荒茶3号
機械
682円
1,364円
3,410円
6,820円
 5月上旬
田舎
荒茶4号
機械
525円
1,050円
2,625円
5,250円
 5月上旬〜
5月10日位
　

今月のオススメ

おかげさまで本年度の水出し茶は完売いたしました
　
贈り物

田舎荒茶のできるまでを説明
プレゼントに使っているたけのこ
お茶刈り機を自作
田舎荒茶のできるまで
筍
機械作り
更新履歴
2005年11月15日　あおきえん通信8月号から10月号までを掲載
2005年7月22日　あおきえん通信5月号から7月号までを掲載
2005年4月14日　２００５年度のチラシを掲載
2005年4月13日　贈り物コンテンツを追加
2005年4月11日　あおきえん通信4月号を掲載
2005年4月5日 　限定品・水出し茶\予\約受付開始


青木園トップページへ

〒420-0072　静岡県静岡市二番町４番地５
TEL 054-275-0011
FAX 054-272-0412
茶自家園クラブ　青木園
owner\@aokien.com
産地直送リンク集「産直リンク検索コム」 産地直送リンク集「産直リンク検索コム」 　　　

当サイトはリンクフリーです

　

EOF # 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 #--------------------> # 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"; #
商品コード商品名単価(円)かごへ
$code$name$tanka$rem2$rem3 # EOF # #数量入力タイプによって処理 # if ($type == 1) { # # #商品コードはセミコロンで挟む形式で項目名として渡す # print "購入"; # } # elsif ($type == 2) { # # #商品コードはセミコロンで挟む形式で項目名として渡す # print ""; # } # else { # #商品コードはセミコロンで挟む形式で項目名として渡す # print "個"; # } # # print "

# # #

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

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

#
$msg_btm1

# 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; }