54e186f08bc11ab0c27c1e5ab4341931b1dba875
[infodrom.org/lists.infodrom.org] / src / index.wml
1 #include <infodrom.style>
2 #include <quote.style>
3
4 <page title="Infodrom Oldenburg - Mail-Archive">
5
6 <p><colorbox bgcolor=<box-blue>>
7 <font size=+1 color=ffffff><b>Mail Archive<?
8   if (strlen ($list) > 0 && is_dir ($list)) {
9     echo " - $list";
10   }
11 ?></b></font>
12 </colorbox>
13
14 <ul>
15 <?
16   /*
17     ACHTUNG: - Kein Support für ausgeschriebenen Namen der Liste
18              - Kein Support für Liste ohne Unterverzeichnisse 1999, 2000 etc.
19   */
20
21   function get_months ($dirname)
22   {
23     $dir = dir ($dirname);
24     $months = array ();
25
26     while ($dentry = $dir->read()) {
27       if ($dentry != "." && $dentry != ".." && is_dir ("$dirname/$dentry") && ereg ("^[01][0-9]$", $dentry)) {
28         $months[] = $dentry;
29       }
30     }
31     $dir->close();
32     sort ($months);
33     return $months;
34   }
35
36   if (strlen ($list) > 0 && is_dir ($list)) {
37     $dirs = array ($list);
38   } else {
39     $dir = dir (".");
40     $dirs = array ();
41     while ($dentry = $dir->read()) {
42       if ($dentry != "." && $dentry != ".." && is_dir ($dentry)) {
43         $dirs[] = $dentry;
44       }
45     }
46     $dir->close();
47     sort ($dirs);
48   }
49
50   $max = count ($dirs);
51   for ($i=0; $i < $max; $i++) {
52
53     $file = $dirs[$i] . "/" . "index.inc";
54     if (is_file ($file)) {
55       $f = fopen ($file, "r");
56       if ($f) {
57         while (!feof ($f)) {
58           $line = fgets ($f, 255);
59           print ($line);
60         }
61         fclose ($f);
62       }
63     } else {
64       # Do it yourself
65
66
67     printf ("<li> <strong>%s</strong><br>", $dirs[$i]);
68
69     $dir = dir ($dirs[$i]);
70     $years = array ();
71     while ($dentry = $dir->read()) {
72       if ($dentry != "." && $dentry != ".." && is_dir ("$dirs[$i]/$dentry")) {
73         $years[] = $dentry;
74       }
75     }
76     $dir->close();
77     sort ($years);
78
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]);
87         }
88         echo   (")");
89       } else {
90         printf ("%s<a href=\"%s/%s/\">%s</a>",
91           $y>0?", ":"", $dirs[$i], $years[$y], $years[$y]);
92       }
93     }
94   }  # else
95   }
96
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>",
99         $list);
100   } else {
101     echo ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/\">Statistics</a></strong><br>");
102   }
103 ?>
104
105 <li> <strong><a href="<root_prefix>search.html">Search</a></strong><br>
106 </ul>
107
108 <quotebox lang=english type=general><p>
109
110 </page>
111
112 # Local variables:
113 # mode: indented-text
114 # mode: auto-fill
115 # end: