Skip to content

Instantly share code, notes, and snippets.

Created Dec 26, 2012
What would you like to do?
Google Analytics Tracker Ring middleware for custom apis
(:use [ring.util.codec :only [url-encode]])
(defn- make-query-string [m]
(->> (for [[k v] m]
(str (url-encode k) "=" (url-encode (str v))))
(interpose "&")
(apply str)))
(defn make-ga-url [utmp ip]
(let [gif-url ""
url-map (atom {})
add-key (fn [k v]
(swap! url-map assoc (name k) v))]
(add-key :utmac "MO-XXXXXX") ;; use MO not UA
(add-key :utmn (rand-int 0x7fffffff))
(add-key :utmr "-")
(add-key :utmp utmp)
(add-key :utmdebug 1)
(add-key :guid "ON")
(add-key :utmwv "4.4sh")
(add-key :utmcc "__utma=999.999.999.999.999.1")
(add-key :utmvid "0xa5a576be59cbd6e4") ;; I dont know whats is this...
(add-key :utmip ip)
(str gif-url (make-query-string @url-map))))
(defn wrap-ga
(fn [request]
(let [url (make-ga-url (str (:uri request) "?" (:query-string request)) (:remote-addr request))]
(prn url)
(slurp url)
(handler request))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment