From 08784b70fe9d08cb18d226b972a309dcc1472c73 Mon Sep 17 00:00:00 2001
From: "Peter J. Holzer" <hjp@hjp.at>
Date: Sun, 31 Mar 2019 21:03:03 +0200
Subject: [PATCH] Handle Perl attachments

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

diff --git a/mbox2web b/mbox2web
index dd60a0d..1f15df4 100755
--- a/mbox2web
+++ b/mbox2web
@@ -61,6 +61,7 @@ def save_part(msg, disposition):
         "application/x-gzip":       ".gz", # more likely tar.gz, but we can't know without looking into it which we ain't
         "image/gif":                ".gif",
         "text/x-c":                 ".c",
+        "application/x-perl":       ".pl",
     }[content_type]
 
     name = msg.get_param("name") or "(data)"
diff --git a/templates/attachment_application_x-perl.html b/templates/attachment_application_x-perl.html
new file mode 100644
index 0000000..1d62386
--- /dev/null
+++ b/templates/attachment_application_x-perl.html
@@ -0,0 +1,8 @@
+<div class="partouter">
+    <div class="partheader">
+        application/x-perl
+    </div>
+    <div class="partinner">
+        <a href="{{url}}">{{name}}</a>
+    </div>
+</div>