This file is indexed.

/usr/share/ada/adainclude/alog/alog-facilities-smtp.adb is in libalog0.4.1-base-dev 0.4.1-2.

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
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
--
--  Copyright (c) 2008-2009,
--  Reto Buerki, Adrian-Ken Rueegsegger
--
--  This file is part of Alog.
--
--  Alog is free software; you can redistribute it and/or modify
--  it under the terms of the GNU Lesser General Public License as published
--  by the Free Software Foundation; either version 2.1 of the License, or
--  (at your option) any later version.
--
--  Alog is distributed in the hope that it will be useful,
--  but WITHOUT ANY WARRANTY; without even the implied warranty of
--  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
--  GNU Lesser General Public License for more details.
--
--  You should have received a copy of the GNU Lesser General Public License
--  along with Alog; if not, write to the Free Software
--  Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
--  MA  02110-1301  USA

with AWS.SMTP.Client;

package body Alog.Facilities.SMTP is

   -------------------------------------------------------------------------

   function Format_Message
     (Facility : Instance;
      Level    : Log_Level;
      Msg      : String)
      return String
   is
      Message : constant String :=
      --  Header
        Facility.Get_Header
      --  Log-Level
        & "[" & Log_Level'Image (Level) & "] : "
      --  Log-Message
        & Msg & EOL & EOL
      --  Footer
        & "Generated: " & Facility.Get_Timestamp
        & " by " & Facility.Get_Name;
   begin
      return Message;
   end Format_Message;

   -------------------------------------------------------------------------

   function Get_Header (Facility : Instance) return String is
   begin
      return To_String (Facility.Header);
   end Get_Header;

   -------------------------------------------------------------------------

   procedure Set_Header
     (Facility : in out Instance;
      Header   :        String)
   is
   begin
      Facility.Header := To_Unbounded_String (Header);
   end Set_Header;

   -------------------------------------------------------------------------

   procedure Set_Recipient
     (Facility : in out Instance;
      Name     :        String;
      EMail    :        String)
   is
   begin
      Facility.Recipient    := (Name  => To_Unbounded_String (Name),
                                EMail => To_Unbounded_String (EMail));
      Facility.Is_Recipient := True;
   end Set_Recipient;

   -------------------------------------------------------------------------

   procedure Set_Server
     (Facility : in out Instance;
      Name     :        String)
   is
   begin
      Facility.Server    := To_Unbounded_String (Name);
      Facility.Is_Server := True;
   end Set_Server;

   -------------------------------------------------------------------------

   procedure Write
     (Facility : Instance;
      Level    : Log_Level := Info;
      Msg      : String)
   is
   begin
      --  Raise No_Recipient if no recipient has been set
      --  by calling Set_Recipient().
      if not Facility.Is_Recipient then
         raise No_Recipient;
      end if;

      --  Raise No_Server if no server has been set by calling
      --  Set_Server().
      if not Facility.Is_Server then
         raise No_Server;
      end if;

      declare
         Status      : AWS.SMTP.Status;
         SMTP_Server : AWS.SMTP.Receiver;
      begin
         --  Init receiving server.
         SMTP_Server := AWS.SMTP.Client.Initialize
           (To_String (Facility.Server));

         --  Try to send message.
         AWS.SMTP.Client.Send
           (SMTP_Server,
            From    => AWS.SMTP.E_Mail
              (To_String (Facility.Sender.Name),
               To_String (Facility.Sender.EMail)),
            To      => AWS.SMTP.E_Mail
              (To_String (Facility.Recipient.Name),
               To_String (Facility.Recipient.EMail)),
            Subject => To_String (Facility.Subject & " [" &
              Log_Level'Image (Level) & "]"),
            Message => Facility.Format_Message (Level => Level,
                                                Msg   => Msg),
            Status  => Status);

         --  Raise Delivery_Failure exception if SMTP-Status is not O.K.
         if not AWS.SMTP.Is_Ok (Status) then
            raise Delivery_Failed with AWS.SMTP.Status_Message (Status);
         end if;
      end;
   end Write;

end Alog.Facilities.SMTP;