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)
43 && $dentry != "gifs") {
52 for ($i=0; $i < $max; $i++) {
54 $file = $dirs[$i] . "/" . "index.inc";
55 if (is_file ($file)) {
56 $f = fopen ($file, "r");
59 $line = fgets ($f, 255);
68 printf ("<li> <strong>%s</strong><br>", $dirs[$i]);
70 $dir = dir ($dirs[$i]);
72 while ($dentry = $dir->read()) {
73 if ($dentry != "." && $dentry != ".." && is_dir ("$dirs[$i]/$dentry")) {
80 $ymax = count ($years);
81 for ($y=0; $y < $ymax; $y++) {
82 $months = get_months ("$dirs[$i]/$years[$y]");
83 if (count ($months) > 0) {
84 printf ("%s%s (", $y>0?", ":"", $years[$y]);
85 for ($m=0; $m < count ($months); $m++) {
86 printf ("%s<a href=\"%s/%s/%s/\">%s</a>",
87 $m>0?", ":"", $dirs[$i], $years[$y], $months[$m], $months[$m]);
91 printf ("%s<a href=\"%s/%s/\">%s</a>",
92 $y>0?", ":"", $dirs[$i], $years[$y], $years[$y]);
98 if (strlen ($list) > 0 && is_dir ($list)) {
99 printf ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/details.php3?list=%s\">Statistics</a></strong><br>",
102 echo ("<li> <strong><a href=\"<root_prefix>Infodrom/mailstats/\">Statistics</a></strong><br>");
106 <li> <strong><a href="<root_prefix>search.html">Search</a></strong><br>
109 <quotebox lang=english type=general><p>
114 # mode: indented-text