Specify host for database connections

[hcoop/portal.git] / qos.mlt

diff --git a/qos.mlt b/qos.mlt
index cc0cfaa..f35f594 100644 (file)
--- a/qos.mlt
+++ b/qos.mlt
@@ -2,9 +2,12 @@
 
 val days = case $"days" of
                  "" => 7
-               | days => Web.stoi days %>
+               | 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>
@@ -24,6 +27,31 @@ foreach qos in Qos.recent days do %>
 
 </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 [] %>