remove File::Cat dependency

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) {