paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 01:08:07 +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;
{$ENDIF}
Const
ServerVersion = '1.1';
fpSimpleServerVersion = '1.1';
Type
@ -502,7 +502,7 @@ end;
procedure TFPSimpleServerApplication.WriteOptions;
begin
Writeln('Version : ',ServerVersion);
Writeln('Version : ',fpSimpleServerVersion);
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 --max-age=age Set max-age expiry header on returned file requests.');
@ -632,7 +632,7 @@ begin
if HasOption('V','version') then
begin
Terminate;
Writeln(ServerVersion);
Writeln(fpSimpleServerVersion);
Exit;
end;
if HasOption('c','config') then