new-realm ( responder name class -- realm )

Vocabulary

furnace.auth

Inputs

responder	an object
name	an object
class	an object

Outputs

realm

an object

Definition

USING: accessors checksums.sha furnace.auth.providers.db
http.server.dispatchers io.sockets.secure kernel ;

IN: furnace.auth

: new-realm ( responder name class -- realm )
    new-dispatcher swap >>name swap >>default
    users-in-db >>users sha-256 >>checksum
    ssl-supported? >>secure ; inline