管理人が物凄い勢いで配布するスレ

975 ：hoge ◆TUIS.pc. ：2003/01/20 15:31 ID:v8Qq84LQ: >>973-974
改造してみますた。それぞれ行数は0ch BBS ver.2003-01-18が基準です。

１．各SETTING.TXTに「JUMP_PAGE=off」を追加、onで今までどおり「書き込みが終わりました」が表示されるようになります。
２．print.plのジャンプページ出力関数905行目～の中身を
sub PrintJumpPage
{
my $this = shift;
my ($from,$mail,%SysInfo) = @_;
my $cook1,$cook2,$index;
if ($SETTING{'JUMP_PAGE'} eq 'on'){
if ($SysInfo{'AgentMode'}){
$index = "$SysInfo{'BBSRoot'}/$SysInfo{'BoardName'}/mindex.html";

printb("Content-type: text/html\n\n");
printb("\n");
printb("<html><body>\n");
printb("書き込み完了です ");
printb("<a href=\"$index\">こちら</a>");
printb("から掲示板へ戻ってください。<hr>\n");
}
else{
（つづく）
976 ：hoge ◆TUIS.pc. ：2003/01/20 15:32 ID:v8Qq84LQ: $index = "$SysInfo{'BBSRoot'}/$SysInfo{'BoardName'}/index.html";

if ($SETTING{'BBS_COOKIE'} eq 'on'){
$cook1 = $CGet->SetCookie("NAME",$from,$SETTING{'BBS_COOKIE_PATH'});
$cook2 = $CGet->SetCookie("MAIL",$mail,$SETTING{'BBS_COOKIE_PATH'});
printb("${cook1}${cook2}");
}
printb("Content-type: text/html\n\n<html><head><title>書きこみました。</title>");
printb("");
printb("<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">");
printb("<META content=5;URL=$index http-equiv=refresh></head><body>");
printb("書きこみが終わりました。 画面を切り替えるまでしばらくお待ち下さい。");
printb(" <hr>");
}
PrintBanner("",$SysInfo{'AgentMode'},$SysInfo{'Debug'},100,%SysInfo);
printb("</body></html>\n");
}else{
$index = "$SysInfo{'BBSRoot'}/$SysInfo{'BoardName'}/index.html";

if ($SETTING{'BBS_COOKIE'} eq 'on'){
$cook1 = $CGet->SetCookie("NAME",$from,$SETTING{'BBS_COOKIE_PATH'});
$cook2 = $CGet->SetCookie("MAIL",$mail,$SETTING{'BBS_COOKIE_PATH'});
printb("${cook1}${cook2}");
}
printb("location: $index\n\n");
}
}
のように書き換え。

でいけると思われ。

235KB

掲示板に戻る全部前100 次100 最新50

READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス