servlets - Clojure、Servlet 和 JWT

Question

编辑：对于工作示例，请查看此演示项目。

免责声明：我完全是构建 Java Web 应用程序的菜鸟。

我正在尝试将JWT与 Clojure 一起使用，但我根本不知道如何处理这个“servlet”的东西。到目前为止，我的想法是：

创建一个WApplication带有“Hello World”的表单。

(defn make-hello-app [env]
  (let [wapp (WApplication. env)
        root (.getRoot wapp)]
    (.setTitle wapp "Hello world")
    (.addWidget root (WText. "Hello!!!!"))
    wapp))

创建一个 servlet，继承自WtServlet.

(def servlet
  (proxy [WtServlet] []
    (createApplication [env]
      (make-hello-app env))))

启动码头并使用 servlet。这是我不知道该怎么做。到目前为止，这是我最好的镜头：

(ns jwttest.core
  (:use compojure.core)
  (:use ring.adapter.jetty)
  (:import (org.eclipse.jetty.server Server))
  (:import (eu.webtoolkit.jwt WApplication WEnvironment WtServlet WText WPushButton WLineEdit WBreak)))

;; (the funcions above were defined here)

;; create a jetty server
(defn create-a-jetty-server []
  (let [connector (doto (SelectChannelConnector.)
                        (.setPort 8080)
                        (.setHost "localhost"))
     server (doto (Server.)
                  (.addConnector connector)
                  (.setSendDateHeader true))]
     server))

 ;; start the application
 (defn start-the-app []
   (let [server (create-a-jetty-server)]
      ;; ???? .addServlet ? How?
      (.start server)))

在我的project.clj我有：

[org.clojure/clojure "1.4.0"]
[eu.webtoolkit/jwt "3.2.0"]
[compojure "1.1.1"]
[ring "1.1.2"]

我知道 ring 可以从处理程序创建一个 servlet，但在这种情况下，我已经有一个 servlet，所以......我应该怎么做才能运行它？

注意：我的代码基于2009 年发表的这篇非常古老的帖子。

score 4 · Accepted Answer

我挖掘了一些Jetty API和Ring / Noir码头处理代码，这是我发现的摘要（并且没有机会测试）

Jetty Server 有一个“setHandler”方法，它接受一个处理程序（感谢 Ring）
有一个 ServletHandler 类，它看起来适合上面的内容，并且有许多类似于 addServlet 的方法，它们看起来就像你需要它们做的那样。

您应该能够将处理程序设置为 Servlet 处理程序并从那里开始。

servlets - Clojure、Servlet 和 JWT

1 回答 1

Related

Reference