From 58944b2528fbcadaf91587799c9bf9f0261f87b8 Mon Sep 17 00:00:00 2001
From: in2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>
Date: Thu, 19 Jun 2003 12:40:24 +0000
Subject: $BLOG(dbname|dbhost|dbuser|dbpasswd)

git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@943 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
---
 blog/blog.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

(limited to 'blog')

diff --git a/blog/blog.pl b/blog/blog.pl
index e3ba2744..725d3d01 100755
--- a/blog/blog.pl
+++ b/blog/blog.pl
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: blog.pl,v 1.21 2003/06/18 09:06:21 in2 Exp $
+# $Id: blog.pl,v 1.22 2003/06/19 12:40:24 in2 Exp $
 use CGI qw/:standard/;
 use lib qw/./;
 use LocalVars;
@@ -311,10 +311,9 @@ sub dodbi
     my($ret);
     use DBI;
     use DBD::mysql;
-    my $dbh = DBI->connect("DBI:mysql:database=blog;".
-			   "host=localhost",
-			   'root',
-			   '',
+    my $dbh = DBI->connect("DBI:mysql:database=$BLOGdbname;".
+			   "host=$BLOGdbhost",
+			   $BLOGdbuser, $BLOGdbpasswd,
 			   {'RaiseError' => 1});
     eval {
 	$ret = &{$func}($dbh);
-- 
cgit v1.2.3