view release on metacpan or  search on metacpan

analyse.cgi  view on Meta::CPAN

		$secdsth->finish ();
	}

	print	qq#</table>\n\n#;

	$primsth->finish ();
}

end_html ();

###############################

sub get_list
{
	my $sth = $STHS->{'vhosts'};
	$sth->execute ();

	my @vhosts;

	while (my ($vhost) = $sth->fetchrow_array ())
	{
		push (@vhosts, $vhost);
	}

	$sth->finish ();

	return join (',', @vhosts);
}

sub init
{
	die "Need to be run under mod_perl!" unless defined $ENV{'MOD_PERL'};

	my $s = Apache->server ();
	my $l = $s->log ();

	$DB_DSN    = $ENV{'DBI_data_source'} or $l->error ("Apache::SearchEngineLog: DBI_data_source not defined");
	$DB_USER   = $ENV{'DBI_username'} or $l->error ("Apache::SearchEngineLog: DBI_username not defined");
	$DB_PASSWD = $ENV{'DBI_password'} or $l->error ("Apache::SearchEngineLog: DBI_password not defined");
	$DB_TABLE  = (defined $ENV{'DBI_table'} ? $ENV{'DBI_table'} : 'hits');

	$DBH = DBI->connect ($DB_DSN, $DB_USER, $DB_PASSWD) or $l->error (DBI->errstr ());

	$STHS = {};

	$STHS->{'uri'}{'prim'} = $DBH->prepare ("SELECT uri, count(*) AS cnt FROM hits WHERE vhost = ? GROUP BY uri ORDER BY uri ASC");
	$STHS->{'uri'}{'secd'} = $DBH->prepare ("SELECT term, count(*) AS cnt FROM hits WHERE vhost = ? AND uri = ? GROUP BY term ORDER BY cnt DESC");

	$STHS->{'term'}{'prim'} = $DBH->prepare ("SELECT term, count(*) AS cnt FROM hits WHERE vhost = ? GROUP BY term ORDER BY cnt DESC");
	$STHS->{'term'}{'secd'} = $DBH->prepare ("SELECT uri, count(*) AS cnt FROM hits WHERE vhost = ? AND term = ? GROUP BY uri ORDER BY cnt DESC");

	$STHS->{'vhosts'} = $DBH->prepare ("SELECT vhost FROM hits GROUP BY vhost ORDER BY vhost ASC");

	return 1;
}

sub end_html
{
	print <<EOF;
<hr />
<p style="text-align: right;font-size: 8pt;">This script is part of
<a href="http://verplant.org/SearchEngineLog/">Apache::SearchEngineLog</a>,
written by Florian Forster &lt;octopus at verplant.org&gt;</p>

</body>
</html>
EOF

	return 1;
}