/usr/share/ada/adainclude/log4ada/log4ada-appenders-soap.adb is in liblog4ada3-dev 1.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | with Logging_Service.Client;
with Ada.Text_IO;
package body Log4ada.Appenders.SOAP is
use Ada.Strings.Unbounded;
procedure Append (Soap_Client : not null access Soap_Client_Type;
Event : Events.Event_Type) is
begin
Ada.Text_IO.Put_Line ("step 1 " & Soap_Client.File_Log_Created'Img);
if not Soap_Client.File_Log_Created then
Ada.Text_IO.Put_Line ("step 1 bis");
Logging_Service.Client.Create_File_Log
(To_String (Soap_Client.ID),
Endpoint => To_String (Soap_Client.URL));
Ada.Text_IO.Put_Line ("step 1 ter");
Soap_Client.File_Log_Created := True;
end if;
Ada.Text_IO.Put_Line ("step 2 " & Soap_Client.File_Log_Created'Img);
Logging_Service.Client.Append_Log
(Name_ID => To_String (Soap_Client.ID),
Message => Events.Get_Message (Event),
Level => Events.Get_Level (Event),
Endpoint => To_String (Soap_Client.URL));
Ada.Text_IO.Put_Line ("step 3");
end Append;
procedure Set_URL (Soap_Client : not null access Soap_Client_Type;
URL : String) is
begin
Soap_Client.URL := To_Unbounded_String (URL);
end Set_URL;
procedure Set_ID (Soap_Client : not null access Soap_Client_Type;
ID : String) is
begin
Soap_Client.ID := To_Unbounded_String (ID);
end Set_ID;
procedure Close (Soap_Client : not null access Soap_Client_Type) is
begin
Logging_Service.Client.Close_File_Log
(Name_ID => To_String (Soap_Client.ID),
Endpoint => To_String (Soap_Client.URL));
end Close;
end Log4ada.Appenders.SOAP;
|