<%init>
use DBI;
use HTML::TagCloud;
my $host = "XXX";
my $db = "XXX";
my $user = "XXX";
my $pass = "XXX";
my $blogurl = "http://infotrope.net/blog/tag";
#standard Wordpress database here
my $sql = qq(
select wp_tags.tag, count(wp_post2tag.rel_id)
from wp_tags
join wp_post2tag
on wp_tags.tag_ID = wp_post2tag.tag_id
group by wp_tags.tag_ID
);
my $cloud = HTML::TagCloud->new();
my $dsn = "DBI:mysql:database=$db;host=$host";
if (my $dbh = DBI->connect($dsn, $user, $pass)) {
if (my $sth = $dbh->prepare($sql)) {
$sth->execute();
while (my ($tag, $count) = $sth->fetchrow_array) {
$cloud->add($tag, "$blogurl/$tag", $count);
}
}
}