$master_add = 'sion_jam@hotmail.com';   # あなたのメールアドレス
$starturl   = 'http://www.sionjam.net'; # メールに埋め込むＵＲＬ
$send_mail  = '/usr/lib/sendmail';      # sendmail のパス

##########################################################################
# 汎用メール送信スクリプト　Ver 1.00	By SION	2003.08.15
##########################################################################
# パーミッション(644|604) 

##########################################################################
# 当スクリプトの使用条件：
# ●当スクリプトを使用するには、当方サイトに掲示している利用規約を遵守する
# 　必要がございます。
# ●当スクリプトを利用した全ての結果・責任は、利用者にある物とします。

# ●下記の何れかに反する場合、当スクリプト利用料としてメール送信一通あたり
# 　￥1,000-を支払う事に同意した物とします。
# 　下記に反しない場合には、利用料は無料ですのでご安心ください。
# 　なお、この送信数には、未着分／送信失敗分も全て含んで計算します。

# ・当スクリプトで、ダイレクトメールやＳＰＡＭメールを送信したり、悪用する
# 　事、またはそれらを目的として改変する事を禁止致します。
# ・当スクリプトをその他営利目的で利用、または改変する事を禁止致します。
# ・当スクリプトの送出するメール本文に、広告を掲載する事を禁止致します。
# ・当スクリプトをＳＯＳ以外の用途の為に、無断で改変する事を禁止します。
# 　ＳＯＳでの利用の為の改変は行って構いません。
# ・当スクリプトを、再配布する事を禁止します。再配布した場合、再配布者が、
# 　当スクリプト利用料を責任もって徴収し、当方へ支払う物とします。

# ↓ 当スクリプトのサポートは下記のサイトでのみ行っております。
# (c) 2003 SION / SIONjam http://www.sionjam.net

##########################################################################
# メール添付フッタの設定
$mailfoot = <<END_OF_MAILFOOT;
このメールは、スクリプトによる自動送信メールです。

このスクリプトは、 $ENV{'PATH_TRANSLATED'} で実行されました。
スクリプト実行者は $ENV{'REMOTE_ADDR'} です。

※ 万一、このメールで御知らせした内容に覚えの無い場合、 $starturl / $master_add までこのメールを添えてご連絡下さい。
END_OF_MAILFOOT
##########################################################################

#=======《 Sub Send Mail 》==============================================#
sub sion_sendmail {
	$mailmsg = @_[0];
	$send_addr = @_[1];
	&jcode'convert(*mailfoot,'jis');
	&jcode'convert(*mailmsg,'jis');

	if (open(MAIL,"| $send_mail $master_add")) {
		print MAIL "X-Mailer: SIONjam MAILER\n";
		print MAIL "To: $send_addr\n";
		print MAIL "From: $master_add\n";
		print MAIL "Subject: send mail script\n";
		print MAIL "MIME-Version: 1.0\n";
		print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n";
		print MAIL "Content-Transfer-Encoding: 7bit\n";
		print MAIL "\n\n";
		print MAIL "$mailmsg";
		print MAIL "\n\n";
		print MAIL "$mailfoot\n";
		close(MAIL);
	}
}
1;