#!/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