/[webpac2]/trunk/lib/WebPAC/Output/KinoSearch.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/KinoSearch.pm

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

revision 914 by dpavlin, Tue Oct 30 20:11:04 2007 UTC revision 919 by dpavlin, Tue Oct 30 22:07:11 2007 UTC
# Line 25  WebPAC::Output::KinoSearch - Create Kino Line 25  WebPAC::Output::KinoSearch - Create Kino
25    
26  =head1 VERSION  =head1 VERSION
27    
28  Version 0.04  Version 0.05
29    
30  =cut  =cut
31    
32  our $VERSION = '0.04';  our $VERSION = '0.05';
33    
34  =head1 SYNOPSIS  =head1 SYNOPSIS
35    
# Line 42  type C<search>. Line 42  type C<search>.
42    
43  Open KinoSearch index  Open KinoSearch index
44    
45   my $est = new WebPAC::Output::KinoSearch({   my $out = new WebPAC::Output::KinoSearch({
46          path => '/path/to/invindex',          path => '/path/to/invindex',
47          database => 'demo',          database => 'demo',
48          encoding => 'iso-8859-2',          encoding => 'iso-8859-2',
# Line 69  index. Line 69  index.
69    
70  =back  =back
71    
72    =head2 init
73    
74      $out->init;
75    
76  =cut  =cut
77    
78  sub init {  sub init {
# Line 89  sub init { Line 93  sub init {
93          if ( ! -e $self->path ) {          if ( ! -e $self->path ) {
94                  mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");                  mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");
95                  $log->info("created ", $self->path);                  $log->info("created ", $self->path);
96            } elsif ( $self->clean ) {
97                    $log->info("removing existing ", $self->path);
98                    rmtree $self->path || $log->logdie("can't remove ", $self->path,": $!");
99                    mkpath $self->path || $log->logdie("can't create ", $self->path,": $!");
100          }          }
101    
102          my $path = $self->path . '/' . $self->database;          my $path = $self->path . '/' . $self->database;
# Line 111  sub init { Line 119  sub init {
119    
120  Adds one entry  Adds one entry
121    
122    $est->add( 42, $ds );    $out->add( 42, $ds );
123    
124  =cut  =cut
125    
# Line 128  sub add { Line 136  sub add {
136    
137          my $hash = $self->ds_to_hash( $ds, 'search' ) || return;          my $hash = $self->ds_to_hash( $ds, 'search' ) || return;
138    
139          warn "add( $id, ",dump($ds)," ) => ", dump( $hash );          $hash->{database} ||= $self->database;
140            $hash->{id} ||= $id;
141    
142            $log->debug("add( $id, ", sub { dump($ds) }," ) => ", sub { dump( $hash ) });
143    
144          $self->index->add_doc( $hash );          $self->index->add_doc( $hash );
145    
# Line 139  sub add { Line 150  sub add {
150    
151  Close index  Close index
152    
153   $index->finish;   $out->finish;
154    
155  =cut  =cut
156    
# Line 152  sub finish { Line 163  sub finish {
163    
164  }  }
165    
 =head2 convert  
   
  my $utf8_string = $self->convert('string in codepage');  
   
 =cut  
   
 sub convert {  
         my $self = shift;  
   
         my $text = shift || return;  
         from_to($text, $self->{encoding}, 'UTF-8');  
         return $text;  
 }  
   
166  =head1 AUTHOR  =head1 AUTHOR
167    
168  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>  Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>
Legend:
Removed from v.914  
changed lines
  Added in v.919
  ViewVC Help
Powered by ViewVC 1.1.26