diff options
| author | bjorn <bjorn@bringert.net> | 2008-08-24 17:39:24 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-08-24 17:39:24 +0000 |
| commit | 5c0487200f2642ffe597431ae4f685a0f35d35f1 (patch) | |
| tree | 62f3351394e2dca4087544801dc96c89e834ace2 /src/server/MainFastCGI.hs | |
| parent | 23a6375ced4110e650cb3b4ab10614f6a5314995 (diff) | |
URL decode text input in fastcgi server, including %uXXXX sequences.
Diffstat (limited to 'src/server/MainFastCGI.hs')
| -rw-r--r-- | src/server/MainFastCGI.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/server/MainFastCGI.hs b/src/server/MainFastCGI.hs index 230e09b00..b7af9fce4 100644 --- a/src/server/MainFastCGI.hs +++ b/src/server/MainFastCGI.hs @@ -3,6 +3,7 @@ import PGF (PGF) import qualified PGF import FastCGIUtils +import URLEncoding import Network.CGI import Text.JSON @@ -42,7 +43,7 @@ cgiMain pgf = outputJSON json where getText :: CGI String - getText = liftM (fromMaybe "") $ getInput "input" + getText = liftM (maybe "" urlDecodeUnicode) $ getInput "input" getTree :: CGI PGF.Tree getTree = do mt <- getInput "tree" |