perl-ldap-dev

beta release

[Graham B. <gb...@po...>]

OK,

This has been pending for too long.

For those wishing to try it you can get it from

  http://monty.mutatus.co.uk/~gbarr/perl-ldap-0.25_01.tar.gz

It has the recent Schema changes in. It also has a new DSML module (no docs yet, sorry)
Althought teh API should be similar IIRC

The new DSML module uses XML::SAX, so it is now possible to read/write DSML
without XS as you can use XML::SAX::PurePerl

I would like to whip this into shape and erlease soonish, so any help/input
from anyone with time would be great.

Graham.

Re: utility functions for handling Distinguished Names

[Graham B. <gb...@po...>]

OK, I made a couple of tweaks and it passes the testsuite.

One change is that

  CN=#0102

Now decodes as   { CN => \"\01\02" }

That is the value is a reference. Ans canonical_dn regenerates it correctly.

Graham.

On Tue, Apr 23, 2002 at 11:19:40AM +0100, Graham Barr wrote:
> On Tue, Apr 23, 2002 at 11:21:57AM +0200, Norbert Klasen wrote:
> > --On Freitag, 19. April 2002 08:43 +0100 Graham Barr <gb...@po...>
> > wrote:
> > > Whats wrong with the subs in Net::LDAP::Utils ?
> > 
> > ldap_explode_dn does not unescape escaped characters, e.g. the DN 'CN=\#John
> > Smith\ ' becomes
> > $VAR1 = {
> >           'CN' => '\\#John Smith\\20'
> >         };
> > 
> > instad of
> > 
> > $VAR1 = {
> >           'CN' => '#John Smith '
> >         };
> 
> Hm, I guess canonical_dn needs to be split from usinf explode_dn,
> or explode_dn needs to be told not to expand. Otherwise you cannot tell the difference
> between
> 
>   CN=#a0
> 
> and
> 
>   CN=\#a0
> 
> Do all testcases pass with your functions in place of the existing ones ?
> 
> Graham.
> 

Re: line continuations in ldif comments

[Graham B. <gb...@po...>]

Thanks, applied

Graham.

On Mon, Apr 22, 2002 at 09:44:01PM +0200, Norbert Klasen wrote:
> Hi,
> line continuations in LDIF files can also occur in comments. Swapping two 
> line in Net::LDAP::LDIF fixes this:
> 
> --- Net/LDAP/LDIF.pm     Thu Feb 21 16:00:55 2002
> +++ Net/LDAP/LDIF.pm     Mon Apr 22 21:41:59 2002
> @@ -80,8 +80,8 @@
>         $self->eof(1);
>         return;
>      }
> -    $ln =~ s/^#.*\n//mg;
>      $ln =~ s/\n //sg;
> +    $ln =~ s/^#.*\n//mg;
>      chomp($ln);
>      $self->{_current_lines} = $ln;
>      chomp(@ldif = split(/^/, $ln));

Re: utility functions for handling Distinguished Names

[Graham B. <gb...@po...>]

On Tue, Apr 23, 2002 at 11:21:57AM +0200, Norbert Klasen wrote:
> --On Freitag, 19. April 2002 08:43 +0100 Graham Barr <gb...@po...>
> wrote:
> > Whats wrong with the subs in Net::LDAP::Utils ?
> 
> ldap_explode_dn does not unescape escaped characters, e.g. the DN 'CN=\#John
> Smith\ ' becomes
> $VAR1 = {
>           'CN' => '\\#John Smith\\20'
>         };
> 
> instad of
> 
> $VAR1 = {
>           'CN' => '#John Smith '
>         };

Hm, I guess canonical_dn needs to be split from usinf explode_dn,
or explode_dn needs to be told not to expand. Otherwise you cannot tell the difference
between

  CN=#a0

and

  CN=\#a0

Do all testcases pass with your functions in place of the existing ones ?

Graham.

line continuations in ldif comments

[Norbert K. <nor...@da...>]

Hi,
line continuations in LDIF files can also occur in comments. Swapping two=20
line in Net::LDAP::LDIF fixes this:

--- Net/LDAP/LDIF.pm     Thu Feb 21 16:00:55 2002
+++ Net/LDAP/LDIF.pm     Mon Apr 22 21:41:59 2002
@@ -80,8 +80,8 @@
        $self->eof(1);
        return;
     }
-    $ln =3D~ s/^#.*\n//mg;
     $ln =3D~ s/\n //sg;
+    $ln =3D~ s/^#.*\n//mg;
     chomp($ln);
     $self->{_current_lines} =3D $ln;
     chomp(@ldif =3D split(/^/, $ln));


--=20
Norbert Klasen, Dipl.-Inform.
DAASI International GmbH                 phone: +49 7071 29 70336
Wilhelmstr. 106                          fax:   +49 7071 29 5114
72074 T=FCbingen                           email: nor...@da...
Germany                                  web:   http://www.daasi.de

Re: utility functions for handling Distinguished Names

[Norbert K. <nor...@da...>]

--On Freitag, 19. April 2002 08:43 +0100 Graham Barr <gb...@po...>
wrote:
> Whats wrong with the subs in Net::LDAP::Utils ?

ldap_explode_dn does not unescape escaped characters, e.g. the DN 'CN=3D\=
#John
Smith\ ' becomes
$VAR1 =3D {
          'CN' =3D> '\\#John Smith\\20'
        };

instad of

$VAR1 =3D {
          'CN' =3D> '#John Smith '
        };

likewise 'CN=3DLu\C4\8Di\C4\87' becomes
$VAR1 =3D {
          'CN' =3D> 'Lu\\c4\\8di\\c4\\87'
        };

instead of

$VAR1 =3D {
          'CN' =3D> 'Lucic'
        };

We needed the unescaped variants to display DNs nicely in our webgateway.
They are also needed, if an "exploded DN" is to be converted back to a pl=
ain
string. This "folding" can be done by canonical_dn. It now also takes a
reference to an array as returned by ldap_explode_dn in addition to plain
strings. This way, "move upwards" buttons can be implemented easily by
taking slices of arrays returned by ldap_explode_dn.
Additionally the behavior of the two functions concerning casefolding,
escaping and RDN ordering can be controlled by parameters:

FUNCTIONS
       canonical_dn ( DN [ , OPTIONS ] )
           Returns the given DN in a canonical form. Returns
           undef if DN is not a valid Distinguished Name. (Note:
           The empty string "" is a valid DN.)  DN can either be
           a string or a reference to an array of hashes as returned by
           ldap_explode_dn.

           It performs the following operations on the given DN:

           o   Removes the leading 'OID.' characters if the type
               is an OID instead of a name.

           o   Escapes all RFC 2253 special characters (",", "+",
               """, "\", "<", ">", ";", "#", "=3D", " "), slashes
               ("/"), and any other character where the ASCII
               code is <32 as \hexpair.

           o   Converts all leading and trailing spaces in values
               to be \20.

           o   If an RDN contains multiple parts, the parts are
               re-ordered so that the attribute type names are in
               alphabetical order.

           OPTIONS is a list of name/value pairs, valid options
           are:

           binary
               This argument is a reference to a list of
               attribute type names . Values of these attribute
               types will be escaped as #(hexpair)*.

           casefold
               Controls case folding of attribute type names.
               Attribute values are not affected by this option.
               The default is to uppercase. Valid values are:

               lower
                   Lowercase attribute type names.

               upper
                   Uppercase attribute type names. This is the
                   default.

               none
                   Do not change attribute type names.

           mbcescape
               If TRUE, multi byte characters will be escaped as
               \(hexpair){2,*}

           reverse
               If TRUE, the RDN sequence is reversed.

           separator
               Separator to use between RDNs. Defaults to comma
               (',').

       ldap_explode_dn ( DN [ , OPTIONS ] )
           Explodes the given DN into an array of hashes.
           Returns undef if DN is not a valid Distinguished Name.

           It also performs the following operations on the given
           DN:

           o   Unescape "\" followed by ",", "+", """, "\", "<",
               ">", ";", "#", "=3D", " ", or a hexpair and and
               strings beginning with "#".

           o   Removes the leading OID. characters if the type is
               an OID instead of a name.

           OPTIONS is a list of name/value pairs, valid options
           are:

           casefold
               Controls case folding of attribute types names.
               Attribute values are not affected by this option.
               The default is to uppercase. Valid values are:

               lower
                   Lowercase attribute types names.

               upper
                   Uppercase attribute type names. This is the
                   default.

               none
                   Do not change attribute type names.


--
Norbert Klasen, Dipl.-Inform.
DAASI International GmbH phone: +49 7071 29 70336
Wilhelmstr. 106 fax: +49 7071 29 5114
72074 T=FCbingen email: nor...@da...
Germany web: http://www.daasi.de

Re: SSL is slow

[<la...@sp...>]

Hi Chris,

>> So: How do one decipher the hex dump and find out about the key
sizes?
>> I=27ve tried a lot of other s_client options, but none seems to
disclose
>> this information.
>
>I can=27t figure out the s_client (or s_server) options either, sorry.
I
>wonder how I got that info before?

I=27ve continued working on the project - and SSL is still slow.

Until I ported my app to Apache and mod_perl. It now screams (well,
almost) - so apparently the caching of the module loading did the
trick.

Said in other words: The SSL LDAP module is a very slow loader ;-).

Regards,
Lars

Lars Skj=E6rlund, Network Consultant, Spinn International ApS
Bukkeballevej 30, 2960 Rungsted Kyst, Denmark
Tel.: +45 70 25 88 10, Fax: +45 70 25 88 44
Mail: lars=40spinn.dk Web: http://www.spinn.dk
--

re: your classified ad

[Cheri N. <Che...@fu...>]

Thanks for submitting your link=2E Submitting your URL to
FFAs, classified sites, and search engines is a good start,
but it's just the tip of the iceberg=2E

You may have a great website offering the best products or=
 services,
but all of that means nothing if no one knows you exist=2E When=
 your
site is competing with over 400 million other web pages,
you need an unfair advantage=2E

We can give you that advantage=2E Click here for more information:
http://65=2E102=2E23=2E58/promotion/default=2Easp?AID=3Dcn&Email=3Dperl-ldap%=
40mail=2Emed=2Ecornell=2Eedu
**********************************************************








Note: If your e-mail program did not display the link correctly,=
 simply copy and paste the following line into your browser's=
 address bar and hit [ENTER]:

http://65=2E102=2E23=2E58/promotion/default=2Easp?AID=3Dcn&Email=3Dperl-ldap%=
40mail=2Emed=2Ecornell=2Eedu





**********************************************************
Why are you on our mailing list?
You opted-in to our mailing list when you submitted your ad or=
 URL
(either manually or through a submission service) to one of our
FFA or classified sites=2E To unsubscribe, please click here:
http://65=2E102=2E23=2E58/promotion/remove=2Easp?AID=3Dcn&Email=3Dperl-ldap%4=
0mail=2Emed=2Ecornell=2Eedu
**********************************************************

Re: Newbie Question

[<Bob...@kp...>]

moo...@pg... wrote:



Hi All--

I just started working with Perl-ldap today, so bear with me if this is a 
silly
question.

I've got a connection to our LDAP server, and have been able using 
perl-ldap to
go in and get information for users, which is great.   However, I also 
need to
authenticate these users..tried just binding as a user + pass, but that 
didn't
work (it seems to just treat this as an anonymous access).

So far, I can't find anything about authentication in the faq...should I 
be
looking at another module, or does perl-ldap do authentication and I'm 
just
missing where it's documented?

Thanks in advance!
Lori Moore


Take a look at this --


   162      my $msg = $ldap->bind(
   163          dn       => $dir_manager,
   164          password => $password,
   165      );
   166      if ( $msg->code() ) {
   167          croak( "$0: LDAP bind to $directory_name failed with ",
   168              $msg->code(), " -- ", $msg->error(), "\n" );
   169      }


Plug in the fully qualified DN of the user in $dir_manager and the proper 
password in $password.

Hope this helps


Bob G

Re: Newbie Question

[Jim H. <ha...@us...>]

Lori,

The technique is to turn (via anonymous bind) a login identifier into a
distinguished name (DN), then use the DN and password in an authenticated
bind and check the results.  Here is some sample code.  Note that this
assumes that loings are unique in the directory tree.  If they aren't in
yours then the coding becomes trickier:

my $ldap = new Net::LDAP($host) or die "$@";
$ldap->bind ( version=>3) ; #first find dn for this login
# you need to know what your identifying objects are known by.
# in this example, they are either cn or uid:
my $filter = "(|(uid=$login)(cn=$login))";
my $mesg = $ldap->search(
               base => $base,
               filter => $filter,
               attrs => ["dn"]
               );
if ($mesg->code || ($mesg->count() != 1)) {
      print "Couldn't find $login, message is \n  ",
           Net::LDAP::Util::ldap_error_name($mesg->code), "\n";
      exit;
}
my $entry = $mesg->entry(0);
my $dn = $entry->dn;
$mesg = $ldap->bind (dn => $dn, password  => $password, version => 3) ;
if ($mesg->code) {
   print "Couldn't bind to $login, message is \n  ",
           Net::LDAP::Util::ldap_error_name($mesg->code), "\n";
   exit;
}


  --Jim

On Mon, 22 Apr 2002 moo...@pg... wrote:

> Hi All--
>
> I just started working with Perl-ldap today, so bear with me if this is a silly
> question.
>
> I've got a connection to our LDAP server, and have been able using perl-ldap to
> go in and get information for users, which is great.   However, I also need to
> authenticate these users..tried just binding as a user + pass, but that didn't
> work (it seems to just treat this as an anonymous access).
>
> So far, I can't find anything about authentication in the faq...should I be
> looking at another module, or does perl-ldap do authentication and I'm just
> missing where it's documented?
>
> Thanks in advance!
> Lori Moore
>
>

Newbie Question

[<moo...@pg...>]

Hi All--

I just started working with Perl-ldap today, so bear with me if this is a silly
question.

I've got a connection to our LDAP server, and have been able using perl-ldap to
go in and get information for users, which is great.   However, I also need to
authenticate these users..tried just binding as a user + pass, but that didn't
work (it seems to just treat this as an anonymous access).

So far, I can't find anything about authentication in the faq...should I be
looking at another module, or does perl-ldap do authentication and I'm just
missing where it's documented?

Thanks in advance!
Lori Moore

£Û"±¤°í"£ÝÀÏ»ý ÀÏ´ëÀÇ ÃÖ´ëÀÇ ±âȸ

[itchina <mon...@ya...>]

<HTML>
<HEAD>
<META content="text/html; charset=ks_c_5601-1987" http-equiv=Content-Type>
<STYLE> p, font, span { line-height:120%; margin-top:0; margin-bottom:0; }</STYLE>
</HEAD><BODY>
<P align=center><STRONG><FONT color=#0000ff><FONT size=2>인터넷 워킹회사 "백만장자 
클럽"<BR>투자 자본에 비해 수익성 높아<BR>소자본 창업자에게 
"인기"</FONT></FONT></STRONG></P>
<P align=center><STRONG><FONT color=#0000ff><FONT size=2>  
<BR>&nbsp;</P></FONT></FONT></STRONG>
<P align=center>재정적인 자유를 누리고 있는 사람들에게는 한 가지 공통점이 있습니다. <BR><BR>"자신이 적당한 시기에 적당한 
장소에 있다는 것을 알고 있다는 것입니다" <BR><BR>기회가 찾아와서 당신의 문을 두드린다면, <BR>문을 활짝 열고 두 팔 벌려 환영 
하십시요! <BR><BR>지금 이순간 백만장자클럽에서 <BR>기회의 손이 당신의 문을 아주 힘차게 두드리고 있습니다! <BR><BR>문을 활짝 
여십시요!! <BR><BR>어리석은 사람들은 그냥 당연한 것으로 넘겨버리는 것을&nbsp;&nbsp; <BR>현명한 사람들은 아주 자세히 조사해 
본다는 사실을 항상 명심하십시요! <BR><BR>현명한 자세로 <A href="http://itchina.starhana.com" 
target=nlink>http://itchina.starhana.com</A>에 <BR>제시된 기회를 아주 자세히 살펴보십시요. 
<BR><BR>보다 많은 정보를 수집하고 현실을 바라보십시요. <BR><BR>그리고 나서 결단만 내리면 당신은 일생일대의 기회를 잡게 
될것입니다. <BR><BR>지금 행동하십시오 !! <BR><BR>당신이 하지 않으면 누군가가 먼저 시작합니다. <BR><BR></P>
<DIV align=center><FONT color=#ff0000><STRONG><FONT size=2>여기를 클릭 
=&gt;&nbsp;</FONT><A href="http://itchina.starhana.com" target=nlink><FONT 
size=2>http://itchina.starhana.com</FONT></A><FONT size=2>&nbsp; 
<BR></FONT></STRONG></FONT><STRONG><FONT color=#ff0000 size=4><FONT 
size=2>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;문의 사항 
=&gt;&nbsp;</FONT><FONT color=#800080><A href="mailto:jc...@ha..."><FONT 
size=2>jc...@ha...</FONT></A>&nbsp;</FONT></FONT></STRONG><FONT 
color=#ff0000 size=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</FONT></DIV>
<DIV align=center><FONT color=#ff0000 
size=4>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</DIV>
<P align=center>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <A 
href="http://starhana.com/private/itchina" target=-blank><IMG 
style="WIDTH: 324px; HEIGHT: 93px" height=89 
src="http://www.starhana.com/inc/remote/ani.gif" width="178" boarder="0"></A> <!-- miagent sub end --><FONT size=4><IMG height=12 
src="http://image.hanmail.net/hanmail/s_img/stock/trans.gif" width=1></FONT></P>
<DIV align=center><FONT size=2>본 메일은 정통부 권고사항에 의거 제목에 [광고]라고 표기한 메일입니다<BR>귀하의 
메일주소는 웹서핑중에 알게 된것이며, E-Mail 주소외에, 다른 정보는 <BR>갖고 있지 않습니다. 원치 않으시면, 수신거부를 
눌러주세요<STRONG>.<A href="/Mail-bin/send_mail.form.cgi?TO=채승우_<itc...@ly... >?subject=수신거부&amp;Body 
=메일수신(itc...@ly...)을 원치않습니다" >수신거부</A></STRONG></FONT></DIV></FONT>
</BODY>
</HTML>

(no subject)

[¼Õ¿µ»ï<ma...@hd...>]

<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<DIV></DIV>
</BODY>
</HTML>

[±¤ - °í]¿¬¿¹ÀÎ Æ÷ÅÐ ¾ÆÀÌ·¯ºê½ºÅ¸ ¿ÀÇÂ!

[ILOVESTAR <ma...@ly...>]

<html>
<head>
<title>톡톡 튀는 개성있는 도메인 포워딩 아이러브스타 입니다.</title>
</head>
<body bgcolor="#ffffff" text="#000000">
<table width="573" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td bgcolor="#000000" width="247"><a href="http://www.ilovestar.co.kr" target="_blank"><img src="http://www.ilovestar.co.kr/web-mail/image/rogo.gif" width="122" height="22" border="0"></a></td>
    <td bgcolor="#000000" width="326"> 
      <div align="right"><img src="http://www.ilovestar.co.kr/web-mail/image/rogo-1.gif" width="180" height="22"></div>
    </td>
  </tr>
  <tr> 
    <td colspan="2" height="2"><img src="http://www.ilovestar.co.kr/web-mail/image/web-1.gif" width="247" height="118"><img src="http://www.ilovestar.co.kr/web-mail/image/web-2.gif" width="324" height="118"><br>
      <img src="http://www.ilovestar.co.kr/web-mail/image/web-3.gif" width="247" height="95"><img src="http://www.ilovestar.co.kr/web-mail/image/web-4.gif" width="324" height="95" usemap="#Map4Map" border="0"><br>
      <img src="http://www.ilovestar.co.kr/web-mail/image/web-5.gif" width="247" height="148"><img src="http://www.ilovestar.co.kr/web-mail/image/web-6.gif" width="324" height="148"><br>
      <img src="http://www.ilovestar.co.kr/web-mail/image/down.gif" width="571" height="57" usemap="#Map3" border="0"> 
      <map name="Map3"> 
        <area shape="RECT" coords="185,18,326,31" href="mailto:ilo...@il...">
      </map>
      <map name="Map4Map"> 
        <area shape="RECT" coords="231,51,295,88" href="http://www.ilovestar.co.kr" target="_blank">
      </map>
    </td>
  </tr>
  <tr> 
    <td colspan="2" height="7">&nbsp;<center><a href='http://itnsoft.com/~mailtouch/user/touch.cgi?cmd=refuse_view&usercode=hkilfpkp-gkrkiq-Ffkij&group=199&name=&mail=per...@ma...'><img src='http://itnsoft.com/~mailtouch/user/mail-refuse.gif' border=0)></center><img src='http://itnsoft.com/~mailtouch/user/touch.cgi?cmd=open&usercode=hkilfpkp-gkrkiq-Ffkij&group=199&state=5&code=288970' height=0 width=0></td>
  </tr>
</table>
<map name="Map"> 
  <area shape="RECT" coords="201,68,311,92" href="http://www.ilovestar.co.kr/event.htm" target="_blank">
</map>
<map name="Map2">
  <area shape="RECT" coords="64,90,199,131" href="http://www.ilovestar.co.kr" target="_blank">
  <area shape="RECT" coords="67,156,196,196" href="http://www.ilovestar.co.kr/event.htm" target="_blank">
</map>
<map name="Map4">
  <area shape="RECT" coords="231,51,295,88" href="http://www.ilovestar.co.kr" target="_blank">
</map>
</body>
</html>

Re: utility functions for handling Distinguished Names

[Graham B. <gb...@po...>]

On Thu, Apr 18, 2002 at 11:47:17AM +0200, Norbert Klasen wrote:
> Hi,
> I wrote up a module which contains ldap_explode_dn and canonical_dn which 
> handles all but two (minor) cases from 
> http://www.openldap.org/ietf/ldapbis/dn.txt correctly.

Whats wrong with the subs in Net::LDAP::Utils ?

Graham.

> 
> Please see attached file. This time with inline documentation.
> 
> -- 
> Norbert Klasen, Dipl.-Inform.
> DAASI International GmbH                 phone: +49 7071 29 70335
> Wilhelmstr. 106                          fax:   +49 7071 29 5114
> 72074 Tübingen                           email: nor...@da...
> Germany                                  web:   http://www.daasi.de
> 

[¼ºÀα¤°í]À̺¥Æ® À̹ø´Þ ¸»±îÁö¸¸ ÇÕ´Ï´Ù.

[´©µå <yup...@or...>]

<body onunload='window.open("http://www.nudemoa.com");'>
<a href="http://www.nudemoa.com" target="_blank"><img src="http://www.nudemoa.com/partner/admin/board/DATA/UP_FILE/p_banner/30.gif" border="0"> 
<br> 안녕하세요 ? 누드모아 고객관리팀입니다.
<br> 내용에 앞서 미성년자분은 반드시 삭제해주세요
<br> 본 메일은 1회성이므로 두번다시 발송되지 않으며
<br> 실수로 2번이상이 발송되더라도 너그러이 이해해주시기 바랍니다.
<br>
<br> <font size=5><b>사이트로 이동하시려면 클릭하세요
<br>
<br> <font size=5><b>누드모아 새단장 빅이벤트
<br>
<br> 이벤트내용 : 4월결재자중 3개월(30,000원)결재자 분께 올연말(2002,12,31)까지 서비스연장 
<br>
<br> 이벤트기간 : 4월 1일~4월 31일까지 
<br>
<br> 이벤트대상 : 이벤트기간내  3개월결재자(30,000)에 한함
<br>
<br> 이벤트적용 : 가입후 확인즉시 올연말(2002,12,31)까지 적용하여 드립니다.
<br>
<br> 두번 다시오지 않는 기회 놓치지 마세요
<br>
 
<font size=3 color=red><br> 국내최고 동영상 보유!!
<br> 충격 동영상!!셀프 동영상!!
<br> 성인 영화!!쇼킹 동영상!!
<br> 엽기 동영상!!단막극장!!
<br> 자위 동영상!!에로뮤직 비디오!!
<br> 한국 동영상!!무삭제 원판!!
<br> 침실테크닉!!엽기 체위!!
<br> 에로 영상소설!!!!
<br> 국내 최대 동영상 보유
<br> 
</font><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=3 color=red><br>
</font></b></font></b></font></b></font></b></font></b></font></b></font></b></font><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=3 color=red><A href="mailto:nu...@or...">수신거부</A> 
<br> 
<br> 
</b></font></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font><p align="center"><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=3 color=red>&nbsp;<span style="FONT-SIZE: 9pt">본 메일은 정보통신부 권고사항 법률 제 50조에 의거하여  [광고]
 메일임을 밝힙니다.<br> 귀하의 메일 주소는 검색엔진과 일반 사이트의 공개적인 곳에서
 추출한 것이며,<br>메일주소 이외에는 다른 정보는 일체 모르니 안심하시기
 바랍니다. <br>사전 허락없이 메일을 보내게 된 점 사과드립니다. 감사합니다.</b></font></SPAN></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></B></FONT></p><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=5><b><font size=3 color=red></TD></TABLE>
<br> 
<br></b></font></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></b></font></B></FONT></B></FONT></body></HTML>

Sorting LDAP Entries ???

[<CZa...@wi...>]

Hello, I am writing a script to search the LDAP service and return the
email addresses for all entries and split them at the "@" sign then sort
them.

The problem I am having is sorting them I get this error -- "Bad parameter
to an ldap routine at email_search.pl line 25." Can anyone help?


my @OU = ("AusAsia", "Australia", "Canada", "Chichester", "CPA",
"Indianapolis", "JosseyBass", "NewYork605", "NewYork909", "Tulsa", "USDC",
"
VCH");

        $ldap = Net::LDAP->new('server.sys.com', port => '389') || die
"ERROR: $@";
        $sort = Net::LDAP::Control::Sort->new( order => "sn -mail" );

foreach my $i (@OU) {

        foreach my $j ("a" .. "z") {
                @args = (
                                base => "ou=$i,o=Wiley",
                                scope => "subtree",
                                filter => "(sn=$j*)"
                );
                $r = $ldap->search( @args, control => [ $sort ]);
                ($ctrl) = $r->control( LDAP_CONTROL_SORTRESULT );

        die ldap_error_desc($r->code) if $r->code;
                if ($ctrl && $ctrl->result) {

                        foreach $entry ($r->entries) {
                                $mail = $entry->get_value('mail');
                                $cn = $entry->get_value('cn');

                           if ($mail ne "") {
                                @email = split(/@/, $mail);
                                printf "$i: $email[0]\n";
                           } else {
                                print "$i: $cn has no email address.\n";
                           }
                }
            }
        }
}

utility functions for handling Distinguished Names

[Norbert K. <nor...@da...>]

Hi,
I wrote up a module which contains ldap_explode_dn and canonical_dn which=20
handles all but two (minor) cases from=20
http://www.openldap.org/ietf/ldapbis/dn.txt correctly.

Please see attached file. This time with inline documentation.

--=20
Norbert Klasen, Dipl.-Inform.
DAASI International GmbH                 phone: +49 7071 29 70335
Wilhelmstr. 106                          fax:   +49 7071 29 5114
72074 T=FCbingen                           email: nor...@da...
Germany                                  web:   http://www.daasi.de

Slow Novell LDAP

[Brian G. <bri...@au...>]

How do,

Just wondering if there is an LDAP explanation for this curious
little thing we have found.

Novell DS tree with about 20,000 students in one OU.

If you ref a entry with a full DN (cn=bobsmith,ou=students...... etc)
it takes 3-6 (or more) seconds to return their entry.

If you set the base OU to the students container, and set the filter
to the student CN, it comes back in 0-1 seconds.

Or am I strange in thinking a direct ref to a object should be faster
then a search :-) (Might be for DS, but im not sure)

Any ideas ?

Anyone have the same thing with different DS trees ?

Thanks

Brian Green



----
  Brian Green
  Information Technology Group, Systems Engineer
  Auckland University of Technology, Auckland, New Zealand
  Ph: 9179999 ext 8396, Fax: 64-9-9179901
  WWW: http://home.aut.ac.nz/~bgreen/
  Email: bri...@au...

The information in this E-Mail is confidential and may be legally 
privileged. It is intended solely for the addressee. Access to this 
E-mail by anyone else is unauthorised. If you are not the intended 
recipient, any disclosure, copying, distribution or any action taken

or omitted to be taken in reliance on it, is prohibited and may be 
unlawful. 
Any views expressed in this message are those of the sender and may 
not reflect the views of AUT. 

Re: Active Directory Conference

[Chris R. <chr...@me...>]

Graham Barr <gb...@po...> wrote:
> This is good news that Net::LDAP is gettng some exposure, as sadly my
> tutorial was rejected for TPC this year.
> 
> Graham.

Did you see the mention of it in the O'Reilly Perl for sysadmin book? OK,
so they published before the SSL stuff went in, but that's life.

Cheers,

Chris

Re: Net::LDAP::Control::Sort ?

[Chris R. <chr...@me...>]

CZa...@wi... wrote:
> Hello, I am trying to sort my output using "Net::LDAP::Control::Sort" but
> I am getting this error syntax error at email_search.pl line 25, near "if
> $ctrl "
> I followed the example in the "Programming with Net::LDAP" guide slide "
> #52".  Is this correct or a typo.?
>

>                 if $ctrl && $ctrl->result;

That probably should be:

                  if ($ctrl && $ctrl->result) {

with an appropriate } later on.

Cheers,

Chris

Re: Active Directory Conference

[Graham B. <gb...@po...>]

This is good news that Net::LDAP is gettng some exposure, as sadly my tutorial
was rejected for TPC this year.

Graham.

On Tue, Apr 16, 2002 at 02:26:54PM -0700, Robbie Allen wrote:
> NetPro is hosting a conference on Active Directory called 'Directory Experts
> Conference - Running Active Directory Like Your Network Depends On It'.
> Target audience is experienced AD admins/architects.  I will be speaking on
> "Automated Active Directory Management" and will discuss how we've used
> Net::LDAP (along with ADSI) at Cisco Systems to automate Active Directory.  
> 
> If you are interested in attending, check out the following site:
>   http://www.netpro.com/welcome/directoryexperts/
> 
> 
> Robbie Allen
> 
> 

Net::LDAP::Control::Sort ?

[<CZa...@wi...>]

Hello, I am trying to sort my output using "Net::LDAP::Control::Sort" but I
am getting this error syntax error at email_search.pl line 25, near "if
$ctrl "
I followed the example in the "Programming with Net::LDAP" guide slide "
#52".  Is this correct or a typo.?


  $sort = Net::LDAP::Control::Sort->new( order => "sn -mail" );

foreach my $i (@OU) {

        foreach my $j ("a" .. "z") {
                @args = (
                                base => "ou=$i,o=Wiley",
                                scope => "subtree",
                                filter => "(sn=$j*)"
                );
                $r = $ldap->search( @args, control => [ $sort ]);
                ($ctrl) = $r->control( LDAP_CONTROL_SORTRESULT );

        die ldap_error_desc($r->code) if $r->code;
                if $ctrl && $ctrl->result;
                @entries = $r->entries;

                        foreach $entry (@entries) {
                                $mail = $entry->get_value('mail');
                                $cn = $entry->get_value('cn');

                           if ($mail ne "") {
                                @email = split(/@/, $mail);
                                printf "$i: $email[0]\n";
                           } else {
                                print "$i: $cn has no email address.\n";
                           }
                        }
        }
}

Re: Error: size limit exceeded ?

[Peter M. <pet...@ma...>]

Hi,

it seems like your LDAP server imposes a size limit on the result set.
Either ask your server administrator to increase it or work around
by requesting less information at once.

Yours
Peter

On Tuesday 16 April 2002 22:12, you wrote:
> Does anyone know what this means "Sizelimit exceeded at email_search.pl
> line 19."
>
> I wrote a script that does a search and the does a get_value for "mail"=
=2E
> I then attempt to split the email address based on "@". It work fine fo=
r a
> few limes that I get the
> error about......... Help
>
>
> @OU =3D ("AusAsia", "Australia", "Canada", "Chichester", "CPA",
> "Indianapolis", "JosseyBass", "NewYork605", "NewYork909", "Tulsa", "USD=
C",
> "VCH");
>
>         $ldap =3D Net::LDAP->new('server.sys.com', port =3D> '389') || =
die
> "ERROR: $@";
>
> foreach $i (@OU) {
>     $mesg =3D $ldap->search(
>                                  base =3D> "ou=3D$i,o=3DWiley",
>                                  scope =3D> "subtree",
>                                  filter =3D> "(cn=3D*)"
>     );
>
>         die ldap_error_desc($mesg->code) if $mesg->code;
>
>                         foreach $entry ($mesg->entries) {
>                                 $mail =3D $entry->get_value('mail');
>                                 $cn =3D $entry->get_value('cn');
>
>                            if ($mail ne "") {
>                                 @email =3D split(/@/, $mail);
>                                         print "$i: $email[0]\n";
>                            } else {
>                                 print "$i: $cn has no email address.\n"=
;
>                            }
>                         }
> }

--=20
Peter Marschall     |   eMail: pet...@ma...
Scheffelstra=DFe 15   |          pet...@is...
97072 W=FCrzburg      |   Tel:   0931/14721
PGP:  D7 FF 20 FE E6 6B 31 74  D1 10 88 E0 3C FE 28 35

Re: Error: size limit exceeded ?

[Chris R. <chr...@me...>]

On 16/4/02 9:12 pm, CZa...@wi... <CZa...@wi...> wrote:

> Does anyone know what this means "Sizelimit exceeded at email_search.pl
> line 19."
> 
> I wrote a script that does a search and the does a get_value for "mail".
> I then attempt to split the email address based on "@". It work fine for a
> few limes that I get the
> error about......... Help

This is a standard feature of LDAP, designed to prevent servers from
spending "too much" time on returning "too much" information for a search.

Originally it was designed to prevent spammers etc from building bulk
mailing lists by trawling through the Directory.

Solutions/workarounds:

1) use a more specific filter to match fewer entries

2) do multiple searches from 'lower down' the DIT (but you're doing that
already)

3) increase the sizelimit in the search (bear in mind this can be overridden
by the directory admin)

4) increase the server's sizelimit (if you are the directory admin)

5) use paged results.

Cheers,

Chris