Browse Source

* Rename version constant

Michaël Van Canneyt 9 months ago
parent
commit
cce871258e
1 changed files with 3 additions and 3 deletions
  1. 3 3
      packages/fcl-web/src/base/fpsimpleserver.pp

+ 3 - 3
packages/fcl-web/src/base/fpsimpleserver.pp

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