diff --git a/lib/PZ/Helpers/Core.pm b/lib/PZ/Helpers/Core.pm index 3e69092488511af4be7499ee5f39ba2dfdf10266..92e8149e53cae26c26c7a5b1ef1d5dcd67864825 100644 --- a/lib/PZ/Helpers/Core.pm +++ b/lib/PZ/Helpers/Core.pm @@ -5,6 +5,16 @@ use base 'Mojolicious::Plugin'; use YAML; use Mojo::URL; +use constant TRACKERS => [qw( + fbclid + gclid + utm_medium + utm_source + utm_campaign + utm_content + utm_term +)]; + sub register { my ($class, $self ) = @_; @@ -92,8 +102,10 @@ sub register { my $c = shift; my $url = Mojo::URL->new(shift); - $url->query({ fbclid => undef }); + foreach my $tracker ( @{ TRACKERS() }) { + $url->query({ $tracker => undef }); + } return $url->to_string; });