#!/usr/bin/perl -T
BEGIN{
$ENV{"ORACLE_HOME"} = "/home/elvis/oracle/product/7.2.3";
$ENV{"ORACLE_SID"} = "MANF";
}
use strict;
use Oraperl;
use CGI::Base;
use CGI::Request;
use HTML::Simple;
my($req) = new CGI::Request;
SendHeaders();
if ($req->param) { &output_results; }
else { &output_form; }
exit(0);
sub output_form {
print "\n";
print "\n";
TITLE("Query Employee");
print "\n";
print "\n";
print "\n";
print "\n";
print "\n";
}
sub output_results {
print "\n";
print "\n";
TITLE("Employee Info");
print "\n";
print "\n";
print "\n";
my($lda) = &ora_login("","SCOTT","TIGER")
|| die $ora_errstr;
my($sql) = "SELECT * FROM EMP,DEPT
WHERE EMP.DEPTNO=DEPT.DEPTNO AND EMP.EMPNO="
. $req->param("EMPLOYEE");
my($csr) = &ora_open($lda,$sql)
|| die $ora_errstr;
print "\n";
my($column_title);
foreach $column_title (&ora_titles($csr)) {
print "| $column_title | \n";
}
print "
\n";
my(@row);
while (@row = &ora_fetch($csr)) {
print "\n";
my($column);
foreach $column (@row) {
print "| $column | \n";
}
print "
\n";
}
&ora_close($csr);
&ora_logoff($lda);
print "
\n";
print "\n";
print "\n";
}