90 lines
30 KiB
Perl
90 lines
30 KiB
Perl
|
sub mailsend {
|
||
|
|
|
||
|
|
my ($from,$to,$subject,$emailmsg) = @_ ;
|
||
|
|
|
||
|
|
use Mail::Sendmail;
|
||
|
|
|
||
|
|
#-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
my $boundary = "====" . time() . "====";
|
||
|
|
|
||
|
|
#---------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
my %mail = () ;
|
||
|
|
|
||
|
|
# if ($username eq 'rory') { $to = 'rory@kre8it.co.za' ; }
|
||
|
|
|
||
|
|
unless ($from) { $from = qq(Film Freight <filmfreight\@filmfreight.co.za>) ; }
|
||
|
|
# unless ($from) { $from = 'Film Freight <rory@kre8it.co.za>' ; }
|
||
|
|
|
||
|
|
%mail = (
|
||
|
|
smtp => 'localhost',
|
||
|
|
From => $from,
|
||
|
|
To => $to,
|
||
|
|
Subject => $subject
|
||
|
|
);
|
||
|
|
|
||
|
|
#---------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
$mail{'content-type'} = "multipart/alternative; boundary=\"$boundary\"";
|
||
|
|
|
||
|
|
# <img alt="filmfreight" src="data:image/jpeg;base64,/9j/4Qu7RXhpZgAATU0AKgAAAAgABwESAAMAAAABAAEAAAEaAAUAAAABAAAAYgEbAAUAAAABAAAAagEoAAMAAAABAAMAAAExAAIAAAAeAAAAcgEyAAIAAAAUAAAAkIdpAAQAAAABAAAApAAAANAAAAL6AAAAAQAAAvoAAAABQWRvYmUgUGhvdG9zaG9wIENTNiAoV2luZG93cykAMjAxNDowOTowNCAxMzoyMTozOAAAA6ABAAMAAAABAAEAAKACAAQAAAABAAABLKADAAQAAAABAAAARgAAAAAAAAAGAQMAAwAAAAEABgAAARoABQAAAAEAAAEeARsABQAAAAEAAAEmASgAAwAAAAEAAgAAAgEABAAAAAEAAAEuAgIABAAAAAEAAAqFAAAAAAAAAEgAAAABAAAASAAAAAH/2P/tAAxBZG9iZV9DTQAB/+4ADkFkb2JlAGSAAAAAAf/bAIQADAgICAkIDAkJDBELCgsRFQ8MDA8VGBMTFRMTGBEMDAwMDAwRDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAENCwsNDg0QDg4QFA4ODhQUDg4ODhQRDAwMDAwREQwMDAwMDBEMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM/8AAEQgAJQCgAwEiAAIRAQMRAf/dAAQACv/EAT8AAAEFAQEBAQEBAAAAAAAAAAMAAQIEBQYHCAkKCwEAAQUBAQEBAQEAAAAAAAAAAQACAwQFBgcICQoLEAABBAEDAgQCBQcGCAUDDDMBAAIRAwQhEjEFQVFhEyJxgTIGFJGhsUIjJBVSwWIzNHKC0UMHJZJT8OHxY3M1FqKygyZEk1RkRcKjdDYX0lXiZfKzhMPTdePzRieUpIW0lcTU5PSltcXV5fVWZnaGlqa2xtbm9jdHV2d3h5ent8fX5/cRAAICAQIEBAMEBQYHBwYFNQEAAhEDITESBEFRYXEiEwUygZEUobFCI8FS0fAzJGLhcoKSQ1MVY3M08SUGFqKygwcmNcLSRJNUoxdkRVU2dGXi8rOEw9N14/NGlKSFtJXE1OT0pbXF1eX1VmZ2hpamtsbW5vYnN0dXZ3eHl6e3x//aAAwDAQACEQMRAD8A9VSSVLrHVKOk9Ouz8gFzKWzsb9JxOjWN/rJKbdlldVbrLXBlbAXOe4gAAcuc4qiPrD0As9QdSxdkTv8AWr2wOXb9+1eafWTrmdk4X23rG1z8xxrwMQFpx8cljvStc2/9BkP3f0jMu/8AQdlNVq4rqruo5+W67Ltba3UfaKQ57Y2t2sr3fpfRc7836HqPuVk8pkGgBlLS4w9XDf70mlj56OWZGMD2gZD3ZH55Q39qD75Z9Z/q9WQD1ChxcA5ux4fIP0XN9Pf9JCu+tfRm02PqudY5jSWhtVrpPDGjbV7nPf7GLxH6t/WnJ+r92M31zmdKdcy7KwOIfU7cyyr1P5uzd6dzH1+n9o2elkfza9mNvVeq041mHis+xufVlMvyMiBYxp9fGNdeNXkO9z/Ru96rEU3AQRYbPQLsh5yGbsmzCr2fZrc1hZcXEONzf0np5FlLf0XpvyqWX/znvu/M2FWwaL6KSMixtt73F9jmN2Nk+0NY1znv2sY1rffYm6n1PD6Vh2Z2c51eNVrY9rH2bR+85lDLX7P5e1JLaSQsTKozMWnLxnb6MitttT4LZY8Cyt214a9u5jvz0VJSkkkklKSSSSUpJJJJSklQs650yvq9XRbLXN6hew2VVGuza5rQXvcy/wBP7O7a1v8ApVfSUpJJJJT/AP/Q9VXMf4xw4/Va4NOw+vje8zAm+pu52381dOsf629Ot6n0DKwq6vX9VsOqEBxA1a+rdtb61FmzJqa7+dfT6X+EToS4Zxl+6RLTf0okLBHcU+F/Wi7Mz+rP+0ObX6UV1YwdLWgNH8zt/wBLt3/R/wCDWSMTJGg7ef8Ar4Lr8HPwcDKvxuqYxe5rx6otrFhYDW1j6n72OsZ/m/Q/lrlOoYjKOoX1YzvtVFbzssa0gOby3s3+qp+Ywyh+sE+KE5Hhn4fotTlJmP8AR/ZOIYoR4SP5uf7/AA/u8Mv3ptzB6eMjJZTXtsrcBY6oiSP8HY5r/pMp3O+l/wCk17N9SMdmZ9QMTGz625FTq7q3V2t3NLGXXMpaWv8A3a2V7F519WMLqdrK8LpWDN+RtbmZFsgRuL20M/0WPVU5r8qzbY/9J/pvs69mwenswem1YFMEU17N0bQ50e+za36PqP8Aell4BhgDRySPH6f0Yy/R/wCgyYZZJZclgDFH0QN8U5yj80pcL519SMH6n9T+qeD0zPw46nli5n2xmJYLQ71bjVbV1T7M6n1KWNZtd6+xnp+lZ/o1q5uR0q3A+uzcTCvw85mOf2g654eLHOouNJrbXdkVVt9P9z/Sf2K+g+pfRcvoP1Zw+lZjmPyMf1N7qiXM99tt7drntrd9C39xZ1v1W6k931scH0x1+trMMbne0tpfjn7R+j9nvf8A4P1VWbC3TfrKOmdP+rfSvsGTlX9RwKzjupNIa70aGW3M/WMija+tm3+d9Kv/AEb7EWn66ZV7s7Gp6HmPz+mFv2zFD8f2Ne020u9Q5H6b1q2v9NuMy/8A89pV/VnqDc36p3l9WzoGNdTmQ50udZj1YjPs36P3t9Sv/Cej+jVvpnQ83E+sP1g6pY6s09WGKMZrSS4fZ6nUWet7Nrdz3+zY6xJTf6J1jE630rH6rhbvs+S0uaHiHAtJrsY8fvV2MexcNbT9WcX/ABg9aPVcGu6h+PRaGfZHZQ9R8OuvNdFGR6b7HH9Jb/hHrrfqb0bK6F9WsLpWY5j8jGFm91RJZ77LLm7XPbW76Nn7iHg9DzaPrf1Lrb3V/ZMzHppqaCTZurjeXs2bGt/64kppY/VunfV+/C6R0vp2VfV1k3ZeAyv0a2CW/a76aasm3EsxmV79/o5FdPp+p6dX+iViv64Puporx+lZTup3UOyX9Ot2Y76a22nFD8m3LfTWz17G/qzG77Lf9HXWj9V6Jl5n1n6H1ap1YxuljL9driQ8/aKm01ek0Nc13u+nvexZ/W/qvn2/Wirr2Dj4XUKrMcY2Xh54Ija7fXk41wqytj/zX/ofof6X1v0KUgzfrD0DrGP9XOq34GTfRl51bcC7c2sVZO99DftFbMhtlnpvpe/+aup9n/W1czvrzRitzsqnp+Rl9N6Tc7Fz8yo1gtuZt9RlONdZVdcyl9jK7rf0f+kq9ar9In6r0Hq3U8fooc3ExrOndTqzbqqXP9IU1Gz9HS41Ndbdtf8A6LHZvXMOwOq5WZ1m3H6XkdQ6DnZtlj6sLMppx7/RPo3Ofj5Ff2/135FNn2p+JkU1Zln+lprrstSnS6p1HKs+t/1bzvsFzrn42aW4Vb6Hvgjax/r+uzC2vq/Tf0n/AMEVzO+u2Q/oPWbsTBvxuq9I3V5GPb6R9Elrn1ZbnOtbTfR7P8D6tn/A21I2NjO671foH1pwA2rptOLcDVaCy0es3ZW1lTWur9sf6X/i0O76pdRv/wCdYNlTf281jcMy47Syp1P6x7PY3ef8H6qSnc6DnZmf0ynIzMazGtcxh/SGo+pLGPdez7Lbexlb3udta/ZZ/wAGtFZf1fr6xTgU4/VKcel2PVVUz7Pa+3cWN2WWP9Smj0t21np1/p/+NWokp//R9VSXyqkkp+hvrl/zL+zN/wCc3o7v8B9L7Tz/ANpvs363t3fufov9KvNK/wDxs/trZ/bfp7tN3o+lHnt/WNv/AIIuESU2K6FcXzDbhr/B4v8AKfuoL9JfVn/m99iH7Dj0vz92/wBbl0ev9q/Wvpep6fq/9aWwvlVJMy/zkvm3/wAp/Of4f9Zbj+QfL/1P5P8ABfqpJfKqSYvfqpJfKqSSn6qSXyqkkp+qkl8qpJKfqpcSP/G/+2Z3o/afR9Y/tL0Ptv7P9aR6v237P/kzb/p/W/VPS/nl4Wkkp+pqPQ9Cv7Pt9Da30vTjZsj2ens9uzb9DaiL5VSSU/VSS+VUklP/2f/tFABQaG90b3Nob3AgMy4wADhCSU0EBA
|
||
|
|
|
||
|
|
|
||
|
|
$boundary = '--'.$boundary;
|
||
|
|
|
||
|
|
$mail{body} = <<END_OF_BODY;
|
||
|
|
$boundary
|
||
|
|
Content-Type: text/html; charset=ISO-8859-1
|
||
|
|
Content-Transfer-Encoding: 7bit
|
||
|
|
|
||
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||
|
|
<html>
|
||
|
|
<head>
|
||
|
|
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
|
||
|
|
<title></title>
|
||
|
|
</head>
|
||
|
|
<body>
|
||
|
|
<p>
|
||
|
|
<img alt="" src="https://$ENV{SERVER_NAME}/img/email_logo.jpg" border="0">
|
||
|
|
</p>
|
||
|
|
<p>
|
||
|
|
$emailmsg
|
||
|
|
</p>
|
||
|
|
</body>
|
||
|
|
</html>
|
||
|
|
|
||
|
|
$boundary--
|
||
|
|
|
||
|
|
END_OF_BODY
|
||
|
|
|
||
|
|
sendmail(%mail) ;
|
||
|
|
|
||
|
|
# $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
|
||
|
|
|
||
|
|
# $boundary = '--'.$boundary;
|
||
|
|
|
||
|
|
# $mail{body} = <<END_OF_BODY;
|
||
|
|
# $boundary
|
||
|
|
# Content-Type: text/html; charset=ISO-8859-1
|
||
|
|
# Content-Transfer-Encoding: 7bit
|
||
|
|
# <html>
|
||
|
|
# <head>
|
||
|
|
# <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
|
||
|
|
# <title>$subject</title>
|
||
|
|
# </head>
|
||
|
|
# <body>
|
||
|
|
# $email_msg
|
||
|
|
# </BODY>
|
||
|
|
# </HTML>
|
||
|
|
|
||
|
|
# $boundary--
|
||
|
|
|
||
|
|
# END_OF_BODY
|
||
|
|
|
||
|
|
# sendmail(%mail) ;
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
1;
|