snap.tmpl

   1 <html>
   2   <head>
   3     <title>icecast snapshot</title>
   4   </head>
   5   <body bgcolor="#e8e8e8">
   6   <h2>icecast snapshot</h2>
   7   Mountpoint: <%= $main::mount %><br><br>
   8   <table border>
   9     <tr><th>User Agent</th><th>#</th></tr>
  10 <% $total = 0;
  11    foreach my $user_agent ( keys %{$main::mount{$main::mount}} ) {
  12      $total += $main::mount{$main::mount}{$user_agent};
  13 %>
  14     <tr><td><%= $user_agent %></td><td><%= $main::mount{$main::mount}{$user_agent} %></td></tr>
  15 <% } %>
  16   </table>
  17   <br>Total: <%= $total %><br>
  18 </html>