r1769@llin: dpavlin | 2009-04-21 23:05:26 +0200

 dump attribute usage to disk

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1131 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Output/Estraier.pm b/lib/WebPAC/Output/Estraier.pm
index 1a77b47..fa95063 100644 (file)
--- a/lib/WebPAC/Output/Estraier.pm
+++ b/lib/WebPAC/Output/Estraier.pm
@@ -11,6 +11,7 @@ use Data::Dump qw/dump/;
 use LWP;
 use URI::Escape;
 use List::Util qw/first/;
+use YAML;
 
 =head1 NAME
 
@@ -119,6 +120,8 @@ sub new {
                $log->debug("opening index $self->{url}");
        }
 
+       $self->{stats} = {};
+
        $self ? return $self : return undef;
 }
 
@@ -188,6 +191,8 @@ sub add {
 
                $doc->add_attr( $tag, $vals );
                $doc->add_hidden_text( $vals );
+
+               $self->{stats}->{attr}->{$tag}++;
        }
 
        my $text = $args->{'text'};
@@ -279,6 +284,22 @@ sub convert {
        return $text;
 }
 
+=head2 finish
+
+Dump attributes used on disk
+
+=cut
+
+sub finish {
+       my $self = shift;
+       my $log = $self->_get_logger();
+
+       my $path = 'var/estraier/' . $self->{database} . '.yaml';
+       YAML::DumpFile( $path, $self->{stats} );
+       $log->info("created  $path ", -s $path, " bytes");
+       $log->debug( dump( $self->{stats} ) );
+}
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>