From bc8b5802771709b62decc47862c19c4c7eab16f4 Mon Sep 17 00:00:00 2001
From: Patrick Spek <p.spek@tyil.nl>
Date: Wed, 5 Dec 2018 11:37:54 +0100
Subject: Add Dockerfile

---
 bin/make-mimetypes | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100755 bin/make-mimetypes

(limited to 'bin/make-mimetypes')

diff --git a/bin/make-mimetypes b/bin/make-mimetypes
new file mode 100755
index 0000000..64c9120
--- /dev/null
+++ b/bin/make-mimetypes
@@ -0,0 +1,36 @@
+#!/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