Browse Source

* Accept I option

Michaël Van Canneyt 2 years ago
parent
commit
9cbcd399b1
1 changed files with 1 additions and 1 deletions
  1. 1 1
      packages/fcl-web/examples/simpleserver/simpleserver.pas

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

@@ -509,7 +509,7 @@ Var
 
 
 begin
 begin
   FMaxAge:=31557600;
   FMaxAge:=31557600;
-  S:=Checkoptions('hqd:ni:p:sH:m:x:c:beQ:a:A:ou::V',['help','quiet','noindexpage','directory:','port:','indexpage:','ssl','hostname:','mimetypes:','proxy:','config:','background','echo','quit:','max-age:','api:','coi','capture','version']);
+  S:=Checkoptions('hqd:ni:p:sH:m:x:c:beQ:a:A:ou::VI',['help','quiet','noindexpage','directory:','port:','indexpage:','ssl','hostname:','mimetypes:','proxy:','config:','background','echo','quit:','max-age:','api:','coi','capture','version','interface']);
   if (S<>'') or HasOption('h','help') then
   if (S<>'') or HasOption('h','help') then
     usage(S);
     usage(S);
   if HasOption('V','version') then
   if HasOption('V','version') then