/[webpac2]/Webpacus/lib/Webpacus/Model/WebPAC.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 /Webpacus/lib/Webpacus/Model/WebPAC.pm

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

revision 92 by dpavlin, Tue Nov 22 12:57:09 2005 UTC revision 116 by dpavlin, Wed Nov 23 21:52:20 2005 UTC
# Line 3  package Webpacus::Model::WebPAC; Line 3  package Webpacus::Model::WebPAC;
3  use strict;  use strict;
4  use warnings;  use warnings;
5  use lib '/data/webpac2/lib';  use lib '/data/webpac2/lib';
6  use base qw/Catalyst::Model/;  use base qw/
7  use WebPAC::Search::Estraier;          Catalyst::Model
8    /;
9  use Data::Dumper;  use Data::Dumper;
10    use WebPAC::DB;
11    use WebPAC::Output::TT;
12    use WebPAC::Search::Estraier 0.02;
13    
14  =head1 NAME  =head1 NAME
15    
# Line 28  Configuration for hyperestraier in C<con Line 32  Configuration for hyperestraier in C<con
32    
33   # configuration for hyper estraier full text search engine   # configuration for hyper estraier full text search engine
34   hyperestraier:   hyperestraier:
35      url: 'http://localhost:1978/node/webpac2'    url: 'http://localhost:1978/node/webpac2'
36      user: 'admin'    user: 'admin'
37      passwd: 'admin'    passwd: 'admin'
38    
39     webpac:
40      db_path: '/data/webpac2/db'
41      template_path: '/data/webpac2/conf/output/tt'
42      template: 'html_ffzg_results_short.tt'
43      # encoding comming from webpac
44      webpac_encoding: 'iso-8859-2'
45      # encoding expected by Catalyst
46      out_encoding: 'UTF-8'
47    
48  =cut  =cut
49    
# Line 41  sub new { Line 54  sub new {
54          $self->config($config);          $self->config($config);
55    
56          my $log = $c->log;          my $log = $c->log;
57            $self->{log} = $log;
58    
59  #       if (! $c->stash->{est}) {          my $est_cfg = $c->config->{hyperestraier};
60            $est_cfg->{'log'} = $log;
61    
62                  my $est_cfg = $c->config->{hyperestraier};          $log->debug("using config:" . Dumper($est_cfg) );
                 $est_cfg->{'log'} = $log;  
63    
64                  $log->debug("using config:" . Dumper($est_cfg) );          $self->{est} = new WebPAC::Search::Estraier( %{ $est_cfg } );
65    
66  #               $c->stash->{est} = new WebPAC::Search::Estraier( %{ $est_cfg } );          my $db_path = $c->config->{webpac}->{db_path};
67  #       }          my $template_path = $c->config->{webpac}->{template_path};
68    
69  #       $log->debug("param: " . Dumper($c->req->params));          $log->debug("using db path '$db_path', template path '$template_path'");
70    
71  #       $c->stash->{est}->search(          $self->{db} = new WebPAC::DB(
72  #               query => $c->req->params->{Title},                  path => $db_path,
73  #               max => 100,                  read_only => 1,
74  #       );          );
75    
76            $self->{out} = new WebPAC::Output::TT(
77                    include_path => $template_path,
78                    filters => { foo => sub { shift } },
79            );
80    
81            # default template from config.yaml
82            $self->{template} ||= $c->config->{webpac}->{template};
83    
84            $self->{iconv} = new Text::Iconv(
85                    $c->config->{webpac}->{webpac_encoding},
86                    $c->config->{webpac}->{out_encoding}
87            );
88    
89            $log->debug("converting encoding from webpac_encoding '" .
90                    $c->config->{webpac}->{webpac_encoding} .
91                    "' to '" .
92                    $c->config->{webpac}->{out_encoding} .
93                    "'"
94            );
95    
96          return $self;          return $self;
97    
98  }  }
99    
100    sub search {
101            my ( $self, $query, $template ) = @_;
102    
103            my $log = $self->{log};
104    
105            $log->debug("search model query: -->$query<--");
106    
107            my $template_filename = $template || $self->{template};
108    
109            my @results = $self->{est}->search(
110                    phrase => $query,
111                    get_attr => [ '@uri' ],
112                    max => 100,
113            );
114    
115            $log->debug("loading " . ($#results + 1) . " results");
116    
117            my @html_results;
118    
119            for my $i ( 0 .. $#results ) {
120    
121                    my $mfn = $1 if ( $results[$i]->{'@uri'} =~ m#/(\d+)$#);
122    
123                    #$log->debug("load_ds( $mfn )");
124    
125                    my $ds = $self->{db}->load_ds( $mfn ) || $log->error("can't load_ds( $mfn )") && next;
126            
127                    #$log->debug( "ds = " . Dumper( \@html_results ) );
128    
129                    my $html = $self->{out}->apply(
130                            template => $template_filename,
131                            data => $ds,
132                    );
133    
134                    $html = $self->{iconv}->convert( $html ) || $log->error("can't convert: $html");
135    
136                    push @html_results, $html;
137    
138            }
139    
140            #$log->debug( '@html_results = ' . Dumper( \@html_results ) );
141    
142            return \@html_results;
143    }
144    
145    
146            
147    
148  =head1 AUTHOR  =head1 AUTHOR
149    
150  Dobrica Pavlinusic  Dobrica Pavlinusic
Legend:
Removed from v.92  
changed lines
  Added in v.116
  ViewVC Help
Powered by ViewVC 1.1.26