27 lines
586 B
Plaintext
Executable File
27 lines
586 B
Plaintext
Executable File
# Copyright 2009 Google Inc. All Rights Reserved.
|
|
|
|
use URI::Escape;
|
|
|
|
use constant GA_ACCOUNT => 'ACCOUNT ID GOES HERE';
|
|
use constant GA_PIXEL => 'ga.pl';
|
|
|
|
sub google_analytics_get_image_url {
|
|
my $url = '';
|
|
$url .= GA_PIXEL . '?';
|
|
$url .= 'utmac=' . GA_ACCOUNT;
|
|
$url .= '&utmn=' . int(rand(0x7fffffff));
|
|
|
|
my $referer = $ENV{'HTTP_REFERER'};
|
|
my $query = $ENV{'QUERY_STRING'};
|
|
my $path = $ENV{'REQUEST_URI'};
|
|
|
|
if ($referer eq "") {
|
|
$referer = '-';
|
|
}
|
|
|
|
$url .= '&utmr=' . uri_escape($referer);
|
|
$url .= '&utmp=' . uri_escape($path);
|
|
$url .= '&guid=ON';
|
|
|
|
$url;
|
|
} |