/[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 348 by dpavlin, Sat Jan 7 17:34:16 2006 UTC revision 351 by dpavlin, Sat Jan 7 18:18:07 2006 UTC
# Line 8  use base qw/ Line 8  use base qw/
8  /;  /;
9  use Data::Dumper;  use Data::Dumper;
10  use WebPAC::Store 0.08;  use WebPAC::Store 0.08;
11  use WebPAC::Output::TT 0.06;  use WebPAC::Output::TT 0.07;
12  use WebPAC::Search::Estraier 0.05;  use WebPAC::Search::Estraier 0.05;
13  use File::Slurp;  use File::Slurp;
14  use Time::HiRes;  use Time::HiRes;
15  use Encode qw/encode decode from_to/;  use Encode qw/encode decode from_to/;
16    use Data::HTMLDumper;
17    
18  =head1 NAME  =head1 NAME
19    
# Line 95  sub new { Line 96  sub new {
96    
97          $self->{out} = new WebPAC::Output::TT(          $self->{out} = new WebPAC::Output::TT(
98                  include_path => $template_path,                  include_path => $template_path,
99                  filters => { foo => sub { shift } },                  filters => {
100                            dump_html => sub {
101                                    my $t = shift || return;
102                                    #return Data::HTMLDumper->Dumper( $t );
103                                    return Data::HTMLDumper->Dump([$t],[qw/dump/]);
104                            }
105                    },
106          );          );
107    
108          # default template from config.yaml          # default template from config.yaml
# Line 137  sub search { Line 144  sub search {
144    
145          my $log = $self->{log};          my $log = $self->{log};
146    
147          $log->debug("args: " . Dumper( $args ));          $log->debug("search args: " . Dumper( $args ));
148    
149          my $query = $args->{phrase} || $log->warn("no query phrase") && return;          my $query = $args->{phrase} || $log->warn("no query phrase") && return;
150    
# Line 254  sub record { Line 261  sub record {
261    
262          my $args = {@_};          my $args = {@_};
263          my $log = $self->{log};          my $log = $self->{log};
264          $log->debug("args: " . Dumper( $args ));          $log->debug("record args: " . Dumper( $args ));
265    
266          foreach my $f (qw/record_uri template/) {          foreach my $f (qw/record_uri template/) {
267                  $log->fatal("need $f") unless ($args->{$f});                  $log->fatal("need $f") unless ($args->{$f});
Legend:
Removed from v.348  
changed lines
  Added in v.351
  ViewVC Help
Powered by ViewVC 1.1.26