79 |
|
|
80 |
Jifty->log->debug("trying to find feed on $uri"); |
Jifty->log->debug("trying to find feed on $uri"); |
81 |
|
|
82 |
my @feeds = Feed::Find->find( sprintf( $uri, $search_moniker ), $ua ); |
my $r = $ua->get( sprintf( $uri, $search_moniker ) ); |
83 |
|
|
84 |
|
return $self->result->error( $r->status_line . " from $uri" ) unless ( $r->is_success ); |
85 |
|
|
86 |
|
if ($r->header('Content-type') =~ /xml/) { |
87 |
|
$self->result->message( "Assuming $uri is feed and using it" ); |
88 |
|
return $self->SUPER::take_action( @ARGS ); |
89 |
|
} |
90 |
|
|
91 |
|
my @feeds = Feed::Find->find_in_html( $r->content ); |
92 |
|
|
93 |
if (@feeds) { |
if (@feeds) { |
94 |
|
|
105 |
|
|
106 |
return $self->result->error("Can't find any feed at $uri") unless ( $feed_uri ); |
return $self->result->error("Can't find any feed at $uri") unless ( $feed_uri ); |
107 |
|
|
108 |
$self->result->message('Found ' . @feeds . ' feeds, using first one. ' . join(" ", @feeds) ); |
$self->result->message('Found ' . @feeds . " feeds, using first: $feed_uri" ); |
109 |
$self->argument_value('uri', $feed_uri); |
$self->argument_value('uri', $feed_uri); |
110 |
|
|
111 |
Jifty->log->debug("calling parent take_action with new uri $feed_uri"); |
Jifty->log->debug("calling parent take_action with new uri $feed_uri"); |
114 |
|
|
115 |
} else { |
} else { |
116 |
|
|
|
my $r = $ua->get( sprintf( $uri, $search_moniker ) ); |
|
117 |
warn "no feeds in ", $r->content; |
warn "no feeds in ", $r->content; |
118 |
|
|
119 |
$self->result->error('No feeds found on supplied URI'); |
$self->result->error('No feeds found on supplied URI'); |