Re: Looking for package Email

["M. A. Alves" <maa@liacc.up.pt>]

> [1] On many systems, generate your mail message as a text file & use an
> OS call to run your mail utility program to send it.

Doing that now.  Using the "mail" utility on a Linux system, in a call to
the POSIX "system" function.  Simplest way, I think.  It works---as long
as the system settings associated with the "mail" utility are ok of
course.

package Mail is

  Error: exception;

  procedure Send_Message(
    To: String;
    CC: String := "";
    BC: String := "";
    Reply_To: String := "";
    Subject: String := "";
    Text: String := "");

end Mail;

with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Text_Io; use Ada.Text_Io;
with Posix; use Posix;

package body Mail is

  procedure Send_Message(
    To: String;
    CC: String := "";
    BC: String := "";
    Reply_To: String := "";
    Subject: String := "";
    Text: String := "")
  is
    Tempfilename: String := "/tmp/a_temporary_mail_message_text_file";
    Tempfile: File_Type;
    U: Unbounded_String;
    R: Integer;
  begin
    Create(Tempfile, Out_File, Tempfilename);
    Put(Tempfile, Text);
    Append(U, "mail");
    if CC /= "" then
      Append(U, " -c" & CC);
    end if;
    if BC /= "" then
      Append(U, " -b" & BC);
    end if;
    if Subject /= "" then
      Append(U, " -s """ & Subject & """");
    end if;
    Append(U, " " & To & " < " & Tempfilename);
    R := System(To_String(U));
    Delete(Tempfile);
    if R = 127 or R = -1 then raise Error; end if;
  end Send_Message;

end Mail;

package Posix is

  function System(Command: String) return Integer;

end Posix;

with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;

package body Posix is

  function C_System(Command: chars_ptr) return int;
  pragma Import(C, C_System, "system");

  function System(Command: String) return Integer is
    C_Command : aliased char_array := To_C(Command);
  begin
    return(Integer(C_System(To_Chars_Ptr(C_Command'Unrestricted_Access))));
  end System;

end Posix;

-- 
   ,
 M A R I O   data miner, LIACC, room 221   tel 351+226078830, ext 121
 A M A D O   Rua Campo Alegre, 823         fax 351+226003654
 A L V E S   P-4150 PORTO, Portugal        mob 351+939354002