#  $Header: getVersion.pl 25-jun-2002.10:11:15 xxu Exp $
#
#  Copyright (c) 2001, 2002, Oracle Corporation.  All rights reserved.  
#
#    NAME
#      getVersion.pl
#
#    DESCRIPTION
#      This script computes for Oracle Internet Directory processes,
#      the total size in KB, of all LDAP server instances.  
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#    xxu         06/25/02 - remove /usr/local/bin/perl
#    vkhizder    07/17/01 - Creation
#

$ENV{ORACLE_HOME} = $ARGV[0];

$VERINFO = `$ARGV[0]/bin/oidldapd -version 2>&1 | grep Release`;

@version = split(/\s+/, $VERINFO);

print("$version[2]\n");