Frey/View/NoPager.pm

package Frey::View::NoPager;
use Moose;

extends 'Frey';
with 'Frey::Web';
with 'Frey::Config';
with 'Frey::jQuery';

use Search::Estraier;
use JSON::Syck;
use Data::Dump qw/dump/;

has search => (
        documentation => 'Search for',
        is => 'rw',
        isa => 'Str',
#       required => 1,
        default => '',
);

has 'page' => (
        documentation => 'display page',
        is => 'rw',
        isa => 'Int',
        default => 1,
);

has 'on_page' => (
        documentation => 'number of items on page',
        is => 'rw',
        isa => 'Int',
        default => 20,
);

has 'sort' => (
        is => 'rw',
        isa => 'Str',
        default => '',
);

sub results_as_markup {
        my ($self) = @_;

        my ( $search,$page ) = ( $self->search , $self->page );

        my $v = {
                search => $search,
                page => $page,
                max_page => 0,
                id => time() . rand(99),
        };

        sub next_page {
                my $self = shift;
                my $v = shift;
                my $json = $self->html_escape( JSON::Syck::Dump( $v ) );

                my $message = join("\n", @_);

                my $next_page = $v->{page} + 1;

                return qq|
                        <div id="next_page_$next_page">
                                $message
                                <textarea id="json" style="display:none">$json</textarea>
                        </div>
                |
                ;
        }

        if (! $search || $search =~ m/^\s*$/) {
                $v->{status} = 'Enter search query';
                return $self->next_page( $v );
        }

        $search = join(" AND ", split(/\s+/, $search)) unless ($search =~ m/(?:AND|OR|\[|\])/);
        $v->{search} = $search;

        my $node = new Search::Estraier::Node(%{ $self->config->{estraier} });

        my $on_page = $self->on_page;
        my $skip = ( $page - 1 ) * $on_page;

        my $cond = new Search::Estraier::Condition;
        $cond->set_phrase( $search );
        $cond->set_max( $on_page );
        $cond->set_skip( $skip );
        $cond->set_order( $self->sort ) if $self->sort;

        warn "INFO: estraier for '$search' page $page with $on_page items, first $skip";

        my $nres = $node->search($cond, ( $self->config->{estraier}->{depth} || 0 ) );

        my $out = qq|<!-- page $page -->|;

        if (defined($nres)) {

                $v->{hits} = $nres->hits;
                $v->{time} = $nres->hint('TIME');

                if ($v->{hits} == 0) {
                        $v->{status} = qq{<strong>No results for your search.</strong>};
                        return $self->next_page( $v, qq|<strong>No results found.</strong>| );
                } elsif ($nres->doc_num == 0) {
                        $v->{status} = qq{<strong>Error getting results for page $page.</strong>};
                        return $self->next_page( $v );
                }

                $v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );

                $v->{status} = qq{
                        Got <b>$v->{hits}</b> results for <tt>$v->{search}</tt>
                        in <em>$v->{time} s</em>
                };

                sub html_snippet {
                        my $text = shift || return;
                        my $out = '';
                        foreach my $s (split(/[\n\r]{2}/, $text)) {
                                $out .= ' ... ' if ($out);
                                my ($pre,$hit,$post) = split(/\n/,$s,3);
                                $hit =~ s/\t.*$//;
                                $out
                                 .= $self->html_escape( $pre )
                                 . '<b>'
                                 . $self->html_escape( $hit )
                                 . '</b>'
                                 . $self->html_escape( $post )
                                 ;
                        }
                        return $out;
                }

                sub attr_regex {
                        my ($rdoc,$attr) = @_;
                        my $text = $rdoc->attr( $attr );
                        return unless defined($text);

                        if (my $r = $self->config->{estraier}->{attr_regex}->{$attr} ) {
                                my $do = '$text =~ ' . $r . ';';
                                eval $do;
                                if ($@) {
                                        warn "eval $do failed: $@\n";
                                }
                        }
                        return $text;
                }

                my $result = q|
                        <div class="result">
                        <span class="nr"><% $nr %></span>
                        <h1 title="<% $nr %>"><% attr_regex( $rdoc, '@title' ) %></h1>
                        <p>
                        <% html_snippet( $rdoc->snippet ) %>
                        </p>
                        <strong><% attr_regex( $rdoc, 'source' ) %></strong>
                        <em>
                        <% attr_regex( $rdoc, '@size' ) %> bytes
                        </em>
                        <% attr_regex( $rdoc, '@mdate' ) %>
                        <br/><a href="<% $uri %>"><tt><% $uri %></tt></a>
                        </div>
                |;

                my @result = split(/\n/, $result);
                warn "# result template has ", $#result + 1, " lines";

                # for each document in results
                for my $i ( 0 ... $nres->doc_num - 1 ) {

                        my $rdoc = $nres->get_doc($i);
                        my $uri = attr_regex( $rdoc, '@uri' );
                        my $nr = $skip + $i + 1;

                        map {
                                my $l = $_;
                                $l =~ s/<%(.+?)%>/eval "$1"/ge;
                                $out .= $l;
                        } @result;

                }

        } else {
                $out .= 'error: ' . $node->status;
        }

        if ($v->{page} == $v->{max_page}) {
                $out .= $self->next_page( $v, qq|<br/><strong>All results shown</strong>|);
        } else {
                $out .= $self->next_page( $v, qq|
                        <br/><strong>Loading results...</strong>
                        <br/>If you are using the scroll bar, release the mouse to see more results.
                |);
        }

        warn "# v = ", dump( $v );

        return ( $out, $v->{status} ) if wantarray;

        $self->wrap_in_page( 0 ); # disable <body> and status bar for ajax call
        return $out;

}

sub as_markup {
        my ($self) = @_;

        $self->add_css('static/Frey/View/NoPager.css');
        $self->add_js ('static/Frey/View/NoPager.js');

        $self->add_js(q|
                $(document).ready( function() {
                        $.log.info('hook onchange to #search_form' );
                        $('#search_form').change( function() {
                                //logDebug('submit #search_form');
                                this.submit();
                        });
                });
        |);

        my ( $results, $status ) = $self->results_as_markup;

        $self->add_css(q|
                #results {
                        margin-top: 3em;
                        margin-bottom: 3em;
                }
        |);

        my $html = join("\n",
        qq|
                <div id="search_form_div">
                        <form id="search_form" method="get">
                
                                <input autocomplete="off" name="search" type="input" value="|, $self->search, qq|">
                                |, $self->sort, qq|
                                <input type="submit" class="submit" value="search">

                                <span id="status" class="note">
                                        $status
                                </span>

                        </form>
                </div>

                <div id="results">
                <!-- Dynamic Content -->
                        $results
                </div>

        |
        );

        return $html;
}

1;
1	dpavlin	763	package Frey::View::NoPager;
2			use Moose;
3
4			extends 'Frey';
5			with 'Frey::Web';
6			with 'Frey::Config';
7			with 'Frey::jQuery';
8
9			use Search::Estraier;
10			use JSON::Syck;
11			use Data::Dump qw/dump/;
12
13			has search => (
14	dpavlin	963	documentation => 'Search for',
15	dpavlin	763	is => 'rw',
16			isa => 'Str',
17	dpavlin	957	# required => 1,
18	dpavlin	765	default => '',
19	dpavlin	763	);
20
21	dpavlin	963	has 'page' => (
22			documentation => 'display page',
23	dpavlin	765	is => 'rw',
24	dpavlin	843	isa => 'Int',
25			default => 1,
26	dpavlin	765	);
27
28	dpavlin	963	has 'on_page' => (
29	dpavlin	966	documentation => 'number of items on page',
30	dpavlin	963	is => 'rw',
31			isa => 'Int',
32	dpavlin	966	default => 20,
33	dpavlin	963	);
34
35	dpavlin	843	has 'sort' => (
36	dpavlin	765	is => 'rw',
37	dpavlin	843	isa => 'Str',
38	dpavlin	963	default => '',
39	dpavlin	765	);
40
41			sub results_as_markup {
42	dpavlin	957	my ($self) = @_;
43	dpavlin	763
44	dpavlin	963	my ( $search,$page ) = ( $self->search , $self->page );
45	dpavlin	763
46	dpavlin	963	my $v = {
47			search => $search,
48			page => $page,
49	dpavlin	966	max_page => 0,
50	dpavlin	963	id => time() . rand(99),
51			};
52
53	dpavlin	763	sub next_page {
54	dpavlin	957	my $self = shift;
55	dpavlin	966	my $v = shift;
56	dpavlin	963	my $json = $self->html_escape( JSON::Syck::Dump( $v ) );
57
58			my $message = join("\n", @_);
59
60	dpavlin	966	my $next_page = $v->{page} + 1;
61
62	dpavlin	963	return qq\|
63	dpavlin	966	<div id="next_page_$next_page">
64	dpavlin	963	$message
65	dpavlin	966	<textarea id="json" style="display:none">$json</textarea>
66	dpavlin	963	</div>
67			\|
68			;
69	dpavlin	763	}
70
71			if (! $search \|\| $search =~ m/^\s*$/) {
72			$v->{status} = 'Enter search query';
73	dpavlin	966	return $self->next_page( $v );
74	dpavlin	763	}
75
76			$search = join(" AND ", split(/\s+/, $search)) unless ($search =~ m/(?:AND\|OR\|\[\|\])/);
77	dpavlin	966	$v->{search} = $search;
78	dpavlin	763
79	dpavlin	765	my $node = new Search::Estraier::Node(%{ $self->config->{estraier} });
80	dpavlin	763
81	dpavlin	963	my $on_page = $self->on_page;
82	dpavlin	763	my $skip = ( $page - 1 ) * $on_page;
83
84			my $cond = new Search::Estraier::Condition;
85			$cond->set_phrase( $search );
86	dpavlin	966	$cond->set_max( $on_page );
87	dpavlin	763	$cond->set_skip( $skip );
88	dpavlin	843	$cond->set_order( $self->sort ) if $self->sort;
89	dpavlin	763
90	dpavlin	963	warn "INFO: estraier for '$search' page $page with $on_page items, first $skip";
91
92	dpavlin	765	my $nres = $node->search($cond, ( $self->config->{estraier}->{depth} \|\| 0 ) );
93	dpavlin	763
94	dpavlin	966	my $out = qq\|<!-- page $page -->\|;
95	dpavlin	763
96			if (defined($nres)) {
97
98			$v->{hits} = $nres->hits;
99			$v->{time} = $nres->hint('TIME');
100
101			if ($v->{hits} == 0) {
102			$v->{status} = qq{<strong>No results for your search.</strong>};
103	dpavlin	966	return $self->next_page( $v, qq\|<strong>No results found.</strong>\| );
104	dpavlin	763	} elsif ($nres->doc_num == 0) {
105			$v->{status} = qq{<strong>Error getting results for page $page.</strong>};
106	dpavlin	966	return $self->next_page( $v );
107	dpavlin	763	}
108
109			$v->{max_page} = int( ($nres->hits + $on_page - 1) / $on_page );
110
111			$v->{status} = qq{
112			Got <b>$v->{hits}</b> results for <tt>$v->{search}</tt>
113			in <em>$v->{time} s</em>
114			};
115
116			sub html_snippet {
117			my $text = shift \|\| return;
118			my $out = '';
119			foreach my $s (split(/[\n\r]{2}/, $text)) {
120			$out .= ' ... ' if ($out);
121			my ($pre,$hit,$post) = split(/\n/,$s,3);
122			$hit =~ s/\t.*$//;
123	dpavlin	765	$out
124			.= $self->html_escape( $pre )
125			. '<b>'
126			. $self->html_escape( $hit )
127			. '</b>'
128			. $self->html_escape( $post )
129			;
130	dpavlin	763	}
131			return $out;
132			}
133
134			sub attr_regex {
135			my ($rdoc,$attr) = @_;
136			my $text = $rdoc->attr( $attr );
137			return unless defined($text);
138
139	dpavlin	765	if (my $r = $self->config->{estraier}->{attr_regex}->{$attr} ) {
140	dpavlin	763	my $do = '$text =~ ' . $r . ';';
141			eval $do;
142			if ($@) {
143			warn "eval $do failed: $@\n";
144			}
145			}
146			return $text;
147			}
148
149	dpavlin	957	my $result = q\|
150			<div class="result">
151	dpavlin	966	<span class="nr"><% $nr %></span>
152			<h1 title="<% $nr %>"><% attr_regex( $rdoc, '@title' ) %></h1>
153	dpavlin	957	<p>
154			<% html_snippet( $rdoc->snippet ) %>
155			</p>
156			<strong><% attr_regex( $rdoc, 'source' ) %></strong>
157			<em>
158			<% attr_regex( $rdoc, '@size' ) %> bytes
159			</em>
160			<% attr_regex( $rdoc, '@mdate' ) %>
161			<br/><a href="<% $uri %>"><tt><% $uri %></tt></a>
162			</div>
163			\|;
164	dpavlin	763
165	dpavlin	957	my @result = split(/\n/, $result);
166			warn "# result template has ", $#result + 1, " lines";
167
168	dpavlin	763	# for each document in results
169			for my $i ( 0 ... $nres->doc_num - 1 ) {
170
171			my $rdoc = $nres->get_doc($i);
172			my $uri = attr_regex( $rdoc, '@uri' );
173			my $nr = $skip + $i + 1;
174
175			map {
176			my $l = $_;
177			$l =~ s/<%(.+?)%>/eval "$1"/ge;
178			$out .= $l;
179	dpavlin	957	} @result;
180	dpavlin	763
181			}
182
183			} else {
184			$out .= 'error: ' . $node->status;
185			}
186
187			if ($v->{page} == $v->{max_page}) {
188	dpavlin	966	$out .= $self->next_page( $v, qq\|<br/><strong>All results shown</strong>\|);
189	dpavlin	763	} else {
190	dpavlin	966	$out .= $self->next_page( $v, qq\|
191			<br/><strong>Loading results...</strong>
192			<br/>If you are using the scroll bar, release the mouse to see more results.
193			\|);
194	dpavlin	763	}
195
196	dpavlin	963	warn "# v = ", dump( $v );
197	dpavlin	957
198	dpavlin	963	return ( $out, $v->{status} ) if wantarray;
199
200			$self->wrap_in_page( 0 ); # disable <body> and status bar for ajax call
201	dpavlin	763	return $out;
202
203			}
204
205			sub as_markup {
206			my ($self) = @_;
207
208	dpavlin	957	$self->add_css('static/Frey/View/NoPager.css');
209			$self->add_js ('static/Frey/View/NoPager.js');
210	dpavlin	763
211	dpavlin	858	$self->add_js(q\|
212			$(document).ready( function() {
213			$.log.info('hook onchange to #search_form' );
214			$('#search_form').change( function() {
215	dpavlin	763	//logDebug('submit #search_form');
216			this.submit();
217			});
218			});
219			\|);
220
221	dpavlin	963	my ( $results, $status ) = $self->results_as_markup;
222
223	dpavlin	966	$self->add_css(q\|
224			#results {
225			margin-top: 3em;
226			margin-bottom: 3em;
227			}
228			\|);
229
230	dpavlin	957	my $html = join("\n",
231			qq\|
232	dpavlin	763	<div id="search_form_div">
233			<form id="search_form" method="get">
234
235	dpavlin	957	<input autocomplete="off" name="search" type="input" value="\|, $self->search, qq\|">
236			\|, $self->sort, qq\|
237			<input type="submit" class="submit" value="search">
238	dpavlin	763
239	dpavlin	957	<span id="status" class="note">
240	dpavlin	963	$status
241	dpavlin	957	</span>
242	dpavlin	763
243	dpavlin	957	</form>
244			</div>
245
246	dpavlin	966	<div id="results">
247	dpavlin	763	<!-- Dynamic Content -->
248	dpavlin	963	$results
249	dpavlin	763	</div>
250
251	dpavlin	957	\|
252			);
253
254			return $html;
255	dpavlin	763	}
256
257			1;