Perl Script

[Chandrakant Bagade]

Hello,
I have made on perl script(attached) which do ldapsearch.
When I run that script through perl command it works,but when I called 
it through some programme to view it in browser it never works.My OS 
Win-2000.Any Thing I am missing as some environmental variable or 
something..

Best Regards,
Chandraknt
#!/usr/local/bin/perl
# # $Header: email_imap_config.pl 30-jul-2003.18:34:00 cpolinsk Exp $
#
# email_imap_config.pl
# # Copyright (c) 2003, Oracle Corporation.  All rights reserved.  #
#    NAME
#      email_imap_config.pl - <one-line expansion of the name>
#
#    DESCRIPTION
#      Script reads email config data from oid
#
#    NOTES
#      <other useful comments, qualifications, etc.>
#
#    MODIFIED   (MM/DD/YY)
#
use strict;
require "emd_common.pl";
my $OSNAME = $^O;

my $Second = "";
my $Minute = "";
my $Hour = "";
my $Day = "";
my $Month = "";
my $Year= "";
my $WeekDay = "";
my $DayOfYear = "";

($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear) = localtime(time);
my $RealMonth = $Month + 1;

if($RealMonth < 10)
{
   $RealMonth = "0" . $RealMonth; # add a leading zero to one-digit months
}

if($Day < 10)
{
   $Day = "0" . $Day; # add a leading zero to one-digit days
}


if($Second < 10)
{
   $Second = "0" . $Second; # add a leading zero to one-digit days
}
if($Minute < 10)
{
   $Minute = "0" . $Minute; # add a leading zero to one-digit days
}

if($Hour < 10)
{
   $Hour = "0" . $Hour; # add a leading zero to one-digit days
}


my $Fixed_Year = $Year + 1900;

my $FormatedTime = "$Fixed_Year-$RealMonth-$Day $Hour:$Minute:$Second";


my $ldap_oh="";

EMAGENT_PERL_DEBUG("$ARGV[0] :: $ARGV[0]");


if(  ($OSNAME eq "MSWin32") or ($OSNAME eq "Windows_NT") )
{
        #$ldap_oh = "$ARGV[0]\\bin\\ldapsearch";
        $ldap_oh = "C:\\oracle_as\\bin\\ldapsearch";

}
else
{
        #$ldap_oh = "$ARGV[0]/bin/ldapsearch";
         $ldap_oh = "C:/oracle_as/bin/ldapsearch";
}


### ldap parameters

my $ldap_host="umsvr2-sun.us.oracle.com";
my $ldap_port="3060";
my $ldap_username="cn=orcladmin";
my $ldap_password="welcome1";
my $target_type = "oracle_ovf";
my $config_name = "orclmailprocloglevel";
my $target = " ";
my $output="";

## Do an ldap search first looking at the target level for the data


EMAGENT_PERL_DEBUG("ldap_oh :: $ldap_oh");

$output = `$ldap_oh -h \"$ldap_host\" -p $ldap_port -D \"$ldap_username\" -w 
$ldap_password -b 
\"cn=ovf,cn=OraVmail,cn=umdev04.us.oracle.com,cn=Computers,cn=OracleContext\" cn=ovf 
orclmailprocloglevel`;
print"$output";

EMAGENT_PERL_DEBUG("output :: $output");

## Parse the result string and retrieve just the value
my $ldapValue = getLdapValue($output);
##$ldapValue="NOTIFICATION";


## Return the parsed result
print "em_result=$ldapValue|$FormatedTime\n";

###
# getLdapValue
# # Takes an ldap search output string and strips the param name and '='
# from the string to retrieve only the attribute value.
###
sub getLdapValue
{
  my $attr_value = "";
  my $ldap_output = shift(@_);

  EMAGENT_PERL_DEBUG("ldap_output :: $ldap_output");

  my @lines = split("\n", $ldap_output);

  if($#lines > 0)
  {
      my $attr_line = @lines[1];
      my @attr = split("=", $attr_line);
      $attr_value = @attr[1];
  }

return $attr_value;
}