summaryrefslogtreecommitdiffstats
path: root/src/sch
diff options
context:
space:
mode:
Diffstat (limited to 'src/sch')
-rw-r--r--src/sch/asdc_client.clj2
-rw-r--r--src/sch/core.clj25
2 files changed, 14 insertions, 13 deletions
diff --git a/src/sch/asdc_client.clj b/src/sch/asdc_client.clj
index 702c571..a9742b3 100644
--- a/src/sch/asdc_client.clj
+++ b/src/sch/asdc_client.clj
@@ -44,7 +44,7 @@
(defn construct-service-path
[service-uuid]
- (str "/asdc/v1/catalog/services/" service-uuid "/metadata"))
+ (str "/sdc/v1/catalog/services/" service-uuid "/metadata"))
(defn get-artifact!
diff --git a/src/sch/core.clj b/src/sch/core.clj
index 8684576..a5e1998 100644
--- a/src/sch/core.clj
+++ b/src/sch/core.clj
@@ -92,24 +92,25 @@
[config]
(let [config-asdc (:asdcDistributionClient config)]
(proxy [IConfiguration] []
- (getAsdcAddress [] (:asdcAddress config-asdc))
- (getUser [] (:user config-asdc))
- (getPassword [] (:password config-asdc))
- (getPollingInterval [] (:pollingInterval config-asdc))
- (getPollingTimeout [] (:pollingTimeout config-asdc))
+ (getAsdcAddress [] (str (:asdcAddress config-asdc)))
+ (getUser [] (str (:user config-asdc)))
+ (getPassword [] (str (:password config-asdc)))
+ (getPollingInterval [] (int (:pollingInterval config-asdc)))
+ (getPollingTimeout [] (int (:pollingTimeout config-asdc)))
; Note: The following didn't work
; (. Arrays asList (. ArtifactTypeEnum values))
; Also, cannot just use a narrow list of artifact types in order
; to handle the deletion scenario.
(getRelevantArtifactTypes [] (java.util.ArrayList.
(get-dcae-artifact-types)))
- (getConsumerGroup [] (:consumerGroup config-asdc))
- (getConsumerID [] (:consumerId config-asdc))
- (getEnvironmentName [] (:environmentName config-asdc))
- (getKeyStorePath [] (:keyStorePath config-asdc))
- (getKeyStorePassword [] (:keyStorePassword config-asdc))
- (activateServerTLSAuth [] (:activateServerTLSAuth config-asdc))
- (isFilterInEmptyResources [] (:isFilterInEmptyResources config-asdc))
+ (getConsumerGroup [] (str (:consumerGroup config-asdc)))
+ (getConsumerID [] (str (:consumerId config-asdc)))
+ (getEnvironmentName [] (str (:environmentName config-asdc)))
+ (getKeyStorePath [] (str (:keyStorePath config-asdc)))
+ (getKeyStorePassword [] (str (:keyStorePassword config-asdc)))
+ (activateServerTLSAuth [] (boolean (:activateServerTLSAuth config-asdc)))
+ (isFilterInEmptyResources [] (boolean (:isFilterInEmptyResources config-asdc)))
+ (isUseHttpsWithDmaap [] (contains? config-asdc :useHttpsWithDmaap) (Boolean/valueOf(str (:useHttpsWithDmaap config-asdc))) true)
)))
(defn run-distribution-client!