#!/usr/bin/perl BEGIN { $ENV{'SYBASE'} = '/usr/local/freetds'; $ENV{'LD_LIBRARY_PATH'} = '/usr/local/freetds/lib'; } use CGI; use CGI::Carp; use DBI; my $cgi = new CGI(); print $cgi->header(); my $cgi = new CGI(); my $path='/opt/ash/netcool'; my $hostname="192.168.2.95"; my $portno="4100"; my $database_name="NCOMS"; my $db_username="root"; my $db_password="access"; print < DBD Sybase Connection Check
EOF print "\nSyabse:$ENV{'SYBASE'}
LD_LIBRARY_PATH:$ENV{'LD_LIBRARY_PATH'}
"; print "

**********----->$dbh<-----**********

"; my $dbh = DBI->connect("dbi:Sybase:host=$hostname;port=$portno;server=$database_name;",$db_username,$db_password) || warn "Database Connection not made: $DBI::errstr"; print "

**********$dbh**********


"; print < EOF #### [root@station34 cgi-bin]# ./dbdsybase.cgi Content-Type: text/html; charset=ISO-8859-1 DBD Sybase Connection Check
install_driver(Sybase) failed: Can't load '/usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi/auto/DBD/Sybase/Sybase.so' for module DBD::Sybase: libct.so.4: cannot open shared object file: No such file or directory at /usr/lib/perl5/5.8.5/i386-linux-thread-multi/DynaLoader.pm line 230. at (eval 8) line 3 Compilation failed in require at (eval 8) line 3. Perhaps a required shared library or dll isn't installed where expected at ./dbdsybase.cgi line 29 Syabse:/usr/local/freetds
LD_LIBRARY_PATH:/usr/local/freetds/lib

**********-----><-----**********

[root@station34 cgi-bin]# #### [root@station34 cgi-bin]# ./dbdsybase.cgi Content-Type: text/html; charset=ISO-8859-1 DBD Sybase Connection Check Syabse:/usr/local/freetds
LD_LIBRARY_PATH:/usr/local/freetds/lib

**********-----><-----**********

**********DBI::db=HASH(0x87e56cc)**********



##
## Syabse:/usr/local/freetds LD_LIBRARY_PATH:/usr/local/freetds/lib **********-----><-----********** #### my $dbh = DBI->connect("dbi:Sybase:host=$hostname;port=$portno;server=$database_name;",$db_username,$db_password) || warn "Database Connection not made: $DBI::errstr"; print "

**********$dbh**********


"; print < EOF