Display old monthly summaries

diff --git a/src/Infodrom/stats/submenu.inc b/src/Infodrom/stats/submenu.inc
index 9ff8395..2c31274 100644 (file)
--- a/src/Infodrom/stats/submenu.inc
+++ b/src/Infodrom/stats/submenu.inc
@@ -4,6 +4,21 @@
 &nbsp;<menu-item base=monthly text=Monthly><br>
 
 &nbsp;<menu-item base=traffic text=Traffic><br>
+
+<when <string-eq "$(WML_SRC_BASENAME)" "year">>
+<?
+  $year = date ("Y");
+  for ($anno = 2001; $anno <= $year; $anno++) {
+<protect pass=2>
+    if (isset($_GET["year"]) && $_GET["year"] == $anno)
+      printf ('&nbsp;<a href="year.php?year=%04d">Traffic&nbsp;%04d</a><br>', $anno, $anno);
+    else
+      printf ('&nbsp;<a href="year.php?year=%04d">Traffic&nbsp;%04d</a><br>', $anno, $anno);
+</protect>
+  }
+?>
+</when>
+
 &nbsp;<menu-item base=firewall text=Firewall><br>
 
 &nbsp;<menu-item base=mail text=Mail><br>

diff --git a/src/Infodrom/stats/year.wml b/src/Infodrom/stats/year.wml
new file mode 100644 (file)
index 0000000..c42c63e
--- /dev/null
+++ b/src/Infodrom/stats/year.wml
@@ -0,0 +1,32 @@
+#include <infodrom.style>
+
+<page func="Infodrom Oldenburg" title="Statistics">
+
+<?
+  $year = date("Y");
+  if (isset($_GET["year"]) && ($_GET["year"] > 2000 && $_GET["year"] <= $year))
+    $year = $_GET["year"];
+  printf ('<h3 class="bar">%s Traffic Summary</h3>', $year);
+
+  $imgform = '<p><center><img src="%s" %s alt="[Traffic %s %04d]" title="Traffic %s %04d" border="0"></center></p>';
+  $month = array ('dummy','January','February','March','April','May','June',
+                  'July','August','September','October','November','December');
+
+  for ($m = 1; $m <= 12; $m++) {
+    $fname = sprintf ("%04d-%02d.png", $year, $m);
+    if (is_file($fname)) {
+      $size = getimagesize($fname);
+      printf ($imgform, $fname, $size[3],
+             $month[$m], $year, $month[$m], $year);
+    }
+  }
+?>
+
+<div style="padding-top: 0.25em"></div>
+
+</page>
+
+# Local variables:
+# mode: indented-text
+# mode: auto-fill
+# end: