サマサティ通販

#!/usr/bin/perl #===================================================================== # 題目 #===================================================================== # 名称: wwwmail Ver3.00 # 最終更新: 1998年7月19日 # 作成者: とほほ # 種別: フリーソフト # 再配布: 再配布可能(許可不要) # 動作ＯＳ: UNIX系Webサーバー # 設置方法: http://wakusei.cplaza.ne.jp/twn/wwwmail.htm #===================================================================== # カスタマイズ #===================================================================== # ★ perlのパス名 # このファイルの先頭の１行を、あなたが利用するサーバーにインストー # ルされた perl コマンドのパス名に応じて変更してください。例えば、 # 私が加入している BIGLOBE では、#!/usr/mesh/bin/perl となります。 # 解らない場合は、プロバイダやサーバの管理者にお問い合わせください。 # 「#!」の前には、空文字や空行がはいらないようにしてください。 # ★ 送信先メールアドレス # $mailto = 'abc@xxx.yyy.zzz'; のようにあなたのメールアドレスに # 書き換えてください。 $mailto = 'india@samasati.net'; # ★ サブジェクト(件名) # 送信されるメールのサブジェクトを指定してください。 $subject = '・サマサティ・ダイレクト注文-'; # ★ メール送信コマンド # このコマンドが存在しない場合は、このスクリプトは動作しません。また、 # 存在していても、メール送信の設定が行われていない場合があります。詳 # 細はプロバイダやサーバーの管理者にお問い合わせください。 $sendmail = '/usr/lib/sendmail'; # ★ 漢字コード変換ライブラリ # ftp://ftp.iij.ad.jp/pub/IIJ/dist/utashiro/perl/ から入手可能です。 # wwwmail.cgi と同じディレクトリに置いてください。 $jcode = 'jcode.pl'; # ★ MIMEコード変換ライブラリ # http://www.cc.rim.or.jp/~ikuta/mime_pls/ から入手可能です。 # wwwmail.cgi と同じディレクトリに置いてください。 $mimew = 'mimew.pl'; # ★ 送信結果メッセージ(ヘッダ) # < サマサティ通販

サマサティ通販をご利用いただき、ありがとうございます。

ただいま、お客様のメールアドレスに、以下のご注文の写しを送らせていただきました。
※万が一、入力されたメールアドレスが間違っていますと、サマサティからご連絡を差し上げることができません。写しがメールで送られてこない場合は、もう一度、メールアドレスを確認のうえ、再度、ご注文していただくか、直接メールでお問合せください。
メールは、herb\@samasati.netか、samasati\@aminet.or.jp へお願いします。

END_OF_DATA # ★ 送信結果メッセージ(フッタ) # <

END_OF_DATA #==================================================================== # 自己診断機能。 #==================================================================== # メール送信がうまく動作しない時に、 # http://～/～/wwwmail.cgi?test の形式で呼び出してください。 if ($ARGV[0] eq "test") { print "Content-type: text/html\n"; print "\n"; print "\n"; print "\n"; print "WwwMail自己診断\n"; print "\n"; print "\n"; print "CGIは正常に動作しています。
\n"; unless (-f $sendmail) { print "

$sendmail がありません。
\n"; } unless (-f $jcode) { print "

$jcode がありません。
\n"; } unless (-f $mimew) { print "

$mimew がありません。
\n"; } print "\n"; print "\n"; exit 0; } #==================================================================== # 本体 #==================================================================== # # ライブラリの呼び出し # require $jcode; require $mimew; # # 入力値を読み取る # if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'}); @a = split(/&/, $query_string); foreach $x (@a) { ($name, $value) = split(/=/, $x); $name =~ tr/+/ /; $name =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; &jcode'convert(*name, "jis"); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; $value =~ s/[\r\n]+/\n/g; &jcode'convert(*value, "jis"); if ($FORM{$name} eq "") { $FORM{$name} = $value; $FORM[$cnt++] = $name; } else { $FORM{$name} .= (" " . $value); } } } # # EMAILが指定されていなければ、(unknown)とする。 # if ($FORM{'EMAIL'} eq "") { $FORM{'EMAIL'} = "(unknown)"; } # # メールヘッダを作成する # { $sub50="様へ確認のメールです"; &jcode'convert(*subject, "jis"); &jcode'convert(*sub50, "jis"); # $mailhead = "To: $mailto\n"; # if ($FORM{'EMAIL'} ne "(unknown)") { # $mailhead .= "Cc: $FORM{'EMAIL'}\n"; $mailhead = "To: $FORM{'EMAIL'}\n"; if ($FORM{'EMAIL'} ne "(unknown)") { $mailhead .= "Bcc: $mailto\n"; } $mailhead .= "From: $mailto\n"; $mailhead .= "Subject: $subject$FORM{'NAME'}$sub50\n"; $mailhead .= "Return-Path: $mailto\n"; } # # メールボディを作成する # { $sub="　様"; $sub1="サマサティ通販をご利用いただきまして、まことにありがとうございます。"; $sub2="代金合計（送料込みの詳細）、振込み方法のお知らせ、"; $sub3="商品の発送先の問い合せのメールを、あらためて送らせていただきます。"; $sub4="まとめ買い（同一商品３個以上）はその商品を２割引させていただきます。"; $sub5="商品の変更、個数の変更などありましたら、お気軽\に\お\申\し\付けください。"; $sub6="お客様が入金されるまでは、キャンセルはいつでもできます。"; $sub7="　様が、今回、ご注文送信された内容の写しは、以下の通りです。"; $subsen1="───────────────────"; $subsen2="───────────────────────────────────"; $sub30="*******************クレームは大歓迎です*******************************"; $sub31="　　　もし御注文の商品を使ってみて、お客様には合わない"; $sub32="　　　などの御不満を感じられた場合、他の商品とお取替え致します。"; $sub33="　　　その際の商品代金の差額と送料は御客様の御負担で御願い致します。"; $sub34="　　　お客様の御質問や御不満、ご要望のメールを大歓迎します。"; $sub35="　　　ささいな事が大事ですので、ご遠慮なく御気軽にメールして下さい。"; $sub40="・サマサティ通販────────────────────────────"; $sub41="Email 1 : herb\@samasati.net"; $sub42="Email 2 : samasati\@aminet.or.jp"; $sub43="HP本サイト：http://samasati.net"; $sub44="ミラーサイト：http://raq1.aminet.or.jp/~zen/samasati"; $sub45="PHONE/FAX：0091-20-6053624"; $sub46="2-Anand Park ,Koregson Park , Pune 411001(MS), INDIA"; $sub50="　　　皆様から頂いた有料メルマガの購読料全額と商品代金の20％は、"; $sub51="　　　インドに木を植える為に使わせて頂きます。"; $sub52="……………………………………………………………………………………………"; &jcode'convert(*sub, "jis"); &jcode'convert(*subsen1, "jis"); &jcode'convert(*subsen2, "jis"); &jcode'convert(*sub1, "jis"); &jcode'convert(*sub2, "jis"); &jcode'convert(*sub3, "jis"); &jcode'convert(*sub4, "jis"); &jcode'convert(*sub5, "jis"); &jcode'convert(*sub6, "jis"); &jcode'convert(*sub7, "jis"); &jcode'convert(*sub30, "jis"); &jcode'convert(*sub31, "jis"); &jcode'convert(*sub32, "jis"); &jcode'convert(*sub33, "jis"); &jcode'convert(*sub34, "jis"); &jcode'convert(*sub35, "jis"); &jcode'convert(*sub40, "jis"); &jcode'convert(*sub41, "jis"); &jcode'convert(*sub42, "jis"); &jcode'convert(*sub43, "jis"); &jcode'convert(*sub44, "jis"); &jcode'convert(*sub45, "jis"); &jcode'convert(*sub46, "jis"); &jcode'convert(*sub50, "jis"); &jcode'convert(*sub51, "jis"); &jcode'convert(*sub52, "jis"); $mailbody .= "\n"; $mailbody .= "\n"; $mailbody .="$FORM{'NAME'}$sub ( $FORM{'EMAIL'} )\n"; $mailbody .= "$subsen1\n"; $mailbody .="\n"; $mailbody .= "\n"; $mailbody .= "$sub1\n"; $mailbody .= "$sub2\n"; $mailbody .= "$sub3\n"; $mailbody .= "$sub4\n"; $mailbody .= "$sub5\n"; $mailbody .= "$sub6\n"; $mailbody .= "\n"; $mailbody .= "$FORM{'NAME'}$sub7\n"; $mailbody .= "$subsen2\n"; $mailbody .= "\n"; $mailbody .= "$FORM{'MESSAGE'}\n"; $mailbody .= "\n"; $mailbody .= "$subsen2\n"; $mailbody .= "\n"; $mailbody .= "\n"; $mailbody .= "$sub30\n"; $mailbody .= "\n"; $mailbody .= "$sub31\n"; $mailbody .= "$sub32\n"; $mailbody .= "$sub33\n"; $mailbody .= "$sub34\n"; $mailbody .= "$sub35\n"; $mailbody .= "\n"; $mailbody .= "$sub52\n"; $mailbody .= "\n"; $mailbody .= "$sub50\n"; $mailbody .= "$sub51\n"; $mailbody .= "\n"; $mailbody .= "$sub52\n"; $mailbody .= "\n"; $mailbody .= "$sub40\n"; $mailbody .= "$sub41\n"; $mailbody .= "$sub42\n"; $mailbody .= "$sub43\n"; $mailbody .= "$sub44\n"; $mailbody .= "$sub45\n"; $mailbody .= "$sub46\n"; $mailbody .= "\n"; } # # メールを送信する # if (-x $sendmail) { unless (open(OUT, "| $sendmail -t")) { &errexit("メールの送信に失敗しました。"); } unless (print OUT &mimeencode($mailhead)) { &errexit("メールの送信に失敗しました。"); } unless (print OUT $mailbody) { &errexit("メールの送信に失敗しました。"); } close(OUT); } # # ブラウザ画面に送信結果を書き出す # { &jcode'convert(*header, "euc"); &jcode'convert(*footer, "euc"); $mail = $mailbody; &jcode'convert(*mail, "euc"); $mail =~ s/&/&/g; $mail =~ s/"/"/g; $mail =~ s//>/g; $mail =~ s/\n/
/g; print "Content-type: text/html\n"; print "\n"; print "$header\n"; print "$mail\n"; print "$footer\n"; } # # エラーメッセージを出力して終了 # sub errexit { $msg = "\n"; $msg .= "\n"; $msg .= "メール送信結果\n"; $msg .= "\n"; $msg .= "\n"; $msg .= "メールの送信に失敗しました。\n"; $msg .= "ブラウザの [戻る] ボタンで戻ってください。\n"; $msg .= "\n"; $msg .= "\n"; &jcode'convert(*msg, "jis"); print "Content-type: text/html\n"; print "\n"; print "$msg\n"; exit(0); }