Automatic Index of $_SERVER[HTTP_HOST]";
?>
Below is a list of all of the photo albums and subsites in $_SERVER[HTTP_HOST]. Click on any of the titles below to browse through the photo album or subsite.";
$count = 0;
$files = array();
$titles = array();
$startdates = array();
$dates = array();
$mtimes = array();
$hDir = opendir(".");
$have_startdate = 0;
$have_date = 0;
while (($file = readdir($hDir)) !== false)
{
if ( !strncmp($file,"_", 1)
|| !strncmp($file,".", 1)
|| !is_dir($file)
|| is_link($file)
|| file_exists("$file/.htaccess"))
continue;
$filename = "$file/index.html";
if (is_readable("$file/index.html"))
{
$hFile = fopen($filename, "r");
$text = fread ($hFile, filesize($filename));
fclose($hFile);
$postext = stristr($text, "");
if (!$postext)
continue;
$postext = substr($postext, 7);
$pos = strpos($postext, "<");
if (!$pos)
continue;
$titles[$count] = substr($postext, 0, $pos);
$files[$count] = $filename;
$stat = stat("$file/index.html");
$mtimes[$count] = $stat[9];
$timetext = stristr($text, "<meta name=\"StartTime\" content=\"");
if ($timetext)
{
$have_startdate = 1;
sscanf(substr($timetext, 32, 10), "%d", $startdates[$count]);
}
else
$startdates[$count] = $mtimes[$count];
$timetext = stristr($text, "<meta name=\"Time\" content=\"");
if ($timetext)
{
$have_date = 1;
sscanf(substr($timetext, 27, 10), "%d", $dates[$count]);
}
else
$dates[$count] = $mtimes[$count];
++$count;
continue;
}
}
closedir($hDir);
if ($count)
{
if (isset($_POST['sortby']))
$sortby = $_POST['sortby'];
else
$sortby = "time";
print "\n<form method=\"POST\" action=\"$_SERVER[PHP_SELF]\">\n";
print "<table>\n";
$checked = ($sortby == "title") ? "checked" : "";
print "<tr><td><font face=\"comic sans ms,arial,helvetica\">Listed in order of:</font></td><td><font face=\"comic sans ms,arial,helvetica\"><input type=\"radio\" name=\"sortby\" value=\"title\" $checked>Title ";
$checked = ($sortby == "time") ? "checked" : "";
print "<input type=\"radio\" name=\"sortby\" value=\"time\" $checked>Most recent first ";
print "<input type=\"submit\" value=\"Update\">\n</font></td></tr>";
print "</font></table>\n";
print "</form>\n";
print "<table>\n";
switch ($sortby)
{
case "title":
uasort($titles, "strnatcasecmp");
$keys = array_keys($titles);
break;
case "time":
arsort($dates);
$keys = array_keys($dates);
break;
}
print "<tr>\n";
print " <td><font face=\"comic sans ms,arial,helvetica\"><b>Album/Subsite</b></font></td>";
if ($have_startdate)
print " <td><font face=\"comic sans ms,arial,helvetica\"><b>Start Date</b></font></td>";
if ($have_date)
print " <td><font face=\"comic sans ms,arial,helvetica\"><b>End Date</b></font></td>";
print " <td><font face=\"comic sans ms,arial,helvetica\"><b>Last Update</b></font></td>";
print "</tr>\n";
if (strftime("%e", 0) == "")
$fmt = "%B %d, %Y";
else
$fmt = "%B %e, %Y";
foreach ($keys as $i)
{
print "<tr>\n";
print " <td><font face=\"comic sans ms,arial,helvetica\"><a href=\"$files[$i]\">$titles[$i]</a> </font></td>";
if ($have_startdate)
{
if ($mtimes[$i] != $startdates[$i])
print " <td><font face=\"comic sans ms,arial,helvetica\">" . strftime($fmt, $startdates[$i]) ." </font></td>";
else
print " <td></td>";
}
if ($have_date)
{
if ($mtimes[$i] != $dates[$i])
print " <td><font face=\"comic sans ms,arial,helvetica\">" . strftime($fmt, $dates[$i]) ." </font></td>";
else
print " <td></td>";
}
print " <td><font face=\"comic sans ms,arial,helvetica\">" . strftime($fmt, $mtimes[$i]) ." </font></td>";
print "</tr>\n";
}
print "</table>\n";
}
else
{
print "<p>No subsites found.</p>\n";
}
print "</table>\n";
?>
</ul></ul>
</body>
</html>