#!/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;
}
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|