トップ差分一覧ソース検索ヘルプ PDF RSS ログイン

メルアド登録制度

青色は、改造箇所を示します。ファイル名：　ルーチン名：　行番号　を示します。
黒色文字は、「改造前の状態」を示します。
テキストボックスの中のプログラムを、該当の場所に上書きして下さい。

メルアド登録制度 Ver 1.01 ★★★★★☆☆☆

メールアドレスの登録を義務付ける改造です。※サーバーに sendmail が必須です。
新規登録時にメルアドを入力し、パスワードは自動生成します。生成されたパスワードは登録されたメルアド宛てに送信されるので、偽のメルアドでは登録が出来ません。
※この改造を取り入れる際には、併せて【改造者表示】の改造を取り入れて頂けると嬉しいです。（非強制）

履歴
2007/03/04　Wikiにて公開　　　　　　
2003/08/19　Version 1.01　ゲーム再開の都度、再登録が必要となっていたバグを修正致しました。 
2003/08/14　Version 1.00　公開

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

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

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

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

本家版改造ポイント

TOP ↑ ↓

◆改造ポイント０１メール送出ルーチンを追加します。

TOP ↑ ↓

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

◆改造ポイント０２ファイルパスを設定します。

TOP ↑ ↓

sos2.cgi # ---------- FILE PATH Line:31
$bitdat = './bit.dat'; # bit.datのパス 666(606)
$bitdat = './bit.dat'; # bit.datのパス 666(606) #-ADD- $maillistdat = 'maillist.cgi'; # maillist.dat のパス 666(606) $sionmailcgi = 'sionmail.cgi'; # sionmail.cgi のパス 644(604) #-END of ADD- SION0025v1.00-2-1/9
※ sionmail,cgi のファイル名は改造ポイント１で設定したファイル名です。
※ 必ず maillist,cgi のファイル名を任意のファイル名に変更する事。

◆改造ポイント０３新規登録時、メールチェック／パスワード送出する様にします。

TOP ↑ ↓

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|;
#-EDIT- 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|; print qq|<tr><td>メールアドレス</td><td><input type=password name=mail></td></tr>\n|; print qq|<tr><td>確認のためもう一度</td><td><input type=password name=mail2></td></tr>\n|; push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); #-END of EDIT- SION0025v1.00-3-2/9

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/) {
#-EDIT- 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/) { push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); if ($Fm{'mail'} eq "") { &error("メールアドレスを入力してください") } if ($Fm{'mail'} ne $Fm{'mail2'}) { &error("2つのメールアドレスが一致しません") } if ($Fm{'job'} ne $def_pb && ($Fm{'mail'} =~ /[^\w-\@\.]/ || $Fm{'mail'} !~ /.+\@.+\..+/)) { &error('メールアドレスとして認識出来ませんでした。'); } if ($def_pa && $Fm{'job'} eq $def_pb && $Fm{'mail'} !~ /$def_pp/) { #-END of EDIT- SION0025v1.00-3-3/9

sos2.cgi # Sub Make New # Line:509
$Fm{'ps'} = $Fm{'pass'};
#-ADD- if ($Fm{'job'} ne $def_pb) { $Fm{'pass'} = crypt(substr($Fm{'mail'},0,8),substr(int(rand(time)),-2)); require $sionmailcgi; if (-e $maillistdat) { @maillist = &opendat("$maillistdat"); } foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_]); if ($mailadd eq $Fm{'mail'}) { &error("同一のメルアドが既に存在しています"); } } } #-END of ADD- SION0025v1.00-3-4/9 $Fm{'ps'} = $Fm{'pass'};

sos2.cgi # Sub Make New # Line:524
$Fm{'id'} = $id; &cookie_set; &play_form;
#-EDIT- $Fm{'id'} = $id; &cookie_set; &play_form; if ($Fm{'job'} ne $def_pb) { push(@maillist,join('<>',$id,$Fm{'mail'},"\n")); &writedat("$maillistdat",@maillist); chmod(0666,"$maillistdat"); $mailmsg = <<END_OF_MAILMSG; Script of SAGA : Welcome to our world! 　あなたのパスワードは [ $Fm{'pass'} ] です。　ゲームを開始するには、[ $starturl ] から始めて下さい。 END_OF_MAILMSG &sion_sendmail("$mailmsg","$Fm{'mail'}"); push (@msg,'登録したアドレスにパスワードを送信致しました。'); push (@msg,'受信したパスワードを使用してゲームをして下さい。'); &main_form; } else { $Fm{'id'} = $id; &cookie_set; &play_form; } #-END of EDIT- SION0025v1.00-3-5/9

◆改造ポイント０４キャラ削除時のメールアドレスリストの修正を追加します。

TOP ↑ ↓

sos2.cgi # Sub Delete After # Line:1833
unlink("$usrdir$id\.dat");
unlink("$usrdir$id\.dat"); #-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $Fm{'id'}) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-4-6/9

sos2.cgi # Sub Find to Delete # Line:1985 Ver1.01修正
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
#-EDIT- if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $id) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } } #-END of ADD- SION0025v1.00-4-7/9

◆改造ポイント０５既存キャラにもメールアドレス登録を義務付ける場合の改造。

TOP ↑ ↓

{{FONT color="#FF00FF",○ 既存キャラにはメルアド登録免除の場合は不要。}}
{{FONT color="#FF00FF",○ 既存キャラが存在しない場合は不要。}}

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|;
print qq|<tr><td>4桁のID</td><td><input type=password name=id value="$c_id"></td></tr>\n|; #-ADD- print qq|<tr><td>メルアド<BR>(未登録の場合のみ)</td><td><input type=password name=mail value=""></td></tr>\n|; push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); #-END of ADD- SION0025v1.00-5-8/9

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 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); 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'};

◆改造ポイント０６ＵＦＳ用の改造。

TOP ↑ ↓

ufs2.cgi # ---------- FILE PATH Line:32
$bitdat = './bit.dat'; # bit.datのパス 666(606)
$bitdat = './bit.dat'; # bit.datのパス 666(606) #-ADD- $maillistdat = 'maillist.cgi'; # maillist.dat のパス 666(606) $sionmailcgi = 'sionmail.cgi'; # sionmail.cgi のパス 644(604) #-END of ADD- SION0025v1.00-2-1/3
※ 改造ポイント２ sos2.cgi に合わせてください。

ufs2.cgi # Sub Recover Player # Line:766
&admin;
#-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($del,$mid,$mailadd) = split('<>',$maillist[$_],3); if ($del eq 'del' && $mid eq $Fm{'bid'}) { $maillist[$_] = "$id<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-6-2/3 &admin;

ufs2.cgi # Sub Delete # Line:776
&admin;
#-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $Fm{'id'}) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-6-3/3 &admin;

ini/perl.cgi # ------------ PERL PATH Line:25
$usepl = './perl/use.cgi'; # use.plのパス 644
$usepl = './perl/use.cgi'; # use.plのパス 644 #-ADD- $sionmailcgi = 'perl/sionmail.cgi'; # sionmail.cgi のパス 644(604) #-END of ADD- SION0025v1.00-2-1/10
※ sionmail,cgi のファイル名は改造ポイント１で設定したファイル名です。

ini/filepath.cgi # ---------- SOS FILE PATH Line:13
$sosikidat = './dat/sosiki.cgi'; # sosiki.datのパス 666(606)
$sosikidat = './dat/sosiki.cgi'; # sosiki.datのパス 666(606) #-ADD- $maillistdat = 'dat/maillist.cgi'; # maillist.dat のパス 666(606) #-END of ADD- SION0025v1.00-2-2/10
※ 必ず maillist,cgi のファイル名を任意のファイル名に変更する事。

◆改造ポイント０３新規登録時、メールチェック／パスワード送出する様にします。

TOP ↑ ↓

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|;
#-EDIT- 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|; print qq|<tr><td>メールアドレス</td><td><input type=password name=mail></td></tr>\n|; print qq|<tr><td>確認のためもう一度</td><td><input type=password name=mail2></td></tr>\n|; push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); #-END of EDIT- SION0025v1.00-3-3/10

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/) {
#-EDIT- 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/) { push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); if ($Fm{'mail'} eq "") { &error("メールアドレスを入力してください") } if ($Fm{'mail'} ne $Fm{'mail2'}) { &error("2つのメールアドレスが一致しません") } if ($Fm{'job'} ne $def_pb && ($Fm{'mail'} =~ /[^\w-\@\.]/ || $Fm{'mail'} !~ /.+\@.+\..+/)) { &error('メールアドレスとして認識出来ませんでした。'); } if ($def_pa && $Fm{'job'} eq $def_pb && $Fm{'mail'} !~ /$def_pp/) { #-END of EDIT- SION0025v1.00-3-4/10

perl/option.cgi # Sub Make New # Line:131
$Fm{'ps'} = $Fm{'pass'};
#-ADD- if ($Fm{'job'} ne $def_pb) { $Fm{'pass'} = crypt(substr($Fm{'mail'},0,8),substr(int(rand(time)),-2)); require $sionmailcgi; if (-e $maillistdat) { @maillist = &opendat("$maillistdat"); } foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_]); if ($mailadd eq $Fm{'mail'}) { &error("同一のメルアドが既に存在しています"); } } } #-END of ADD- SION0025v1.00-3-5/10 $Fm{'ps'} = $Fm{'pass'};

perl/option.cgi # Sub Make New # Line:144
$Fm{'id'} = $id; &cookie_set; require $formpl; &play_form;
#-EDIT- $Fm{'id'} = $id; &cookie_set; require $formpl; &play_form; if ($Fm{'job'} ne $def_pb) { push(@maillist,join('<>',$id,$Fm{'mail'},"\n")); &writedat("$maillistdat",@maillist); chmod(0666,"$maillistdat"); $mailmsg = <<END_OF_MAILMSG; Script of SAGA : Welcome to our world! 　あなたのパスワードは [ $Fm{'pass'} ] です。　ゲームを開始するには、[ $starturl ] から始めて下さい。 END_OF_MAILMSG &sion_sendmail("$mailmsg","$Fm{'mail'}"); push (@msg,'登録したアドレスにパスワードを送信致しました。'); push (@msg,'受信したパスワードを使用してゲームをして下さい。'); &main_form; } else { $Fm{'id'} = $id; &cookie_set; require $formpl; &play_form; } #-END of EDIT- SION0025v1.00-3-6/10

◆改造ポイント０４キャラ削除時のメールアドレスリストの修正を追加します。

TOP ↑ ↓

perl/motion.cgi # Sub Delete After # Line:143
unlink("$usrdir$id\.dat");
unlink("$usrdir$id\.dat"); #-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $Fm{'id'}) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-4-7/10

perl/any.cgi # Sub Find to Delete # Line:93
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") }
if ($now > $tm && $ps ne $admpas) { unlink("$usrdir$id\.dat") } #-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $id) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-4-8/10

◆改造ポイント０５既存キャラにもメールアドレス登録を義務付ける場合の改造。

TOP ↑ ↓

{{FONT color="#FF00FF",○ 既存キャラにはメルアド登録免除の場合は不要。}}
{{FONT color="#FF00FF",○ 既存キャラが存在しない場合は不要。}}

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|;
print qq|<tr><td>4桁のID</td><td><input type=password name=id value="$c_id"></td></tr>\n|; #-ADD- print qq|<tr><td>メルアド<BR>(未登録の場合のみ)</td><td><input type=password name=mail value=""></td></tr>\n|; push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); #-END of ADD- SION0025v1.00-5-9/10

perl/option.cgi # Sub Make Continue # Line:154
$Fm{'ps'} = $Fm{'pass'};
#-ADD- if ($jb ne $def_pb && $Fm{'pass'} ne $admpas) { push (@editor,"メルアド登録制度 Ver 1.00 <A href='http://www.salion2.halfmoon.jp/soswiki/wiki.cgi' target='_blank'>by SION & SOSWiki</A>"); 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-10/10 $Fm{'ps'} = $Fm{'pass'};

◆改造ポイント０６ＵＦＳ用の改造。

TOP ↑ ↓

ufs/other.cgi # Sub Recover Player # Line:90
&admin;
#-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($del,$mid,$mailadd) = split('<>',$maillist[$_],3); if ($del eq 'del' && $mid eq $Fm{'bid'}) { $maillist[$_] = "$id<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-6-1/2 &admin;

ufs/other.cgi # Sub Delete # Line:102
&admin;
#-ADD- if (-e $maillistdat) { require $sionmailcgi; @maillist = &opendat("$maillistdat"); foreach (0 .. $#maillist) { ($mid,$mailadd) = split('<>',$maillist[$_],2); if ($mid eq $Fm{'id'}) { $maillist[$_] = "del<>$mid<>$mailadd"; $exist = 1; last; } } if ($exist) { &writedat("$maillistdat",@maillist); } } #-END of ADD- SION0025v1.00-6-2/2 &admin;