Inline command to connect to Novell LDAP thru Perl

HI all,

I configure a datacapture.cfg to use "inline command" to call a perl .ipl file that will connect to a ldap to retrieve the name of the user based on UID. however, i encounter a error when doing a new DCR :

Templating Error Page
A MessageException was thrown: Error building the requirements: IO: Smiley Frustrated

ocket::INET: Cannot determine protocol at C:\iw-home\iw-perl\site\lib/Net/LDAP.pm line 81 IO: Smiley Frustrated

ocket::INET: Cannot determine protocol at /iw-home/httpd/iw-bin/script.ipl line 5

When I execute the .ipl at the command prompt using iwperl.exe, there is no problem at all .

Below is content of the script.ipl that I used:
#!/iw-home/iw-perl/bin/iwperl.exe -w
use strict;
use Net::LDAP;

my $ldap = Net::LDAP->new('10.200.26.26',debug=>0, timeout=>5) or die "$@";

#LDAP search filter that lists all the entries for "Users"
my $mesg = $ldap->search ( # perform a search
base => "o=ABC",
scope => "1",
filter => "objectclass=*"
);

my $max = $mesg->count;

for(my $i = 0 ; $i < $max ; $i++) {
my $entry = $mesg->entry($i);
foreach my $attr ($entry->attributes) {
print join("\n ",$attr, $entry->get($attr)),"\n";
}
}

$ldap->unbind; # take down session

Any help would be appreciated. Thank you.

Regards,
Kim.

Find more posts tagged with

Comments

Adam Stoller

I configure a datacapture.cfg to use "inline command" to call a perl .ipl file that will connect to a ldap to retrieve the name of the user based on UID. however, i encounter a error when doing a new DCR :
[...]
When I execute the .ipl at the command prompt using iwperl.exe, there is no problem at all .

In almost every case that this kind of problem exists - the source of the problem is something with regard to the environment which differs on the command line from what exists within the context of being run from within an application.

You most likely need a BEGIN{...} block within the Perl script to explicitly set some environment variables ($ENV{...} = "...";) before the rest of the code attempts to run.

The easiest way to track down what's missing is to put some code like the following into your script:

if (open(DBG, ">/tmp/env.txt.$$")){
    foreach(sort(keys(%ENV))){
        print DBG "$_ : $ENV{$_}\n";
    }
    close(DBG);
}

Run the script once from the command line, then again from within the DCT, then compare the results and start building up a BEGIN{...} block witin your Perl script to set the environment variables that seem most likely to be required-but-missing when run from within the DCT.

--fish
(Interwoven Senior Technical Consultant)

fkloong

hi fish,

I set the path using $ENV{PATH} , and it is working properly now. Thank you very much!

Best Regards,
Fan Kim Loong

coschtl

Hi Kim,

reading your posting, I can't see where you bind to the LDAP-server.
I also want to get usernames in a DCR, but my users are stored in a Windows Active Directory.

Afaik before doing the LDAP-search I have to bind to the server (i.e. $ldap->bind($DN, password=>$password);
This works well at the command line, but doesn't work if I call the ipl-script from an "inline-command". Calling it via "New Data record" I always get a templating error page and no input form is opened

Did you do any additional configuration?
Thanks,
Stephan