implement usage.users.total

highball-fedi · Feb 23, 2025 · 3741a3e · 3741a3e
1 parent 719a6ad
commit 3741a3e
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 3 deletions.
diff --git a/src/class/HBDatabase.pp b/src/class/HBDatabase.pp
@@ -72,9 +72,9 @@ destructor THighballDB.Destroy();
 		Query.ExecSQL();
 		Transaction.Commit();
 	end;
+	Query.Free();
 	Transaction.Free();
 	Connection.Free();
-	Query.Free();
 	inherited;
 end;
 

diff --git a/src/route/HBNodeinfo.pp b/src/route/HBNodeinfo.pp
@@ -17,11 +17,13 @@ implementation
 uses
 	FPJSON,
 	HighballConfig,
-	HighballVersion;
+	HighballVersion,
+	HBDatabase;
 
 procedure TRouteNodeinfo.Job();
 var
 	EPName: String;
+	DB: THighballDB;
 begin
 	EPName := RouteReq.RouteParams['name'];
 	if (EPName = '2.0') or (EPName = '2.1') then
@@ -51,8 +53,12 @@ procedure TRouteNodeinfo.Job();
 
 		RouteJSON.Objects['usage'] := TJSONObject.Create();
 		// TODO: Return usage.localPosts
+
 		RouteJSON.Objects['usage'].Objects['users'] := TJSONObject.Create();
-		// TODO: Return usage.users.total
+		DB := THighballDB.Create();
+		DB.Run('SELECT * FROM users');
+		RouteJSON.Objects['usage'].Objects['users'].Integers['total'] := DB.Query.RecordCount;
+		DB.Free();
 	end
 	else
 	begin