!Parts1

この改造について

●　sendmail が使えるサーバーである事が必須条件です。 sendmail が使えなくてもエラーメッセージは出ませんのでご注意下さい。
　　sendmail が使えるかどうかは、サーバーの説明書をご確認下さい。
●　登録時にメルアドを入力させ、それを元にメールを自動発信します。この為、荒らしによるイタヅラなどには十分ご注意下さい。
　　特に、数日間管理が出来なくなる場合には、新規登録を一時停止する事が望ましいです。
　　（※ 同一アドレスには１通しかメールを送らない仕様としています）
●　パスワードの生成にメールアドレス上位８桁を利用し、また乱数の２桁を種とする crypt による暗号パスワードを生成しています。
　　 crypt は不可逆暗号化であり、また万一解読される事があってもメルアド上位８桁しか解読できません。
●　メールアドレスは一つのファイルに記録しています。個人情報の漏洩を防ぐ為、次の点を必ず厳守して下さい。
　○　 $maillistdat で指定するファイル名は必ず変更して下さい。
　○　ファイルの拡張子は出来るだけ .cgi として下さい。
　○　外部から直接アクセス出来ないパスを指定できる場合には、そのパスを利用する様にして下さい。
　○　可能な場合には、データファイルのパーミッションを６００として下さい。（通常６６６｜６０６です）

当改造における追加利用規約

●　この改造、又は改変した物を、下記に定める条件を逸脱して利用する事を禁止します。
　○　Script of SAGA の運営の為にのみ利用する事。
　○　（例えメールの一部分であっても）広告や宣伝文などを送信しない事。
　○　非営利目的に限定して利用する事。
●　この改造を利用、又は改造した結果、収集したメールアドレスを、下記に定める条件を逸脱して利用する事を禁止します。
　○　Script of SAGA の運営の為にのみ利用する事。
　○　非営利目的に限定して利用する事。
　○　部外者にメールアドレスを提供しない事。
●　この改造を利用、又は改造して、悪用することを禁止します。
●　この改造を、改造の有無に関わらず再配布する行為を禁止します。

●　上記の規約に違反した場合、【送信したメール一通につき金￥1,000- の送信機能利用料を支払う事に同意した物と致します。】
●　上記の規約に違反した場合、【この改造で収集したメールアドレス１アドレスにつき金 \50,000- のアドレス収集機能利用料を支払う事に同意した物と致します。】
●　この改造を利用する場合、上記の追加利用規約および他に定める利用規約の全てに同意が必要です。
　　これより先に読み進めた時点で、これらに同意したものと致します。

!Parts2
sionmail.cgi downloadしてお使い下さい。
１行目に、利用者のメールアドレスを設定して下さい（必須）。
２行目に、ＳＯＳを利用する為のＵＲＬ（http://～）を設定して下さい。（必須）
３行目に、sendmail のパスを設定して下さい。（サーバーの説明を調べてください）
ダウンロードしたファイルは、適当な名前をつけてアップロードします。
本体から require で読み出して動作させる為、パーミッションは（６４４｜６０４）になります。
!Parts3
sos2.cgi # ---------- FILE PATH Line:31
$bitdat = './bit.dat'; # bit.datのパス 666(606)

※ sionmail,cgi のファイル名は改造ポイント１で設定したファイル名です。
※ 必ず maillist,cgi のファイル名を任意のファイル名に変更する事。 !Parts4
sos2.cgi # Sub New Game # Line:465-466
print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;

sos2.cgi # Sub Make New # Line:501-503
if ($Fm{'pass'} eq "") { &error("パスワードを入力してください") }
if ($Fm{'pass'} ne $Fm{'pass2'}) { &error("2つのパスワードが一致しません") }
if ($def_pa && $Fm{'job'} eq $def_pb && $Fm{'pass'} !~ /$def_pp/) {

sos2.cgi # Sub Make New # Line:509
$Fm{'ps'} = $Fm{'pass'};

sos2.cgi # Sub Make New # Line:524
$Fm{'id'} = $id; &cookie_set; &play_form;
!Parts5
sos2.cgi # Sub Delete After # Line:1833
unlink("$usrdir$id\.dat");

sos2.cgi # Sub Find to Delete # Line:1985 Ver1.01修正
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
!Parts6
sos2.cgi # Sub Continue Game # Line:490
print qq|<tr><td>4桁のID</td><td><input type=password name=id value="$c_id"></td></tr>\n|;

sos2.cgi # Sub Make Continue # Line:536
$Fm{'ps'} = $Fm{'pass'};

#-ADD-
	if ($jb ne $def_pb && $Fm{'pass'} ne $admpas) {
		push (@editor,"メルアド登録制度 Ver 1.00 &lt;A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'&gt;by SION & SOSWiki&lt;/A&gt;");
		require $sionmailcgi;
		if (-e $maillistdat) {
			@maillist = &opendat("$maillistdat");
		}
		foreach (0 .. $#maillist) {
			($mid,$mailadd) = split('<>',$maillist[$_]);
			if ($mid eq $id) {
				$exist = 1; last;
			}
		}
		if (!$exist) {
			if ($Fm{'mail'} eq "") { &error("メールアドレスを入力してください") }
			if ($Fm{'mail'} =~ /[^\w-\@\.]/ || $Fm{'mail'} !~ /.+\@.+\..+/) { &error('メールアドレスが認識出来ませんでした。'); }
			foreach (0 .. $#maillist) {
				($mid,$mailadd) = split('<>',$maillist[$_]);
				if ($mailadd eq $Fm{'mail'}) {
					&error("同一のメルアドが既に存在しています");
				}
			}
			$ps = crypt(substr($Fm{'mail'},0,8),substr(int(rand(time)),-2));
			push(@maillist,join('<>',$id,$Fm{'mail'},"\n"));
			&writedat("$maillistdat",@maillist);
			chmod(0666,"$maillistdat");
			$mailmsg = <<END_OF_MAILMSG;
Script of SAGA : Welcome to our world!
　あなたのパスワードは [ $ps ] です。
　ゲームを開始するには、[ $starturl ] から始めて下さい。
END_OF_MAILMSG

&sion_sendmail("$mailmsg","$Fm{'mail'}");
			push (@msg,'登録したアドレスにパスワードを送信致しました。');
			push (@msg,'受信したパスワードを使用して再開して下さい。');
			&userout; &main_form; return;
		}
	}
#-END of ADD- SION0025v1.00-5-9/9
	$Fm{'ps'} = $Fm{'pass'};

!Parts7
ufs2.cgi # ---------- FILE PATH Line:32
$bitdat = './bit.dat'; # bit.datのパス 666(606)

※ 改造ポイント２ sos2.cgi に合わせてください。

ufs2.cgi # Sub Recover Player # Line:766
&admin;

ufs2.cgi # Sub Delete # Line:776
&admin;
!Parts8
sionmail.cgi downloadしてお使い下さい。
１行目に、利用者のメールアドレスを設定して下さい（必須）。
２行目に、ＳＯＳを利用する為のＵＲＬ（http://～）を設定して下さい。（必須）
３行目に、sendmail のパスを設定して下さい。（サーバーの説明を調べてください）
ダウンロードしたファイルは、適当な名前をつけてアップロードします。
本体から require で読み出して動作させる為、パーミッションは（６４４｜６０４）になります。
!Parts9
ini/perl.cgi # ------------ PERL PATH Line:25
$usepl = './perl/use.cgi'; # use.plのパス 644

※ sionmail,cgi のファイル名は改造ポイント１で設定したファイル名です。

ini/filepath.cgi # ---------- SOS FILE PATH Line:13
$sosikidat = './dat/sosiki.cgi'; # sosiki.datのパス 666(606)

※ 必ず maillist,cgi のファイル名を任意のファイル名に変更する事。 !Parts10
login.cgi # Sub New Game # Line:36-37
print qq|<tr><td>パスワード</td><td><input type=password name=pass></td></tr>\n|;
print qq|<tr><td>確認のためもう一度</td><td><input type=password name=pass2></td></tr>\n|;

perl/option.cgi # Sub Make New # Line:120-122
if ($Fm{'pass'} eq "") { &error("パスワードを入力してください") }
if ($Fm{'pass'} ne $Fm{'pass2'}) { &error("2つのパスワードが一致しません") }
if ($def_pa && $Fm{'job'} eq $def_pb && $Fm{'pass'} !~ /$def_pp/) {

perl/option.cgi # Sub Make New # Line:131
$Fm{'ps'} = $Fm{'pass'};

perl/option.cgi # Sub Make New # Line:144
$Fm{'id'} = $id; &cookie_set; require $formpl; &play_form;
!Parts11
perl/motion.cgi # Sub Delete After # Line:143
unlink("$usrdir$id\.dat");

perl/any.cgi # Sub Find to Delete # Line:93
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
!Parts12
login.cgi # Sub Continue Game # Line:59
print qq|<tr><td>4桁のID</td><td><input type=password name=id value="$c_id"></td></tr>\n|;

perl/option.cgi # Sub Make Continue # Line:154
$Fm{'ps'} = $Fm{'pass'};

!Parts13
ufs/other.cgi # Sub Recover Player # Line:90
&admin;

ufs/other.cgi # Sub Delete # Line:102
&admin;