#=====================================================================
# 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
# along with this program; if not, write to the Free Software
# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#======================================================================
+#
+# mailer package
+#
+#======================================================================
package Mailer;
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}
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} }) {