#!/usr/bin/perl #require "dbdsybase.pl"; BEGIN { $ENV{'SYBASE'} = '/usr/local/freetds'; $ENV{'LD_LIBRARY_PATH'} = '/usr/local/freetds/lib/:/lib/:/lib/tls/'; #$ENV{'USER'} = 'root'; } 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 foreach (sort keys %ENV) { if (($_ eq 'SYBASE')||($_ eq 'LD_LIBRARY_PATH')||($_ eq 'USER')) { print "$_ : $ENV{$_}
"; } } $ldd1=`ldd /usr/local/freetds/lib/Sybase.so`; $ldd2=`ldd /usr/local/freetds/lib/libct.so.4`; print "

ldd of Sybase.so:

$ldd1

ldd of libct.so.4:

$ldd2
"; #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"; #my $dbh = &datahandle(); print "

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


"; print < EOF