perlquestion
krisnaa1980
HI All,<br>
I have installed DBI, FreeTDS and DBD::Sybase modules and written this below script:<br>
<c>
#!/usr/bin/perl -w
BEGIN {
$ENV{"SYBASE"} = "/usr/local/freetds";
$ENV{"DSQUERY"} = "NCOT6P";
$ENV{"OMNIHOME"} = qw(/opt/app/netcool/omnibus);
$ENV{"LD_LIBRARY_PATH"} = "/usr/local/freetds/lib";
}
use strict;
use CGI;
use DBI;
use DBD::Sybase;
print "Content-type: text/html\n\n";
print <<HTML;
<html>
<head>
</head>
<title>Suppress Alarms</title>
<body>
HTML
my (@available_drivers, $dbh, $sql_statement, $sth, @array) = ();
@available_drivers = DBI->available_drivers;
print ("\nThe available DBD drivers are: @available_drivers.\n");
$dbh = DBI->connect('dbi:Sybase:NCOT6P;interfaces:$ENV{OMNIHOME}/etc/interfaces.solaris2;loginTimeout=10;timeout=120', "dsybase", "dsybase", { RaiseError=> 0
, PrintError => 0, AutoCommit => 0 } );
my $select_sql = "select Summary from alerts.status where ServerSerial = 16238215";
$sth = $dbh->prepare("$select_sql");
$sth->execute();
while (my $summary = $sth->fetchrow_array) {
print "\nSummary --> $summary\n";
}
$sth->finish;
$dbh->disconnect;
print "</body></html>";
</c>
From Command Line if i run, i see the below result:<br>
<br>
<c>
$=>perl SuppAlarms.cgi
Content-type: text/html
<html>
<head>
</head>
<title>Suppress Alarms</title>
<body>
</c><br>
The available DBD drivers are: DBM ExampleP File Gofer Multiplex Proxy Sponge Sybase.<br>
<br>
Summary --> GENERAL EVENT: Link down due to oper down ZEndPoint:cncrnhso09w-cs-p1 PortNumber=TenGigE0/0/0/2<br>
</body></html><br>
<br>
But from GUI, nothing is displayed. Any help is apprecaited.<br>
<br>
regards,<br>
Krishna
</p>