Content not display on GUI

krisnaa1980 has asked for the wisdom of the Perl Monks concerning the following question:

HI All,
I have installed DBI, FreeTDS and DBD::Sybase modules and written this below script:

#!/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/i
+nterfaces.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>";
[download]

From Command Line if i run, i see the below result:

$=>perl SuppAlarms.cgi
Content-type: text/html

<html>
<head>
</head>
<title>Suppress Alarms</title>
<body>
[download]

The available DBD drivers are: DBM ExampleP File Gofer Multiplex Proxy Sponge Sybase.

Summary --> GENERAL EVENT: Link down due to oper down ZEndPoint:cncrnhso09w-cs-p1 PortNumber=TenGigE0/0/0/2
</body></html>

But from GUI, nothing is displayed. Any help is apprecaited.

regards,
Krishna

Back to Seekers of Perl Wisdom