metaclass (metaclass) wrote,
metaclass
metaclass

Clojure and Apache commons daemon

Делаю из приложения на clojure сервис для винды, с помощью apache commons daemon.


prunsrv //US//FBRestService --DisplayName="Operden reporting service" --Install=D:\Programm\Clojure\Daemon\prunsrv.exe --Jvm=D:\Programm\Java\jdk1.6.0_25\jre\bin\server\jvm.dll --StartMode=jvm --StopMode=jvm --Classpath=F:\Operden\classes\;F:\Operden\lib\* --StartClass=Operden.main  --StartMethod=start --StopClass=Operden.main --StopMethod=stop 



в главный класс пришлось добавить следующее вуду в (ns):


(ns
  ....много (:use)....
  (:gen-class
    :name Operden.main
    :methods [ #^{:static true} [start ["[Ljava.lang.String;"] void] 
               #^{:static true} [stop ["[Ljava.lang.String;"] void] 
             ]
  )
)



И методы start и stop со специальным префиксом:


(defn -start
   [& args]
   (let [port (Integer/parseInt (get mainConfig "server.http.port" "3080"))] 
        (org.apache.log4j.BasicConfigurator/configure)
        (info "-----------------------------------------")  
        (info "server starting ")  
        (update-state :server (run-jetty app {:port port :join? false}))
        (info "server started ")   
   )  
)

(defn -stop
   [& args]
   (info "server stopping ")  
   (.stop (get-state :server))
   (info "server stopped ")      
)



Далее запускаем prunmgr.exe и рулим сервисом, ну или рулим из консоли net start/net stop или sc start /sc stop

Основная дурь оказалась - правильно сигнатуры методов оформить и заставить методы с правильными именами генерится. Хинт типа для массива строк я не нашел, поэтому указал имя типа в лоб.
Осталось разобраться с тремя вещами: откуда оно берет конфиг log4j, как заставить его писать логи в папку доступную сервисюу и почему при стопе сервиса prunsrv.exe валится с исключением.
Subscribe
  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your reply will be screened

    Your IP address will be recorded 

  • 0 comments