diff options
Diffstat (limited to 'sql-ledger/SL/Mailer.pm')
| -rw-r--r-- | sql-ledger/SL/Mailer.pm | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/sql-ledger/SL/Mailer.pm b/sql-ledger/SL/Mailer.pm index 934ad3690..712b1d727 100644 --- a/sql-ledger/SL/Mailer.pm +++ b/sql-ledger/SL/Mailer.pm @@ -1,12 +1,12 @@ #===================================================================== # SQL-Ledger Accounting -# Copyright (C) 2001 +# Copyright (C) 2002 # # Author: Dieter Simader # Email: dsimader@sql-ledger.org # Web: http://www.sql-ledger.org # -# Contributors: +# Contributors: # # 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 @@ -21,6 +21,10 @@ # along with this program; if not, write to the Free Software # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #====================================================================== +# +# mailer package +# +#====================================================================== package Mailer; @@ -54,7 +58,15 @@ sub send { my ($cc, $bcc); $cc = "Cc: $self->{cc}\n" if $self->{cc}; $bcc = "Bcc: $self->{bcc}\n" if $self->{bcc}; - + + foreach my $item (qw(from to cc bcc)) { + $self->{$item} =~ s/\\_/_/g; + $self->{$item} =~ s/\</</g; + $self->{$item} =~ s/\$<\$/</g; + $self->{$item} =~ s/\>/>/g; + $self->{$item} =~ s/\$>\$/>/g; + } + print OUT qq|From: $self->{from} To: $self->{to} ${cc}${bcc}Subject: $self->{subject} @@ -67,12 +79,15 @@ MIME-Version: 1.0 if ($self->{attachments}) { print OUT qq|Content-Type: multipart/mixed; boundary="$boundary" ---${boundary} +|; + if ($self->{message}) { + print OUT qq|--${boundary} Content-Type: $self->{contenttype}; charset="$self->{charset}" $self->{message} |; + } foreach my $attachment (@{ $self->{attachments} }) { |