diff options
| author | Vincent Douillet <vincent@vdouillet.fr> | 2022-11-11 14:20:36 +0100 |
|---|---|---|
| committer | Vincent Douillet <vincent@vdouillet.fr> | 2022-11-11 14:20:36 +0100 |
| commit | 0644796fdf1e5ac2fc884d5557e0579b0a241354 (patch) | |
| tree | e8009fb0fcb08a5b147e49ef63ff5f24e54ab69b /makesite.pl | |
| parent | 2ec9204c3c564ab092fbf527b8da6bac0688a512 (diff) | |
small corrections to articles and generator script
Diffstat (limited to 'makesite.pl')
| -rwxr-xr-x | makesite.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/makesite.pl b/makesite.pl index 83bbce4..f78f387 100755 --- a/makesite.pl +++ b/makesite.pl @@ -14,7 +14,7 @@ sub page { unless(defined $pageType) { $pageType = "body"; # default page type } - open my $outHandle, ">>", "output/$pageFile"; + open my $outHandle, ">", "output/$pageFile"; # Write header and insert page title open my $inHandle, "<", "template/header.html"; while(<$inHandle>) { @@ -98,7 +98,7 @@ page "index.html", "blog.vdouillet.fr", $indexContent, "body", "index-body"; # Build RSS feed with article list in reverse (most recent first) print "Building RSS feed\n"; -open my $outHandle, ">>", "output/rss.xml"; +open my $outHandle, ">", "output/rss.xml"; # Write channel info and insert publication and build dates open my $inHandle, "<", "template/rss.xml"; my $pubDate = Time::Piece->strptime($articleList[$#articleList]{date}, "%m-%d-%Y"); # Last article date |