fixed database connect

git-svn-id: http://yolanda.mister-muffin.de/svn@9 7eef14d0-6ed0-489d-bf55-20463b2d70db

trunk/functions.pl

@@ -1,6 +1,7 @@
 require "/var/www/perl/include.pl";
 
 sub fill_tagcloud {
+	$dbh = DBI->connect("DBI:mysql:$database:$host", $user, $pass);
 	my $sth = $dbh->prepare(qq{select text, count from tagcloud });
 	$sth->execute();
 	while (my ($text, $count) = $sth->fetchrow_array())

trunk/include.pl

@@ -1,4 +1,8 @@
 use CGI::Session;
 use DBI;
 use XML::Simple qw(:strict);
-$dbh = DBI->connect('DBI:mysql:gnutube:localhost', 'root', '');
+
+$database = 'gnutube';
+$host = 'localhost';
+$user = 'root';
+$pass = '';