From 421dc9b04f47c35420ea54396f37232a1e0a9b49 Mon Sep 17 00:00:00 2001
From: Ground0 <rene.linder@lihaso.ch>
Date: Thu, 17 Feb 2022 13:21:13 +0100
Subject: [PATCH] Add other Types and change default

---
 inc/lweb_helper.pbi | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/inc/lweb_helper.pbi b/inc/lweb_helper.pbi
index 376aa44..c91921d 100644
--- a/inc/lweb_helper.pbi
+++ b/inc/lweb_helper.pbi
@@ -5,6 +5,16 @@
 
 Procedure.s mimetype(file.s)
   Select file
+    Case "pdf"
+      ProcedureReturn "application/pdf"
+    Case "zip"
+      ProcedureReturn "application/zip"
+    Case "doc"
+      ProcedureReturn "application/msword"
+    Case "xls"
+      ProcedureReturn "application/vnd.ms-excel"
+    Case "ppt"
+      ProcedureReturn "application/vnd.ms-powerpoint"
     Case "png"
       ProcedureReturn "image/png"
     Case "gif"
@@ -21,12 +31,14 @@ Procedure.s mimetype(file.s)
       ProcedureReturn "text/html"
     Case "mss"
       ProcedureReturn "text/html"
+    Case "php"
+      ProcedureReturn "text/html"
     Case "css"
       ProcedureReturn "text/css"
     Case "js"
       ProcedureReturn "text/javascript"
     Default
-      ProcedureReturn "text/html"
+      ProcedureReturn "application/octet-stream"
   EndSelect
 EndProcedure