ActivePerl - Connecting with SQL Server database

Saviour · May 23, 2001

Hi,

I'm working with ActivePerl and I need to use the SQL Server Database.
I'm using the DBI module and the database connection is ODBC mode.
I'm working with Web pages and I have problems running a program in
the browser.

The program is the following:

Contest.pl
#--------------------------------------------------------------------#
#!/usr/bin/perl -w -I C:\Inetpub\

http://wwwroot\EISDemo\cgi-bin\eis\modules

use DBI;
use Data:

umper;

&DrawPage();

#--------------------------------------------------------------------#

sub DrawPage() {
my $sBuffer;

$sBuffer = <<__HTML;
<html>
<body>
__HTML

my $moDB;
my $sDSN = "driver={SQL Server};server=B52;database=EIS;
UserID=sa;pwd=''";
my $sConn = "dbi:ODBC:$sDSN";

$moDB = DBI->connect($sConn);

if($moDB){
print "Conected !!!!!!!!!!!\n";
my $sSQL = "select * from entity";
my @aArray = $moDB->selectall_arrayref($sSQL);
print &Dumper(@aArray);
}else{
print "No conected !!!!!!!!!!";
}

$moDB->disconnect || die $moDB->errstr;

$sBuffer = <<__HTML;
</body>
</html>
__HTML

} # end of DrawPage

If I run this program in DOS environment: It's works!... but when I run
this program under the browser, the following error message is sended:

CGI Error

The specified CGI application misbehaved by not returning a complete set
of HTTP headers. The headers it did return are:

DBI->connect(driver={SQL Server};server=B52;database=EIS;UserID=sa;pwd='')
failed: [Microsoft][ODBC Driver Manager] Invalid string or buffer length
(SQL-S1090)(DBD: db_login/SQLConnect err=-1) at C:\Inetpub\

http://wwwroot\EISDemo

\cgi-bin\eis\bin\contest.pl line 22
Can't call method "disconnect" on an undefined value at C:\Inetpub\

http://wwwroot

\EISDemo\cgi-bin\eis\bin\contest.pl line 37.
No conected !!!!!!!!!!

Please, Could somebody help me?

Thanks!

MikeLacey · May 24, 2001

Could you try changing the line:

$moDB = DBI->connect($sConn);

to:

$moDB = DBI->connect($sConn) or
[tab]die "DBI Error\n$DBI::errstr\n";

I vaguely remember something like this before -- an apparently healthy script that refused to run as a CGI program. It was, I think, something to do with the setup of the web server rather than the script itself. Sorry to be vague... Mike
michael.j.lacey@ntlworld.com
Email welcome if you're in a hurry or something -- but post in tek-tips as well please, and I will post my reply here as well.

CFtaxtron · May 26, 2001

Try putting the Content type in before you print anything else and it should work fine.

print "Content-type: text/html\n\n";

Tim
develop@embanet.com

kempis555 · May 29, 2001

If a working perl script won't work as a CGI, it's probably because the "web-user" doesn't have the same permissions to a resource that you do.
MikeLacey's suggestion is the first thing to do, apparently

$moDB = DBI->connect($sConn);

isn't working correctly, and that's why there's no $moDB to run the
$moDB->disconnect || die $moDB->errstr;
line perl returns the error. You should put this line within the if statement.

Next thing I usually check is to see if the DSN uses SQL or Windows authentication. Should be set to SQL.

g'luck in yer struggles, chum

-k

kadaru · Dec 30, 2002

does anybody know how to set the port number of the SQL server here? please let me know

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

ActivePerl - Connecting with SQL Server database

Saviour

Programmer

MikeLacey

MIS

CFtaxtron

Programmer

kempis555

Programmer

kadaru

Programmer

Similar threads

Part and Inventory Search

Sponsor