Add opt-out option and profile tracking

moon/autorun/gm_mixpanel.moon

@@ -7,6 +7,7 @@ playerIdentifierEvent = "Mixpanel_PlayerIdentifier"
 if SERVER
     AddCSLuaFile "includes/modules/mixpanel.lua"
     AddCSLuaFile "gm_mixpanel/cl_mixpanel.lua"
+    AddCSLuaFile "gm_mixpanel/cl_menu.lua"
     AddCSLuaFile "gm_mixpanel/base.lua"
 
     util.AddNetworkString playerIdentifierEvent

moon/gm_mixpanel/base.moon

@@ -34,6 +34,10 @@ class MixpanelBase
         @MAX_QUEUE_SIZE = 50
         @eventQueue = {}
 
+    _getToken: => getToken!
+
+    _getTimestamp: => getTimestamp!
+
     _clearQueue: =>
         queueSize = #@eventQueue
         for i = 1, queueSize
@@ -73,8 +77,8 @@ class MixpanelBase
     _trackEvent: (eventName, eventProperties, reliable=false) =>
         @_startQueueGroomer! unless timerExists @queueTimer
 
-        eventProperties.token = getToken!
-        eventProperties.time = getTimestamp!
+        eventProperties.token = @_getToken!
+        eventProperties.time = @_getTimestamp!
 
         data =
             event: eventName

moon/gm_mixpanel/cl_menu.moon

@@ -0,0 +1,13 @@
+import AddToolCategory, AddToolMenuOption from spawnmenu
+optOut = GetConVar "mixpanel_opt_out"
+
+populatePanel = (panel) ->
+    label = "Opt out of player telemetry"
+    panel\CheckBox label, "mixpanel_opt_out"
+
+hook.Add "AddToolMenuCategories", "Mixpanel_Menu_Category",  ->
+    AddToolCategory "Options", "Telemetry", "Telemetry"
+
+hook.Add "PopulateToolMenu", "Mixpanel_MenuOption", ->
+    AddToolMenuOption "Options", "Telemetry", "mixpanel_opt_out", "Telemetry", "", "", (panel) ->
+        populatePanel panel

moon/gm_mixpanel/cl_mixpanel.moon

@@ -1,15 +1,19 @@
 import Merge from table
 MixpanelBase = include "gm_mixpanel/base.lua"
 
+optOut = CreateClientConVar "mixpanel_opt_out", 0, true, true, "", 0, 1
+include "gm_mixpanel/cl_menu.lua"
+
 class MixpanelInterface extends MixpanelBase
     getIdentifiers = -> {
         distinct_id: LocalPlayer!\SteamID64!
         ip: LocalPlayer!.mixpanelIdentifier
     }
 
     TrackEvent: (name, properties={}, reliable=false) =>
-        Merge properties, getIdentifiers!
+        return if optOut\GetBool!
 
+        Merge properties, getIdentifiers!
         @_trackEvent name, properties, reliable
- 
+
 export Mixpanel = MixpanelInterface!

moon/gm_mixpanel/sv_mixpanel.moon

@@ -1,6 +1,7 @@
 import CRC from util
 import Merge from table
 MixpanelBase = include "gm_mixpanel/base.lua"
+include "gm_mixpanel/sv_profile.lua"
 
 class MixpanelInterface extends MixpanelBase
     _getPlyIdentifiers: (ply) => {
@@ -13,6 +14,8 @@ class MixpanelInterface extends MixpanelBase
         @_trackEvent name, properties, reliable
 
     TrackPlyEvent: (name, ply, properties={}, reliable=false) =>
+        return if ply\GetInfoNum("mixpanel_opt_out", 0) == 1
+
         Merge properties, @_getPlyIdentifiers ply
         @_trackEvent name, properties, reliable
 

moon/gm_mixpanel/sv_profile.moon

@@ -0,0 +1,35 @@
+import CRC from util
+timerExists = timer.Exists
+MixpanelBase = include "gm_mixpanel/base.lua"
+
+class MixpanelProfileInterface extends MixpanelBase
+    new: =>
+        super!
+        @trackUrl = "http://api.mixpanel.com/engage"
+        @queueTimer = "Mixpanel_ProfileQueueGroomer"
+
+    _getPlyIdentifiers: (ply) => {
+        distinct_id: ply\SteamID64!
+        ip: CRC ply\IPAddress!
+    }
+
+    _trackEvent: => error "Not Implemented!"
+
+    _trackProfile: (plyData) =>
+        @_startQueueGroomer! unless timerExists @queueTimer
+
+        plyData.token = @_getToken!
+        plyData.time = @_getTimestamp!
+
+        @_queueEvent data
+
+    MakeProfile: (ply) =>
+        return if ply\GetInfoNum("mixpanel_opt_out", 0) == 1
+
+        data = @_getPlyIdentifiers ply
+        @_trackProfile @_getPlyIdentifiers ply
+
+profileInterface = MixpanelProfileInterface!
+
+hook.Add "PlayerInitialSpawn", "Mixpanel_TrackProfile", (ply) ->
+    profileInterface\MakeProfile ply