paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 01:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* also check mimetypes/m option

Browse Source 
git-svn-id: trunk@42496 -
This commit is contained in:
svenbarth 2019-07-26 05:16:35 +00:00
parent 893507a5d6
commit f2febdcc1b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/examples/simpleserver/simpleserver.pas
View File

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