adding client to turtl feedback.

Author: orthecreedence

controllers/feedback.lisp

@@ -4,7 +4,8 @@
   "Gather feedback and email it to the Turtl admins."
   (alet* ((user-id (user-id req))
           (feedback-data (post-var req "data"))
-          (feedback (send-feedback user-id feedback-data)))
+          (client (get-client req))
+          (feedback (send-feedback user-id feedback-data client)))
     (track "feedback" nil req)
     (send-json res feedback)))
 

models/email.lisp

@@ -39,7 +39,7 @@ The Turtl Team
 "))
 
 (defparameter *emails-feedback* (format nil "~
-You have received feedback from {{email}} (user id {{user-id}}):
+You have received feedback from {{email}} (user id {{user-id}}, client {{client}}):
 
 ********
 
@@ -158,10 +158,12 @@ Please respond in a timely manner!"))
   "Send feedback to a Turtl admin email."
   (let* ((msg *emails-feedback*)
          (email (gethash "email" feedback-data))
+         (client (gethash "client" feedback-data))
          (to-email *admin-email*)
          (body (gethash "body" feedback-data))
          (user-id (gethash "user_id" feedback-data))
          (tpl-vars `(:user-id ,user-id
+                     :client ,client
                      :email ,email
                      :body ,body))
          (subject (format nil "New Turtl feedback from ~a" email))

models/feedback.lisp

@@ -3,12 +3,14 @@
 (defvalidator validate-feedback
   (("user_id" :type id :required t)
    ("email" :type string :required t)
+   ("client" :type string)
    ("body" :type string :required t))
   :old t)
 
-(defafun send-feedback (future) (user-id feedback-data)
+(defafun send-feedback (future) (user-id feedback-data client)
   "Send feedback posted by a user to the proper channels (email, most likely)."
-  (setf (gethash "user_id" feedback-data) user-id)
+  (setf (gethash "user_id" feedback-data) user-id
+        (gethash "client" feedback-data) client)
   (unless (gethash "email" feedback-data)
     (setf (gethash "email" feedback-data) "nobody@turtl.it"))
   (validate-feedback (feedback-data future)