diff options
author | 2009-06-23 17:59:23 -0400 | |
---|---|---|
committer | 2009-06-23 17:59:23 -0400 | |
commit | 5574caafb5da61e7938eec476975bf82cbf98b97 (patch) | |
tree | 767ed7f7342d56957d23eea82004fb2f2d85e032 /src/settings.sml | |
parent | 32b2d196fc02ca4f9f87574e6da1ffa6c1ea12ab (diff) |
cgi protocol
Diffstat (limited to 'src/settings.sml')
-rw-r--r-- | src/settings.sml | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/src/settings.sml b/src/settings.sml index 75c879f7..e1dcc809 100644 --- a/src/settings.sml +++ b/src/settings.sml @@ -266,9 +266,15 @@ val http = {name = "http", supportsPush = true} val () = addProtocol http +val () = addProtocol {name = "cgi", + link = clibFile "request.o" ^ " " ^ clibFile "cgi.o", + supportsPush = false} val curProto = ref http -fun setProtocol p = curProto := p +fun setProtocol name = + case getProtocol name of + NONE => raise Fail ("Unknown protocol " ^ name) + | SOME p => curProto := p fun currentProtocol () = !curProto end |