#!/usr/bin/perl
require "weblib.lib";
use POSIX strftime;
$ARTICLEDIR="/var/www/vhosts/trconnection.com/private/articles";
htmlopen("The Todd Rundgren Conection","All Articles");
opendir(DIR,$ARTICLEDIR);
@articles=sort grep /\.art$/,readdir(DIR);
foreach $article(@articles){
	open(ART,"$ARTICLEDIR/$article");
	@date=stat ART;
	$date=strftime("%B %e, %Y %T",localtime($date[9]));
	print "<hr>$article - $date<hr>\n";
	$article=join("",<ART>);
	$article=~s#\$HTMLPATH/##gs;
	print $article;;
}
&htmlclose;