payment: note that Stripe has instituted an additional 1% fee for non-US cards

[hcoop/portal.git] / qos.mlt

<% @header [("title", ["Support quality statistics"])];

val days = case $"days" of
		  "" => 7
		| days => Web.stoi days;

if $"cmd" = "list" then %>

<form method="post">
<input type="hidden" name="cmd" value="list">
Show me the entries from the last <input name="days" size="7" value="<% days %>"> days.
<input type="submit" value="Show">
</form>

<table class="data">
<tr><td><b>Kind</b></td> <td><b>Description</b></td> <td><b>User</b></td> <td><b>Placed</b></td> <td><b>Response</b></td> <td><b>Closed</b></td></tr>
<%

foreach qos in Qos.recent days do %>
	<tr> <td><% switch #kindUrl qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#kind qos) %><% switch #kindUrl qos of SOME _ => %></a><% end %></td>
	<td><% switch #url qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#name qos) %><% switch #url qos of SOME _ => %></a><% end %></td>
	<td><a href="user?id=<% #usr qos %>"><% Web.html (#uname qos) %></a></td>
	<td><% #stamp qos %></td>
	<td><% switch #pstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td>
	<td><% switch #cstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td> </tr>
<% end %>

</table>

<% else %>

<p><a href="qos?cmd=list">List all recent support requests</a></p>

<form method="post">
Refresh statistics to include the last <input name="days" size="7" value="<% days %>"> days.
<input type="submit" value="Show">
</form>

<br><hr><br>

<% val stats = Qos.reportCard days %>
<table>
<tr> <td><b>Kind</b></td> <td><b>Total resolved issues</b></td> <td><b>Average minutes to resolve</b></td> </tr>
<tr> <td>APT packages</td> <td><% #count (#apt stats) %></td> <td><% #minutes (#apt stats) %></td> </tr>
<tr> <td>Domains</td> <td><% #count (#domain stats) %></td> <td><% #minutes (#domain stats) %></td> </tr>
<tr> <td>Mailing lists</td> <td><% #count (#mailingList stats) %></td> <td><% #minutes (#mailingList stats) %></td> </tr>
<tr> <td>Security</td> <td><% #count (#sec stats) %></td> <td><% #minutes (#sec stats) %></td> </tr>
<!--tr> <td>Miscellaneous</td> <td><% #count (#closed (#misc stats)) %></td> <td><% #minutes (#closed (#misc stats)) %></td> </tr-->
</table>

<!--p>Additionally, <% #count (#pending (#misc stats)) %> miscellaneous support requests placed in this period have at some time been marked as pending or closed, and it took on average <% #minutes (#pending (#misc stats)) %> minutes to do so.</p-->

<% end %>

<% @footer [] %>