#!/usr/bin/perl -w

use strict;
use HTTP::Date;

print "Content-type: text/html\n\n";

my %ref;

my $boarddir = './yabb/Boards';
my $boardurl = '/cgi-bin/yabb/YaBB.pl';

opendir(my $dir, $boarddir) or die("Cannot open Boards directory $!");
my @files = grep(/\.txt\Z/, readdir($dir));
closedir($dir);

my @months = qw( Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec );

my $file;
my $time;
foreach $file (@files){
    open(my $fh, "$boarddir/$file") or die("Cannot open File $!");
    flock($fh, 4);
    
    while(<$fh>){
        my ($id, $name, $user, $email, $datetime) = split(/\|/, $_);
        if($datetime =~ m#(\d+)/(\d+)/(\d+) at (\d\d:\d\d:\d\d)#){
            my $num = $1;
            $num--;
            my $month = $months[$num];
            $time = "$2 $month $3 $4 GMT";
            $datetime = str2time($time);
            my $board;
            if($file =~ /(\w+)\./){
                $board = $1;
            }
            $ref{$datetime} = ({
                'time' => $time,
                'num' => $id,
                'board' => $board,
                'description' => $name,
                });
        }
    }
    close($fh);
}

foreach(sort {$b <=> $a} keys %ref){
    my %link = %{ $ref{$_} };

    print qq[<div id="lastmbpost"><a href="$boardurl?board=$link{board
+};action=display;num=$link{num};start=1">$link{description}</a><br />
+was updated on $link{time}</div>];

    last;
}

[download]

In reply to Display most recent post to a YaBB forum by newrisedesigns

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.