Search Postgresql Archives

How to make it work? (PL/Perl + Net::LDAP)

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



hello,

simple problem, I hope I can do this working on! If i'm on a wrong place, just tell me where I can find answers to my problem....

Here's my first pl/perl routine that compile very well:

my $ldap = Net::LDAP->new('mydc.mycomp.com');

my $bind_uid = 'DOMAIN\\'.$_[0];
my $mesg     = $ldap->bind($bind_uid, password => $_[1]);

if ($mesg == 0) {
 return true;
} else {
 return false;
}

But at runtime test it shows me this message:

ERROR: error from Perl function: Can't locate object method "new" via package "Net::LDAP" (perhaps you forgot to load "Net::LDAP"?) at line 2.

Okkkkkk, nice, so simple to put : use Net::Perl; but with this line added first of all, it's not compiling.... The error message is : ERROR: creation of Perl function failed: 'require' trapped by operation mask at line 2. What is the meaning of this message? ggld a bit and can't event found any piece of answers...

Here's the complete create or replace code:

CREATE OR REPLACE FUNCTION "public"."LDAP_AUTH" ("USER" varchar, "PASS" varchar) RETURNS boolean AS
$body$
use Net::LDAP;

my $ldap = Net::LDAP->new('mydc.mycomp.com');

my $bind_uid = 'DOMAIN\\'.$_[0];
my $mesg     = $ldap->bind($bind_uid, password => $_[1]);

if ($mesg == 0) {
 return true;
} else {
 return false;
}
$body$
LANGUAGE 'plperl' VOLATILE CALLED ON NULL INPUT SECURITY INVOKER;


WHY:
   compile without the use Net::LDAP and crash at runtime...?
   don't compiles with the use of Net::LDAP?

thanks a lot!
Bruno


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Index of Archives]     [Postgresql Jobs]     [Postgresql Admin]     [Postgresql Performance]     [Linux Clusters]     [PHP Home]     [PHP on Windows]     [Kernel Newbies]     [PHP Classes]     [PHP Books]     [PHP Databases]     [Postgresql & PHP]     [Yosemite]
  Powered by Linux