Forum Moderators: phranque
# set $mailprog, $username, $subject, and $boundary
$img = "<img src='https://www.example.com/$pic'>";
open(MAIL,"|$mailprog -t");
print MAIL <<EOF;
To: admin\@example.com
From: $username
Subject: $subject
MIME-Version: 1.0
Content-Type: multipart/alternative;
boundary="$boundary"
This is a multi-part message in MIME format.
--$boundary
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
(blah blah blah)
--$boundary
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<font face=Arial>
(blah blah blah)
$img
</font>
--$boundary--
EOF
close MAIL; use URI::Escape;
$uri_user = uri_escape($username);
$link = qq($home/view.php?id=$uri_user);
Just for ### and giggles: What happens if you sneak in a couple of extra spaces--or, I guess, a couple of non-space characters--between the = sign and the "http ? (And, I guess, slip in two bogus leading characters at the front of each parameter value.)
Content-Transfer-Encoding: quoted-printable QP works by using the equals sign = as an escape character... an ASCII equal sign (decimal value 61) must be represented by =3D