#!/usr/bin/perl
use DBI;
use CGI;
print "Content-Type:text/html\n\n";
print<<__HTML__;
Test123
__HTML__
print "This is Official\n";
my $DB="MYDB1";
my $HOST="tpvpm12192";
my $PORT="1521";
my $USER="remote_usr";
my $PASS="passItToMe";
$ENV{ORACLE_HOME}="/opt/netcool/oracle";
$ENV{LD_LIBRARY_PATH}="/opt/netcool/oracle";
print "
$ENV{LD_LIBRARY_PATH}
";
print "This is before connecting\n";
my $MysqlDbh = DBI->connect("DBI:Oracle:host=$HOST;sid=$DB;port=$PORT",$USER, $PASS, {RaiseError => 0, AutoCommit => 1,PrintError => 1 });
if (! $MysqlDbh) {
print "Error Error Error";
}else{
print "Connect Succeeded!!";
}
my $Statement="select * from NodeInformationStore where Node = '123'";
my $Sth = $MysqlDbh->prepare($Statement);
if (! $Sth) {
print "Unable to prepare query $Statement.\n$DBI::errstr\n";
exit;
}
if (! $Sth->execute) {
print "Unable to execute query $Statement\n$DBI::errstr\n";
exit;
}else{
print "This query has been executed";
}
print "";