From 04eb6244978770138b0b624de32a8304087d911e Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Sun, 22 Apr 2012 21:57:35 +0200 Subject: * removed captchas (well, commented them out) --- src/Blog.hs | 2 +- src/Main.hs | 6 ++++-- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/src/Blog.hs b/src/Blog.hs index 7f6891cf6e7d..d7a53e1f4225 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -140,7 +140,7 @@ renderCommentBox cLang cId = do H.p $ H.input ! A.name "cname" ! A.placeholder "Name" ! A.class_ "cInput" H.p $ H.label $ H.textarea ! A.name "ctext" ! A.cols "50" ! A.rows "13" ! A.class_ "cInput" ! A.placeholder (toValue $ cTextPlaceholder cLang) $ mempty - H.p $ H.label $ captcha + -- H.p $ H.label $ captcha H.p $ H.input ! A.class_ "cInput" ! A.style "width: 120px;" ! A.type_ "submit" ! A.value (toValue $ cSend cLang) renderComments :: [Comment] -> BlogLang -> Html diff --git a/src/Main.hs b/src/Main.hs index c34725081623..4d1ec4af5788 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -149,7 +149,9 @@ addComment acid lang captchakey eId = do nComment <- Comment <$> pure now <*> lookText' "cname" <*> pure (commentEscape nCtext) - -- captcha verification + update' acid (AddComment eId nComment) + >> seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse()) + {- -- captcha verification challenge <- look "recaptcha_challenge_field" response <- look "recaptcha_response_field" (userIp, _) <- askRq >>= return . rqPeer @@ -157,7 +159,7 @@ addComment acid lang captchakey eId = do case validation of Right _ -> update' acid (AddComment eId nComment) >> seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse()) - Left _ -> (liftIO $ putStrLn "Captcha failed") >> seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse()) + Left _ -> (liftIO $ putStrLn "Captcha failed") >> seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse()) -} commentEscape :: Text -> Text commentEscape = newlineEscape . ltEscape . gtEscape . ampEscape -- cgit 1.4.1