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

Поиск
Список
Период
Сортировка
От Bruno Lavoie
Тема How to make it work? (PL/Perl + Net::LDAP)
Дата
Msg-id 469AF40F.30505@gmail.com
обсуждение исходный текст
Ответы Re: How to make it work? (PL/Perl + Net::LDAP)  ("Joshua D. Drake" <jd@commandprompt.com>)
Re: How to make it work? (PL/Perl + Net::LDAP)  ("Stuart Cooper" <stuart.cooper@gmail.com>)
Список pgsql-general
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

В списке pgsql-general по дате отправления:

Предыдущее
От: novnov
Дата:
Сообщение: Re: Could not create log file error?
Следующее
От: "Joshua D. Drake"
Дата:
Сообщение: Re: How to make it work? (PL/Perl + Net::LDAP)