When authorizations are valid, then order becomes ready

Author: danielsz

meyvn.edn

@@ -1,7 +1,7 @@
 {:pom
  {:group-id "org.danielsz",
   :artifact-id "certificaat",
-  :version "2.0.6",
+  :version "2.0.8",
   :name "certificaat"},
  :packaging
  {:uberjar

resources/logback.xml

@@ -6,7 +6,7 @@
     </encoder>
   </appender>
 
-  <root level="info">
+  <root level="debug">
     <appender-ref ref="STDOUT" />
   </root>
 

src/certificaat/fsm.clj

@@ -30,8 +30,8 @@
                                                                 (exit 0 "Are you ready to accept the challenges? Please enable a plugin.")))
                                             :next-state :find-authorizations}
                                            {:valid-when [#(k/valid? (str config-dir domain "/authorization." domain ".url") options)]
-                                            :side-effect #(k/finalize-order options)
-                                            :next-state :find-certificate}
+                                            :side-effect #(do)
+                                            :next-state :find-order}
                                            {:valid-when [#(k/invalid? (str config-dir domain "/authorization." domain ".url") options)]
                                             :side-effect #(log/warn "Authorization is invalid. Please reissue order")
                                             :next-state :find-order}
@@ -42,8 +42,8 @@
                                    :side-effect #(k/authorize options)
                                    :next-state :find-authorizations}
                                   {:valid-when [#(k/ready? (str config-dir domain "/order.url") options)]
-                                   :side-effect #(k/authorize options)
-                                   :next-state :find-authorizations}
+                                   :side-effect #(k/finalize-order options)
+                                   :next-state :find-certificate}
                                   {:valid-when [#(k/invalid? (str config-dir domain "/order.url") options)]
                                    :side-effect #(log/warn "Order is invalid. We should delete serialized order")
                                    :next-state nil}