| 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; |
Parent Directory
| 
Revision Log
| 
Patch