diff options
| -rwxr-xr-x | makesite.pl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/makesite.pl b/makesite.pl index 7b9ad92..fa55cf8 100755 --- a/makesite.pl +++ b/makesite.pl @@ -2,13 +2,21 @@ use strict; use warnings; -use File::Cat; use File::Slurp; use Text::Markdown "markdown"; use Time::Piece; my $BASE_URL="https://blog.vdouillet.fr/"; +sub cat { + my ($inFile, $outHandle) = @_; + open my $inHandle, "<", $inFile; + while(<$inHandle>) { + print $outHandle $_; + } + close $inHandle; +} + sub page { my ($pageFile, $pageTitle, $pageContent, $pageType, $id) = @_; unless(defined $pageType) { |