view release on metacpan or  search on metacpan

lib/Apache2/Filter/GoogleAnalytics.pm  view on Meta::CPAN

# mod_perl dispatches here
sub handler
{
	my $filter = shift;

	my $parser = new HTML::Parser (
		api_version => 3,
		end_h => [\&end_handler, 'self, tagname, text'],
		default_h => [\&default_handler, 'self, text'],
	);
	# This is opaque structure passed to callbacks
	$parser->{filter} = $filter;

	# If the GA ID is present, format the GA Code
	# Only for HTML resources
	my $config = Apache2::Module::get_config (__PACKAGE__,
		$filter->r->server, $filter->r->per_dir_config);
	$parser->{ga_code} = '';
	$parser->{ga_code} = ga_script ($config->{'WebPropertyID'})
		if exists $config->{'WebPropertyID'}
		and ($filter->r->content_type () eq 'text/html'