1 <define-tag listpath>/var/list/</define-tag>
2 <define-tag listdescr>description</define-tag>
4 <define-tag img_width>597</define-tag>
5 <define-tag img_height>161</define-tag>
7 # Sideeffect: fills $list and $description
8 # img_format img_format_href
10 <define-tag read-lists>
12 $img_format_href = '<p><div align="center">'
14 .'<img src="%s" width=<img_width> height=<img_height> alt="%s" border=0>'
18 $img_format = '<p><div align="center">'
19 .'<img src="%s" width=<img_width> height=<img_height> alt="%s" border=0>'
25 while ($dentry = $dir->read()) {
26 if ($dentry != "." && $dentry != "..") {
29 if (is_file ("<listpath>/$dentry/<listdescr>")) {
30 if (($f = fopen ("<listpath>/$dentry/<listdescr>", "r"))) {
31 $description[$dentry] = fgets ($f, 255);
42 # Make an overview about all similar files
44 <define-tag make-overview>
49 $i=0;for ($i=0; $i <= count ($list); $i++) {
50 if (is_file ("$list[$i]/$list[$i]-<get-var frac>.png")) {
52 if (strlen ($description[$list[$i]])) {
53 if (strlen ($description[$list[$i]]) < 40) {
54 printf ("<h3 class=\"bar\">%s</h3>", $description[$list[$i]]);
56 printf ("<h3 class=\"bar\">%s - %s</h3>", $list[$i], $description[$list[$i]]);
59 printf ("<h3 class=\"bar\">%s</h3>", $list[$i]);
62 printf ($img_format_href, "<get-var href>.php3?list=$list[$i]", "$list[$i]/$list[$i]-<get-var frac>.png", $list[$i]);
71 <define-tag display-list>
72 <h1>Lists Statistics for list <? echo $list; ?></h1>
74 <h3 class="bar">Total Subscribers</h3>
78 printf ("<br><img src=\"%s/%s-distabs-month.png\" width=\"<img_width>\" height=\"<img_height>\" alt=\"[%s]\" border=\"0\">",
80 printf ("<br><img src=\"%s/%s-distabs-year.png\" width=\"<img_width>\" height=\"<img_height>\" alt=\"[%s]\" border=\"0\">",
82 printf ("<br><img src=\"%s/%s-distabs-years.png\" width=\"<img_width>\" height=\"<img_height>\" alt=\"[%s]\" border=\"0\">",
87 <h3 class="bar">Posting Frequency</h3>
91 printf ("<img src=\"%s/%s-latest-month.png\" width=\"<img_width>\" height=\"<img_height>\" alt=\"[%s]\" border=\"0\">",