PB_Includes/lweb
1
0
Fork 0
Code Issues 3 Pull requests Projects 1 Releases 2 Wiki Activity

Add other Types and change default

Browse source
This commit is contained in:
René Linder 2022-02-17 13:21:13 +01:00
parent 50a09dfe02
commit 421dc9b04f
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
inc/lweb_helper.pbi
View file

@ -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