diff options
| author | yo momma <shutup@oops.wtf> | 2026-02-03 22:01:05 +0000 |
|---|---|---|
| committer | yo momma <shutup@oops.wtf> | 2026-02-03 22:01:05 +0000 |
| commit | 36202d8defb26f87264914f60c39c768cff3729e (patch) | |
| tree | a57224b8bba7fc7a7c65a8c3b0408847e9043a3d /src/site.clj | |
| parent | d220d620e425ee6128c83229467e3ccac8f3ebf2 (diff) | |
Hump.fm: remove dump.fm branding
Diffstat (limited to 'src/site.clj')
| -rwxr-xr-x | src/site.clj | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/site.clj b/src/site.clj index 8ca26b8..2cd3314 100755 --- a/src/site.clj +++ b/src/site.clj @@ -163,7 +163,7 @@ ; v1: Format: v1%nick%expiry%token-hash ; Date: 2010/04/24 ; Note: Contains same information as v0, but created under the -; wildcard domain (i.e. ".dump.fm") so that logins work +; wildcard domain (i.e. ".hump.fm") so that logins work ; across all subdomains. (defn encode-login-token [nick hash expiry] @@ -176,7 +176,7 @@ (defn parse-login-token [token] ; If users have multiple login-cookies across different domains - ; (i.e. both "dump.fm" and ".dump.fm"), token will be a vector + ; (i.e. both "hump.fm" and ".hump.fm"), token will be a vector ; instead of a string. (if (not (string? token)) (some identity (map parse-login-token token)) @@ -1031,10 +1031,10 @@ WHERE user_id IN ;; timb: this can be called with a callback or not... ;; -;; dump.fm/cmd/search/foo -> [result, result] +;; hump.fm/cmd/search/foo -> [result, result] ;; cons: can only be ajax get'd from the same domain ;; -;; dump.fm/cmd/search/foo?callback=someFunc -> someFunc([result, result]) +;; hump.fm/cmd/search/foo?callback=someFunc -> someFunc([result, result]) ;; cons: has to use a <script> tag. seems to freeze browser until results returned ;; (defn json-search [undecoded-url-searchterms params] @@ -1058,7 +1058,7 @@ WHERE user_id IN (msg {:user_id 1 :nick "scottbot" :avatar "http://i.imgur.com/isKqZ.gif"} - {:room "dumpfm" + {:room *default-room* :content (rand-elt random-posts)})) (def random-poster @@ -1133,7 +1133,7 @@ WHERE user_id IN (let [spaceless (.replace s \space \-) nick-clean (re-gsub #"[^A-Za-z0-9]" "" nick) subbed (re-gsub #"[^\w.-]" "" spaceless)] - (str-join "-" [(System/currentTimeMillis) "dumpfm" nick-clean subbed]))) + (str-join "-" [(System/currentTimeMillis) *default-room* nick-clean subbed]))) (defn image-url-from-file [dir date file] (str-join "/" [*server-url* dir date (.getName file)])) |