X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=servers%2Fslapd%2Fback-perl%2FSampleLDAP.pm;h=9a8cf8ced6ff2cfd9629f46cfe4d8ab0590d661e;hb=76b7a8302611b0a62e32b4b35f8f1988f986f9e5;hp=d3a49ff557bd3b9da9d5e8fe240e45ddabaa386d;hpb=3dadeb3efe31c72dacc2e0e11ee25c271dffe44d;p=openldap
diff --git a/servers/slapd/back-perl/SampleLDAP.pm b/servers/slapd/back-perl/SampleLDAP.pm
index d3a49ff557..9a8cf8ced6 100644
--- a/servers/slapd/back-perl/SampleLDAP.pm
+++ b/servers/slapd/back-perl/SampleLDAP.pm
@@ -2,7 +2,7 @@
# $OpenLDAP$
## This work is part of OpenLDAP Software .
##
-## Copyright 1998-2010 The OpenLDAP Foundation.
+## Copyright 1998-2011 The OpenLDAP Foundation.
## Portions Copyright 1999 John C. Quillan.
## All rights reserved.
##
@@ -13,7 +13,7 @@
## A copy of this license is available in the file LICENSE in the
## top-level directory of the distribution or, alternatively, at
## .
-#
+
# Usage: Add something like this to slapd.conf:
#
# database perl
@@ -22,6 +22,9 @@
# perlModule SampleLDAP
#
# See the slapd-perl(5) manual page for details.
+#
+# This demo module keeps an in-memory hash {"DN" => "LDIF entry", ...}
+# built in sub add{} & co. The data is lost when slapd shuts down.
package SampleLDAP;
use strict;
@@ -49,7 +52,7 @@ sub search {
my ( $base, $scope, $deref, $sizeLim, $timeLim, $filterStr, $attrOnly,
@attrs )
= @_;
- print {*STDERR}, "====$filterStr====\n";
+ print {*STDERR} "====$filterStr====\n";
$filterStr =~ s/\(|\)//gm;
$filterStr =~ s/=/: /m;