Perl Newbie needs help with Script 1

[jdm6457]

This script works fine when CGI is not loaded, and when CGI is loaded the $data_source string does not build correctly. Any help would be greatly appreciated!!!

-john

use DBI;
use CGI qwstandard :html3);
use Term::ReadKey;

# Request IP address of Server
print " \n";
print "What is the IP address of the server? ";
$IPadd = <STDIN>;
chomp ($IPadd);
print " \n";

# Request password and mask entry
print 'Please Enter sa Password: ';
ReadMode 'noecho';
$password = <STDIN>;
chomp ($password);
ReadMode 'normal';
print " \n";

$data_source = "driver={SQL Server};Server={$IPadd};database={UnityDb};UID={sa};PWD={$password}";

print "$data_source";

 

[KevinADC]

I don't know why the CGI module is causing a problem, but since it's not cgi script why are you loading it?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jdm6457]

Sorry, I should have stated this in my original post.

I want to use builtin functions of the CGI module to create HTML code with tables. I excluded the CGI code from my post since I have already tested and is working fine.

 

[KevinADC]

if that's all you want to use the CGI module for, then don't even use it. Just build up your html table code manually.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jdm6457]

That is exactly what I did... thanks for the input!