20 |
use IO::Socket::INET; |
use IO::Socket::INET; |
21 |
use IO::Select; |
use IO::Select; |
22 |
|
|
23 |
|
use YAML qw/DumpFile/; |
24 |
|
|
25 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
26 |
|
|
27 |
=head1 NAME |
=head1 NAME |
244 |
|
|
245 |
# $self->cache->write_cache( \@entries, uri_escape( $filter )); |
# $self->cache->write_cache( \@entries, uri_escape( $filter )); |
246 |
|
|
247 |
|
my $path = uri_escape( $filter ); |
248 |
|
DumpFile( "var/${path}.yml", \@entries ); |
249 |
|
warn "# created $path ", -s $path, " bytes"; |
250 |
|
|
251 |
return RESULT_OK, @entries; |
return RESULT_OK, @entries; |
252 |
} |
} |
253 |
|
|