Fixed the date pivot calculation
[infodrom.org/oldenburg.linux.de] / 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     if ($#top > -1) {
50 :>
51 <center>
52 <border width=90% color=0000ff>
53 <:
54         while (my $news = shift @top) {
55             $news =~ /news-(\d+)-(\d+)-(\d+).txt/;
56             $date = "$3.$2.$1";
57             if (open (NEWS, "News/$news")) {
58                 printf "<b>%s</b><br>", $date;
59                 while (<NEWS>) {
60                     if (/\\$/) {
61                         s,\\$,,;
62                         chomp;
63                     }
64                     print;
65                 }
66                 close (NEWS);
67                 print "<div align=\"center\"><hr width=\"95%\"></center>" if ($#top > -1);
68             }
69         }
70 :>
71 </border>
72 </center>
73 <:
74     }
75
76 :>
77 <p>
78
79 </page>
80
81 # Local variables:
82 # mode: html
83 # mode: auto-fill
84 # mode: iso-accents
85 # end: