added log file

[virtual-ldap] / lib / LDAP / Virtual.pm

diff --git a/lib/LDAP/Virtual.pm b/lib/LDAP/Virtual.pm
index 3b17bd4..10893bc 100644 (file)
--- 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
@@ -44,8 +46,7 @@ our $pids;
 our $cache;
 
 sub cache {
-       return $cache if $cache;
-       $cache = new A3C::Cache->new({ instance => '', dir => 'ldap' });
+       return $cache;
 }
 
 sub run {
@@ -241,7 +242,11 @@ sub search {
 
        warn "## entries = ",dump( @entries );
 
-       $self->cache->write_cache( \@entries, uri_escape( $filter ));
+#      $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;
 }