/[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 355 by dpavlin, Sat Jan 7 22:45:16 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                                    return unless (@_);
102                                    my $out;
103                                    my $i = 1;
104                                    foreach my $v (@_) {
105                                            $out .= qq{<div id="dump_$i">} .
106                                                    Data::HTMLDumper->Dump([ $v ],[ "v$i" ]) .
107                                                    qq{</div>};
108                                            $i++;
109                                    }
110                                    $out =~ s!<table[^>/]*>!<table class="dump">!gis if ($out);
111                                    return $out;
112                            }
113                    },
114          );          );
115    
116          # default template from config.yaml          # default template from config.yaml
# Line 137  sub search { Line 152  sub search {
152    
153          my $log = $self->{log};          my $log = $self->{log};
154    
155          $log->debug("args: " . Dumper( $args ));          $log->debug("search args: " . Dumper( $args ));
156    
157          my $query = $args->{phrase} || $log->warn("no query phrase") && return;          my $query = $args->{phrase} || $log->warn("no query phrase") && return;
158    
# Line 254  sub record { Line 269  sub record {
269    
270          my $args = {@_};          my $args = {@_};
271          my $log = $self->{log};          my $log = $self->{log};
272          $log->debug("args: " . Dumper( $args ));          $log->debug("record args: " . Dumper( $args ));
273    
274          foreach my $f (qw/record_uri template/) {          foreach my $f (qw/record_uri template/) {
275                  $log->fatal("need $f") unless ($args->{$f});                  $log->fatal("need $f") unless ($args->{$f});
Legend:
Removed from v.348  
changed lines
  Added in v.355
  ViewVC Help
Powered by ViewVC 1.1.26