diff options
| author | dakkar <dakkar@thenautilus.net> | 2012-12-09 23:20:10 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2012-12-09 23:20:10 +0000 |
| commit | 6b51cdf183a5fb98b7c115f07f4189f0affe9f26 (patch) | |
| tree | 5e99fecc659e9b5df9bfc015c9c73a556dc288c3 /lib/Feed/Role/DeDupe.pm | |
| parent | use issued date (diff) | |
| download | feeder-6b51cdf183a5fb98b7c115f07f4189f0affe9f26.tar.gz feeder-6b51cdf183a5fb98b7c115f07f4189f0affe9f26.tar.bz2 feeder-6b51cdf183a5fb98b7c115f07f4189f0affe9f26.zip | |
rework date handling
Diffstat (limited to 'lib/Feed/Role/DeDupe.pm')
| -rw-r--r-- | lib/Feed/Role/DeDupe.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/Feed/Role/DeDupe.pm b/lib/Feed/Role/DeDupe.pm index 31ba1bf..641c898 100644 --- a/lib/Feed/Role/DeDupe.pm +++ b/lib/Feed/Role/DeDupe.pm @@ -132,9 +132,15 @@ sub mark_seen { sub _entry_id { my ($self,$e) = @_; + my $id = $e->id; + + my $date = $e->modified // $e->issued; + if ($date) { $id .= '-' . $date->iso8601 } + my $body = $e->content->body; my $content_digest = sha1_base64(encode('utf-8',$body)); - my $id = join '-',$e->id,$e->modified->iso8601,$content_digest; + $id .= '-' . $content_digest; + return encode('utf-8',$id); } |