diff --git a/fhem/CHANGED b/fhem/CHANGED index a90632456..1d623e9cb 100644 --- a/fhem/CHANGED +++ b/fhem/CHANGED @@ -1,5 +1,6 @@ # Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Do not insert empty lines here, update check depends on it. + - bugfix: 76_MSGMail: Make use of attribute mailtype again (enabling html) - feature: 49_SSCAM: added function "svsinfo" to get informations about installed SVS-package - bugfix: 49_SSCAM: saved Credentials were deleted if a device will be diff --git a/fhem/FHEM/76_MSGMail.pm b/fhem/FHEM/76_MSGMail.pm index e77dbd4a7..53bd8c83c 100644 --- a/fhem/FHEM/76_MSGMail.pm +++ b/fhem/FHEM/76_MSGMail.pm @@ -14,6 +14,13 @@ # 2015-05-05: Remove dependency on Switch # 2012 : Created by rbente # +## +# +# Further reading: +# +# http://search.cpan.org/~yves/MIME-Lite-3.01/lib/MIME/Lite.pm +# +# package main; use strict; @@ -260,7 +267,7 @@ my %MSGMail_params = ( 'to' => {'attr'=>'to', 'default'=>'', 'required'=>1, 'set'=>1}, 'subject' => {'attr'=>'subject', 'default'=>'', 'required'=>1, 'set'=>1}, 'cc' => {'attr'=>'cc', 'default'=>'', 'required'=>0, 'set'=>1}, - 'mtype' => {'attr'=>'mtype', 'default'=>'plain', 'required'=>1, 'set'=>1}, + 'mtype' => {'attr'=>'mailtype', 'default'=>'plain', 'required'=>1, 'set'=>1}, 'authfile' => {'attr'=>'authfile', 'default'=>'', 'required'=>1, 'set'=>0}, 'smtphost' => {'attr'=>'smtphost', 'default'=>'', 'required'=>1, 'set'=>0}, 'smtpport' => {'attr'=>'smtpport', 'default'=>'465', 'required'=>1, 'set'=>0}, @@ -277,7 +284,7 @@ sub MSGMail_send($$;$) { $params{$key} = AttrVal($name, $MSGMail_params{$key}->{attr}, $MSGMail_params{$key}->{default}); $params{$key} = $extparamref->{$key} if (exists $extparamref->{$key} && $MSGMail_params{$key}->{set}); - #Log3 $name, 0, "param $key is now '".$params{$key}."'"; + Log3 $name, 4, "$name: param $key is now '".$params{$key}."' (attribute '".$MSGMail_params{$key}->{attr}."')"; } my $mailtype = "text/plain"; @@ -286,6 +293,7 @@ sub MSGMail_send($$;$) $params{mailtype} = $mailtype; $params{name} = $name; $params{msgtext} = $msgtext; + Log3 $name, 4, "$name: mailtype is $mailtype"; my @err = (); foreach my $key (keys(%MSGMail_params))