■掲示板に戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 最新50 [PR]ぜろちゃんねるプラス[PR]  
レス数が1000を超えています。残念ながら全部は表示しません。

ぜろちゃんねるスクリプトを改造するスレ

698 :名無しさん@ぜろちゃんねる:2006/07/23(日) 16:16:31 ID:???0
>>679
ちょっとやってみた。

read.cgiに以下を追加

sub PrintDiscovery
{
my ($Sys,$Page) = @_;
my ($spath,$lpath,$key,$kh);

$spath = $Sys->{'SYS'}->Get('BBSPATH') . '/' . $Sys->{'SYS'}->Get('BBS');
$lpath = $Sys->{'SYS'}->Get('SERVER') . '/' . $Sys->{'SYS'}->Get('BBS');
$key = $Sys->{'SYS'}->Get('KEY');
$kh = substr($key,0,3);

if (-e "$spath/kako/$kh/$key.html"){ # 過去ログにあり
PrintReadHeadB($Sys,$Page);
$Page->Print("隊長!過去ログ倉庫に<a href=\"$lpath/kako/$kh/$key.html\">");
$Page->Print("$key.html</a><br>を発見しました!<br>");
}
elsif (-e "$spath/pool/$key.cgi"){ # poolにあり
PrintReadHeadB($Sys,$Page);
$Page->Print("$key.datはhtml化を待っています<br>");
$Page->Print('ここは待つしかない・・・<br>');
}
else{ # どこにもない
return 0;
}

$Page->Print("</dl><hr><div align=right>" . $Sys->{'SYS'}->Get('VERSION'));
$Page->Print("</div></body></html>\n");
return 1;
}

↓つづく

699 :名無しさん@ぜろちゃんねる:2006/07/23(日) 16:39:31 ID:???0
↓つづき

sub PrintReadHeadB
{
my ($Sys,$Page) = @_;
my ($Caption,$Banner,$code,$title,$sbcol,$nmcol,$ver,$pathBBS);

require('./module/legolas.pl');
require('./module/denethor.pl');
$Caption = new LEGOLAS;
$Banner = new DENETHOR;

$Caption->Load($Sys->{'SYS'},'META');
$Banner->Load($Sys->{'SYS'});

$code = $Sys->{'CODE'};
$title = 'そんな板orスレッドないです';

# HTMLヘッダの出力
$Page->Print("Content-type: text/html\n\n");
$Page->Print('<html><head><title>' . $title . '</title>');
$Page->Print('<meta http-equiv=Content-Type content="');
$Page->Print('text/html;charset=' . $code . '">');
$Caption->Print($Page,undef);
$Page->Print('</head><!--nobanner-->');

# <body>タグ出力
{
my @work;
$work[0] = $Sys->{'SET'}->Get('BBS_THREAD_COLOR');
$work[1] = $Sys->{'SET'}->Get('BBS_TEXT_COLOR');
$work[2] = $Sys->{'SET'}->Get('BBS_LINK_COLOR');
$work[3] = $Sys->{'SET'}->Get('BBS_ALINK_COLOR');
$work[4] = $Sys->{'SET'}->Get('BBS_VLINK_COLOR');
$Page->Print("<body bgcolor=$work[0] text=$work[1] link=$work[2] ");
$Page->Print("alink=$work[3] vlink=$work[4]>\n");
}
# バナー出力
$Banner->Print($Page,100,2,0);

$sbcol = $Sys->{'SET'}->Get('BBS_SUBJECT_COLOR');
$nmcol = $Sys->{'SET'}->Get('BBS_NAME_COLOR');
$ver = $Sys->{'SYS'}->Get('VERSION');

$pathBBS = $Sys->{'SYS'}->Get('SERVER') . '/' . $Sys->{'SYS'}->Get('BBS');

$Page->Print("<a href=\"$pathBBS/\">■掲示板に戻る■</a><br><br>\n");
$Page->Print("<font color=$sbcol size=+1>そんな板orスレッドないです</font>");
$Page->Print("<br><dl><dt>1 名前:");
$Page->Print("<font color=$nmcol><b>$ver</b></font>");
$Page->Print('投稿日:<br><dd>そんな板orスレッドないです</dd></dt></dl>');
$Page->Print("<br><br><br><hr>\n");

$Page->Print('<br><br>');
}

↓つづく

700 :名無しさん@ぜろちゃんねる:2006/07/23(日) 16:42:47 ID:???0
↓つづき

sub PrintReadSearch 内

my ($Sys,$Page) = @_;

my ($Sys,$Page) = @_;
if (PrintDiscovery($Sys,$Page)){ return; }


/logにも/poolにも無ければ2000000000.datを表示。
既存の部分との重複が多くてちょっと無駄があるけど。

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