From 5c086bc52fa3a226bcf706b1f420a5d98ea377dd Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 15 Dec 2021 10:45:58 +0100
Subject: Redo most of the blog in Hugo

Missing posts will have to be added later
---
 bin/make-mimetypes | 36 ------------------------------------
 1 file changed, 36 deletions(-)
 delete mode 100755 bin/make-mimetypes

(limited to 'bin/make-mimetypes')

diff --git a/bin/make-mimetypes b/bin/make-mimetypes
deleted file mode 100755
index 64c9120..0000000
--- a/bin/make-mimetypes
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/env perl6
-
-use v6.c;
-
-sub MAIN (
-        Str:D :$default = "application/octet-stream",
-) {
-    my IO::Path $mime-types = "/etc/mime.types".IO;
-
-    die "No $mime-types.absolute()" unless $mime-types.f;
-
-    my %types;
-
-    for $mime-types.lines -> $line {
-        my ($mimetype, @extensions) = $line.words;
-
-        for @extensions -> $extension {
-            %types{$extension} = $mimetype;
-        }
-    }
-
-    print-conf(%types, $default);
-}
-
-sub print-conf (
-        %mimetypes,
-        Str:D $default,
-) {
-    say "mimetype.assign = (";
-
-    for %mimetypes.kv -> $extension, $type {
-        say "\t\".$extension\" => \"$type\",";
-    }
-
-    say "\"\" => \"$default\"\n)";
-}
-- 
cgit v1.1