remove sent-received tracking

This commit is contained in:
Roman Volosovskyi 2018-06-26 10:43:44 +03:00
parent e7427997d2
commit 42fe00d5cb
No known key found for this signature in database
GPG Key ID: 0238A4B5ECEE70DE
8 changed files with 4 additions and 57 deletions

1
.env
View File

@ -16,6 +16,5 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
DEBUG_WEBVIEW=1
INSTABUG_SURVEYS=1
GROUP_CHATS_ENABLED=0
FORCE_SENT_RECEIVED_TRACKING=0
USE_SYM_KEY=0
SPAM_BUTTON_DETECTION_ENABLED=1

View File

@ -16,5 +16,4 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
DEBUG_WEBVIEW=1
INSTABUG_SURVEYS=0
GROUP_CHATS_ENABLED=1
FORCE_SENT_RECEIVED_TRACKING=0
USE_SYM_KEY=0

View File

@ -16,7 +16,6 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
DEBUG_WEBVIEW=1
INSTABUG_SURVEYS=1
GROUP_CHATS_ENABLED=0
FORCE_SENT_RECEIVED_TRACKING=1
USE_SYM_KEY=0
SPAM_BUTTON_DETECTION_ENABLED=1
MAINNET_WARNING_ENABLED=1

View File

@ -16,6 +16,5 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
DEBUG_WEBVIEW=1
INSTABUG_SURVEYS=1
GROUP_CHATS_ENABLED=0
FORCE_SENT_RECEIVED_TRACKING=1
SPAM_BUTTON_DETECTION_ENABLED=1
MAINNET_WARNING_ENABLED=1

View File

@ -17,6 +17,5 @@ INSTABUG_TOKEN=758630ed52864cbad9c5eeeac596c60c
DEBUG_WEBVIEW=0
INSTABUG_SURVEYS=1
GROUP_CHATS_ENABLED=0
FORCE_SENT_RECEIVED_TRACKING=0
USE_SYM_KEY=0
MAINNET_WARNING_ENABLED=1

View File

@ -102,9 +102,7 @@
[context]
(let [new-db (get-coeffect context :db)
[event-name] (get-coeffect context :event)]
(when (or
(mixpanel/force-tracking? event-name)
(get-in new-db [:account/account :sharing-usage-data?]))
(when (get-in new-db [:account/account :sharing-usage-data?])
(let [event (get-coeffect context :event)
offline? (or (= :offline (:network-status new-db))
(= :offline (:sync-state new-db)))

View File

@ -135,8 +135,3 @@
[(update trigger :properties merge data)]
(map (partial update trigger :properties merge) data)))
[trigger]))))))
(defn force-tracking? [event-name]
(and config/force-sr-ratio-tracking
(contains? #{:signals/envelope-status :chat-received-message/add}
event-name)))

View File

@ -1,5 +1,4 @@
(ns status-im.utils.mixpanel-events
(:require [status-im.chat.models.message :as message-model]))
(ns status-im.utils.mixpanel-events)
;; This file is supposed to be edited by Chad.
;; Chad loves mixpanel. When Chad was a child he dreamed of being a mixpanel tamer.
@ -197,44 +196,4 @@
{:label "Tap"
:trigger [:my-profile/finish]
:properties {:target :seed-phrase
:type :step3-done}}
;; sent/receive ratio
{:label "SRratio"
:trigger [:signals/envelope-status]
:properties {:target :user-message-sent}
:filter-fn (fn [db [_ envelope-hash status]]
(when (= :sent status)
(let [{:keys [chat-id message-id]}
(get-in db [:transport/message-envelopes envelope-hash])
{:keys [message-type]}
(get-in db [:chats chat-id :messages message-id])]
(= :user-message message-type))))
:data-fn (fn [db [_ envelope-hash status]]
(when (= :sent status)
(let [{:keys [chat-id message-id]}
(get-in db [:transport/message-envelopes envelope-hash])
{:keys [message-type]}
(get-in db [:chats chat-id :messages message-id])]
{:message-id message-id
:message-type message-type})))}
{:label "SRratio"
:trigger [:chat-received-message/add]
:properties {:target :user-message-received}
:filter-fn (fn [db [_ messages]]
(some
(fn [{:keys [message-type] :as message}]
(and (= :user-message message-type)
(message-model/add-to-chat? {:db db} message)))
messages))
:data-fn (fn [db [_ messages]]
(keep
(fn [{:keys [message-id message-type] :as message}]
(when (and (= :user-message message-type)
(message-model/add-to-chat? {:db db} message))
{:message-type message-type
:message-id message-id}))
messages))}])
:type :step3-done}}])