■掲示板に戻る■
全部
1-
101-
201-
301-
401-
501-
601-
701-
801-
最新50
[PR]
ぜろちゃんねるプラス
[PR]
不具合報告スレ
52 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:11 ID:???
>>2-14
を含む修正
test030118\bbs.pl
299: $CPrint->Printb("<html><head><title>$SETTING{'BBS_SUBJECT'}</title>\n");
300: $CPrint->Printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n");
301: $CPrint->Printb("<body bgcolor=\"$SETTING{'BG_COLOR_THREAD'}\"
text=\"$SETTING{'TEXT_COLOR_BASE'}\"");
test030118-fix\bbs.pl
299: $CPrint->Printb("<html><head><title>$SETTING{'BBS_SUBJECT'}</title>\n");
変更 300: $CPrint->Printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n");
301: $CPrint->Printb("<body bgcolor=\"$SETTING{'BG_COLOR_THREAD'}\"
text=\"$SETTING{'TEXT_COLOR_BASE'}\"");
53 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:12 ID:???
test030118\admin.cgi
536: ($name,$mail,$date,$msg,$dmy) = split(/<>/,$_);
537: print KAKO "<a name=$num></a><dt>$num 名前：<b>";
538: if ($mail eq ""){ print KAKO "<font color=
$Setting{'TEXT_COLOR_NAME'}>$name</font>"; }
539: else{ print KAKO "<a href=\"mailto:$mail\">$name</a>"; }
540: $msg =~ s{>>(\d+)}{<a href=#$1>>>$1</a>}g; # 引用 n
541: print KAKO "</b> ：$date<br><dd>$msg<br><br></dd></dt>\n";
542: $num++;
test030118-fix\admin.cgi
536: ($name,$mail,$date,$msg,$dmy) = split(/<>/,$_);
変更 537: print KAKO "<a name=$num></a><dt>$num 名前：";
変更 538: if ($mail eq ""){ print KAKO "<font color=
$Setting{'TEXT_COLOR_NAME'}><b>$name </b></font>"; }
変更 539: else{ print KAKO "<a href=\"mailto:$mail\"><b>$name </b></a>"; }
540: $msg =~ s{>>(\d+)}{<a href=#$1>>>$1</a>}g; # 引用 n
変更 541: print KAKO "：$date</dt><br><dd>$msg<br><br></dd>\n";
542: $num++;
54 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:13 ID:???
test030118\admin.cgi
1541: print "<html><head><title>$ttl</title>\n";
1542: print "<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n";
1543: print "<body bgcolor=#efefef text=black link=blue alink=red vlink=#aa0088><center>\n";
test030118-fix\admin.cgi
1541: print "<html><head><title>$ttl</title>\n";
変更 1542: print "<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n";
1543: print "<body bgcolor=#efefef text=black link=blue alink=red vlink=#aa0088><center>\n";
55 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:14 ID:???
test030118\bbs.pl
299: $CPrint->Printb("<html><head><title>$SETTING{'BBS_SUBJECT'}</title>\n");
300: $CPrint->Printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n");
301: $CPrint->Printb("<body bgcolor=\"$SETTING{'BG_COLOR_THREAD'}\"
text=\"$SETTING{'TEXT_COLOR_BASE'}\"");
test030118-fix\bbs.pl
299: $CPrint->Printb("<html><head><title>$SETTING{'BBS_SUBJECT'}</title>\n");
変更 300: $CPrint->Printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n");
301: $CPrint->Printb("<body bgcolor=\"$SETTING{'BG_COLOR_THREAD'}\"
text=\"$SETTING{'TEXT_COLOR_BASE'}\"");
56 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:15 ID:???
test030118\bbs.pl
505: $name =~ s/★/☆/g; # 偽キャップ
506: $name =~ s/fusianasan/ <\/b>$host<b> /g; # fusianasan
507: $name = $CGetData->GetTrip($name,$SETTING{'BBS_TRIP_COLUMN'}); # トリップ
test030118-fix\bbs.pl
505: $name =~ s/★/☆/g; # 偽キャップ
変更 506: if (index($name,'fusianasan') eq '0'){
変更 507: $name =~ s/fusianasan/<\/b>$host <b>/g; # fusianasan
変更 508: }else{
変更 509: $name =~ s/fusianasan/ <\/b>$host <b>/g; # fusianasan
変更 510: }
511: $name = $CGetData->GetTrip($name,$SETTING{'BBS_TRIP_COLUMN'}); # トリップ
57 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:15 ID:???
test030118\getdata.pl
223: $k = substr($name,index($name,'#')+1);
224: $s = substr(substr($k,0,8).'H.', 1, 2);
test030118-fix\getdata.pl
223: $k = substr($name,index($name,'#')+1);
変更 224: $n = substr($name,0,index($name,'#'));
225: $s = substr(substr($k,0,8).'H.', 1, 2);
58 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:16 ID:???
test030118\getdata.pl
227: $t = substr(crypt($k, $s), $m);
228: $name =~ s/#(\S+)/<\/b> ◆$t <b>/g;
229:}
test030118-fix\getdata.pl
228: $t = substr(crypt($k, $s), $m);
変更 229: if ($n ne ""){
変更 230: $name = "$n <\/b>◆$t<b>";
変更 231: }else{
変更 232: $name = "<\/b>◆$t<b>";
変更 233: }
234:}
59 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:16 ID:???
test030118\getdata.pl
258: if ($cr eq $bbs || $cr eq ''){ # 板での権限があるか
259: if ($bn ne ""){ $nm = "$nm＠$cn ★"; } # 名前と結合
260: else{ $nm = "$cn ★"; } # キャップを名前に
261: }
test030118-fix\getdata.pl
263: if ($cr eq $bbs || $cr eq ''){ # 板での権限があるか
変更 264: if ($bn ne ""){ $nm = "$nm＠$cn ★ "; } # 名前と結合
変更 265: else{ $nm = "$cn ★ "; } # キャップを名前に
266: }
60 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:18 ID:???
test030118\print.pl
79: printb("<html><head><title>$SETTING{'BBS_NAME'}</title>");
80: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\">\n");
81: printb("</head><body background=\"$SysInfo{'BBSRoot'}/
$SysInfo{'BoardName'}/$SETTING{'BBS_BACKGROUND'}\" ");
test030118-fix\print.pl
79: printb("<html><head><title>$SETTING{'BBS_NAME'}</title>");
変更 80: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\">\n");
81: printb("</head><body background=\"$SysInfo{'BBSRoot'}/
$SysInfo{'BoardName'}/$SETTING{'BBS_BACKGROUND'}\" ");
61 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:19 ID:???
test030118\print.pl
85: printb("<center><img src=\"$SysInfo{'BBSRoot'}/$SysInfo{'BoardName'}/
$SETTING{'BBS_KANBAN'}\" /><br><br>\n");
86: printb("<table border=1 cellspacing=7 cellpadding=3 width=95% ");
test030118-fix\print.pl
変更 85: printb("<center>\n");
追加 86: if ($SETTING{'BBS_KANBAN'} ne ""){
追加 87: if ($SETTING{'BBS_TITLE_LINK'} ne ""){
追加 88: printb("<a href=\"$SETTING{'BBS_TITLE_LINK'}\">");
追加 89: printb("<img src=\"$SETTING{'BBS_KANBAN'}\" border=0></a><br><br>\n");
追加 90: }else{
追加 91: printb("<img src=\"$SETTING{'BBS_KANBAN'}\" border=0><br><br>\n");
追加 92: }
追加 93: }
94: printb("<table border=1 cellspacing=7 cellpadding=3 width=95% ");
62 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:20 ID:???
test030118\print.pl
109: printb("</form></center>$SysInfo{'CgiVersion'}</td></tr></table>");
110: printb("</body></html>\n");
111:}
test030118-fix\print.pl
117: printb("</form></center>$SysInfo{'CgiVersion'}</td></tr></table>");
変更 118: printb("</center></body></html>\n");
119:}
test030118\print.pl
131: printb("<html>\n<head>\n");
132: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=x-sjis\">\n");
133: printb("<TITLE>$SETTING{'BBS_NAME'}</TITLE>\n<!--nobanner-->");
test030118-fix\print.pl
139: printb("<html>\n<head>\n");
変更 140: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\">\n");
141: printb("<TITLE>$SETTING{'BBS_NAME'}</TITLE>\n<!--nobanner-->");
63 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:22 ID:???
test030118\print.pl
179: }
180: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\">\n");
181: printb("</head><body background=\"$SETTING{'BBS_BACKGROUND'}\"
alink=$SETTING{'TEXT_COLOR_ALINK'} ");
test030118-fix\print.pl
187: }
変更 188: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\">\n");
189: printb("</head><body background=\"$SETTING{'BBS_BACKGROUND'}\"
alink=$SETTING{'TEXT_COLOR_ALINK'} ");
test030118\print.pl
187: printb("<a href=\"$SETTING{'BBS_TITLE_LINK'}\">");
188: }
189: printb("<img src=\"$SETTING{'BBS_KANBAN'}\"
border=0 /></a><br><br>");
190: }
test030118-fix\print.pl
195: printb("<a href=\"$SETTING{'BBS_TITLE_LINK'}\">");
変更 196: printb("<img src=\"$SETTING{'BBS_KANBAN'}\"
border=0></a><br><br>\n");
変更 197: }else{
変更 198: printb("<img src=\"$SETTING{'BBS_KANBAN'}\"
border=0><br><br>\n");
変更 199: }
200: }
64 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:25 ID:???
test030118\print.pl
294: printb("<a href=\"#top\">板トップ</a> ");
295: printb("<a href=\"$SysInfo{'BoardRoot'}/
$SysInfo{'BoardName'}/index.html\">リロード</a>\n");
296: printb("</dl></td></tr></table></td></tr></ul></form>
</table><br>\n");
297: $i ++;
test030118-fix\print.pl
304: printb("<a href=\"#top\">板トップ</a> ");
変更 305: printb("<a href=\"$SysInfo{'BoardRoot'}/
$SysInfo{'BoardName'}/index.html\">リロード</a></b>\n");
変更 306: printb("</ul></form></dl></td></tr></table>
</td></tr></table><br>\n");
307: $i ++;
test030118\print.pl
335: printb("</form></center>$SysInfo{'CgiVersion'}</td></tr></table>");
336: printb("</body></html>\n");
337:}
test030118-fix\print.pl
345: printb("</form></center>$SysInfo{'CgiVersion'}</td></tr></table>");
変更 346: printb("</center></body></html>\n");
347:}
65 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:25 ID:???
test030118\print.pl
407: $tl = $CGet->GetTextLine($text); # メッセージの改行数取得
408: printb("<dt>$num 名前：<b>");
409: if ($mail eq ""){ # メール欄無し
test030118-fix\print.pl
417: $tl = $CGet->GetTextLine($text); # メッセージの改行数取得
変更 418: printb("<dt>$num 名前：");
419: if ($mail eq ""){ # メール欄無し
test030118\print.pl
409: if ($mail eq ""){ # メール欄無し
410: printb("<font color=$SETTING{'TEXT_COLOR_NAME'}>$name</font>");
411: }
test030118-fix\print.pl
419: if ($mail eq ""){ # メール欄無し
変更 420: printb("<font color=$SETTING{'TEXT_COLOR_NAME'}><b>$name </b></font>");
421: }
66 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:26 ID:???
test030118\print.pl
412: else{ # メール欄あり
413: printb("<a href=\"mailto:$mail\">$name</a>");
414: }
415: if ($mode || $tl <= $SETTING{'LIMIT_DISP_LINE'}){ # 指定表示時・表示限界内なら
416: printb("</b> ：$date<br><dd>$text<br><br></dd></dt>\n");
417: }
418:else{ # 表示限界を超える
419: @dispBuff = split(/<br>|<BR>/,$text);
420: printb("</b> ：$date<br><dd>");
421: for ($k = 0;$k < $SETTING{'LIMIT_DISP_LINE'};$k++){ # 表示限界までループ
test030118-fix\print.pl
422: else{ # メール欄あり
変更 423: printb("<a href=\"mailto:$mail\"><b>$name </b></a>");
424: }
425: if ($mode || $tl <= $SETTING{'LIMIT_DISP_LINE'}){ # 指定表示時・表示限界内なら
変更 426: printb("：$date</dt><br><dd>$text<br><br></dd>\n");
427: }
428:else{ # 表示限界を超える
429: @dispBuff = split(/<br>|<BR>/,$text);
変更 430: printb("：$date</dt><br><dd>");
431: for ($k = 0;$k < $SETTING{'LIMIT_DISP_LINE'};$k++){ # 表示限界までループ
67 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:28 ID:???
test030118\print.pl
425: printb("<a href=\"$SysInfo{'CgiRoot'}/read.cgi/
$SETTING{'BBS_PATH'}/$key/${num}n\"");
426: printb(" target=_blank>こちら</a>を押してください）</font>
<br><br></dd></dt>\n");
427: }
test030118-fix\print.pl
435: printb("<a href=\"$SysInfo{'CgiRoot'}/read.cgi/
$SETTING{'BBS_PATH'}/$key/${num}n\"");
変更 436: printb(" target=_blank>こちら</a>を押してください）</font>
<br><br></dd>\n");
437: }
test030118\print.pl
464: printb("<html><head><title>スレッド作成</title>\n");
465: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n");
466:
test030118-fix\print.pl
474: printb("<html><head><title>スレッド作成</title>\n");
変更 475: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n");
476:
68 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:30 ID:???
test030118\print.pl
476: printb("<textarea rows=6 cols=70 wrap=off name=\"MESSAGE\">
</textarea></td></tr></table>\n");
477: printb("</form></body></html>");
478:}
test030118-fix\print.pl
486: printb("<textarea rows=6 cols=70 wrap=off name=\"MESSAGE\">
</textarea></td></tr></table>\n");
変更 487: printb("</form></center></body></html>");
488:}
test030118\print.pl
498: printb("<html><head><title>$pTitle</title>\n");
499: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n");
500:
test030118-fix\print.pl
508: printb("<html><head><title>$pTitle</title>\n");
変更 509: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n");
510:
69 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:32 ID:???
test030118\print.pl
740: printb("<hr><a href=\"$SysInfo{'CgiRoot'}/
subbbs.cgi?bbs=$SysInfo{'BoardName'}\">");
741: printb("スレッド作成</a><hr></body></html>\n");
742:}
test030118-fix\print.pl
750: printb("<hr><a href=\"$SysInfo{'CgiRoot'}/
subbbs.cgi?bbs=$SysInfo{'BoardName'}\">");
変更 751: printb("スレッド作成</a><hr></center></body></html>\n");
752:}
test030118\print.pl
760: printb("<html><head><title>そんな板orスレッドないです</title>\n");
761: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=sjis\"></head>\n");
762: printb("<body bgcolor=$SETTING{'BG_COLOR_THREAD'}>");
test030118-fix\print.pl
770: printb("<html><head><title>そんな板orスレッドないです</title>\n");
変更 771: printb("<meta http-equiv=\"Content-Type\"
content=\"text/html; charset=Shift_JIS\"></head>\n");
772: printb("<body bgcolor=$SETTING{'BG_COLOR_THREAD'}>");
70 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:34 ID:???
test030118\print.pl
764: printb("<dl><dt>1 名前：<b><font color=
$SETTING{'TEXT_COLOR_NAME'}>$SysInfo{'CgiVersion'}");
765: printb("</font></b>投稿日：<br>\n<dd>そんな板orスレッドないです</dd>
</dt></dl><br><br>\n");
766: PrintBanner("",$SysInfo{'AgentMode'},$SysInfo{'Debug'},100,%SysInfo);
test030118-fix\print.pl
774: printb("<dl><dt>1 名前：<b><font color=
$SETTING{'TEXT_COLOR_NAME'}>$SysInfo{'CgiVersion'}");
変更 775: printb("</font></b>投稿日：</dt><br>\n<dd>そんな板orスレッドないです</dd>
</dl><br><br>\n");
776: PrintBanner("",$SysInfo{'AgentMode'},$SysInfo{'Debug'},100,%SysInfo);
test030118\print.pl
853: if ($ml eq ""){
854: printb("$n 名前：<b><font color=
$SETTING{'TEXT_COLOR_NAME'}>$nm</font>");
855: }
test030118-fix\print.pl
863: if ($ml eq ""){
変更 864: printb("$n 名前：<b><font color=
$SETTING{'TEXT_COLOR_NAME'}>$nm </font>");
865: }
71 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:34 ID:???
test030118\print.pl
856: else{
857: printb("$n 名前：<b><a href=\"mailto:$ml\">$nm</a>");
858: }
859: printb("</b> ：$dt<br><dd>$txt<br><br></dd></dt>\n");
860: }
test030118-fix\print.pl
866: else{
変更 867: printb("$n 名前：<b><a href=\"mailto:$ml\">$nm </a>");
868: }
変更 869: printb("</b>：$dt</dt><br><dd>$txt<br><br></dd>\n");
870: }
72 ：
名無しさん＠０ちゃんねる
：2003/01/30 23:43 ID:???
>>52-71
（
>>2-14
を含むけど変更あるかもなので、こっちが最終 ）
名前、トリップ、fusianasan、キャップを単独、あるいは組み合わせても
２ちゃんと同じになるようにした（つもり）
245KB
続きを読む
掲示板に戻る
全部
前100
次100
最新50
名前：
E-mail
（省略可）
：
READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス