#!/usr/bin/perl -i

# bloglet
# by Moss Collum
#
# A tiny utility for updating a weblog-type-thing
# If you want one of your own, start out with the bloglet-template.html file.
#
print "Oh weblogging random, enter your words of wisdom and hit return:\n";
$entry=<STDIN>;
$date=`date "+<nobr>%A %e %B %G,</nobr><br><nobr> %r</nobr>"`;
while (<>) {
	print;
	chomp;
	if ($_ eq '<!--HERE-->') {
		print <<HTML;
<tr>
<td align=left bgcolor=#cccccc width=150>
<font face="verdana,arial,geneva,helvetica" size=-2>
$entry
<br>
<i>
$date
</i>
</font>
</td>
</tr>
<tr>
<td align=center bgcolor=#ffffff>
<hr size=5 width=5 align=center>
</td>
</tr>
HTML
	}
}