Grep/Action/Fetch.pm

use strict;
use warnings;

=head1 NAME

Grep::Action::Fetch

=cut

package Grep::Action::Fetch;
use base qw/Grep::Action Jifty::Action/;

use XML::Feed;
use LWP::UserAgent;

use Grep::Source;

use Data::Dump qw/dump/;

use Jifty::Param::Schema;
use Jifty::Action schema {

        param q =>
                type is 'text',
                label is 'Search for',
                hint is 'enter few words to search for';

        param feed =>
                label is 'From feed',
                render as 'select',
                available are defer {
                        my $feeds = Grep::Model::FeedCollection->new;
                        $feeds->unlimit;
                        $feeds->order_by( column => 'title', order => 'ASC' );
                        #warn "feeds ", $feeds->build_select_query;
                        [{
                                display_from => 'title',
                                value_from => 'id',
                                collection => $feeds,
                        }];
                };

        param item_fragment =>
                label is 'Show',
                render as 'select',
#               valid are qw/result result_short/,
#               available are qw/result result_short/;
                available are qw/long short title/;

};

=head2 take_action

Returns C<Grep::Model::ItemCollection> of fatched items from Feed which will
also be stored in local cache.

=cut

sub take_action {
    my $self = shift;
    
    # Custom action code

        my $feed_id = $self->argument_value('feed') or die "no feed?";
        my $q = $self->argument_value('q') or die "no q?";

        my $feed = Grep::Model::Feed->new();
        $feed->load_by_cols( id => $feed_id );
        die "can't load feed ", $feed_id unless ($feed->id);

        my $source = Grep::Source->new({ feed => $feed });
        my $items = $source->search( $q );
        my $new = $source->new_items;

        if ( my $count = $items->count ) {

                $count ||= 0;

                # construct a proper sentence :-)
                my $message = $count 
                        . ( $new == $count ? ' new' : '' )
                        . ( $new == 0 ? ' old' : '' )
                        . ' results '   
                        . ( $new && $new < $count ? "of which $new new " : '' )
                        . "for '$q' in " . $source->feed->title;
        
                $self->result->message( $message );

                $self->result->content( items => $items );
                $self->result->content( count => $items->count );

                return $items;

        } else {
                return $self->result->error( "No results for '$q' in " . $feed->title );
        }
}


1;

1	dpavlin	3	use strict;
2			use warnings;
3
4			=head1 NAME
5
6			Grep::Action::Fetch
7
8			=cut
9
10			package Grep::Action::Fetch;
11			use base qw/Grep::Action Jifty::Action/;
12
13			use XML::Feed;
14	dpavlin	21	use LWP::UserAgent;
15	dpavlin	3
16	dpavlin	72	use Grep::Source;
17	dpavlin	47
18	dpavlin	3	use Data::Dump qw/dump/;
19
20			use Jifty::Param::Schema;
21			use Jifty::Action schema {
22
23			param q =>
24			type is 'text',
25			label is 'Search for',
26			hint is 'enter few words to search for';
27
28			param feed =>
29			label is 'From feed',
30	dpavlin	7	render as 'select',
31	dpavlin	3	available are defer {
32			my $feeds = Grep::Model::FeedCollection->new;
33			$feeds->unlimit;
34	dpavlin	184	$feeds->order_by( column => 'title', order => 'ASC' );
35	dpavlin	102	#warn "feeds ", $feeds->build_select_query;
36	dpavlin	3	[{
37			display_from => 'title',
38			value_from => 'id',
39			collection => $feeds,
40			}];
41			};
42
43	dpavlin	25	param item_fragment =>
44			label is 'Show',
45			render as 'select',
46	dpavlin	28	# valid are qw/result result_short/,
47			# available are qw/result result_short/;
48			available are qw/long short title/;
49	dpavlin	25
50	dpavlin	3	};
51
52			=head2 take_action
53
54	dpavlin	29	Returns C<Grep::Model::ItemCollection> of fatched items from Feed which will
55			also be stored in local cache.
56
57	dpavlin	3	=cut
58
59			sub take_action {
60			my $self = shift;
61
62			# Custom action code
63
64	dpavlin	72	my $feed_id = $self->argument_value('feed') or die "no feed?";
65			my $q = $self->argument_value('q') or die "no q?";
66
67	dpavlin	3	my $feed = Grep::Model::Feed->new();
68			$feed->load_by_cols( id => $feed_id );
69	dpavlin	72	die "can't load feed ", $feed_id unless ($feed->id);
70	dpavlin	3
71	dpavlin	72	my $source = Grep::Source->new({ feed => $feed });
72			my $items = $source->search( $q );
73			my $new = $source->new_items;
74	dpavlin	3
75	dpavlin	71	if ( my $count = $items->count ) {
76
77	dpavlin	110	$count \|\|= 0;
78
79	dpavlin	71	# construct a proper sentence :-)
80			my $message = $count
81			. ( $new == $count ? ' new' : '' )
82			. ( $new == 0 ? ' old' : '' )
83			. ' results '
84			. ( $new && $new < $count ? "of which $new new " : '' )
85	dpavlin	72	. "for '$q' in " . $source->feed->title;
86	dpavlin	71
87			$self->result->message( $message );
88
89			$self->result->content( items => $items );
90			$self->result->content( count => $items->count );
91
92			return $items;
93
94			} else {
95	dpavlin	172	return $self->result->error( "No results for '$q' in " . $feed->title );
96	dpavlin	71	}
97			}
98
99
100	dpavlin	3	1;
101