Join script should rule out retired usernames

[bpt/portal.git] / webbw.mlt

<% @header [("title", ["Web usage stats"])] %>

<b><u>Web virtual host bandwidth</u></b> (bandwidth usage of Apache sites <% case $"last" of "1" => "last month" | "2" => "two months ago" | _ => "this calendar month" %>)<br>
<% if $"last" = "1" then %>
	<a href="webbw?last=2">[Previous]</a> | <a href="webbw?last=0">[Current]</a>
<% elseif $"last" = "2" then %>
	<a href="webbw?last=1">[Next]</a>
<% else %>
	<a href="webbw?last=1">[Last month]</a>
<% end %>
<br><br>

<% val stats = iff $"last" = "" then
			Stats.getWebbw 0
		else	
			Stats.getWebbw (Web.stoi ($"last")) %>

<table>
<tr><td></td><td><b>Bandwidth (kB)</b></td></tr>
<tr><td align="right"><b>Total Apache bandwidth</b></td> <td><% #total stats %></td></tr>
<tr><td>&nbsp;</td></tr>

<% foreach dom in #vhosts stats do %>
	<tr><td align="right"><a href="<% if #ssl (#host dom) then %>https<% else %>http<% end %>://<% #hostname (#host dom) %>/"><% #hostname (#host dom) %><% if #ssl (#host dom) then %> (SSL)<% end %></a> <a href="/webalizer/<% #id (#host dom) %>/">[detail]</a></td><td><% #size dom %></td></tr>
<% end %>

</table>

<br><br>
<b><u>Bandwidth by ownership</u></b>
<br><br>

<table>
<tr><td></td><td></td><td><b>Bandwidth (kB)</b></td></tr>
<tr><td>&nbsp;</td></tr>

<% foreach group in #users stats do %>
	<tr><td align="right"><% #user group %></td><td>
	<% foreach dom in #hosts group do %>
		[<a href="/webalizer/<% #id dom %>/"><% #hostname dom %><% if #ssl dom then %> (SSL)<% end %></a> <a href="<% if #ssl dom then %>https<% else %>http<% end %>://<% #hostname dom %>/">(S)</a>]
	<% end %>
	</td><td><% #size group %></td></tr>
<% end %>

</table>

</body></html>