#!/usr/local/bin/perl

use CGI;

$co = new CGI;
$basedir="/web/sufface.net";
$journaldir="$basedir/dear_friends";
$entrydir="$journaldir/entries";
%monthname= (
"01" => January,
"02" => February,
"03" => March,
"04" => April,
"05" => May,
"06" => June,
"07" => July,
"08" => August,
"09" => September,
"10" => October,
"11" => November,
"12" => December,
);

@weeks=();

print $co->header;
print $co->start_html(
	-title=>'Dear Friends',
	-author=>'Oliver Daly',
	-meta=>{'keywords'=>'Journal for Oliver Daly'},
	-BGCOLOR=>'white',
	-LINK=>'#6060f0',
	-ALINK=>'#00ff00',
	-VLINK=>'#ffb610',
	);	

print <<STUFF;

<center>
<table width="600"><tr><td>
<img src="http://sufface.net/images/dear_friends/dear_friends.jpg" align=left>
<font face="arial,helvetica" size="-1">
STUFF

if ($co->param('day')) {
	print "<table><tr><td valign=\"top\">";
	print "<P>";
	print "<font face=\"arial,helvetica\" size=\"+1\"><B>", $co->param('day'), "</B></font>";

	print "<font face=\"arial,helvetica\" size=\"-1\">";
	print "<P>";
	$guff = $co->param('day');
	$guff1= "/web/sufface.net/dear_friends/entries/$guff";
	open(FILE, "<$guff1") || die ("Cant open file");
	while (<FILE>) {
	print ;
	}
	close (FILE);
	print "<P><div align=center>";
	print "<font size=\"-3\">Disclaimer: Please excuse any poor grammar or expression.</font><br><br>";
	print "<a href=\"http://sufface.net/dear_friends/\"><<</a></div>";
	print "</td></tr></table>";
} else {

print <<STUFF1;
It is with great regret that relations have not been maintained
as perhaps they should've been. So in an attempt to rectify this,
here's an account of things Brisbane wise. 
<P>
<table border=0><tr><td valign="top">
STUFF1

#print "<ul>";

if (opendir(DIR, $entrydir)) {
	@sortentry = sort {$a <=> $b} grep (/^[0-9]/, readdir(DIR));
}

foreach $data (@sortentry) {

($d, $m, $y) = split /-/, $data;
push @{$all{$y}{$m}}, $d;
}

print "Years:<nobr> ";
foreach $year (sort keys %all) {
	print "<a href=\"\#$year\">$year</a><nobr>  "; 
}

print "</td></tr><tr><td valign=\"top\">";
foreach $year (sort keys %all) {
	print "<br>";
	print "<br>";
	print "<b><a name=\"$year\">$year</a></b>";
	print "</td></tr><tr><td valign=\"top\" height=\"100\" width=\"300\">";	
	$marker = 1;
	foreach $month (sort keys %{$all{$year}}) {
	print $monthname{$month}, ":";
		foreach $day (sort @{$all{$year}{$month}} ) {
	
		print "<a href=\"http://sufface.net/dear_friends/index.cgi?day=";
		print "$day-$month-$year";
		print "\">$day</a> ";

	$latestday = $day ;
  }
	$marker++;
 $latestmonth = $month ;
	print "<br>";
 }
$latestyear = $year ;
	print "</td></tr><tr><td>";
}

#print "</ul>";

print <<WEBRING;
</td></tr><tr><td colspan=4>
<br>
<h3>Other journal sites:</h3>
<ul>
<li><b><a href="http://www.palefella.com/antipodean/index.html">Antipodean</a></b> : <br><a href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;id=21;prev5">Previous
 5 Sites</a> 
 |
  <a
 href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;id=21;prev">Previous</a>

 |
  <a
 href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;id=21;next">Next</a>

 |
  <a
 href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;id=21;next5">Next 5
 Sites</a> 
 |
  <a href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;random">Random
 Site</a> 
 |
  <a href="http://nav.webring.org/cgi-bin/navcgi?ring=antipodean1;list">List
 Sites</a> 
 </center>
<li><a href="http://www.diarist.net/registry/"><img src="http://www.diarist.net/registry/registered.gif"></a>
</ul>
</tr></td></table>

 <p>

WEBRING
}



print <<STUFF1;
<center>
</td></tr>
<tr><td>
<center>
<font size="+1" face="helvetica,arial"><a href="http://sufface.net/">Home Sweet Home</a></font></center>
</center>
</td></tr>
</table>
STUFF1

print $co->end_html;