#!/usr/bin/perl require './jcode.pl'; require './mimew.pl'; $mailcmd = '/usr/sbin/sendmail'; $subject = 'お申し込みメール -JSK 通信販売-'; $mail_to = 'sale@j-s-k.co.jp'; $mail_to_cc = ''; $cc_fl = '0'; # CCメール返信 $bcc_fl = '0'; # お問合せの方へもメール返信 $body_h = < JSK株式会社ジャパン総合広告社 通信販売
TOP Catalog1 Catalog2 Catalog3お申し込み
DATA_HTML $html_h_2 = < DATA_HTML $html_h_3 = <
商品お申し込み
お支払方法をお読みになり、下のお申\し込みフォームに必要事項をご記入の上
「確認画面へ」ボタンを押してください。
お支払い方法
お支払いにつきましては、下記の2つの方法があります。

1.商品お届け時一括代金引換
 お支払いは商品お届け時一括代金引き換えでお願いいたします。

2.e-コレクト クレジットカード デビットカード
 e-コレクトの詳しい説明はこちら>>

【お取扱いクレジットカード】
JCB、VISA、マスター、オリコ、セゾン、OMC、KYODO、KC、MYCAL、ダイナースクラブ 計10社
※分割払いも対応可能\(一部対応できないものもございます。詳しくは佐川急便にお問い合わせください。)
DATA_HTML $html_f = <
お申\込みに関しての注意事項
イニシャルのご注文は…イニシャルはアルファベット大文字2文字までとさせて頂きます。
               (ピリオドは含みません。)
イニシャル字体
* 書体は写真の書体で黒のみとなります。
* 名入れ商品の為、お届けまで1週間〜10日間前後かかります。
(在庫状況により、さらにお時間をいただくこともございますので予\めご了承ください。)
* 商品の特性上キャンセル、返品はできません。
* 送料は、ご注文金額・数量に関わらず、掲載送料(税込み)のご負担となります。
商品のお申\込みについて
《お問い合せ窓口》
株式会社ジャパン総合広告社通信販売
〒104-0061 東京都中央区銀座7-17-18 ジュエル銀座ビル3F
メール:sale\@j-s-k.co.jp
※ 商品の発送状況に関するお問い合わせはご容赦下さい。
TOP Catalog1 Catalog2 Catalog3
JSK通販TOP 会社概要 法定表記
(C)Copyright. japan sougo koukoku.inc. All rights reserved.
DATA_HTML $err_fl = 'ng'; $send_fl = 'ng'; $in[0] = "shop_1_mo"; $in[1] = "shop_1_wi"; $in[2] = "shop_1_st_1"; $in[3] = "shop_1_st_2"; $in[4] = "shop_1_cn"; $in[5] = "shop_1_pr"; $in[6] = "shop_2_mo"; $in[7] = "shop_2_wi"; $in[8] = "shop_2_st_1"; $in[9] = "shop_2_st_2"; $in[10] = "shop_2_cn"; $in[11] = "shop_2_pr"; $in[12] = "shop_3_mo"; $in[13] = "shop_3_wi"; $in[14] = "shop_3_st_1"; $in[15] = "shop_3_st_2"; $in[16] = "shop_3_cn"; $in[17] = "shop_3_pr"; $in[18] = "name"; $in[19] = "zip"; $in[20] = "address"; $in[21] = "tel"; $in[22] = "tel_c"; $in[23] = "email"; $in[24] = "age"; $in[25] = "sex"; $in[26] = "work"; $in[27] = "work_kind"; $in[28] = "pay"; $in[29] = "comment"; if ($ENV{'REQUEST_METHOD'} eq 'POST') { $err_fl = 'ok'; $shop_fl = 'ng'; read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); foreach (@pairs) { ($key, $value) = split(/=/); $key =~ tr/+/ /; $key =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg; &jcode'convert(*key, "sjis"); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('C', hex($1))/eg; $value =~ s/\r\n/\n/g; $value =~ s/\r/\n/g; $value =~ s/&/&/g; $value =~ s/"/"/g; $value =~ s//>/g; &jcode'convert(*value, "sjis"); if ($key eq '_body') { $send_fl = 'ok'; $mail_b = $value; } elsif ($in{$key} eq '') { $in{$key} = $value; } else { $in{$key} .= ("\n".$value); } } if ($in{'back'} eq '入力画面へ戻る') { $send_fl = "ng"; $err_fl = "ng"; } if ($send_fl eq 'ng') { for ($i = 0; $i <= 29; $i++) { if ($in[$i] eq 'shop_1_mo') { $mail_b .= "[ お申\し込み商品 ]\n"; if ($in{'shop_1_mo'} ne '') { $mail_b .= "商品名(モデル名):$in{$in[$i]}\n"; $shop_fl = "ok"; if ($in{'shop_1_wi'} ne '') { $mail_b .= "重量(品番):$in{'shop_1_wi'}\n"; if ($in{'shop_1_st_1'} =~ /^[A-Z]{1}$/ && $in{'shop_1_st_2'} =~ /^[A-Z]{1}$/) { $mail_b .= "イニシャル:$in{'shop_1_st_1'}.$in{'shop_1_st_2'}\n"; if ($in{'shop_1_cn'} ne '') { $mail_b .= "セット数:$in{'shop_1_cn'}個\n"; $mail_b .= "価格:$in{'shop_1_pr'}円\n\n"; } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< セット数を選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< イニシャルを選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< 重量(品番)を選択して下さい。 >"; } } else { $in{"shop_1_mo"} = ""; $in{"shop_1_wi"} = ""; $in{"shop_1_st"} = ""; $in{"shop_1_cn"} = ""; } } elsif ($in[$i] eq 'shop_2_mo') { if ($in{'shop_2_mo'} ne '') { $mail_b .= "商品名(モデル名):$in{$in[$i]}\n"; $shop_fl = "ok"; if ($in{'shop_2_wi'} ne '') { $mail_b .= "重量(品番):$in{'shop_2_wi'}\n"; if ($in{'shop_2_st_1'} =~ /^[A-Z]{1}$/ && $in{'shop_2_st_2'} =~ /^[A-Z]{1}$/) { $mail_b .= "イニシャル:$in{'shop_2_st_1'}.$in{'shop_2_st_2'}\n"; if ($in{'shop_2_cn'} ne '') { $mail_b .= "セット数:$in{'shop_2_cn'}個\n"; $mail_b .= "価格:$in{'shop_2_pr'}円\n\n"; $shop_fl = "ok"; } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< セット数を選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< イニシャルを選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< 重量(品番)を選択して下さい。 >"; } } else { $in{"shop_2_mo"} = ""; $in{"shop_2_wi"} = ""; $in{"shop_2_st"} = ""; $in{"shop_2_cn"} = ""; } } elsif ($in[$i] eq 'shop_3_mo') { if ($in{'shop_3_mo'} ne '') { $mail_b .= "商品名(モデル名):$in{$in[$i]}\n"; $shop_fl = "ok"; if ($in{'shop_3_wi'} ne '') { $mail_b .= "重量(品番):$in{'shop_3_wi'}\n"; if ($in{'shop_3_st_1'} =~ /^[A-Z]{1}$/ && $in{'shop_3_st_2'} =~ /^[A-Z]{1}$/) { $mail_b .= "イニシャル:$in{'shop_3_st_1'}.$in{'shop_3_st_2'}\n"; if ($in{'shop_3_cn'} ne '') { $mail_b .= "セット数:$in{'shop_3_cn'}個\n"; $mail_b .= "価格:$in{'shop_3_pr'}円\n\n"; $shop_fl = "ok"; } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< セット数を選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< イニシャルを選択して下さい。 >"; } } else { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< 重量(品番)を選択して下さい。 >"; } } else { $in{"shop_3_mo"} = ""; $in{"shop_3_wi"} = ""; $in{"shop_3_st"} = ""; $in{"shop_3_cn"} = ""; } } elsif ($in[$i] eq 'name') { if ($in{'name'} ne '') { $mail_b .= "[ お名前 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'name'} = "< お名前を入力して下さい。 >"; } } elsif ($in[$i] eq 'zip') { if ($in{'zip'} =~ /^[0-9\-]{7,8}$/) { $mail_b .= "[ 郵便番号 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'zip'} = "< 郵便番号を正しく入力して下さい。 >"; } } elsif ($in[$i] eq 'address') { if ($in{'address'} ne '') { $mail_b .= "[ ご住所 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'address'} = "< ご住所を入力して下さい。 >"; } } elsif ($in[$i] eq 'tel') { if ($in{'tel'} =~ /^[0-9\-]+$/) { $mail_b .= "[ TEL ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'tel'} = "< TELを正しく入力して下さい。 >"; } } elsif ($in[$i] eq 'tel_c') { if ($in{'tel_c'} ne '') { if ($in{'tel_c'} =~ /^[0-9\-]+$/) { $mail_b .= "[ 携帯電話 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'tel_c'} = "< 携帯電話を正しく入力して下さい。 >"; } } else { $mail_b .= "[ 携帯電話 ]\n-\n\n"; } } elsif ($in[$i] eq 'email') { if ($in{'email'} =~ /^[\w.-]+\@([\w-]+\.)+\w+$/) { $mail_b .= "[ E-Mail ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'email'} = "< E-Mailを正しく入力して下さい。 >"; } } elsif ($in[$i] eq 'age') { if ($in{'age'} ne '') { if ($in{'age'} =~ /^[0-9\-]+$/) { $mail_b .= "[ ご年齢 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'age'} = "< ご年齢を正しく入力して下さい。 >"; } } else { $mail_b .= "[ ご年齢 ]\n-\n\n"; } } elsif ($in[$i] eq 'sex') { if ($in{'sex'} ne '') { if ($in{'sex'} eq '男' || $in{'sex'} eq '女') { $mail_b .= "[ 性別 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'sex'} = "< 性別を正しく選択して下さい。 >"; } } else { $mail_b .= "[ 性別 ]\n-\n\n"; } } elsif ($in[$i] eq 'work') { if ($in{'work'} ne '') { $mail_b .= "[ ご職業 ]\n$in{$in[$i]}\n\n"; } else { $mail_b .= "[ ご職業 ]\n-\n\n"; } } elsif ($in[$i] eq 'work_kind') { if ($in{'work_kind'} ne '') { $mail_b .= "[ 業種 ]\n$in{$in[$i]}\n\n"; } else { $mail_b .= "[ 業種 ]\n-\n\n"; } } elsif ($in[$i] eq 'pay') { if ($in{'pay'} eq '商品お届け時一括代金引換' || $in{'pay'} eq 'e-コレクト') { $mail_b .= "[ お支払い方法 ]\n$in{$in[$i]}\n\n"; } else { $err_fl = 'ng'; $err_me{'pay'} = "< お支払い方法を正しく選択して下さい。 >"; } } elsif ($in[$i] eq 'comment') { if ($in{'comment'} ne '') { $mail_b .= "[ 備考(ご質問等) ]\n$in{$in[$i]}\n\n"; } else { $mail_b .= "[ 備考(ご質問等) ]\n-\n\n"; } } } if ($shop_fl eq 'ng') { $err_fl = 'ng'; $err_me{'shop_1_mo'} = "< 商品名(モデル名)を選択して下さい。 >"; } $mail_b =~ s/(^|\n)\.(\n|$)/$1\.\.$2/g; $mail_b =~ s/(^|\n)\.(\n|$)/$1\.\.$2/g; } elsif ($send_fl eq 'ok') { $mail_b =~ s/<//g; $mail_b =~ s/"/"/g; $mail_b =~ s/&/&/g; } } if ($err_fl eq 'ng' || $send_fl eq 'ng') { &form_html } else { &send_mail; &after_htm; } exit; sub form_html { print "Content-type: text/html\n\n"; print "$html_h\n"; if ($err_fl eq 'ng') { print "$html_h_2\n"; } print "\n"; print "\n"; print "\n"; print "\"お申し込みフォーム\"\n"; print "\n"; print "\n"; print "
\n"; print "\n"; if ($err_fl ne 'ng') { print "\n"; print "\n"; print "\n"; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; if ($err_fl eq 'ng') { print "$html_h_3\n"; } print "$html_f\n"; } sub send_mail { $mail_h = "Content-type: text/plain; charset=ISO-2022-JP\n"; $mail_h .= "Content-Transfer-Encoding: 7bit\n"; $mail_h .= "To: $mail_to\n"; $mail_h .= "From: $in{'email'}\n"; if ($cc_fl) { $mail_h .= "Cc: $mail_to_cc\n"; } if ($bcc_fl) { $mail_h .= "Bcc: $in{'email'}\n"; } # $mail_h .= "Reply-To: $mail_to\n"; $mail_h .= "Subject: $subject\n\n"; $mail_b = $body_h.$mail_b.$body_f; &jcode'convert(*mail_b, "jis"); if (!(open(MAIL,"| $mailcmd -t"))) { &error('メール送信に失敗しました。'); } print MAIL &mimeencode($mail_h); print MAIL $mail_b; close(MAIL); } sub after_htm { print "Content-type: text/html\n\n"; print "$html_h\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$html_f\n"; } sub error { print "Content-type: text/html\n\n"; print "$html_h\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "$html_f\n"; exit(); } __END__
お申\し込み内容をご確認の上「お申\し込み」ボタンを押してください。
■ お申\し込み商品 ※現在お受けしておりません"; if ($err_me{'shop_1_mo'} ne '') { print " ".$err_me{'shop_1_mo'}.""; } 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"; 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"; 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"; 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"; if ($err_fl eq 'ng' || $in{'shop_1_mo'}) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } if ($err_fl eq 'ng' || $in{'shop_2_mo'}) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } if ($err_fl eq 'ng' || $in{'shop_3_mo'}) { print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } print "
商品名(モデル名)重量(品番)イニシャルセット数価格(円)
\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_1_mo'}."\n"; } print "\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_1_wi'}."\n"; } print ""; if ($err_fl eq 'ng') { print ".\n"; print "\n"; } else { print ""; print ""; print "".$in{'shop_1_st_1'}.".".$in{'shop_1_st_2'}."\n"; } print ""; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_1_cn'}."\n"; } print ""; if ($err_fl eq 'ng') { print ""; } else { print ""; print "".$in{'shop_1_pr'}."\n"; } print "
\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_2_mo'}."\n"; } print "\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_2_wi'}."\n"; } print ""; if ($err_fl eq 'ng') { print ".\n"; print "\n"; } else { print ""; print ""; print "".$in{'shop_2_st_1'}.".".$in{'shop_2_st_2'}."\n"; } print ""; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_2_cn'}."\n"; } print ""; if ($err_fl eq 'ng') { print ""; } else { print ""; print "".$in{'shop_2_pr'}."\n"; } print "
\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_3_mo'}."\n"; } print "\n"; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_3_wi'}."\n"; } print ""; if ($err_fl eq 'ng') { print ".\n"; print "\n"; } else { print ""; print ""; print "".$in{'shop_3_st_1'}.".".$in{'shop_3_st_2'}."\n"; } print ""; if ($err_fl eq 'ng') { print "\n"; } else { print ""; print "".$in{'shop_3_cn'}."\n"; } print ""; if ($err_fl eq 'ng') { print ""; } else { print ""; print "".$in{'shop_3_pr'}."\n"; } print "
\n"; print "
※送料・税込みの価格です。
\"\"
* は必須項目です。
■ お名前 *"; if ($err_fl eq 'ng') { print ""; if ($err_me{'name'} ne '') { print "
".$err_me{'name'}.""; } } else { print ""; print "".$in{'name'}."\n"; } print "
\"\"
■ 郵便番号 *"; if ($err_fl eq 'ng') { print " (半角英数字)"; if ($err_me{'zip'} ne '') { print "
".$err_me{'zip'}.""; } } else { print ""; print "".$in{'zip'}."\n"; } print "
\"\"
■ ご住所 *"; if ($err_fl eq 'ng') { print ""; if ($err_me{'address'} ne '') { print "
".$err_me{'address'}.""; } } else { print ""; print "".$in{'address'}."\n"; } print "
\"\"
■ TEL *"; if ($err_fl eq 'ng') { print " (半角数字)"; if ($err_me{'tel'} ne '') { print "
".$err_me{'tel'}.""; } } else { print ""; print "".$in{'tel'}."\n"; } print "
\"\"
■ 携帯電話"; if ($err_fl eq 'ng') { print " (半角数字)"; if ($err_me{'tel_c'} ne '') { print "
".$err_me{'tel_c'}.""; } } else { print ""; if ($in{'tel_c'}) { print "".$in{'tel_c'}."\n"; } else { print "-\n"; } } print "
\"\"
■ E-mail *"; if ($err_fl eq 'ng') { print " (半角英数字)"; if ($err_me{'email'} ne '') { print "
".$err_me{'email'}.""; } } else { print ""; print "".$in{'email'}."\n"; } print "
\"\"
■ ご年齢"; if ($err_fl eq 'ng') { print " (半角数字)"; if ($err_me{'age'} ne '') { print "
".$err_me{'age'}.""; } } else { print ""; if ($in{'age'}) { print "".$in{'age'}."\n"; } else { print "-\n"; } } print "
\"\"
■ 性別"; if ($err_fl eq 'ng') { print "女"; if ($err_me{'sex'} ne '') { print "
".$err_me{'sex'}.""; } } else { print ""; if ($in{'sex'}) { print "".$in{'sex'}."\n"; } else { print "-\n"; } } print "
\"\"
■ ご職業"; if ($err_fl eq 'ng') { print ""; if ($err_me{'work'} ne '') { print "
".$err_me{'age'}.""; } } else { print ""; if ($in{'work'}) { print "".$in{'work'}."\n"; } else { print "-\n"; } } print "
\"\"
■ 業種"; if ($err_fl eq 'ng') { print ""; if ($err_me{'work_kind'} ne '') { print "
".$err_me{'work_kind'}.""; } } else { print ""; if ($in{'work_kind'}) { print "".$in{'work_kind'}."\n"; } else { print "-\n"; } } print "
\"\"
■ お支払い方法 *"; if ($err_fl eq 'ng') { print "商品お届け時一括代金引換
\n"; print "e-コレクト
\n"; print "  e-コレクトの詳しい説明はこちら>>\n"; if ($err_me{'pay'} ne '') { print "
".$err_me{'pay'}.""; } } else { print ""; print "".$in{'pay'}."\n"; } print "
\"\"
■ 備考(ご質問等)"; if ($err_fl eq 'ng') { print ""; if ($err_me{'comment'} ne '') { print "
".$err_me{'comment'}.""; } } else { print ""; $in{'comment'} =~ s/\n/
/g; if ($in{'comment'}) { print "".$in{'comment'}."\n"; } else { print "-\n"; } } print "
\"\"
"; if ($err_fl eq 'ng') { print " "; print "\n"; } else { print ""; 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 "
".$_[0]."

ブラウザの「戻る」で戻って下さい。
\n"; print "
\n"; print "
\n"; print "