[hcoop/portal.git] / passgen.sml

structure PassGen :> PASSGEN = struct

open Sql Init

fun lookup id =
    let
	val db = C.conn Config.passgenDbstring
    in
	(case C.oneOrNoRows db ($`SELECT pass FROM Pass WHERE id = ^(C.intToSql id)`) of
	     NONE => NONE
	   | SOME [pass] => SOME (C.stringFromSql pass)
	   | _ => raise Fail "Bad \"SELECT pass\" row")
	before C.close db
    end

end
Commit	Line	Data
4e2ac985 AC	1	structure PassGen :> PASSGEN = struct
	2
	3	open Sql Init
	4
	5	fun lookup id =
	6	let
	7	val db = C.conn Config.passgenDbstring
	8	in
	9	(case C.oneOrNoRows db ($`SELECT pass FROM Pass WHERE id = ^(C.intToSql id)`) of
	10	NONE => NONE
	11	\| SOME [pass] => SOME (C.stringFromSql pass)
	12	\| _ => raise Fail "Bad \"SELECT pass\" row")
	13	before C.close db
	14	end
	15
	16	end