git.infodrom.org Git - infodrom.org/lists.infodrom.org/blob - 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         && $dentry != "gifs" && $dentry != "stats") {
  44         $dirs[] = $dentry;
  45       }
  46     }
  47     $dir->close();
  48     sort ($dirs);
  49   }
  50
  51   $max = count ($dirs);
  52   for ($i=0; $i < $max; $i++) {
  53
  54     $file = $dirs[$i] . "/" . "index.inc";
  55     if (is_file ($file)) {
  56       $f = fopen ($file, "r");
  57       if ($f) {
  58         while (!feof ($f)) {
  59           $line = fgets ($f, 255);
  60           print ($line);
  61         }
  62         fclose ($f);
  63       }
  64     } else {
  65       # Do it yourself
  66
  67
  68     printf ("<li> <strong>%s</strong><br>", $dirs[$i]);
  69
  70     $dir = dir ($dirs[$i]);
  71     $years = array ();
  72     while ($dentry = $dir->read()) {
  73       if ($dentry != "." && $dentry != ".." && is_dir ("$dirs[$i]/$dentry")) {
  74         $years[] = $dentry;
  75       }
  76     }
  77     $dir->close();
  78     sort ($years);
  79
  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]);
  88         }
  89         echo   (")");
  90       } else {
  91         printf ("%s<a href=\"%s/%s/\">%s</a>",
  92           $y>0?", ":"", $dirs[$i], $years[$y], $years[$y]);
  93       }
  94     }
  95   }  # else
  96   }
  97
  98   if (strlen ($list) > 0 && is_dir ($list)) {
  99     printf ("<li> <strong><a href=\"<root_prefix>stats/details.php3?list=%s\">Statistics</a></strong><br>",
 100         $list);
 101   } else {
 102     echo ("<li> <strong><a href=\"<root_prefix>stats/index.php3\">Statistics</a></strong><br>");
 103   }
 104 ?>
 105
 106 <li> <strong><a href="<root_prefix>search.html">Search</a></strong><br>
 107 </ul>
 108
 109 <quotebox lang=english type=general><p>
 110
 111 </page>
 112
 113 # Local variables:
 114 # mode: indented-text
 115 # mode: auto-fill
 116 # end: