49_SSCam: fix problem with some older SMTP SSL module

git-svn-id: https://svn.fhem.de/fhem/trunk@18129 2b470e98-0d58-463d-a4d8-8e2adae1ed80

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:  49_SSCam: fix problem with some older SMTP SSL module
   - bugfix:  73_AutoShuttersControl: fix typo in commandref
   - change:  49_SSCam: V8.3.1, change usage of older SMTP versions when Email
                        shipping is used

fhem/FHEM/49_SSCam.pm

@@ -47,6 +47,7 @@ use Encode;
 
 # Versions History intern
 our %SSCam_vNotesIntern = (
+  "8.3.2"  => "03.01.2019  fix Process died prematurely if Can't locate object method \"get_sslversion\" via package \"Net::SMTP::SSL\" ",
   "8.3.1"  => "02.01.2019  fix SMTP usage for older Net::SMTP, new attribute \"smtpSSLPort\"",
   "8.3.0"  => "02.01.2019  CAMLASTRECID replaced by Reading CamLastRecId, \"SYNO.SurveillanceStation.Recording\" added, ".
                            "new get command \"saveRecording\"",
@@ -7385,7 +7386,8 @@ sub SSCam_sendEmailblocking($) {
           Log3($name, 3, "$name - SMTP-Host $smtphost use unencrypted connection !");
       }
   } else {
-      $sslver = $smtp->get_sslversion();
+      eval { $sslver = $smtp->get_sslversion(); };   # Forum: https://forum.fhem.de/index.php/topic,45671.msg880602.html#msg880602
+      $sslver = $sslver?$sslver:"n.a.";
       Log3($name, 3, "$name - SMTP-Host $smtphost use immediately encrypted connection with SSL version: $sslver");      
   }