Can"t locate object method "connect" via package "DBI"
am 06.04.2004 06:09:55 von saladin007------=_NextPart_000_00BB_01C41BD8.74873380
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_00BC_01C41BD8.74873380"
------=_NextPart_001_00BC_01C41BD8.74873380
Content-Type: text/plain;
charset="ks_c_5601-1987"
Content-Transfer-Encoding: 7bit
Hi all...
I am getting this error message..
I dont know how I solve this problem. help me please
When I go to webpage I get following CGI error
------ Error message ------
Can't locate object method "connect" via package "DBI" at
/home/moonbw/public_html/mt/lib/MT/ObjectDriver/DBI/mysql.pm line 48.
--------------------------
mysql.pm line 48 is below
41>sub init {
42> my $driver = shift;
43> $driver->SUPER::init(@_);
44> my $cfg = $driver->cfg;
45> my $dsn = 'dbi:mysql:database=' . $cfg->Database;
46> $dsn .= ';hostname=' . $cfg->DBHost if $cfg->DBHost;
47> $dsn .= ';mysql_socket=' . $cfg->DBSocket if $cfg->DBSocket;
48> $driver->{dbh} = DBI->connect($dsn, $cfg->DBUser, $cfg->DBPassword,
49> { RaiseError => 0, PrintError => 0 })
50> or return $driver->error(MT->translate("Connection error: [_1]",
51> $DBI::errstr));
52> $driver;
53>}
what's the matter?
------=_NextPart_001_00BC_01C41BD8.74873380
Content-Type: text/html;
charset="ks_c_5601-1987"
Content-Transfer-Encoding: quoted-printable
charset=3Dks_c_5601-1987">
style=3D"mso-hansi-font-family: ¹ÙÅÁ"> size=3D2>
size=3D2>message..
problem. help=20
me please
following=20
CGI error
------
"connect" via=20
package "DBI" at =
/home/moonbw/public_html/mt/lib/MT/ObjectDriver/DBI/mysql.pm =20
line 48.
below
42> =
my $driver=20
=3D shift;
43> =20
$driver->SUPER::init(@_);
44> my $cfg =
$driver->cfg;
45> my $dsn =3D =
'dbi:mysql:database=3D' .=20
$cfg->Database;
46> $dsn .=3D ';hostname=3D' . =
$cfg->DBHost=20
if $cfg->DBHost;
47> $dsn .=3D =
';mysql_socket=3D' .=20
$cfg->DBSocket if $cfg->DBSocket;
48> =20
$driver->{dbh} =3D DBI->connect($dsn, $cfg->DBUser,=20
$cfg->DBPassword,
49> =
{=20
RaiseError =3D> 0, PrintError =3D> 0=20
})
50> or return=20
$driver->error(MT->translate("Connection error:=20
[_1]",
51> &nb=
sp; =20
$DBI::errstr));
52> =20
$driver;
53>}
matter?
------=_NextPart_001_00BC_01C41BD8.74873380--
------=_NextPart_000_00BB_01C41BD8.74873380--