#!/usr/bin/perl -w


use CGI qw(:standard);


$featurememe = -e "m.up";
$featureecon = -e "e.up";
$featurepict = -e "p.up";
$featureword = -e "w.up";



open(MEMES, "../memesblog.html");

while(($memeln = <MEMES>) && !$memesdate)
{
next unless $memeln =~ /\"date-header\".+, (.+, .+)\</;
$memesdate = $1;
}

open(PICTURES, "../photoblog/index.html");

while(($photoln = <PICTURES>) && !$photodate)
{
next unless $photoln =~ /\"date-header\".+, (.+, .+)\</;
$photodate = $1;
}

while(<MEMES>)
{
next unless /\"post-title\">/;
$ln1 = <MEMES>;
$ln2 = <MEMES>;
chop($ln2);
chop($ln2);
$latestmeme = "<b>Latest in Memes ($memesdate): <a target=\"_top\" href=\"memesblog.html\">". $ln2."</a></b><br>\n";
close(MEMES);
}
close(MEMES);

while(<PICTURES>)
{
next unless /\"post-title\">/;
$ln1 = <PICTURES>;
$ln2 = <PICTURES>;
chop($ln2);
chop($ln2);
$latestpict = "<b>Latest in Photos ($photodate): <a target=\"_top\" href=\"photoblog/index.html\">". $ln2."</a></b><br>\n";
close(PICTURES);
}

close(PICTURES);



print header;
	print $latestmeme if $featurememe;
	print "\n" if !$featurememe;
	print $latestpict if $featurepict;
	print "\n" if !$featurepict;

	print ".";