Last Poster 1.0 Displays last poster within a board on the Board Index underneath the date of last post and displays last poster in a topic underneath topics last post date. KEEPS the "Views" list Also corrects typo in MessageIndex.pl from valing to valign. ;) Modified from Matt Mecham's YaBB v1.1.1.1 build 8 Last poster, and Thread views hack DaveB http://www.davesworldzone.com Sources\Post.pl sub doaddition { $filetoopen = "$thread" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $views = ; &unlock(FILE2); close(FILE2); $filetoopen = "$thread" . ".data"; open(FILE2, "+>$datadir/$filetoopen"); &lock(FILE2); print FILE2 "$views"; &unlock(FILE2); close(FILE2); } sub doaddition { open(FILE, "+>$boardsdir/$currentboard.poster"); &lock(FILE); print FILE $name; &unlock(FILE); close(FILE); $filetoopen = "$thread" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $tempinfo = ; &unlock(FILE2); close(FILE2); ($views, $lastposter) = split(/\|/,$tempinfo); $filetoopen = "$thread" . ".data"; open(FILE2, "+>$datadir/$filetoopen"); &lock(FILE2); print FILE2 "$views|$name"; &unlock(FILE2); close(FILE2); } Sources\MessageIndex.pl $filetoopen = "$mnum[$b]" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $views = ; &unlock(FILE2); close(FILE2); if ($views eq "") { $views = "0"; } $filetoopen = "$mnum[$b]" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $tempinfo = ; &unlock(FILE2); close(FILE2); ($views, $lastposter) = split(/\|/,$tempinfo); if ($lastposter eq "") { $lastposter = "N/A"; } if ($views eq "") { $views = "0"; } $msub[$b] $new $pages $mname[$b] $mreplies[$b] $views $mdate[$b] $msub[$b] $new $pages $mname[$b] $mreplies[$b] $views $mdate[$b]
by $lastposter Sources\Display.pl $filetoopen = "$viewnum" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $views = ; &unlock(FILE2); close(FILE2); $views++; $filetoopen = "$viewnum" . ".data"; open(FILE2, "+>$datadir/$filetoopen"); &lock(FILE2); print FILE2 "$views"; &unlock(FILE2); close(FILE2); $filetoopen = "$viewnum" . ".data"; open(FILE2, "$datadir/$filetoopen"); &lock(FILE2); $tempinfo = ; &unlock(FILE2); close(FILE2); ($views, $lastposter) = split(/\|/,$tempinfo); $views++; $filetoopen = "$viewnum" . ".data"; open(FILE2, "+>$datadir/$filetoopen"); &lock(FILE2); print FILE2 "$views|$lastposter"; &unlock(FILE2); close(FILE2); Sources\Boardindex.pl print <<"EOT"; $new $curboardname
# open up the last poster open(POSTER, "$boardsdir/$curboard.poster"); &lock(POSTER); $lastposter = ; &unlock(POSTER); close(POSTER); if ($lastposter eq "") { $lastposter = "N/A"; } else { $lastposter = "$lastposter"; } $lp $lp
by $lastposter