FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-14 05:46:35 +00:00
Code Issues Releases Wiki Activity

support non ssl imap

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@3896 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
justme-1968 2013-09-12 09:38:55 +00:00
parent 9d971e9e3c
commit 8620a2846e
1 changed files with 19 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/32_mailcheck.pm
View File

@ -10,6 +10,7 @@ use warnings;
use Mail::IMAPClient; use Mail::IMAPClient;
use IO::Socket::SSL; use IO::Socket::SSL;
use IO::Socket::INET;
use IO::File; use IO::File;
use IO::Handle; use IO::Handle;
@ -31,6 +32,7 @@ mailcheck_Initialize($)
"disable:1 ". "disable:1 ".
"intervall ". "intervall ".
"logfile ". "logfile ".
"nossl:1 ".
$readingFnAttributes; $readingFnAttributes;
} }
@ -93,10 +95,16 @@ mailcheck_Connect($)
return undef if( AttrVal($name, "disable", 0 ) == 1 ); return undef if( AttrVal($name, "disable", 0 ) == 1 );
my $socket = IO::Socket::SSL->new( my $socket;
PeerAddr => $hash->{Host}, if( AttrVal($name, "nossl", 0) ) {
PeerPort => 993, #AttrVal($name, "port", 993). $socket = IO::Socket::INET->new( PeerAddr => $hash->{Host},
PeerPort => 143, #AttrVal($name, "port", 143)
); );
} else {
$socket = IO::Socket::SSL->new( PeerAddr => $hash->{Host},
PeerPort => 993, #AttrVal($name, "port", 993)
);
}
if($socket) { if($socket) {
$hash->{STATE} = "Connected"; $hash->{STATE} = "Connected";
@ -148,6 +156,9 @@ mailcheck_Connect($)
} else { } else {
mailcheck_Disconnect($hash); mailcheck_Disconnect($hash);
} }
} else {
#$hash->{STATE} = "Connected";
Log3 $name, 3, "$name: failed to connect to $hash->{Host}";
} }
} }
sub sub
@ -362,7 +373,7 @@ mailcheck_Read($)
Notes: Notes:
<ul> <ul>
<li>Mail::IMAPClient and IO::Socket::SSL hast to be installed on the FHEM host.</li> <li>Mail::IMAPClient and IO::Socket::SSL and IO::Socket::INET hast to be installed on the FHEM host.</li>
<li>Probably only works reliably if no other mail programm is marking messages as read at the same time.</li> <li>Probably only works reliably if no other mail programm is marking messages as read at the same time.</li>
</ul><br> </ul><br>
@ -403,7 +414,9 @@ mailcheck_Read($)
1 -> delete message after Subject reading is created</li> 1 -> delete message after Subject reading is created</li>
<li>intervall<br> <li>intervall<br>
the intervall in seconds used to trigger an update on the connection. the intervall in seconds used to trigger an update on the connection.
if idle is supported the defailt is 600, without idle support the default is 60. the minimum is 60.</li><br> if idle is supported the defailt is 600, without idle support the default is 60. the minimum is 60.</li>
<li>nossl<br>
1 -> don't use ssl.</li><br>
<li>debug<br> <li>debug<br>
1 -> enables debug output. default target is stdout.</li> 1 -> enables debug output. default target is stdout.</li>
<li>logfile<br> <li>logfile<br>