Resolving client IP-address or machine name

Question

In Tree Tier Configuration, how to resolve client IP address or machine name.
Database and App server are on same unix box, but clients are Windows PC's.
Configuration:
     Oracle RDBMS 8.1.7.3 on HP-UX 11.11
     Oracle Application Server Rel.1 (1.0.2.2.2) on HP-UX 11.11 (same as above)
     Oracle Application R11i

Answer 1

I don't have general answer, but I create small perl script for reading Forms server log file.
===========START readfrmlog.pl=========================
#!/usr/contrib/bin/perl
# Read FORMS6i Server logfile
# Autor: Mastakov Konstantin
if ((@ARGV!=2) || (($ARGV[0] ne '-d')&&($ARGV[0] ne '-a')&&($ARGV[0] ne '-x'))) {
&usage;
exit;
if ($ARGV[1] eq 'TEST') {
$logfile='/oracle/test/testora/8.0.6/forms60/log/TEST/frmlsnr.log';
$ORACLE_HOME='/oracle/test/testdb/8.1.7';
else {
$logfile='/oracle/prod1/prodora/8.0.6/forms60/log/PROD/frmlsnr.log';
$ORACLE_HOME='/oracle/prod1/proddb/8.1.7';
$ORACLE_SID=$ARGV[1];
$startread=false;
$vrati=-1;
if (open(FRMLOG,$logfile)) {
$poz=tell(FRMLOG);
while ($linija=<FRMLOG>) {
if (substr($linija,0,1) eq '[') {
$startread=$linija=~/::Server Start-up Data:/;
if ($startread) {
$serverData=&userDT(substr($linija,1,28));
$vrati=$poz;
$poz=tell(FRMLOG);
if ($poz>=0) {
seek(FRMLOG,$vrati,0);
while ($linija=<FRMLOG>) {
if (substr($linija,0,1) eq '[') {
$data=&userDT(substr($linija,1,28));
if ($linija=~/::LISTN: Connection Request/) {
$vtordel=$';
$vtordel=~/ConnId=/;
$tretdel=$';
$tretdel=~/,/;
$connId=$`;
$cetdel=$';
$cetdel=~/Addr=/;
$petdel=$';
$petdel=~/]/;
$ipAddr=$`;
$lsnr{$connId}->[0]=$data;
$lsnr{$connId}->[1]=$ipAddr;
if ($linija=~/::RUNFORM Client Connected/) {
$vtordel=$';
$vtordel=~/ConnId=/;
$tretdel=$';
$tretdel=~/,/;
$connId=$`;
$cetdel=$';
$cetdel=~/PID=/;
$petdel=$';
$petdel=~/]/;
$procId=$`;
$lsnr{$connId}->[2]=$procId;
if ($linija=~/::Client Status/) {
$vtordel=$';
$vtordel=~/ConnId=/;
$tretdel=$';
$tretdel=~/,/;
$connId=$`;
$cetdel=$';
$cetdel=~/PID=/;
$petdel=$';
$petdel=~/]/;
$procId=$`;
$lsnr{$connId}->[3]=$data;
if ($linija=~/::RUNFORM Client Disconnected/) {
$vtordel=$';
$vtordel=~/ConnId=/;
$tretdel=$';
$tretdel=~/,/;
$connId=$`;
$cetdel=$';
$cetdel=~/PID=/;
$petdel=$';
$petdel=~/]/;
$procId=$`;
$lsnr{$connId}->[3]=$data;
close FRMLOG;
if ($ARGV[0] eq '-a') {
@progList = ("ORACLE_HOME=$ORACLE_HOME; export ORACLE_HOME;".
"ORACLE_SID=$ORACLE_SID; export ORACLE_SID;".
"TNS_ADMIN=/oracle/etc/network; export TNS_ADMIN;".
"$ORACLE_HOME/bin/sqlplus ".'-s apps/apps@$ORACLE_SID @spid_to_forms2.sql >frmlog.lst');
system(@progList);
if (open(SQLLOG,'frmlog.lst')) {
while ($linija=<SQLLOG>) {
chop($linija);
@cpole=split(/\s+/,$linija);
$userList{$cpole[1]}=$cpole[0];
close SQLLOG;
unlink('frmlog.lst');
foreach $kluc (keys(%lsnr)) {
$lsnr{$kluc}->[4]=$userList{$lsnr{$kluc}->[2]};
$what="All" if ($ARGV[0] eq '-x');
$what="Disconnected" if ($ARGV[0] eq '-d');
$what="Active" if ($ARGV[0] eq '-a');
print("Print $what Connections\n");
print("Forms Server Up from: $serverData\n\n");
print("Connection Start Who ProcID Connection Ended User\n");
print("------------------- --------------------- ------- ------------------- ----------\n");
foreach $kluc (sort {$lsnr{$a}->[0] cmp $lsnr{$b}->[0]} keys(%lsnr)) {
$iP=substr($lsnr{$kluc}->[1]." ",0,21);
$pRoc=substr($lsnr{$kluc}->[2]." ",0,7);
$endTime=substr($lsnr{$kluc}->[3]." ",0,19);
if (($ARGV[0] eq '-x') || (($ARGV[0] eq '-a') && (length($lsnr{$kluc}->[3])<5)) ||
(($ARGV[0] eq '-d') && (length($lsnr{$kluc}->[3])>5))) {
print($lsnr{$kluc}->[0].' '.$iP.' '.$pRoc.' '.$endTime.' '.$lsnr{$kluc}->[4]."\n");
else {
print("Error reading Forms-log file: $logfile\n");
sub userDT {
my ($sto) = @_;
$mesec{'Jan'}='01';
$mesec{'Feb'}='02';
$mesec{'Mar'}='03';
$mesec{'Apr'}='04';
$mesec{'May'}='05';
$mesec{'Jun'}='06';
$mesec{'Jul'}='07';
$mesec{'Aug'}='08';
$mesec{'Sep'}='09';
$mesec{'Oct'}='10';
$mesec{'Nov'}='11';
$mesec{'Dec'}='12';
return substr($sto,20,4).".".$mesec{substr($sto,4,3)}.".".substr($sto,8,2)." ".substr($sto,11,8);
sub usage {
print("Usage: readfrmlog -x|-a|-d ORACLE_SID\n");
print(" -x all (Active and Disconnected) connection\n");
print(" -a only Active connection\n");
print(" -d only Disconnected connection\n");
===========END readfrmlog.pl=========================
===========START spid_to_forms2.sql==================
set lines 120
column user_name format a20
column user_form_name format a25
column time format a8
column pid format 99999
column spid format 99999
set pages 0
set feedb off
select distinct user_name,process
from fnd_signon_audit_view, v$process, v$session
where fnd_signon_audit_view.pid = v$process.pid and
v$session.paddr = v$process.addr
and user_form_name is not null
exit;
===========END spid_to_forms2.sql==================
Modify all hardcoded variables: ORACLE_SID, ORACLE_HOME, TNS_ADMIN, logfile, password of App R11, location of perl exe, ...
Regards,