14 |
use WWW::Mechanize; |
use WWW::Mechanize; |
15 |
use XML::Feed; |
use XML::Feed; |
16 |
use URI; |
use URI; |
17 |
|
use HTML::ResolveLink; |
18 |
|
|
19 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
20 |
|
|
108 |
my $class = $self->feed->source || 'Grep::Source::Feed'; |
my $class = $self->feed->source || 'Grep::Source::Feed'; |
109 |
Jifty->log->debug("using $class"); |
Jifty->log->debug("using $class"); |
110 |
|
|
111 |
$class->fetch( $self ); |
my $parent = $self; |
112 |
|
$class->fetch( $parent ); |
113 |
|
undef $parent; |
114 |
|
|
115 |
Grep::Search->finish if $self->new_items; |
Grep::Search->finish if $self->new_items; |
116 |
|
|
133 |
|
|
134 |
my $i = Grep::Model::Item->new(); |
my $i = Grep::Model::Item->new(); |
135 |
|
|
136 |
my ($ok,$msg) = $i->load_or_create( @_ ); |
my $rec = {@_}; |
137 |
|
|
138 |
|
warn "resolving links"; |
139 |
|
my $resolver = HTML::ResolveLink->new( base => $rec->{link} ); |
140 |
|
$rec->{content} = $resolver->resolve( $rec->{content} ); |
141 |
|
|
142 |
|
my ($ok,$msg) = $i->load_or_create( %$rec ); |
143 |
|
|
144 |
$msg ||= ''; |
$msg ||= ''; |
145 |
|
|