Merge missing files from cvs repo

[openldap] / servers / slapd / back-perl / SampleLDAP.pm

diff --git a/servers/slapd/back-perl/SampleLDAP.pm b/servers/slapd/back-perl/SampleLDAP.pm
index ca1281267db979d292ac1ccac6ba5da1e8438e9e..9a8cf8ced6ff2cfd9629f46cfe4d8ab0590d661e 100644 (file)
--- 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 <http://www.openldap.org/>.
 ##
-## Copyright 1998-2007 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
 ## <http://www.OpenLDAP.org/license.html>.
-#
+
 # 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;