structure Qos :> QOS = struct

open Util Sql Init

type entry = { kind : string, kindUrl : string option, name : string, url : string option, usr : int, uname : string,
	       stamp : C.timestamp, pstamp : C.timestamp option, cstamp : C.timestamp option}

fun mkEntryRow [kind, kindUrl, name, url, usr, uname, stamp, pstamp, cstamp] =
    {kind = C.stringFromSql kind, kindUrl = if C.isNull kindUrl then NONE else SOME (C.stringFromSql kindUrl),
     name = C.stringFromSql name, url = if C.isNull url then NONE else SOME (C.stringFromSql url),
     usr = C.intFromSql usr, uname = C.stringFromSql uname, stamp = C.timestampFromSql stamp,
     pstamp = if C.isNull pstamp then NONE else SOME (C.timestampFromSql pstamp),
     cstamp = if C.isNull cstamp then NONE else SOME (C.timestampFromSql cstamp)}
  | mkEntryRow row = rowError ("QOS", row)

fun recent days =
    let
	val usr = Init.getUserId ()
	val db = getDb ()
    in
	C.map db mkEntryRow ($`SELECT SupCategory.name, 'issue?cat=' || SupCategory.id, title,
                                 'issue?cat=' || SupCategory.id || '&id=' || SupIssue.id, usr, WebUser.name,
		                 stamp, COALESCE(pstamp, cstamp), cstamp
		                 FROM SupIssue JOIN SupCategory ON SupCategory.id = cat
                                   JOIN WebUser ON WebUser.id = usr
		                 WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
				   AND (NOT priv OR usr = ^(C.intToSql usr)
				     OR (SELECT COUNT(*) FROM Membership WHERE Membership.usr = ^(C.intToSql usr)
                                       AND (Membership.grp = 0 OR Membership.grp = SupCategory.grp)) > 0)
			       UNION SELECT 'APT package', NULL, data, NULL, usr, name, stamp, cstamp, cstamp
			         FROM Apt JOIN WebUser ON WebUser.id = usr
				 WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
			       UNION SELECT 'Domain', NULL, data, NULL, usr, name, stamp, cstamp, cstamp
			         FROM Domain JOIN WebUser ON WebUser.id = usr
				 WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
			       UNION SELECT 'Mailing list', NULL, data, NULL, usr, name, stamp, cstamp, cstamp
			         FROM MailingList JOIN WebUser ON WebUser.id = usr
				 WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
			       UNION SELECT 'Security', NULL, data, NULL, usr, name, stamp, cstamp, cstamp
			         FROM Sec JOIN WebUser ON WebUser.id = usr
				 WHERE stamp >= CURRENT_TIMESTAMP - interval '^(C.intToSql days) DAYS'
		               ORDER BY stamp DESC`)
    end

end