Debug print when incoming flow request is received

PSU-Capstone-Team24 · Nov 19, 2023 · 4c9eb05 · 4c9eb05
1 parent ecc1b7f
commit 4c9eb05
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/ada_src/test_server.adb b/src/ada_src/test_server.adb
@@ -19,6 +19,8 @@ with Exceptions;
 with GNAT.OS_Lib;
    use GNAT.OS_Lib;
 
+with Debug;
+
 procedure Test_Server is
    package Text_IO renames Ada.Text_IO;
 
@@ -72,6 +74,10 @@ begin
          Flow_Incoming : Boolean := False;
       begin
          Flow_Incoming := RINA_Flow_Accept (RINA_Dev_FD, Incoming_APN, Spec, RINA_F_NORESP);
+
+         if Flow_Incoming then
+            Debug.Print("Test_Server", "Received incoming flow request from " & To_String (Incoming_APN), Debug.Info);
+         end if;
       end;
    end loop;