         )
       )
     )
+  (log/log-message "STOP crawler!!!")
   )
 
 (defn -main

  [repeatCnt sleepMsec]
  (log/configure-logback "/courtauction-logback.xml")
  (config/config-yaml "/application-context.yaml") 
  (log/log-message "START crawler!!!")
  (loop [dao-impl# (f/get-obj :courtauction-dao) cnt 0]
    (doseq [sido (config/get-value :location.SidoCd)]
      (add-courtauctions! dao-impl# sido 20)
      )
    (if (or (= repeatCnt -1) (< cnt repeatCnt))
      (do 
        (Thread/sleep sleepMsec)

  (let [argsCnt (count args)
        repeatCnt (ref 1)
        sleepMsec (ref 1000)]
    (dosync
      (if (= argsCnt 1)
        (ref-set repeatCnt (Integer/parseInt (first args)))
        (if (>= argsCnt 2)
          (do
            (ref-set repeatCnt (Integer/parseInt (first args)))
            (ref-set sleepMsec (Integer/parseInt (second args)))
            )
          )
        )
      )
    (if (= repeatCnt -1)
      (.start (Thread. -launch repeatCnt sleepMsec))
      (-launch @repeatCnt @sleepMsec)
      )
    )
  )