#!/usr/bin/perl
#use strict;
use CGI;
use DBI;
use HTML::Template;
$| = 1;
open (STDERR,">/apps2/apache/cgi-bin/errorLog.txt");
my $q = CGI->new;
my $sth;
my $env;
my $database;
my $host;
my $port;
my $user;
my $pw;
print $q->header(-nph=>1);
my $style = get_style();
print $q->start_html(
-title => "XREF",
-style => {-code => $style},
);
my $fields = "*";
my $symbol_in = $q->param('symbol');
my $site = $q->param('site');
print $q->h1 ("ACTIV INSTRUMENT TABLE DATA");
my $fields = "*";
#my @fields_in = $q->param('fields');
chomp $symbol_in;
chomp $site;
chomp $symbol_in;
chomp $site;
$symbol_in =~ s/\s//;
foreach (@fields_in){
$_ =~ s/\s//;
#if ($_ eq $type){
#next;
#}else{
#$fields = join(',',$fields,split);
#}
$fields = join(',',$fields,split);
}
my $symbol = join('\',\'',split(/,/,$symbol_in));
&getConfig;
my $dbh = DBI->connect("dbi:Oracle:sid=$database;host=$host", $user, $pw) or die "Can't connect to Oracle database: $DBI::errstr\n";
my $sql = qq{ SELECT $fields FROM t_activ_instrument where fps_subject = '$symbol' };
my $sth = $dbh->prepare($sql);
$sth->execute();
my $columns = join("| ", @{ $sth->{NAME} });
my @row;
while(@row = $sth->fetchrow_array) {
print $q->table({-scope=>"col", -border=>2, -cellpadding => 5},
$q->th("$columns"),
$q->Tr($q->td( join(" | ", @row), "\n")),
);
};
$sth->finish;
$dbh->disconnect;
print $q->end_html;
print "\r\n";
####
XREF
ACTIV INSTRUMENT TABLE DATA
|