From 1968a6c0661a5106696d259cf8599e2046451f7e Mon Sep 17 00:00:00 2001
From: josch <josch@7eef14d0-6ed0-489d-bf55-20463b2d70db>
Date: Tue, 18 Dec 2007 00:41:02 +0000
Subject: [PATCH] tags are now seperated by spaces

git-svn-id: http://yolanda.mister-muffin.de/svn@208 7eef14d0-6ed0-489d-bf55-20463b2d70db
---
 trunk/tools/tagcloud.pl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/trunk/tools/tagcloud.pl b/trunk/tools/tagcloud.pl
index 6ffb8af..3f6b405 100755
--- a/trunk/tools/tagcloud.pl
+++ b/trunk/tools/tagcloud.pl
@@ -13,11 +13,14 @@ $sth = $dbh->prepare("select subject from videos");
 $sth->execute();
 while(($subject) = $sth->fetchrow_array())
 {
-	@subject = split(',', $subject);
+	@subject = split(' ', $subject);
 	foreach my $val (@subject)
 	{
 	    $val =~ s/^\s*(.*?)\s*$/$1/;
-		%hash->{$val}++;
+		if(length($val) >= 4)
+		{
+			%hash->{$val}++;
+		}
 	}
 }
 $sth->finish();