すらいむ
[E-Mail]
2000/03/06(月) 16:01:02
フリーで配布されてる、KENTさんのG-LIGHTの掲示板なんですが、
これには、過去ログの自動作成機能がついています。
ただ、この自動作成される過去ログの記事は、
下から順番に記事を読んでいかなくては成りません。
（上から、３、２、１といった具合に表示される）
これってちょっと読みづらいような気がするんですよ。
だから、自動作成される、過去ログのトコロだけを、
普通のストレートな順番（上から１、２、３といった具合）に
表示できないだろうか？と思っています。
それで、私なりに、本を調べて、
ログを記録する際、一列ごとに逆転を計ってみては？と勝手に思い、
$pst_line = reverse($pst_line);
という、のを、それらしい場所に組み込んだのですが、
エラーは出ない変わりに、何も起こりません・・・・
やはり、付け焼き刃で、Parlが出来るワキャない・・・・
ということで・・・・・（ーー；）
済みません、誰か分かる方、教えていただけませんでしょうか？
多分、以下↓の部分に何らかのソースを組み込めば、
ストレートな順番で表示できると思うのですが・・・・・
## --- 過去ログ生成
sub pastlog {
$new_flag = 0;
open(NUM,"$pastno") || &error("Can't open $pastno");
$count = <NUM>;
close(NUM);
# 過去ログのファイル名を定義
$pastfile = "$past_dir\/$count\.html";
# 過去ログがない場合、新規に自動生成する
unless(-e $pastfile) { &new_log; }
if ($new_flag == 0) {
open (DB,"$pastfile") || &error("Can't open $pastfile");
@past = <DB>;
close(DB);
}
# 規定の行数をオーバーすると、次ファイルを自動生成する
if ($#past > $log_line) { &next_log; }
$pst_line = $lines[$max-1];
$pst_line =~ s/\n//g;
($pnum,$pdate,$pname,$pemail,$plocal,$picon,$pad_icon,
$pcom,$pres,$purl,$phost,$ppw,$psub) = split(/<>/, $pst_line);
if ($subject && $psub eq "") { $psub = "無題"; }
if ($pemail) { $pname = "<a href=\"mailto\:$pemail\">$pname</a>"; }
if ($purl) { $purl = "<a href=http://$purl target=_top>http://$purl</a>"; }
# 自動リンク
if ($autolink) { &auto_link($pcom); }
$html = <<"HTML";
[$pnum] <font color=$sbj_color><b>$psub</b></font><!--T--> 投稿者：<font color=$link><b>$pname</b></font> <small> <font color=$sbj_color>[$plocal]</font> 投稿日：$pdate</small><br><blockquote>$pcom<P>$purl<P><blockquote><font color=$man_color>$pres</font></blockquote></blockquote><!--$phost--><hr>
HTML
@news = ();
foreach $line (@past) {
if ($line =~ /<!--OWARI-->/i) { last; }
push (@news,$line);
if ($line =~ /<!--HAJIME-->/i) { push (@news,"$html"); }
}
push (@news,"<!--OWARI-->\n</body></html>\n");
open(DB,">$pastfile") || &error("Can't write $pastfile");
print DB @news;
close(DB);
}## --- 過去ログ完了 --- ##