#include <LUGO.style>
#read "anzahl.txt"

<page name="Linux-Stammtisch">

<h3>Oldenburger Linux-Stammtisch</h3>

<p>In dieser Übersicht notieren wir die Anzahl der Teilnehmer am
jeweiligen Oldenburger Linux-Stammtisch.</p>

<:
  $height = 3;
  @monthname = ("dummy", "Jan", "Feb", "Mär", "Apr", "Mai", "Jun", "Jul", "Aug", "Sep", "Okt", "Nov", "Dez");

  if (open (IN, "anzahl.txt")) {
    while (<IN>) {
      next if (/^#/);
      if (/(\d{4})-(\d{2})-(\d{2}):\s*(\d+)/) {
        $attendees{$1}{$2}{$3} = $4;
      }
    }
    close (IN);

#     Debug code
#     for $year (sort keys %attendees) {
# 	for $month (sort keys %{$attendees{$year}}) {
# 	  for $day (sort keys %{$attendees{$year}{$month}}) {
# 	    printf STDERR "%d-%d-%d: %d\n", $year, $month, $day, $attendees{$year}{$month}{$day};
# 	  }
# 	}
#     }

    for $year (reverse sort keys %attendees) {
      printf "<h3>In %d</h3>\n", $year;

      print  "<div align=\"center\"><table class=\"font\" cellspacing=\"2\" cellpadding=\"0\" summary=\"\">\n";

      print  "<tr>\n";
      for $month (sort keys %{$attendees{$year}}) {
        for $day (sort keys %{$attendees{$year}{$month}}) {
	  $elems{"$year-$month"}++;
	  if ($attendees{$year}{$month}{$day}){
	    printf "<td width=\"25\" valign=\"bottom\" align=\"center\"><font face=\"<infodrom-font />\">%d</font><br> "
	      ."<img src=green-v.png alt=\"\" width=\"15\" height=\"%d\"></td>\n",
	      $attendees{$year}{$month}{$day}, $attendees{$year}{$month}{$day} * $height
	  } else {
	    print "<td width=\"25\" valign=\"bottom\">&nbsp;</td>\n";
	  }	    
	}
      }
      print  "</tr>\n";

      print  "<tr>\n";
      for $month (sort keys %{$attendees{$year}}) {
        printf "<td colspan=\"%d\" align=\"center\" bgcolor=\"#AAAAAA\"><font face=\"<infodrom-font />\">%s</font></td>",
	    $elems{"$year-$month"}, $monthname[$month];
      }
      print  "</tr>\n";

      print  "<tr>\n";
      for $month (sort keys %{$attendees{$year}}) {
        for $day (sort keys %{$attendees{$year}{$month}}) {
	  $elems{"$year-$month"}++;
	  printf "<td width=\"20\" align=\"center\" bgcolor=\"#CCCCCC\"><font face=\"<infodrom-font />\">%d</font></td>\n",
            $day;
	}
      }
      print  "</tr>\n";

      print  "</table></div>\n";
    }
  }
:>

<p><a href="history.html">Geschichte</a> der LUGO und des <a href="stammtisch.html">Linux-Stammtisches</a>.

</page>

# Local variables:
# mode: indented-text
# mode: auto-fill
# end: