email-raw

ATTRIBUTES

Attribute	Default	Description
interpolate	0	interpolate input?
reparse	1	interpolate output?
hide	0	Hide the tag return value?

DESCRIPTION

This tag simply feeds SendMailProgram with the raw-formatted e-mail body that you provide.

This means you also need to provide all the headers yourself. Header lines must be at the beginning of the line, and the header must have a valid To: field, or the message surely won't be delivered.

BEHAVIOR

This tag appears to be affected by, or affects, the following:
Catalog Variables: MV_EMAIL_INTERCEPT
Global Variables: MV_EMAIL_INTERCEPT

EXAMPLES

Example: Simple raw e-mail message

Put the following on a test page:

[email-raw]
From: test@localhost
To: root@localhost
Subject: DEAR FRIEND

THROUGH THE COURTESY OF BUSINESS OPPORTUNITY, I TAKE LIBERTY ANCHORED ON A
STRONG DESIRE TO SOLICIT YOUR ASSISTANCE ON THIS MUTUALLY BENEFICIAL AND
RISKFREE TRANSACTION WHICH I HOPE YOU WILL GIVE YOUR URGENT ATTENTION.

I HAVE DEPOSITED THE SUM OF THIRTY MILLION,FIVE HUNDRED THOUSAND UNITED
STATES DOLLARS(US$30,500,000) WITH A SECURITY COMPANY FOR SAFEKEEPING.
THE FUNDS ARE SECURITY CODED TO PREVENT THEM FROM KNOWING THE ACTUAL
CONTENTS.

MAY I AT THIS POINT EMPHASIZE THE HIGH LEVEL OF CONFIDENTIALLITY WHICH THIS
BUSINESS DEMANDS AND HOPE YOU WILL NOT BETRAY THE TRUST AND CONFIDENCE WHICH
WE REPOSE IN YOU.
[/email-raw]

We hope you will recognize an attempt at humor in the example above, and won't use it as an idea for spamming activities.

NOTES

All outgoing e-mails can be intercepted for development purposes by setting MV_EMAIL_INTERCEPT.

AVAILABILITY

email-raw is available in Interchange versions:

4.8.0-5.7.0 (cvs-head)

SOURCE

Interchange 5.7.0:

Source: code/UserTag/email_raw.tag
Lines: 73


# Copyright 2002-2007 Interchange Development Group and others
# 
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.  See the LICENSE file for details.
# 
# $Id: email_raw.tag,v 1.8 2007/03/30 23:40:56 pajamian Exp $

UserTag email-raw hasEndTag
UserTag email-raw addAttr
UserTag email-raw Interpolate
UserTag email-raw Version     $Revision: 1.8 $
UserTag email-raw Routine     <<EOR
sub {
my($opt, $body) = @_;
my($ok);
$body =~ s/^\s+//;

# If configured, intercept all outgoing email and re-route
if (
my $intercept = $::Variable->{MV_EMAIL_INTERCEPT}
              || $Global::Variable->{MV_EMAIL_INTERCEPT}
) {
$body =~ s/\A(.*?)\r?\n\r?\n//s;
my $header_block = $1;
# unfold valid RFC 2822 "2.2.3. Long Header Fields"
  $header_block =~ s/\r?\n([ \t]+)/$1/g;
  my @headers;
  for (split /\r?\n/, $header_block) {
    if (my ($header, $value) = /^(To|Cc|Bcc):\s*(.+)/si) {
      logError(
        "Intercepting outgoing email (%s: %s) and instead sending to '%s'",
        $header, $value, $intercept
      );
      $_ = "$header: $intercept";
      push @headers, "X-Intercepted-$header: $value";
    }
    push @headers, $_;
  }
  $body = join("\n", @headers) . "\n\n" . $body;
}

  SEND: {
my $using = $Vend::Cfg->{SendMailProgram};

if (lc $using eq 'none') {
  $ok = 1;
  last SEND;
} elsif (lc $using eq 'net::smtp') {
  $body =~ s/^(.+?)(?:\r?\n){2}//s;
  my $headers = $1;
  last SEND unless $headers;
  my @head = split(/\r?\n/,$headers);
  $ok = send_mail(\@head,$body);
} else {
  open(Vend::MAIL,"|$using -t") or last SEND;
  print Vend::MAIL $body
    or last SEND;
  close Vend::MAIL
    or last SEND;
  $ok = ($? == 0);
}
  }

  if (!$ok) {
      ::logError("Unable to send mail using $Vend::Cfg->{SendMailProgram}\n" .
          "Message follows:\n\n$body");
  }

  return $opt->{hide} ? '' : $ok;
}
EOR

AUTHORS

Interchange Development Group

Name