1 #include <infodrom.style>
4 <page title="Infodrom Oldenburg - Mail-Archive">
6 <p><colorbox bgcolor=<box-blue>>
7 <font size=+1 color=ffffff><b>Mail Archive<?
8 if (strlen ($list) > 0 && is_dir ($list)) {
17 ACHTUNG: - Kein Support für ausgeschriebenen Namen der Liste
18 - Kein Support für Liste ohne Unterverzeichnisse 1999, 2000 etc.
21 function get_months ($dirname)
23 $dir = dir ($dirname);
26 while ($dentry = $dir->read()) {
27 if ($dentry != "." && $dentry != ".." && is_dir ("$dirname/$dentry") && ereg ("^[01][0-9]$", $dentry)) {
36 if (strlen ($list) > 0 && is_dir ($list)) {
37 $dirs = array ($list);
41 while ($dentry = $dir->read()) {
42 if ($dentry != "." && $dentry != ".." && is_dir ($dentry)) {
51 for ($i=0; $i < $max; $i++) {
53 $file = $dirs[$i] . "/" . "index.inc";
54 if (is_file ($file)) {
55 $f = fopen ($file, "r");
58 $line = fgets ($f, 255);
67 printf ("<li> <strong>%s</strong><br>", $dirs[$i]);
69 $dir = dir ($dirs[$i]);
71 while ($dentry = $dir->read()) {
72 if ($dentry != "." && $dentry != ".." && is_dir ("$dirs[$i]/$dentry")) {
79 $ymax = count ($years);
80 for ($y=0; $y < $ymax; $y++) {
81 $months = get_months ("$dirs[$i]/$years[$y]");
82 if (count ($months) > 0) {
83 printf ("%s%s (", $y>0?", ":"", $years[$y]);
84 for ($m=0; $m < count ($months); $m++) {
85 printf ("%s<a href=\"%s/%s/%s/\">%s</a>",
86 $m>0?", ":"", $dirs[$i], $years[$y], $months[$m], $months[$m]);
90 printf ("%s<a href=\"%s/%s/\">%s</a>",
91 $y>0?", ":"", $dirs[$i], $years[$y], $years[$y]);
97 if (strlen ($list) > 0 && is_dir ($list)) {
98 printf ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/details.php3?list=%s\">Statistics</a></strong><br>",
101 echo ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/\">Statistics</a></strong><br>");
105 <li> <strong><a href="<root_prefix>search.html">Search</a></strong><br>
108 <quotebox lang=english type=general><p>
113 # mode: indented-text