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         $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: