From f2febdcc1bd377b328ab2f89d22338638986f098 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Fri, 26 Jul 2019 05:16:35 +0000
Subject: [PATCH] * also check mimetypes/m option

git-svn-id: trunk@42496 -
---
 packages/fcl-web/examples/simpleserver/simpleserver.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fcl-web/examples/simpleserver/simpleserver.pas b/packages/fcl-web/examples/simpleserver/simpleserver.pas
index 91c05590e4..ad1083deed 100644
--- a/packages/fcl-web/examples/simpleserver/simpleserver.pas
+++ b/packages/fcl-web/examples/simpleserver/simpleserver.pas
@@ -67,7 +67,7 @@ Var
   S,IndexPage,D : String;
 
 begin
-  S:=Checkoptions('hqd:ni:p:sH:',['help','quiet','noindexpage','directory:','port:','indexpage:','ssl','hostname:']);
+  S:=Checkoptions('hqd:ni:p:sH:m:',['help','quiet','noindexpage','directory:','port:','indexpage:','ssl','hostname:','mimetypes:']);
   if (S<>'') or HasOption('h','help') then
     usage(S);
   Quiet:=HasOption('q','quiet');