Merge pull request #62 from joular/develop

1.0.4

alire.toml

@@ -1,6 +1,6 @@
 name = "powerjoular"
 description = "Monitoring the power consumption of multiple platforms and processes"
-version = "1.0.3"
+version = "1.0.4"
 
 authors = ["Adel Noureddine"]
 maintainers = ["Adel Noureddine <[email protected]>"]

installer/aur/PKGBUILD

@@ -1,6 +1,6 @@
 # Maintainer: Adel Noureddine <[email protected]>
 pkgname=powerjoular
-pkgver=1.0.3
+pkgver=1.0.4
 pkgrel=1
 pkgdesc="PowerJoular allows monitoring power consumption of multiple platforms and processes."
 arch=('x86_64' 'aarch64' 'armv7h')

installer/powerjoular.spec

@@ -1,5 +1,5 @@
 Name:           powerjoular
-Version:        1.0.3
+Version:        1.0.4
 Release:        1%{?dist}
 Summary:        PowerJoular allows monitoring power consumption of multiple platforms and processes.
 
@@ -22,6 +22,8 @@ install -m 644 %{SOURCE1} $RPM_BUILD_ROOT/%{_sysconfdir}/systemd/system/%{name}.
 %{_sysconfdir}/systemd/system/%{name}.service
 
 %changelog
+* Wed Jul 11 2024 Adel Noureddine <[email protected]> - 1.0.4-1
+- Hotfix for error in updating PID list for monitoring an application by name
 * Thu Jul 08 2024 Adel Noureddine <[email protected]> - 1.0.3-1
 - Hotfix for handle exceptions for invalid command line arguments
 * Thu Jul 08 2024 Adel Noureddine <[email protected]> - 1.0.2-1

release-version.sh

@@ -1,6 +1,6 @@
 #!/bin/bash
 
-VERSION=1.0.3
+VERSION=1.0.4
 
 # First cross compiler
 

src/cpu_stat_app.adb

@@ -70,10 +70,11 @@ package body CPU_STAT_App is
         Command    : String := "pidof " & To_String (App_Data.App_Name);
         Args       : Argument_List_Access;
         Status     : aliased Integer;
-        Subs : String_Split.Slice_Set; -- Used to slice the read data from stat file
+        Subs : String_Split.Slice_Set; -- Used to slice the read data from PID list
         Seps : constant String := " "; -- Seperator (space) for slicing string
         Slice_number_count : String_Split.Slice_Number;
         Loop_I : Integer;
+        Test : Integer;
     begin
         Args := Argument_String_To_List (Command);
         declare
@@ -94,7 +95,7 @@ package body CPU_STAT_App is
 
             for I in 1 .. Slice_number_count loop
                 Loop_I := Integer'Value (String_Split.Slice_Number'Image (I));
-                App_Data.PID_Array(Loop_I) := Integer'Value (String_Split.Slice (Subs, 1));
+                App_Data.PID_Array(Loop_I) := Integer'Value (String_Split.Slice (Subs, I));
             end loop;
         end;
     exception

src/help_info.adb

@@ -14,7 +14,7 @@ with Ada.Characters.Latin_1; use Ada.Characters.Latin_1;
 
 package body Help_Info is
 
-    Version_Number : constant String := "1.0.3";
+    Version_Number : constant String := "1.0.4";
 
     procedure Show_Help is
     begin