--- lib/LDAP/Virtual.pm	2009/03/14 15:43:53	5
+++ lib/LDAP/Virtual.pm	2009/03/14 18:21:29	6
@@ -20,6 +20,8 @@
 use IO::Socket::INET;
 use IO::Select;
 
+use YAML qw/DumpFile/;
+
 use Data::Dump qw/dump/;
 
 =head1 NAME
@@ -242,6 +244,10 @@
 
 #	$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;
 }