qos.mlt

   1 <% @header [("title", ["Support quality statistics"])];
   2
   3 val days = case $"days" of
   4                   "" => 7
   5                 | days => Web.stoi days;
   6
   7 if $"cmd" = "list" then %>
   8
   9 <form method="post">
  10 <input type="hidden" name="cmd" value="list">
  11 Show me the entries from the last <input name="days" size="7" value="<% days %>"> days.
  12 <input type="submit" value="Show">
  13 </form>
  14
  15 <table>
  16 <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>
  17 <%
  18
  19 foreach qos in Qos.recent days do %>
  20         <tr> <td><% switch #kindUrl qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#kind qos) %><% switch #kindUrl qos of SOME _ => %></a><% end %></td>
  21         <td><% switch #url qos of SOME url => %><a href="<% url %>"><% end %><% Web.html (#name qos) %><% switch #url qos of SOME _ => %></a><% end %></td>
  22         <td><a href="user?id=<% #usr qos %>"><% Web.html (#uname qos) %></a></td>
  23         <td><% #stamp qos %></td>
  24         <td><% switch #pstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td>
  25         <td><% switch #cstamp qos of NONE => %>-<% | SOME stamp => stamp end %></td> </tr>
  26 <% end %>
  27
  28 </table>
  29
  30 <% else %>
  31
  32 <p><a href="qos?cmd=list">List all recent support requests</a></p>
  33
  34 <form method="post">
  35 Refresh statistics to include the last <input name="days" size="7" value="<% days %>"> days.
  36 <input type="submit" value="Show">
  37 </form>
  38
  39 <br><hr><br>
  40
  41 <% val stats = Qos.reportCard days %>
  42 <table>
  43 <tr> <td><b>Kind</b></td> <td><b>Total resolved issues</b></td> <td><b>Average minutes to resolve</b></td> </tr>
  44 <tr> <td>APT packages</td> <td><% #count (#apt stats) %></td> <td><% #minutes (#apt stats) %></td> </tr>
  45 <tr> <td>Domains</td> <td><% #count (#domain stats) %></td> <td><% #minutes (#domain stats) %></td> </tr>
  46 <tr> <td>Mailing lists</td> <td><% #count (#mailingList stats) %></td> <td><% #minutes (#mailingList stats) %></td> </tr>
  47 <tr> <td>Security</td> <td><% #count (#sec stats) %></td> <td><% #minutes (#sec stats) %></td> </tr>
  48 <!--tr> <td>Miscellaneous</td> <td><% #count (#closed (#misc stats)) %></td> <td><% #minutes (#closed (#misc stats)) %></td> </tr-->
  49 </table>
  50
  51 <!--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-->
  52
  53 <% end %>
  54
  55 <% @footer [] %>
  56
  57