Last post in BoardIndex 1.2 < br> As well as listing the last poster and time of the last post on each forum with the Forum 'Last Post' information on the Board Index, this mod displays the title of that last post, and a link to it. Pretty much the only mod in the known world that doesn't edit the english.lng file- multi-lingual! There is no 'turn-on turn-off' feature in the Admin panel because chancea are you have enough of those type buttons in the admin panel, and if you don't like the mod UNINSTALL IT instead! Long thread names are truncated Compatible with: MBCO2 Board Index mouseover mod ...and most other board Index mods Instant IM Alex Howell http://www.smile-jesuslovesyou.org/forum ; Sources/Display.pl # Load the membergroups list. #Mark current board as read (following quick link mod) &dumplog($currentboard); Sources/BoardIndex.pl ( $threadcount, $messagecount, $lastposttime, $lastposter ) = &BoardCountGet($curboard); ( $threadcount, $messagecount, $lastposttime, $lastposter, $lastpostid ) = &BoardCountGet($curboard); $threadcount{$curboard} = $threadcount || 0; $lastpostid{$curboard} = $lastpostid; $yymain .= qq~ $new #### fopen(FILE,"$datadir/$lastpostid.txt"); @thread = ; fclose(FILE); ($lastpostname, $trash, $trash, $trash, $trash, $trash, $trash, $trash, $trash) = split( /\|/, $thread[0] ); if(length($lastpostname) > 25) { $lastpostname = substr($lastpostname, 0, 23); $lastpostname = "$lastpostname..."; } $lploc = @thread; #### $lastposttime{$curboard}
$txt{'525'} $lastposter $lastpostname
$lastposttime{$curboard}
$txt{'525'} $lastposter Sources/Post.pl $myname = $username eq 'Guest' ? qq~Guest-$name~ : $username; &BoardCountSet( $currentboard, $threadcount, $messagecount, $date, $myname, $thread ); $myname = $username eq 'Guest' ? qq~Guest-$name~ : $username; &BoardCountSet( $currentboard, $threadcount, $messagecount, $date, $myname ); Sources/Subs.pl sub BoardCountSet { my ( $curboard, $threadcount, $messagecount, $lastposttime, $lastposter ) = @_; sub BoardCountSet { my ( $curboard, $threadcount, $messagecount, $lastposttime, $lastposter, $lastpostedthreadid ) = @_; print FILEBOARDSET qq~$threadcount|$messagecount|$lastposttime|$lastposter~; < /search for> print FILEBOARDSET qq~$threadcount|$messagecount|$lastposttime|$lastposter|$lastpostedthreadid~; fopen(FILEBTTL, "+>$boardsdir/$curboard.ttl"); print FILEBTTL qq~$threadcount|$messagecount|$lastposttime|$lastposter~; fclose(FILEBTTL); &BoardCatsMake; if( wantarray() ) { return ( $threadcount, $messagecount, $lastposttime, $lastposter ); } fopen(FILEBTTL, "+>$boardsdir/$curboard.ttl"); print FILEBTTL qq~$threadcount|$messagecount|$lastposttime|$lastposter|$postid~; fclose(FILEBTTL); &BoardCatsMake; if( wantarray() ) { return ( $threadcount, $messagecount, $lastposttime, $lastposter, $lastpostid ); }