From fdaa3a074e1f3a7d672324d97dbdc67bdeaebeeb Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Sat, 14 Mar 2009 18:21:29 +0000
Subject: [PATCH 1/1] save search queries to YAML files

---
 Makefile.PL         | 1 +
 lib/LDAP/Virtual.pm | 6 ++++++
 2 files changed, 7 insertions(+)

diff --git a/Makefile.PL b/Makefile.PL
index a9b92d0..c73bfdf 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -8,6 +8,7 @@ requires	'Net::LDAP::Server';
 requires	'URI::Escape';
 requires	'IO::Socket::INET';
 requires	'Data::Dump';
+requires	'YAML';
 
 auto_install;
 
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;
 }
 
-- 
2.20.1