Handle Perl attachments

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

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>