#include <infodrom.style>
#include <quote.style>

<page title="Infodrom Oldenburg - Mail-Archive">

<p><colorbox bgcolor=<box-blue>>
<font size=+1 color=ffffff><b>Mail Archive<?
  if (strlen ($list) > 0 && is_dir ($list)) {
    echo " - $list";
  }
?></b></font>
</colorbox>

<ul>
<?
  /*
    ACHTUNG: - Kein Support für ausgeschriebenen Namen der Liste
             - Kein Support für Liste ohne Unterverzeichnisse 1999, 2000 etc.
  */

  function get_months ($dirname)
  {
    $dir = dir ($dirname);
    $months = array ();

    while ($dentry = $dir->read()) {
      if ($dentry == "." || $dentry == "..") continue;
      if (is_dir ("$dirname/$dentry") && preg_match('/^[01][0-9]$/', $dentry))
        $months[] = $dentry;
      }
    }
    $dir->close();
    sort ($months);
    return $months;
  }

  if (strlen ($list) > 0 && is_dir ($list)) {
    $dirs = array ($list);
  } else {
    $dir = dir (".");
    $dirs = array ();
    while ($dentry = $dir->read()) {
      if ($dentry != "." && $dentry != ".." && is_dir ($dentry)) {
	$dirs[] = $dentry;
      }
    }
    $dir->close();
    sort ($dirs);
  }

  $max = count ($dirs);
  for ($i=0; $i < $max; $i++) {

    $file = $dirs[$i] . "/" . "index.inc";
    if (is_file ($file)) {
      $f = fopen ($file, "r");
      if ($f !== false) {
        while (!feof ($f)) {
          $line = fgets ($f, 255);
	  print ($line);
	}
        fclose ($f);
      }
    } else {
      # Do it yourself


    printf ("<li> <strong>%s</strong><br>", $dirs[$i]);

    $dir = dir ($dirs[$i]);
    $years = array ();
    while ($dentry = $dir->read()) {
      if ($dentry != "." && $dentry != ".." && is_dir ("$dirs[$i]/$dentry")) {
        $years[] = $dentry;
      }
    }
    $dir->close();
    sort ($years);

    $ymax = count ($years);
    for ($y=0; $y < $ymax; $y++) {
      $months = get_months ("$dirs[$i]/$years[$y]");
      if (count ($months) > 0) {
        printf ("%s%s (", $y>0?", ":"", $years[$y]);
	for ($m=0; $m < count ($months); $m++) {
	  printf ("%s<a href=\"%s/%s/%s/\">%s</a>",
	    $m>0?", ":"", $dirs[$i], $years[$y], $months[$m], $months[$m]);
	}
	echo   (")");
      } else {
        printf ("%s<a href=\"%s/%s/\">%s</a>",
          $y>0?", ":"", $dirs[$i], $years[$y], $years[$y]);
      }
    }
  }  # else
  }

  if (strlen ($list) > 0 && is_dir ($list)) {
    printf ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/details.php3?list=%s\">Statistics</a></strong><br>",
        $list);
  } else {
    echo ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/\">Statistics</a></strong><br>");
  }
?>

<li> <strong><a href="<root_prefix>search.html">Search</a></strong><br>
</ul>

<quotebox lang=english type=general><p>

</page>

# Local variables:
# mode: indented-text
# mode: auto-fill
# end: