if ($SETTING{'BBS_KANBAN'} ne ""){ if ($SETTING{'BBS_TITLE_LINK'} ne ""){ printb("<a href=\"$SETTING{'BBS_TITLE_LINK'}\">"); } printb("<img src=\"$SETTING{'BBS_KANBAN'}\" border=0 /></a><br><br>"); }
↓
if ($SETTING{'BBS_KANBAN'} ne ""){ if ($SETTING{'BBS_TITLE_LINK'} ne ""){ printb("<a href=\"$SETTING{'BBS_TITLE_LINK'}\">"); printb("<img src=\"$SETTING{'BBS_KANBAN'}\" border=0></a><br><br>"); } printb("<img src=\"$SETTING{'BBS_KANBAN'}\" border=0><br><br>"); }
bbs.cgiがいんたアナルさーばーエラー起こすじゃないかこのやらう。 で、アパチのログを見ると、 Premature end of script headers: bbs.cgi Can't locate object method "InitinalBBSSystem" via package "new BBSSystem"(perhaps you forgot to load "new BBSSystem"?) at /***/bbs/test/bbs.cgi line 33. ってなってるんですよね。。。 多分、perlは$CBbs、InitinalBBSSystemなのか、new BBSSystemなのかはっきりしろ、とか言いたいんでせうけど・・・。