scripts/makemail

   1 #!/usr/bin/perl -w
   2
   3 #-----------------------------------------------------------------------------
   4 #  All this does is generate RFC 822 headers and then copy standard input
   5 #  to standard output.  You determine what headers it generates with
   6 #  command options.
   7 #
   8 #  You can feed the output of this program to 'smtpsend' to send the mail
   9 #  message somewhere via SMTP.
  10 #-----------------------------------------------------------------------------
  11
  12 use strict;
  13
  14 my $TRUE=1; my $FALSE = 0;
  15
  16 use Getopt::Long;
  17
  18
  19 my %options;
  20
  21 GetOptions(\%options,
  22            "from=s",
  23            "to=s",
  24            "cc=s",
  25            "subject=s",
  26            "date=s",
  27            "reply_to:s",
  28            "message_id=s",
  29            "charset=s"
  30            );
  31
  32 if (defined($options{"subject"})) {
  33    print("Subject: " . $options{"subject"} . "\n");
  34 }
  35 if (defined($options{"to"})) {
  36    print("To: " . $options{"to"} . "\n");
  37 }
  38 if (defined($options{"cc"})) {
  39    print("Cc: " . $options{"cc"} . "\n");
  40 }
  41 if (defined($options{"from"})) {
  42    print("From: " . $options{"from"} . "\n");
  43 }
  44 if (defined($options{"date"})) {
  45    print("Date: " . $options{"date"} . "\n");
  46 }
  47 if (defined($options{"reply_to"})) {
  48    if ($options{"reply_to"} ne "") {
  49       print("In-Reply-To: <" . $options{"reply_to"} . ">\n");
  50    }
  51 }
  52 if (defined($options{"message_id"})) {
  53    print("Message-ID: <" . $options{"message_id"} . ">\n");
  54 }
  55 if (defined($options{"charset"})) {
  56     print("MIME-Version: 1.0\nContent-Type: text/plain; charset=" . $options{"charset"} . "\nContent-Transfer-Encoding: 8bit\n");
  57 }
  58
  59 print("\n");
  60
  61 while (<STDIN>) {
  62     print;
  63 }