---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

２ch型掲示板

498 ：４９８ ：2001/07/23(月) 17:57 ID:s0yQT/QI

>>474 >>481
該当部分のルーチンが１４で消えていますので
kanri2.cgiの　１１３行目あたりに下記を追加
if($FORM{'mode'} eq "setting1") { &setting1; }
#この下3行を追加
if ($FORM{'mode'} eq "local") { &local; }
if ($FORM{'mode'} eq "yellow") { &yellow; }
if ($FORM{'mode'} eq "uerror") { &uerror; }

#１０８８行あたりに下記を追加
&jump;
}
#これより下を追加
#-----------------------------------------------------------Local
sub local {
#&CheckUser;

$localfile = "../" . $FORM{'bbs'} . "/head.txt";
open(FILE,">$localfile");
eval{flock(FILE,2);};
print FILE $FORM{'text'};
eval{flock(FILE,8);};
close(FILE);
&jump;
}

#-----------------------------------------------------------yellow
sub yellow {
#&CheckUser;

$yellow = "../" . $FORM{'bbs'} . "/log/yellow.cgi";
open(FILE,">$yellow");
eval{flock(FILE,2);};
print FILE $FORM{'text'};
eval{flock(FILE,8);};
close(FILE);
umask(0);
chmod(0600,$yellow);
}
#-----------------------------------------------------------uerror
sub uerror {
#&CheckUser;

$uerror = "../" . $FORM{'bbs'} . "/log/uerror.cgi";
open(FILE,">$uerror");
eval{flock(FILE,2);};
print FILE $FORM{'text'};
eval{flock(FILE,8);};
close(FILE);
umask(0);
chmod(0600,$uerror);
}
#-----------------------------------------------------------

該当部分のジャンプテーブルとサブルーチンが１４では消えていたので
１３のkanri.cgiより抜き出しました

211KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30