Hi,
Here's some code below:
#!c:\Perl\bin\perl.exe
use strict;
use DBI;
use CGI;
use CGI::Carp qw(fatalsToBrowser set_message);
set_message("There has been a problem submitting this form. Please con
+tact the Reception desk.");
$CGI::POST_MAX=1024 * 100; # max 100k posts
$CGI::DISABLE_UPLOADS = 1; # no uploads allowed
use Data::Dumper;
my $user='foo';
my $pwd='bar';
my $dbh = DBI->connect('dbi:ODBC:Oracle7', $user, $pwd, { RaiseError =
+> 1 }) or die "Failed to connect to $DBI::errstr\n";
my $sql = "insert into users (surname,forename,title,nationality,dob,g
+ender,email,status,created,created_by)
values
('Smith','Fred','Mr','UK','27031972','m','f.smith\@hotmail.com','Frien
+ds',SYSDATE,'SelfReg')";
print "SQL is [$sql]\n";
my $sth = $dbh->prepare($sql) || do {
die "Failed to prepare\n" };
$sth->execute;
$sth->finish;
$dbh->disconnect;
The error message from the log is:
c:\PROGRA~1\APACHE~1\apache\cgi-bin\TEST_I~1.CGI: DBI connect('Oracle7
+','foo',...) failed: at c:\PROGRA~1\APACHE~1\apache\cgi-bin\TEST_I~1
+.CGI line 18
The failure is at the connect().
How can I test to see if it's a port/connection problem that's causing it?
Many thanks,
Mike
|