X-Git-Url: http://git.rot13.org/?p=virtual-ldap;a=blobdiff_plain;f=lib%2FLDAP%2FVirtual.pm;h=10893bcef1411cc715e3fc89ff060862471a86ee;hp=42ee0d128e35f65d84d1ee76cbdfc8eac739fe40;hb=24a2710e5e18cee3bbe8e2a3caf00bb7349adcd1;hpb=9f191fbbe365f864dd9bad9a672aab5505b503a2

diff --git a/lib/LDAP/Virtual.pm b/lib/LDAP/Virtual.pm
index 42ee0d1..10893bc 100644
--- a/lib/LDAP/Virtual.pm
+++ b/lib/LDAP/Virtual.pm
@@ -20,6 +20,8 @@ use URI::Escape;	# uri_escape
 use IO::Socket::INET;
 use IO::Select;
 
+use YAML qw/DumpFile/;
+
 use Data::Dump qw/dump/;
 
 =head1 NAME
@@ -242,6 +244,10 @@ sub search {
 
 #	$self->cache->write_cache( \@entries, uri_escape( $filter ));
 
+	my $path = uri_escape( $filter );
+	DumpFile( "var/${path}.yml", \@entries );
+	warn "# created $path ", -s $path, " bytes";
+
 	return RESULT_OK, @entries;
 }