paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 11:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Rename version constant

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-11-04 11:49:18 +01:00
parent 0b97f169b0
commit cce871258e
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/base/fpsimpleserver.pp
View File

@ -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