in reply to Installing and Testing DBI

If it failed, I would expect to see a die/warn message in the output rather than blank. So it sounds like it's working.

Better yet is if you have shell access to the server, and then you can run it directly there and see no output: in the successful case, there is no output, so no output tells you it's successful.

It might be marginally easier for you if you were to produce some output to confirm that it is doing something, e.g., (this is untested - not even compiled): 

#!/usr/bin/perl
use strict; use warnings;
use DBI;
use CGI;

my $db="accountname_webapp";
my $host="localhost";
my $user="accountname_webadmi";
my $password="password"; 

my $q = CGI->new();
print $q->header();
print $q->start_html();
print $q->start_body();

my $dbh   = DBI->connect ("DBI:mysql:database=$db:host=$host",
                           $user,
                           $password) 
                           or print $q->p("Can't connect to database: 
+$DBI::errstr\n");

if ($dbh)
{
  print $q->p("Connected");
  $dbh->disconnect or print $q->p("Discconection error: $DBI::errstr")
+;
}

print $q->end_body();
print $q->end_html();

[download]
Or something like that.

Replies are listed 'Best First'.
Re^2: Installing and Testing DBI
by Anonymous Monk on May 20, 2011 at 15:44 UTC

    Thank you for the suggestion. I tried it as well as the one below but still the blank page.

    I guess I'll have to try it via shell access. I think I can get shell access if I can find the last part of the cpanel URL. My host recently removed some of the cpanel links and disabled the direct cpan module installation--probably time to find a new host. 

    #!/usr/bin/perl


use strict;

use CGI qw(:all);
use CGI::Carp qw( fatalsToBrowser );
use Mysql;

use DBI;  # Here's how to include the DBI module 

print ("Content-Type: text/html\n\n");

$DB_Host = "localhost";
$DB_Name = "username_webapp";
$DB_User = "username_webadmi";
$DB_Password = "password";

print "Trying to connect to MySQL DB<br>";
if (!($dbh = Mysql->Connect($DB_Host,$DB_Name,$DB_User,$DB_Password)))
{
   print "Could Not Connect to Database! Reason: ".($Mysql::db_errstr)
+;
   exit;
}
print "Successful MySQL DB Connection";
exit 0;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom