Question

我想使用web公式来过滤存储在mongo-db中的记录。

我的查询功能使用如下过滤器：

(defun models (filter)
  (docs (db.find *model-collection*
      filter
      :limit 1)))

当我在SBCL中使用它时，它可以使用以下命令之一检索记录{“NAME”：“a1”}：

(models ($ "NOM" "a1"))
(models (eval (read-from-string "(kv \"NOM\" \"a1\")")))

(<DOCUMENT> : { 
_id : CL-MONGO::BSON-OID ...elements : 14})

现在我添加了在Hunchentoot中开发的Web界面，一个用于查询表格式，另一个用于显示响应：

(define-easy-handler (test :uri "/test") () 
  (with-html-output-to-string (*standard-output* nil :prologue t :indent t)
    (:html 
     (:body
      (:h1 "Test")
      (:form :action "/test1" :method "post" :id "addform"
       (:input :type "text" :name "name" :class "txt")
       (:input :type "submit" :class "btn" :value "Submit"))))))

(define-easy-handler (test1 :uri "/test1") (name)
 (with-html-output-to-string (*standard-output* nil :prologue t :indent t)  
  (:html 
   (:body  
    (:h1 "My List")
       (:p (str (models name)))))))

当我在提交表单中输入以下过滤条件时：（$“NAME”“a1”），我在显示页面上收到错误，并在SBCL中显示以下日志：

compiling (DEFINE-EASY-HANDLER (TEST1 :URI ...) ...)
[2015-02-12 15:41:47 [ERROR]] The value #\( is not of type (UNSIGNED-BYTE 8).

17: ((SB-PCL::FAST-METHOD CL-MONGO:DB.FIND (STRING T))
    #<unused argument>
    #<unused argument>
    "mycollection"
    "($ \"NOM\" \"a1\")"
   :MONGO
   NIL
   :OPTIONS
   0
   :SKIP
   0
   :LIMIT
   1
   :SELECTOR
   NIL)
18: (WEB-TEST::MODELS2 "($ \"NOM\" \"a1\")")
19: (WEB-TEST::TEST1 :NAME NIL)

它在test1中尝试了几个预转换，例如：

(:p (str (models (eval (read-from-string name)))))
or (:p (str (models (eval (esc name)))))

但它们都没有正常工作。有人可以提供建议吗？

Answer 1

您正在将字符串传递给models，而不是$生成的过滤器。在外部输入上使用eval也是非常糟糕的主意。

您可以将名称传递给处理程序并从中构建过滤器：

(:p (str (models ($ "NOM" name))))

使用a1作为name来调用您的处理程序。

我通常不会建议让用户传入未经检查的任意表达式。

如何在Hunchentoot中将POST作为函数的参数？

1 个答案: