summaryrefslogtreecommitdiffstats
path: root/blog/blog.pl
diff options
context:
space:
mode:
authorin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-19 20:40:24 +0800
committerin2 <in2@63ad8ddf-47c3-0310-b6dd-a9e9d9715204>2003-06-19 20:40:24 +0800
commit58944b2528fbcadaf91587799c9bf9f0261f87b8 (patch)
tree5b3f3be9677da4b51a280ff3291a7beeda8d5256 /blog/blog.pl
parent6491311d11a8c3f9c7cecdc1cc39d5c7ef8eeb9d (diff)
downloadpttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar.gz
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar.bz2
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar.lz
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar.xz
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.tar.zst
pttbbs-58944b2528fbcadaf91587799c9bf9f0261f87b8.zip
$BLOG(dbname|dbhost|dbuser|dbpasswd)
git-svn-id: http://opensvn.csie.org/pttbbs/pttbbs/trunk/pttbbs@943 63ad8ddf-47c3-0310-b6dd-a9e9d9715204
Diffstat (limited to 'blog/blog.pl')
-rwxr-xr-xblog/blog.pl9
1 files changed, 4 insertions, 5 deletions
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);