git.infodrom.org Git - infodrom.org/oldenburg.linux.de/blob - src/index.wml

   1 #include <LUGO.style>
   2 #include <tools.inc>
   3
   4 <page>
   5
   6 <p>Die <em>Linux User Group Oldenburg</em> (LUGO) ist eine
   7 Interessengemeinschaft für GNU/Linux und Freie Software in und um <a
   8 href="http://www.oldenburg.de/">Oldenburg</a>.  Die Linux User Group
   9 Oldenburg trifft sich regelmäßig auf dem <a
  10 href="<root_prefix>Infos/stammtisch.html">Oldenburger Linux-Stammtisch</a>
  11 und unregelmäßig auf weiteren Treffen.</p>
  12
  13 <p>Außerhalb dieser Treffen wird auf der <a
  14 href="<root_prefix>Infos/liste.html">Mailing-Liste</a>
  15 linux-stammtisch (<a href="<url ml-linux-stammtisch>">Archiv</a>) über
  16 Freie Software und GNU/Linux diskutiert.  Aus der LUGO hervorgegangen
  17 ist der gemeinnützige <a href="http://www.ffis.de/">Verein zur
  18 Förderung Freier Informationen und Software e.V.</a> (ffis).  Auf den
  19 folgenden Seiten finden Sie Informationen rund um Freie Software sowie
  20 Veranstaltungen zu diesem Themenspektrum.</p>
  21
  22 <p>Linux ist der Kern eines freien Unix-artigen Betriebssystems für Rechner der Intel
  23 x86er-Klasse ab 80386 sowie für viele weitere Prozessorarchitekturen
  24 (u.a. Alpha,
  25 Sun Sparc, PowerPC, HP PA-RISC, Motorola 680x0, IBM S/390, ARM, MIPS
  26 etc.).  GNU/Linux ist das Betriebssystem auf Basis des Linux-Kernels, das echtes Multitasking und
  27 vernünftige Unterstützung für Multiuser-Umgebungen bietet.  Durch
  28 seine breite Hardwareunterst&uuml;tzung ist es f&uuml;r Privatanwender
  29 genauso interessant, wie f&uuml;r den gewerblichen Einsatz.  <p>
  30
  31 <p>
  32 <:
  33
  34     if (opendir (NEWS, "News/")) {
  35         @news = sort (grep (/^news-.*\.txt$/,readdir (NEWS)));
  36         closedir (NEWS);
  37     }
  38
  39     my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
  40         = localtime(time-24*60*60*10);
  41     my $pivot = sprintf ("%04d-%02d-%02d", $date_year+1900, $date_mon+1, $date_mday);
  42
  43     my @top = ();
  44     foreach my $fname (@news) {
  45         $fname =~ /news-(\d+-\d+-\d+).*/;
  46         push (@top, $fname) if ($1 gt $pivot);
  47     }
  48
  49     $head = '<div class="news"><div class="newsbody"><h3 class="newstitle">%s</h3><div class="newscontent">';
  50     $foot = '</div></div></div>';
  51     @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
  52     if ($#top > -1) {
  53         print '<div style="padding-top: 10px"></div>'."\n";
  54         while (my $news = shift @top) {
  55             $needp = 0;  # 0 = init, 1 = <p> need, 2 = no <p> needed
  56             $news =~ /news-(\d+)-(\d+)-(\d+).txt/;
  57             $date = sprintf ("%d. %s %04d", $3, $month[$2], $1);
  58             if (open (NEWS, "News/$news")) {
  59                 printf $head."\n", $date;
  60                 while (<NEWS>) {
  61                     if (/\\$/) {
  62                         s,\\$,,;
  63                         chomp;
  64                     }
  65
  66                     if ($needp == 0) {
  67                       if (substr($_, 0, 3) eq "<p>") {
  68                         $needp = 2;
  69                       } else {
  70                         $needp = 1;
  71                         print "<p>";
  72                       }
  73                     }
  74
  75                     print;
  76                 }
  77                 close (NEWS);
  78                 print "</p>" if ($needp == 1);
  79                 print $foot;
  80             }
  81         }
  82     }
  83
  84 :>
  85
  86 </page>
  87
  88 # Local variables:
  89 # mode: html
  90 # mode: auto-fill
  91 # mode: iso-accents
  92 # end: