* Merging revisions 42496 from trunk:

    ------------------------------------------------------------------------
    r42496 | svenbarth | 2019-07-26 07:16:35 +0200 (Fri, 26 Jul 2019) | 1 line
    
    * also check mimetypes/m option
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43249 -

packages/fcl-web/examples/simpleserver/simpleserver.pas

@@ -85,7 +85,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');