import Network.Browser
import Network.HTTP
import Network.HTTP.Lucu
+import Network.HTTP.Lucu.Response
import Network.HTTP.Lucu.Utils
import Network.URI
import Rakka.Environment
| otherwise
= do tbListM <- return . fromMaybe [] =<< getAttachment (envStorage env) (pageName page) "trackbacks" Nothing
st <- putAttachment (envStorage env) Nothing Nothing (pageName page) "trackbacks" (tbParam : tbListM)
- setStatus st
+ if isSuccessful st then
+ outputResponse NoError
+ else
+ setStatus st
validateTrackBack :: [(String, String)] -> Resource (Maybe TrackBack)
validateTrackBack form
= do let title = get' "title"
excerpt = get' "excerpt"
- blogName = get' "blogName"
+ blogName = get' "blog_name"
case get' "url" of
Nothing
-> do outputResponse (Error 1 "Parameter `url' is missing.")