- my $cmd = "/usr/local/bin/sendEmail ";
- $cmd .= " -f $settings{'MAILSENDER'}"; #Sender
- $cmd .= " -t $email"; #Recipient
- if ($ccmail){
- $cmd .= " -cc $ccmail";
- }
- #Send Mail via TLS?
- if ($settings{'TLS'} eq 'on'){
- $cmd .= " -o tls=yes"; #TLS
- }
- $cmd .= " -u '$settings{'MAILSUB'}'"; #Subject
- $cmd .= " -m '$settings{'MAILTXT'}'"; #Mailtext
- $cmd .= " -s $settings{'MAILSRV'}:$settings{'MAILPORT'}"; #Mailserver:port
- $cmd .= " -a $file";
- my $res=system ($cmd);
+
+ #extract filename from path
+ my ($filename) = $file =~ m{([^/]+)$};
+
+ my $msg = MIME::Lite->new(
+ From => $mail{'SENDER'},
+ To => $email,
+ Cc => $ccmail,
+ Subject => $settings{'MAILSUB'},
+ Type => 'multipart/mixed'
+ );
+
+ $msg->attach(
+ Type => 'TEXT',
+ Data => $settings{'MAILTXT'}
+ );
+
+ $msg->attach(
+ Type => 'application/pdf',
+ Path => $file,
+ Filename => $filename,
+ Disposition => 'attachment'
+ );
+
+ my $res=$msg->send_by_sendmail;
+