|
@@ -54,7 +54,7 @@ uses
|
|
webutil;
|
|
webutil;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
Const
|
|
Const
|
|
- ServerVersion = '1.1';
|
|
|
|
|
|
+ fpSimpleServerVersion = '1.1';
|
|
|
|
|
|
Type
|
|
Type
|
|
|
|
|
|
@@ -502,7 +502,7 @@ end;
|
|
|
|
|
|
procedure TFPSimpleServerApplication.WriteOptions;
|
|
procedure TFPSimpleServerApplication.WriteOptions;
|
|
begin
|
|
begin
|
|
- Writeln('Version : ',ServerVersion);
|
|
|
|
|
|
+ Writeln('Version : ',fpSimpleServerVersion);
|
|
Writeln('Where options is one or more of : ');
|
|
Writeln('Where options is one or more of : ');
|
|
Writeln('-A --api=path,secret Activate location API on path, using secret as accepted bearer token.');
|
|
Writeln('-A --api=path,secret Activate location API on path, using secret as accepted bearer token.');
|
|
Writeln('-a --max-age=age Set max-age expiry header on returned file requests.');
|
|
Writeln('-a --max-age=age Set max-age expiry header on returned file requests.');
|
|
@@ -632,7 +632,7 @@ begin
|
|
if HasOption('V','version') then
|
|
if HasOption('V','version') then
|
|
begin
|
|
begin
|
|
Terminate;
|
|
Terminate;
|
|
- Writeln(ServerVersion);
|
|
|
|
|
|
+ Writeln(fpSimpleServerVersion);
|
|
Exit;
|
|
Exit;
|
|
end;
|
|
end;
|
|
if HasOption('c','config') then
|
|
if HasOption('c','config') then
|