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