try ssl connect, and fail?

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@1909 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 51b35a9ff17a6c0774d1542ca9af579a373ff082..ccae33b17bd64d006dd3914ba964794f5bed87c5 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -108,6 +108,7 @@ sub irc {
     );
     $args{'LocalAddr'} = $param{'ircHost'}   if ( $param{'ircHost'} );
     $args{'Password'}  = $param{'ircPasswd'} if ( $param{'ircPasswd'} );
     );
     $args{'LocalAddr'} = $param{'ircHost'}   if ( $param{'ircHost'} );
     $args{'Password'}  = $param{'ircPasswd'} if ( $param{'ircPasswd'} );

+    $args{'SSL'}  = $param{'ircSSL'} if ( $param{'ircSSL'} );

 
     foreach my $mynick ( sort split ',', $param{'ircNick'} ) {
        if (!defined $conns{$mynick}) {
 
     foreach my $mynick ( sort split ',', $param{'ircNick'} ) {
        if (!defined $conns{$mynick}) {