浏览代码

* Accept I option

Michaël Van Canneyt 2 年之前
父节点
当前提交
9cbcd399b1
共有 1 个文件被更改,包括 1 次插入1 次删除
  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