#!/usr/bin/perl -w # # Copyright 2009 Google Inc. All Rights Reserved.
use strict; use URI::Escape;
use constant GA_ACCOUNT => ‘MO-3845491-5’; 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;
}
print “Content-Type: text/html; charset=ISO-8859-1nn”; print ‘<html><head></head><body>’; print ‘<img src=“’ . google_analytics_get_image_url() . ‘” />’; print google_analytics_get_image_url(); print ‘</body></html>’;
exit (0);