148 |
$content->type ('text'); |
$content->type ('text'); |
149 |
$content->text_content ($entry_content); |
$content->text_content ($entry_content); |
150 |
|
|
151 |
|
my $feed_date = $entry_date; |
152 |
|
my $feed_updated = $feed->updated_element; |
153 |
|
my $feed_updated_value = $feed_updated->value; |
154 |
|
if ($feed_updated_value < $feed_date) { |
155 |
|
$feed_updated->value ($feed_date); |
156 |
|
} |
157 |
|
|
158 |
|
|
159 |
{ |
{ |
160 |
open my $file, '>:utf8', $file_name or die "$0: $file_name: $!"; |
open my $file, '>:utf8', $file_name or die "$0: $file_name: $!"; |
161 |
print $file $doc->inner_html; |
print $file $doc->inner_html; |