7a1e53207fec3fb1f3f3006037f7ac35cc3707db
[infodrom.org/oldenburg.linux.de] / src / News / index.wml
1 #include <LUGO.style>
2
3 <page name="News">
4
5 <h3>Nachrichten der LUGO und zu GNU/Linux</h3>
6
7 <div style="padding-top: 10px"></div>
8 <:
9     $limit = 5;
10     $head = '<div class="news"><div class="newsbody"><h3 class="newstitle">%s</h3><div class="newscontent">';
11     $foot = '</div></div></div>';
12     @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
13
14     if (opendir (NEWS, ".")) {
15         @news = reverse (sort (grep (/^news-.*\.txt$/,readdir (NEWS))));
16         closedir (NEWS);
17     }
18
19     for ($i=0; $i < $limit && $i < $#news; $i++) {
20         $needp = 0;  # 0 = init, 1 = <p> need, 2 = no <p> needed
21         $news[$i] =~ /news-(\d+)-(\d+)-(\d+).txt/;
22         $date = sprintf ("%d. %s %04d", $3, $month[$2], $1);
23         if (open (NEWS, $news[$i])) {
24             printf $head."\n", $date;
25             while (<NEWS>) {
26                 if (/\\$/) {
27                     s,\\$,,;
28                     chomp;
29                 }
30
31                 if ($needp == 0) {
32                   if (substr($_, 0, 3) eq "<p>") {
33                     $needp = 2;
34                   } else {
35                     $needp = 1;
36                     print "<p>";
37                   }
38                 }
39
40                 print;
41             }
42             close (NEWS);
43             print "</p>" if ($needp == 1);
44             print $foot;
45         }
46     }
47
48     print "<p><a href=\"olds.html\">Ältere Nachrichten</a>" if ($i < $#news);
49 :>
50
51 </page>
52
53 # Local variables:
54 # mode: indented-text
55 # mode: auto-fill
56 # end: