Converting Mailer to using MIME::Lite

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@464 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 4 insertions, 1 deletions

diff --git a/LedgerSMB/AM.pm b/LedgerSMB/AM.pm
index 8014c41e..cf4b5df8 100755
--- a/LedgerSMB/AM.pm
+++ b/LedgerSMB/AM.pm
@@ -1591,6 +1591,7 @@ sub backup {
 
 	my $boundary = time;
 	my $tmpfile = "${LedgerSMB::Sysconfig::userspath}/$boundary.$myconfig->{dbname}-$form->{dbversion}-$t[5]$t[4]$t[3].sql";
+	$tmpfile .= ".gz" if ${LedgerSMB::Sysconfig::gzip};
 	my $out = $form->{OUT};
 	$form->{OUT} = ">$tmpfile";
 
@@ -1624,11 +1625,13 @@ sub backup {
 		@{ $mail->{attachments} } = ($tmpfile);
 		$mail->{version} = $form->{version};
 		$mail->{fileid} = "$boundary.";
+		$mail->{format} = "plain";
+		$mail->{format} = "octet-stream" if ${LedgerSMB::Sysconfig::gzip};
 
 		$myconfig->{signature} =~ s/\\n/\n/g;
 		$mail->{message} = "-- \n$myconfig->{signature}";
 
-		$err = $mail->send($out);
+		$err = $mail->send;
 	}
 
 	if ($form->{media} eq 'file') {