val listUsers : int -> (bool * Init.user) list
(* List users and indicate whether they participated in a transaction *)
+ val lookupHostingUsage : int -> string option
+
type charge = {trn : int, usr : int, amount : real}
val addCharge : charge -> unit
val listChargesWithNames : int -> (string * charge) list
val clearCharges : int -> unit
- val applyCharges : Init.C.conn -> int -> unit
+ val applyCharges : int -> unit
val addEvenCharges : int * int list -> unit
type hosting = {trn : int, cutoff : int, cost : real, usage : string}
val addHostingCharges : hosting -> unit
-end
\ No newline at end of file
+
+ val equalizeBalances : unit -> unit
+
+ val costBase : real -> real
+
+ val delinquentPledgers : unit -> { id : int, name : string, shares : int, balance : real } list
+ val resetPledges : int list -> unit
+
+ val freezeworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
+ val bootworthyPledgers : unit -> { id : int, name : string, balance : real, joinedThisMonth : bool } list
+
+ val billDues : {descr : string, base : real, date : string} -> unit
+end