Merge pull request circleci#3909 from circleci/fix-script-unicode-error

rosieyohannan · web-flow · commit d79e0bcc4a91 · 2019-11-08T09:06:07.000Z
adding gist link for org rename script
diff --git a/jekyll/_cci2/updating-server.adoc b/jekyll/_cci2/updating-server.adoc
@@ -16,132 +16,7 @@ or you suspect that an **organization rename might have happened at any point**.
 
 . SSH into your Services machine
 . REPL into `workflows-conductor` by running the following: `sudo docker exec -it workflows-conductor lein repl :connect 6005`
-. Copy/paste this script into the REPL session. It will run migration and output current progress.
-+
-```
-
-(def domain-client @workflows-conductor.domain.contexts/*domain-connection*)
-(def permissions-client @workflows-conductor.domain.contexts/*permissions-connection*)
-​
-;; Syncing orgs
-(require '[circleci.domain.client.orgs :as domain-orgs])
-​
-(defn get-domain-org
-  "Pass-through fn that actually makes API call to domain-service"
-  [org-id]
-  (domain-orgs/org-by-id domain-client org-id))
-​
-(defn new-domain-org
-  "Pass-through fn that actually makes API call to domain-service"
-  [org-data]
-  (domain-orgs/new-org domain-client org-data))
-​
-(defn sync-org
-  [org]
-  (when org
-    (let [domain-org (try
-                       (get-domain-org (:analytics-id org))
-                       (catch Exception e
-                         (println "ERROR: Exception while fetching org from domain-service" (:analytics-id org))
-                         (throw e)))
-          mongo-ids {:id (:analytics-id org)
-                     :external-id (str (or (:github-id org) (:bitbucket-id org)))}
-          domain-ids (select-keys domain-org [:id :external-id])]
-      (when-not (= mongo-ids domain-ids)
-        (let [new-domain-org (try
-                               (new-domain-org {:id (:analytics-id org)
-                                                :name (:name org)
-                                                :provider-id (:id (circle.services.domain/provider-by-type (:vcs-type org)))
-                                                :external-id (some-> (or (:github-id org) (:bitbucket-id org))
-                                                                     str)})
-                               (catch Exception e
-                                 (println "ERROR: Exception while creating an org" (:analytics-id org))
-                                 (throw e)))
-              new-domain-ids (select-keys new-domain-org [:id :external-id])]
-          (when-not (= mongo-ids new-domain-ids)
-            (println "ERROR: Orgs doesn't match after sync.\nMongo org:" mongo-ids "\ndomain-service org:" domain-ids)))))))
-​
-(defn sync-all-orgs
-  [last-id]
-  (loop [prev-id last-id]
-    (let [org (first (circle.model.organization/find-active :where (when prev-id {:_id {:$gt prev-id}})
-                                                            :only [:github-id :bitbucket-id :analytics-id :name :vcs-type]
-                                                            :limit 1
-                                                            :sort {:_id 1}))]
-      (when org
-        (println "Syncing org" (select-keys org [:_id :name]))
-        (try
-          (sync-org org)
-          (catch Exception e
-            (println e)))
-        (recur (:_id org))))))
-​
-;; Syncing contexts
-(require '[circleci.permissions.client.actors :as actors])
-(require '[circleci.permissions.client.permissions :as permissions])
-(require '[circleci.permissions.shared.permissions :as permissions-names])
-​
-(defn context-to-permission [{:contexts-service-client.context.response/keys [id name organization-ref] :as context}]
-  (println (format "\tCreating permissions for context '%s' (%s)" name id))
-  (try
-    (if-not (circleci.domain.client.contexts/context-by-id domain-client id)
-      (println (format "ERROR: context '%s' (%s) doesn't exist in domain-service") name id)
-      (when (empty? (actors/actors-allowed-to-run-contexts permissions-client [id]))
-        (permissions/new-permission permissions-client organization-ref permissions-names/run-context id)
-        (permissions/new-permission permissions-client organization-ref permissions-names/execute-context id)
-        (permissions/new-permission permissions-client organization-ref permissions-names/view-context id)
-        (permissions/new-permission permissions-client organization-ref permissions-names/edit-context-vars id)))
-​
-    (catch Exception e
-      (println (format "\tERROR: Unexpected error while creating permissions: '%s'" (.getMessage e))))))
-​
-(defn context-to-domain
-  [{:contexts-service-client.context.response/keys [id name organization-ref] :as context}]
-  (try
-    (println (format "\tMigrating context '%s' (%s)" name id))
-    (circleci.domain.client.contexts/new-context domain-client id name organization-ref nil)
-​
-    (catch clojure.lang.ExceptionInfo e
-      (let [{:keys [status body]} (ex-data e)
-            {:keys [errors]} (cheshire.core/parse-string body true)]
-        (cond
-          ;; context already migrated
-          (and (= status 400)
-               (= 1 (count errors))
-               (= "key_duplication" (some-> errors first :type)))
-          nil
-​
-          ;; org not found
-          (and (= status 400)
-               (= 1 (count errors))
-               (= "bad_argument" (some-> errors first :type))
-               (= "org_id" (some-> errors first :value)))
-          (println "\tERROR: domain-service doesn't know org with id" organization-ref)
-​
-          :else
-          (println "\tERROR: Failed to create a context in domain-service:" (ex-data e)))))
-​
-    (catch Exception e
-      (println (format "\tERROR: Unexpected error while creating context in domain-service: '%s'" (.getMessage e))))))
-​
-(defn migrate-contexts
-  []
-  (doseq [org (circle.model.organization/find-active :where {} :only [:analytics-id :name])]
-    (println (format "Migrating contexts for org '%s' (%s)" (:name org) (:analytics-id org)))
-    (doseq [context (contexts-service-client.core/list-contexts @workflows-conductor.domain.contexts/*contexts-connection* (:analytics-id org))]
-      (context-to-domain context)
-      (context-to-permission context))))
-​
-(defn migrate
-  []
-  (println "===== Syncing orgs =====\n")
-  (sync-all-orgs nil)
-  (println "\n==== Syncing contexts =====\n")
-  (migrate-contexts))
-​
-(migrate)
-```
-
+. Go to this link for the https://gist.githubusercontent.com/BoVice/49a5a98e93508e7913b7d62d6e5de68b/raw/e354eb42a97ca509809eaafe7b28052481702b9e/org-rename.cjl[org rename script]. Copy/paste this script into the REPL session. It will run migration and output current progress.
 . If any `ERROR` messages are present in the output please report back to your CSM or reach out to support.
 
 == Upgrade Steps Overview
