Issue http 405 for anything but POST on RPC

Fixes #481
2016-02-01 22:52:57 -08:00
parent aec11e34a7
commit a0ef4eae4d
4 changed files with 13 additions and 2 deletions
@@ -155,7 +155,7 @@ app dbStructure conf reqBody req =
          filterCol _ _ _ =  False
      return $ responseLBS status200 [jsonH, allOrigins] $ cs body

-    (ActionInvoke, TargetIdent qi,
+    (ActionInvoke, TargetProc qi,
     Just (PayloadJSON (UniformObjects payload))) -> do
      exists <- H.query qi doesProcExist
      if exists
@@ -178,6 +178,8 @@ app dbStructure conf reqBody req =

    (ActionUnknown _, _, _) -> return notFound

+    (_, TargetProc _, _) -> return $ responseLBS status405 [] ""
+
    (_, TargetUnknown _, _) -> return notFound

    (_, _, Just (PayloadParseError e)) ->