Display current events on the main page automatically

[infodrom.org/oldenburg.linux.de] / src / index.wml

diff --git a/src/index.wml b/src/index.wml
index 1962651..ab9d34c 100644 (file)
--- a/src/index.wml
+++ b/src/index.wml
@@ -1,6 +1,145 @@
 #include <LUGO.style>
 #include <tools.inc>
 
 #include <LUGO.style>
 #include <tools.inc>
 

+<?
+$max_news = 2;
+$max_age = 7;
+$newsdir = "News";
+$datedb = "Termine/dates.txt";
+$max_days = 14;
+
+function next_date()
+{
+  global $max_days;
+  global $datedb;
+
+  $head = '<div class="news"><div class="newsbody"><h3 class="newstitle">%s</h3><div class="date">';
+  $head .= '<table class="font" cellpadding=1 cellspacing=2 width=100%%><tr><th>Wann</th><th>Was</th><th>Wo</th></tr>';
+  $foot = '</table></div></div></div>';
+  $row = '<tr%s><td>%s</td><td>%s</td><td>%s</td></tr>';
+  $pivot = time() + 60*60*24*$max_days;
+  $now = mktime(0,0,0, date('m'), date('d'), date('Y'));
+
+  if (($dates = fopen($datedb,'r')) !== false) {
+    $lines = array();
+    while (!feof($dates)) {
+      $line = fgets($dates, 200);
+
+      if (!preg_match("/\|OL\|/", $line))
+       continue;
+
+      if (preg_match("/([0-9]{4})-([0-9]{2})-([0-9]{2})\|/", $line, $match)) {
+       $when = mktime(0,0,0, $match[2], $match[3], $match[1]);
+       if ($when > $pivot || $when < $now)
+         continue;
+       $lines[] = $line;
+      }
+    }
+
+    if (count($lines)) {
+      sort($lines);
+      echo '<div style="padding-top: 10px"></div>'."\n";
+      printf($head."\n", "Kommende Termine in Oldenburg");
+
+      foreach ($lines as $line) {
+       if (preg_match("/([0-9]{4})-([0-9]{2})-([0-9]{2})\|([^\|]*)\|OL\|([^\|]*)\|([^\|]*)\|(.*)/", $line, $match)) {
+         $when = mktime(0,0,0, $match[2], $match[3], $match[1]);
+
+         if ($when == $now) {
+           $date = '<strong>heute, ' . $match[4].'</strong>';
+           $color = ' bgcolor="#79c2ef"';
+         } else {
+           $date = strftime("%e.%m.%y", $when) . ', ' . $match[4];
+           $color = '';
+         }
+
+         if (empty($match[7]))
+           $what = $match[5];
+         else
+           $what = '<a href="'.$match[7].'">'.$match[5].'</a>';
+
+         printf($row, $color, $date, $what, $match[6]);
+       }
+      }
+      echo $foot;
+    }
+  }
+}
+function display_news($when, $file)
+{
+  global $newsdir;
+
+  $head = '<div class="news"><div class="newsbody"><h3 class="newstitle">%s</h3><div class="newscontent">';
+  $foot = '</div></div></div>';
+
+  $date = strftime("%e. %B %Y", $when);
+
+  if (($news = fopen($newsdir.'/'.$file,'r')) !== false) {
+    $needp = 0;  // 0 = init, 1 = <p> need, 2 = no <p> needed
+
+    printf($head."\n", $date);
+    while (!feof($news)) {
+      $line = fgets($news, 200);
+
+      $line = str_replace ("\\\n", "", $line);
+
+      if ($needp == 0) {
+       if (substr($_, 0, 3) == "<p>") {
+         $needp = 2;
+       } else {
+         $needp = 1;
+         $line = '<p>'.$line;
+       }
+      }
+
+      echo $line;
+    }
+    if ($needp == 1)
+      echo '</p>';
+    echo $foot;
+  }
+}
+
+function newsbox()
+{
+  global $max_news;
+  global $max_age;
+  global $newsdir;
+
+  setlocale(LC_TIME, "de_DE");
+
+  $pivot = time() - 60*60*24*$max_age;
+  $news = array();
+  if (is_dir($newsdir)) {
+    if ($dir = opendir($newsdir)) {
+      while (($file = readdir($dir)) !== false) {
+       if (!preg_match("/news-([0-9]{4})-([0-9]{2})-([0-9]{2})\.txt/", $file, $matches))
+         continue;
+       $when = mktime(0,0,0, $matches[2], $matches[3], $matches[1]);
+       if ($when < $pivot)
+         continue;
+       $news[$when] = $file;
+      }
+      closedir($dir);
+    }
+  }
+
+  if (count($news)) {
+    echo '<div style="padding-top: 10px"></div>'."\n";
+
+    krsort($news);
+
+    $cnt = 0;
+    foreach ($news as $time => $file) {
+      if ($cnt >= $max_news)
+       continue;
+      display_news($time, $file);
+      $cnt++;
+    }
+  }
+}
+?>
+

 <page>
 
 <p>Die <em>Linux User Group Oldenburg</em> (LUGO) ist eine
 <page>
 
 <p>Die <em>Linux User Group Oldenburg</em> (LUGO) ist eine


@@ -10,6 +149,8 @@ Oldenburg trifft sich regelm
 href="<root_prefix>Infos/stammtisch.html">Oldenburger Linux-Stammtisch</a>
 und unregelmäßig auf weiteren Treffen.</p>
 
 href="<root_prefix>Infos/stammtisch.html">Oldenburger Linux-Stammtisch</a>
 und unregelmäßig auf weiteren Treffen.</p>
 

+<?next_date()?>
+

 <p>Außerhalb dieser Treffen wird auf der <a
 href="<root_prefix>Infos/liste.html">Mailing-Liste</a>
 linux-stammtisch (<a href="<url ml-linux-stammtisch>">Archiv</a>) über
 <p>Außerhalb dieser Treffen wird auf der <a
 href="<root_prefix>Infos/liste.html">Mailing-Liste</a>
 linux-stammtisch (<a href="<url ml-linux-stammtisch>">Archiv</a>) über


@@ -29,59 +170,7 @@ seine breite Hardwareunterst&uuml;tzung ist es f&uuml;r Privatanwender
 genauso interessant, wie f&uuml;r den gewerblichen Einsatz.  <p>
 
 <p>
 genauso interessant, wie f&uuml;r den gewerblichen Einsatz.  <p>
 
 <p>

-<:
-
-    if (opendir (NEWS, "News/")) {
-       @news = sort (grep (/^news-.*\.txt$/,readdir (NEWS)));
-        closedir (NEWS);
-    }
-
-    my ($date_sec,$date_min,$date_hour,$date_mday,$date_mon,$date_year,$date_wday,$date_isdst)
-        = localtime(time-24*60*60*10);
-    my $pivot = sprintf ("%04d-%02d-%02d", $date_year+1900, $date_mon+1, $date_mday);
-
-    my @top = ();
-    foreach my $fname (@news) {
-        $fname =~ /news-(\d+-\d+-\d+).*/;
-       push (@top, $fname) if ($1 gt $pivot);
-    }
-
-    $head = '<div class="news"><div class="newsbody"><h3 class="newstitle">%s</h3><div class="newscontent">';
-    $foot = '</div></div></div>';
-    @month = ('dummy','Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember');
-    if ($#top > -1) {
-        print '<div style="padding-top: 10px"></div>'."\n";
-        while (my $news = shift @top) {
-            $needp = 0;  # 0 = init, 1 = <p> need, 2 = no <p> needed
-           $news =~ /news-(\d+)-(\d+)-(\d+).txt/;
-           $date = sprintf ("%d. %s %04d", $3, $month[$2], $1);
-           if (open (NEWS, "News/$news")) {
-               printf $head."\n", $date;
-               while (<NEWS>) {
-                   if (/\\$/) {
-                       s,\\$,,;
-                       chomp;
-                   }
-
-                   if ($needp == 0) {
-                     if (substr($_, 0, 3) eq "<p>") {
-                       $needp = 2;
-                     } else {
-                       $needp = 1;
-                       print "<p>";
-                     }
-                   }
-
-                   print;
-               }
-               close (NEWS);
-               print "</p>" if ($needp == 1);
-               print $foot;
-           }
-       }
-    }
-
-:>
+<?newsbox()?>

 
 </page>
 
 
 </page>