From 36202d8defb26f87264914f60c39c768cff3729e Mon Sep 17 00:00:00 2001
From: yo momma <shutup@oops.wtf>
Date: Tue, 3 Feb 2026 22:01:05 +0000
Subject: Hump.fm: remove dump.fm branding

---
 src/site.clj | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/site.clj')

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)]))
-- 
cgit v1.2.3-70-g09d2