/[webpac2]/trunk/lib/WebPAC/Output/Estraier.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/WebPAC/Output/Estraier.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1147 by dpavlin, Tue Apr 21 21:06:30 2009 UTC revision 1148 by dpavlin, Fri Apr 24 09:37:08 2009 UTC
# Line 11  use Data::Dump qw/dump/; Line 11  use Data::Dump qw/dump/;
11  use LWP;  use LWP;
12  use URI::Escape;  use URI::Escape;
13  use List::Util qw/first/;  use List::Util qw/first/;
14    use File::Path qw/mkpath/;
15  use YAML;  use YAML;
16    
17  =head1 NAME  =head1 NAME
# Line 294  sub finish { Line 295  sub finish {
295          my $self = shift;          my $self = shift;
296          my $log = $self->_get_logger();          my $log = $self->_get_logger();
297    
298          my $path = 'var/estraier/' . $self->{database} . '.yaml';          my $path = 'var/estraier';
299    
300            mkpath $path unless -e $path;
301    
302            $path .= '/' . $self->{database} . '.yaml';
303          YAML::DumpFile( $path, $self->{stats} );          YAML::DumpFile( $path, $self->{stats} );
304          $log->info("created  $path ", -s $path, " bytes");          $log->info("created  $path ", -s $path, " bytes");
305          $log->debug( dump( $self->{stats} ) );          $log->debug( dump( $self->{stats} ) );
Legend:
Removed from v.1147  
changed lines
  Added in v.1148
  ViewVC Help
Powered by ViewVC 1.1.26