Hi,
das ist ein Auszug aus einem Script meines Forums. Dieser Teil des Scriptes schreibt alle neuen Beiträge als link in die Index-Seite des Forums. Was muß eingefügt werden, damit alle neuen Beiträge fett gedruckt werden, nicht aber die replies??
Neue Beiträge (fett)
replies (nicht fett)
replies (nicht fett)
Put a link on the forum page
open (FILE, "$path/$FORM{'forum'}");
@lines = <FILE>;
close(FILE);
open (FILE, ">$path/$FORM{'forum'}");
foreach $line(@lines) {
print FILE "$line";
if (($FORM{'reply'} eq "no" && substr($line,0,14) eq "<!-- begin -->") ($FORM{'reply'} ne "no" && $line =~ /<li>.*<a href="$posturl/$replies[$#replies - 1].html">/)) {
print FILE "<li>$icon";
print FILE "<a href="$posturl/$message_num.html">$FORM{'subject'}</a> <font size=-1><i>von $FORM{'name'}, $date, $time </i></font>";
print FILE "<ul>\n";
print FILE "</ul><!-- <a href="$posturl/$message_num.html"> -->\n";
}
}
close(FILE);