paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Merging revisions 42496 from trunk:

Browse Source 
------------------------------------------------------------------------
    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 -
This commit is contained in:
michael 2019-10-19 14:45:37 +00:00
parent e3a1461bd9
commit dcd9071815
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

@ -85,7 +85,7 @@ Var
S,IndexPage,D : String; S,IndexPage,D : String;
begin 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 if (S<>'') or HasOption('h','help') then
usage(S); usage(S);
Quiet:=HasOption('q','quiet'); Quiet:=HasOption('q','quiet');