#!/usr/bin/perl #======================================================= #■ショッピングカート #======================================================= #作成者：有限会社セルコム　谷川　謙 #作成日： #更新日： #更新内容： #======================================================= #処理概要： #======================================================= #▼各種ファイルの在り処 ################################ $thisurl = 'shop.cgi'; $jcodelib = './jcode.pl'; #jcode.pl $cgilib = './cgi.pl'; #tani-cgi.pl $cookielib = './cookie.pl'; #cookie.pl $mimelib = './mimew.pl'; #メールヘッダ変換ライブラリ $orderimg = 'image/order.gif'; $dotimg = 'image/dot.gif'; $filedir = 'files'; $upload_dir = 'pictures'; $np_img = 'image/np.gif'; $list_file = $filedir . '/list.txt'; $category_file = $filedir . '/category.txt'; $color_file = 'color.txt'; #色設定ファイル $sendpass = '/usr/sbin/sendmail'; #sendmailのパス #▼ライブラリの読み込み ################################ require "./config.txt"; require "$jcodelib"; require "$cgilib"; require "$cookielib"; require "$mimelib"; #▼漢字コードの設定等 ################################ $doctype = ''; $contenttype = ''; $kanjicode = 'sjis'; #▼色の設定 ################################ &color; #色設定の読み込み $body = ""; $style = ""; #スタイルシート #▼フォームの設定 ################################ &form($kanjicode); $cmd = $form{'cmd'}; $in_ct_id = $form{'ct_id'}; $in_id = $form{'id'}; $in_quantity = $form{'quantity'}; ######################################################## #▽以下 main routine %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% if ($cmd eq 'index') { &disp_index; } elsif ($cmd eq 'list') { &disp_list; } elsif ($cmd eq 'putin') { &putin; } elsif ($cmd eq 'putout') { &putout; } elsif ($cmd eq 'putoutall') { &putoutall; } elsif ($cmd eq 'cart') { &disp_confirm_cart; } elsif ($cmd eq 'confirm') { &disp_confirm; } elsif ($cmd eq 'confirm2') { &disp_confirm2; } elsif ($cmd eq 'send') { &send_order; } else { &disp_index; } exit (0); #△以上 main routine %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ######################################################## ######################################################## #▽以下 処理 sub %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #▼カテゴリリストの表示 ################################ sub disp_index { open(TXT, $category_file); @ctgr = ; close(TXT); print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; &disp_navi_j; print "\n" ; print "$body\n"; &disp_navi; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
$titleカテゴリ選択
\n"; print "\n"; foreach (@ctgr) { ($ct_id, $ct_name, $ct_cmt) = split(/,/, $_); chomp($ct_cmt); print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "
$ct_name$ct_cmt
\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; } #▼商品リストの表示 ################################ sub disp_list { open(TXT, $category_file); @ctgr = ; close(TXT); foreach (@ctgr) { ($ct_id, $ct_name) = split(/,/, $_); if ($ct_id eq $in_ct_id) { $ut_ct_name = $ct_name; last; } } open(TXT, $list_file); @list = ; close(TXT); print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; &disp_navi_j; print "\n" ; print "$body\n"; &disp_navi; print "

\n"; print "\n"; print "\n"; foreach (@list) { ($ct_id, $id, $flg, $title1, $cmt1, $title2, $cmt2, $file, $stocks, $price) = split(/,/, $_); if ($ct_id eq $in_ct_id) { print "\n"; } } print "\n"; print "
$ut_ct_name
\n"; print "
\n"; print "\n"; print "\n"; if ($file) { $img_name = $upload_dir . '/' . $file; } else { $img_name = $np_img; } print " \n"; print " \n"; print " \n"; print "\n"; print " \n"; print ""; print " \n"; print "\n"; print " \n"; print ""; print " \n"; print "\n"; print " \n"; print "\n"; print " \n"; print "\n"; print "
商品番号$id
$title1
$cmt1
$title2
$cmt2
\\$price
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "\n"; } #▼カートに入れる ################################ sub putin { #02/03/26 追加（商品数量追加） &get_cookie; my @cookie_list = (); while (($ck_id, $ck_qua) = each(%cookie)) { if ($in_id == $ck_id) { $ck_qua++; $cookie_str = &set_cookie($in_id,$ck_qua,'2'); print $cookie_str; $cookie{$in_id} = $ck_qua; $ck_cnt = $ck_qua; } } # print "Content-type:text/html\n\n"; # print $ck_cnt; if (!$ck_cnt > 0) { $cookie_str = &set_cookie($in_id,$in_quantity,'2'); print $cookie_str; $cookie{$in_id} = $in_quantity; } &disp_confirm; } #▼カートから出す ################################ sub putout { ($cookie_str) = &clear_cookie($in_id); print $cookie_str; &disp_putout_cart; } #▼カートから全部出す ################################ sub putoutall { &get_cookie; my @cookie_list = (); while (($ck_id, $ck_qua) = each(%cookie)) { push(@cookie_list, $ck_id); } @cookie_strs = &clear_cookie(@cookie_list); print @cookie_strs; &disp_index; } #▼カート確認画面を表示 ################################ sub disp_confirm_cart { print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; print "\n" ; print "$body\n"; print "

\n"; &disp_cart; print "\n"; } #▼削除完了画面を表示 ################################ sub disp_putout_cart { print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; print "\n" ; print "$body\n"; print "

\n"; print "削除されました。
\n"; if ($form{'flg'}) { print "戻る
\n"; } else { print "戻る
\n"; } print "\n"; } #▼確認画面１を表示 ################################ sub disp_confirm { print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; &disp_navi_j; print "\n" ; print "$body\n"; &disp_navi; print "

\n"; &disp_cart; print "

\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; if ($amount >= 1) {&disp_form;} print "\n"; } #▼確認画面２を表示 ################################ sub disp_confirm2 { #param check my $error_str; if ($form{'name'} eq '') {$error_str .= "お名前は必須です。
\n";} if ($form{'zip'} eq '') {$error_str .= "郵便番号は必須です。
\n";} elsif ($form{'zip'} !~ /[0-9\-]+/g) {$error_str .= "郵便番号が不正です。
\n";} if ($form{'addr1'} eq '') {$error_str .= "住所（都道府県）は必須です。
\n";} if ($form{'addr2'} eq '') {$error_str .= "住所（市町村番地）は必須です。
\n";} if ($form{'mail'} eq '' || $form{'mail'} eq '@') {$error_str .= "メールアドレスは必須です。
\n";} elsif ($form{'mail'} !~ /[a-zA-Z0-9\-\.\_]+\@[a-zA-Z0-9\-\.\_]+\.[a-zA-Z0-9\-\.\_]+/g) {$error_str .= "メールアドレスが不正です。
\n";} if ($form{'year'} eq '') {$error_str .= "お振り込み予\定日（年）は必須です。
\n";} elsif ($form{'year'} !~ /[0-9]+/g) {$error_str .= "お振り込み予\定日（年）が不正です。
\n";} if ($form{'mon'} eq '') {$error_str .= "お振り込み予\定日（月）は必須です。
\n";} elsif ($form{'mon'} !~ /[0-9]+/g) {$error_str .= "お振り込み予\定日（月）が不正です。
\n";} if ($form{'day'} eq '') {$error_str .= "お振り込み予\定日（日）は必須です。
\n";} elsif ($form{'day'} !~ /[0-9]+/g) {$error_str .= "お振り込み予\定日（日）が不正です。
\n";} if ($error_str ne '') {&error($error_str);} print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; &disp_navi_j; print "\n" ; print "$body\n"; &disp_navi; print "

\n"; &disp_cart; if ($amount >= 1) { print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
お名前$form{'name'}
お届け先
ご住所		〒$form{'zip'}
$form{'addr1'}
$form{'addr2'}
メールアドレス$form{'mail'}
お振込み予\定日$form{'year'}年$form{'mon'}月$form{'day'}日
\n"; } print "\n"; } #▼完了画面を表示 ################################ sub send_order { &get_cookie; @mail_list = ($form{'name'},$form{'zip'},$form{'addr1'},$form{'addr2'},$form{'mail'},$form{'date'}); &send_mail(@mail_list); &send_mail2(@mail_list); my @cookie_list = (); while (($ck_id, $ck_qua) = each(%cookie)) { push(@cookie_list, $ck_id); } @cookie_strs = &clear_cookie(@cookie_list); print @cookie_strs; print "Content-type:text/html\n\n"; print "$doctype\n" ; print "\n" ; print "$contenttype\n" ; print "$title\n" ; print "$style\n"; print "\n" ; print "$body\n"; &disp_navi; print "

\n"; print "送信内容を受け付けました。\n"; print "

\n"; print "ご登録のメールアドレス宛てに確認メールが送信されます。
\n"; print "確認メールが受け取れない場合は、送信内容を受け付けていません。
\n"; print "必ず管理者までご連絡ください。
\n"; print "\n"; } #▼カートの中身を表示 ################################ sub disp_cart { &get_cookie; print "\n"; print "\n"; print "\n"; print "\n"; print "
カートの中身
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $amount = 0; my $total = 0; while (($ck_id, $ck_qua) = each(%cookie)) { open(TXT, $list_file); @list = ; close(TXT); foreach (@list) { ($ct_id, $id, $flg, $title1, $cmt1, $title2, $cmt2, $file, $stocks, $price) = split(/,/, $_); if ($ck_id eq $id) { print "\n"; print "\n"; print "\n"; if ($in_id eq $id && $ck_cnt >0) { $ck_qua++; } print "\n"; print "\n"; if ($cmd eq 'cart' || $form{'flg'}) { print "\n"; } elsif ($cmd eq 'confirm' || $cmd eq 'putin') { print "\n"; } else { print "\n"; } print "\n"; $amount += $ck_qua; $total += $price * $ck_qua; } } } if ($amount < 1) { print "\n"; print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($tax eq '1') { $tax_total = $total*$tax_rate; $tax_total = ($tax_total == int($tax_total) ? $tax_total : int($tax_total+1)); $total = $total+$tax_total; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "
商品ID商品名数量Price-
$id$title1$ck_qua\\$price\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "		-
-カートに入っている品物はございません。
合計$amount点-\\$total
消費税-\\$tax_total
総合計-\\$total
\n"; print "
\n"; } #▼フォームを表示 ################################ sub disp_form { print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
お名前
お届け先
ご住所		〒
\n"; print "
メールアドレス
お振込み予\定日年月日
\n"; } #▼ナビゲーションを表示 ################################ sub disp_navi_j { print <<"Navigation_End"; Navigation_End } sub disp_navi { print "

\n"; print "｜\n"; if ($cmd eq '') { print "　カートの中身を表\示　｜\n"; } elsif ($cmd eq 'confirm' || $cmd eq 'putin') { print "　カテゴリ選択へ　｜\n"; } elsif ($cmd eq 'confirm2') { print "　カテゴリ選択へ　｜\n"; } elsif ($cmd eq 'list') { print "　カートの中身を表\示　｜\n"; print "　カテゴリ選択へ　｜\n"; } print "　トップページへ　｜\n"; } #▼確認メールを送信 ################################ sub send_mail { @mail_list = @_; my ($property); foreach $property (@mail_list) { &jcode'convert(*property, 'jis'); } if (!open(OUT,"| $sendpass $form{'mail'}")) {&error('Error');} ($in_name,$in_zip,$in_addr1,$in_addr2,$in_mail,$in_date) = @mail_list; #ヘッダの生成 $mail_head = "From: \"$title\" <$admin>;\n"; $mail_head .= "To: \"$form{'name'}\" <$form{'mail'}>;\n"; $mail_head .= "Content-Transfer-Encoding: 7bit\n"; $mail_head .= "Content-Type: text/plain;\n"; $mail_head .= "X-Mailer: tany mail form ver2 00\;\n"; $mail_head .= "Subject: $mail_title\n"; $mail_head .= "\n"; open(TXT, 'mail.txt'); @mail_txt = ; close(TXT); foreach $property (@mail_txt) { &jcode'convert(*property, 'jis'); } print OUT &mimeencode($mail_head); print OUT "$in_name 様\n"; print OUT "\n"; print OUT "$titleのご利用ありがとうございます。\n"; print OUT "\n"; foreach (@mail_txt) { print OUT "$_"; } print OUT "\n"; print OUT "以下はお客様の登録情報です。\n"; print OUT "登録情報を必ずご確認ください。\n"; print OUT "もし誤りがある場合は、至急\n"; print OUT "$admin までご連絡ください。\n"; print OUT "\n"; print OUT "●登録情報\n"; print OUT "お名前： $in_name\n"; print OUT "郵便番号： $in_zip\n"; print OUT "ご住所： $in_addr1$in_addr2\n"; print OUT "メールアドレス： $in_mail\n"; print OUT "お振込み予\定日： $in_date\n"; print OUT "\n"; print OUT "==================================================\n"; my $amount = 0; my $total = 0; while (($ck_id, $ck_qua) = each(%cookie)) { open(TXT, $list_file); @list = ; close(TXT); foreach $property (@list) { &jcode'convert(*property, 'jis'); ($ct_id, $id, $flg, $title1, $cmt1, $title2, $cmt2, $file, $stocks, $price) = split(/,/, $property); chomp($price); if ($ck_id eq $id) { print OUT "商品ID[$id]\n"; print OUT "■商品名：$title1\n"; print OUT "■数量：$ck_qua\n"; print OUT "■金額：\\$price\n"; print OUT "==================================================\n"; $amount += $ck_qua; $total += $price * $ck_qua; } } } print OUT "合計\n"; print OUT "$amount点\n"; print OUT "\\$total\n"; if ($tax eq '1') { $tax_total = $total*$tax_rate; $tax_total = ($tax_total == int($tax_total) ? $tax_total : int($tax_total+1)); $total = $total+$tax_total; print OUT "消費税\n"; print OUT "\\$tax_total\n"; print OUT "総合計\n"; print OUT "\\$total\n"; } print OUT "==================================================\n"; print OUT "このメールに心当たりのない方は\n"; print OUT "大変お手数ですが、 $admin までご連絡ください。\n"; print OUT "==================================================\n"; print OUT "(c) Copyright $title\n"; print OUT "$homeurl\n"; print OUT "==================================================\n"; close(OUT); } #▼管理者宛メールを送信 ################################ sub send_mail2 { @mail_list = @_; my ($property); foreach $property (@mail_list) { &jcode'convert(*property, 'jis'); } if (!open(OUT,"| $sendpass $admin")) {&error('Error');} ($in_name,$in_zip,$in_addr1,$in_addr2,$in_mail,$in_date) = @mail_list; #ヘッダの生成 $mail_head = "From: \"$title\" <$admin>;\n"; $mail_head .= "To: \"$admin\" <$admin>;\n"; $mail_head .= "Content-Transfer-Encoding: 7bit\n"; $mail_head .= "Content-Type: text/plain;\n"; $mail_head .= "X-Mailer: tany mail form ver2 00\;\n"; $mail_head .= "Subject: $mail_title\n"; $mail_head .= "\n"; print OUT &mimeencode($mail_head); print OUT "$titleから注文がありました。\n"; print OUT "\n"; print OUT "●登録情報\n"; print OUT "お名前： $in_name\n"; print OUT "郵便番号： $in_zip\n"; print OUT "ご住所： $in_addr1$in_addr2\n"; print OUT "メールアドレス： $in_mail\n"; print OUT "お振込み予\定日： $in_date\n"; print OUT "\n"; print OUT "==================================================\n"; my $amount = 0; my $total = 0; while (($ck_id, $ck_qua) = each(%cookie)) { open(TXT, $list_file); @list = ; close(TXT); foreach $property (@list) { &jcode'convert(*property, 'jis'); ($ct_id, $id, $flg, $title1, $cmt1, $title2, $cmt2, $file, $stocks, $price) = split(/,/, $property); chomp($price); if ($ck_id eq $id) { print OUT "商品ID[$id]\n"; print OUT "■商品名：$title1\n"; print OUT "■数量：$ck_qua\n"; print OUT "■金額：\\$price\n"; print OUT "==================================================\n"; $amount += $ck_qua; $total += $price * $ck_qua; } } } print OUT "合計\n"; print OUT "$amount点\n"; print OUT "\\$total\n"; if ($tax eq '1') { $tax_total = $total*$tax_rate; $tax_total = ($tax_total == int($tax_total) ? $tax_total : int($tax_total+1)); $total = $total+$tax_total; } print OUT "消費税\n"; print OUT "\\$tax_total\n"; print OUT "総合計\n"; print OUT "\\$total\n"; print OUT "==================================================\n"; print OUT "このメールに心当たりのない方は\n"; print OUT "大変お手数ですが、 $admin までご連絡ください。\n"; print OUT "==================================================\n"; print OUT "(c) Copyright $title\n"; print OUT "$homeurl\n"; print OUT "==================================================\n"; close(OUT); } #△以上処理 sub routine %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% ######################################################## ######################################################## #▽以下設定 sub routine %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% #▼色設定の読み込み ################################ sub color { my ($i, $col); if (!open(COL, "$color_file")) {&error('設定ファイルが開けません');} @col = ; foreach (@col) { ($col_value, $col_index) = split(/,/, $_); chomp($col_index); $color{$col_index} = $col_value; } close(COL); }