#!/usr/bin/perl
print "Content-type: text/html\n\n";

use DBI;
use DBD::Oracle qw(:ora_types);

require "SYS_PROFILE";                     ## System Profile

require "$BINDIR/cgi-lib2.pl";             ## Perl Handling Sub-routines
require "$BINDIR/currency.pl";             ## Currency Format Sub-routine
require "$BINDIR/DEFAULT_FONTS";           ## Default Fonts
require "$BINDIR/ORACLE_CONNECTION";       ## Oracle DB Connection Routine

print <<ENDOFFILE;
<HTML>
<HEAD>
<TITLE>OAS Access Denied. $SERVER </TITLE></HEAD>
<BODY background=$BG bgcolor=$BCP text=$TC>

<TABLE width=700>
<TR>
<TD valign=top><H2><hr width=700></TD>
<TR>
<TD align=center>$FAR  *** SECURITY ACCESS REQUIRED ***  
<TR>
<TD align=center>$FA   LDAPID: $LOGON
<TR>
<TD valign=top><H2><hr width=700></TD>
</TABLE>
ENDOFFILE


open(INXX, "<contact.html");
   while (<INXX>) {
      chop; 
      print "<OPTION VALUE='$_'>",$_;
      }

exit;
