<html>
<title>frcs.alt.za</title>
<center><h1>Paul and Linda on the Web</h1></center>
<p>
<table border="0">
   <tr>
      <td width="105" rowspan="3" valign="top" align="center">
      <p>
      <b>
      Topics
      </b> <p>
      <?
	 $dirs=array("family", "running", "travels", "house", "anatolians", "landrover");
	 if (is_file ("targets.php3")):
	    include ("targets.php3");
	 endif;
	 for ($i = 0; $i < sizeof ($dirs); ++$i) {
	    printf ("<hr>");
	    if (is_file ("$dirs[$i]/index.php")) :
	       printf ("<a href=\"$dirs[$i]/index.php\">$dirs[$i]</a><br>");
	    elseif (is_file ("$dirs[$i]/index.php3")) :
	       printf ("<a href=\"$dirs[$i]/index.php3\">$dirs[$i]</a><br>");
	    elseif (is_file ("$dirs[$i]/index.html")) :
	       printf ("<a href=\"$dirs[$i]/index.html\">$dirs[$i]</a><br>");
	    endif;
	 }
      ?>
      <hr>
      </td>
      <td valign="top">
      <?
	 if (is_file ("description")):
	    readfile ("description");
	    printf ("<hr><p>");
	 endif;
      ?>
      <p>
      <center>
      <b>What's New</b><p>
      Here are the most recently changed pages.
      Click to go directly to them, or visit the topics on the left.
      <p>
      <?
	 $new = popen ("ls -t */*/index.*", "r");
	 for ($i = 0; $i < 20 && ! feof ($new); ++$i) {
	    $line = trim (fgets ($new, 1024));
	    $dir = dirname ("$line");
	    if (! is_dir ("$dir")):
	       break;
	    endif;
	    $url = str_replace (" ", "%%20", $line);
	    printf ("<a href=\"$url\">");
	    if (is_file("$dir/description")) :
	       readfile ("$dir/description");
	    elseif (is_file ("$dir/index.html")) :
	       printf ("$dir: ");
	       $title = popen ("grep -i '<title>' '$dir/index.html' | sed -e 's/.*<[tT][iI][tT][lL][eE]>//' -e 's/<.*//'", "r");
	       fpassthru ($title);
	    else :
	       printf ("$dir");
	    endif;
	    printf ("</a> <br>");
	    $info = stat ($line);
	    $updated = strftime ("%A %d %B %Y at %H:%M", $info[9]);
	    printf ("Updated on $updated");
	    printf ("<p>");
	 }
      ?>
      <p>
      <p valign="bottom">
      <?
	 if (is_file ("contacts")):
	    printf ("<hr> <p>");
	    readfile ("contacts");
	 endif;
      ?>
      </center> </td>
   </tr>
</table>



