--- /dev/null
+#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 != ".." && is_dir ("$dirname/$dentry") && ereg ("^[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) {
+ 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: