fix url validator to accept localhost

Author: jmaeng72

ingest-app/src/cmr/ingest/api/subscriptions.clj

@@ -84,7 +84,7 @@
   [subscription-concept]
   (let [method (:Method subscription-concept)
         endpoint (:EndPoint subscription-concept)
-        default-url-validator (UrlValidator.)]
+        default-url-validator (UrlValidator. UrlValidator/ALLOW_LOCAL_URLS)]
 
     (if (= method "ingest")
       (if-not (or (some? (re-matches #"arn:aws:sqs:.*" endpoint)) (.isValid default-url-validator endpoint))

message-queue-lib/src/cmr/message_queue/queue/aws_queue.clj

@@ -33,7 +33,7 @@
        (.build))))
 
 (defn create-queue
-  "Create an instance of a an AWS queue in either AWS or elasticMQ."
+  "Create an instance of an AWS queue in either AWS or elasticMQ."
   [sqs-client queue-name]
   (try
     (let [sqs-request (-> (CreateQueueRequest/builder)

metadata-db-app/src/cmr/metadata_db/services/subscriptions.clj

@@ -122,7 +122,7 @@
 (defn- is-valid-subscription-endpoint-url
   "Checks if subscription endpoint destination is a valid url. Returns true or false."
   [endpoint]
-  (let [default-validator (UrlValidator.)]
+  (let [default-validator (UrlValidator. UrlValidator/ALLOW_LOCAL_URLS)]
     (.isValid default-validator endpoint)))
 
 (defn- send-sub-to-url-dest

metadata-db-app/test/cmr/metadata_db/test/services/subscriptions_test.clj

@@ -711,6 +711,14 @@
           (let [fun #'cmr.metadata-db.services.subscriptions/is-valid-subscription-endpoint-url]
             (is (= expected (fun endpoint))))
 
+          "valid local url -- with http prefix"
+          true
+          "http://localhost:9324/000000000000"
+
+          "valid local url -- with https prefix"
+          true
+          "https://localhost:9324/000000000000"
+
           "valid url -- with https prefix"
           true
           "https://www.google.com"