From 55a1a1df8398abdb881eea35edaab7f81805785d Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@hjp.at>
Date: Sun, 12 May 2019 23:11:21 +0200
Subject: [PATCH] Implement attachment text/x-perl

---
 mbox2web                              | 1 +
 templates/attachment_text_x-perl.html | 8 ++++++++
 2 files changed, 9 insertions(+)
 create mode 100644 templates/attachment_text_x-perl.html

diff --git a/mbox2web b/mbox2web
index f410283..d83b6a1 100755
--- a/mbox2web
+++ b/mbox2web
@@ -100,6 +100,7 @@ def save_part(msg, disposition):
         "text/x-c++src":                           ".c++",
         "application/x-compressed-tar":            ".tar.gz",
         "application/vnd.oasis.opendocument.text": ".odt",
+        "text/x-perl":                             ".pl",
     }[content_type]
 
     name = msg.get_param("name") or "(data)"
diff --git a/templates/attachment_text_x-perl.html b/templates/attachment_text_x-perl.html
new file mode 100644
index 0000000..aa005de
--- /dev/null
+++ b/templates/attachment_text_x-perl.html
@@ -0,0 +1,8 @@
+<div class="partouter">
+    <div class="partheader">
+        text/x-perl
+    </div>
+    <div class="partinner">
+        <a href="{{url}}">{{name}}</a>
+    </div>
+</div>