Imported /Mail-Archive/ from www.infodrom.org
authorJoey Schulze <joey@infodrom.org>
Wed, 6 Aug 2003 13:16:46 +0000 (13:16 +0000)
committerJoey Schulze <joey@infodrom.org>
Wed, 6 Aug 2003 13:16:46 +0000 (13:16 +0000)
src/index.wml [new file with mode: 0644]

diff --git a/src/index.wml b/src/index.wml
new file mode 100644 (file)
index 0000000..54e186f
--- /dev/null
@@ -0,0 +1,115 @@
+#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: