);
$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}) {
if (defined $conns{$mynick}) {
# explicit binmode for socket as "use open" does not seem to work here
#binmode $conns{$mynick}->{_socket}, ":utf8";
+ # This will bomb on non-utf8 input
#binmode $conns{$mynick}->{_socket}, ":encoding(UTF-8)";
# TODO: need to input bytes, but output utf8
binmode $conns{$mynick}->{_socket}, ":bytes";
}
sub clearIRCVars {
- undef %channels;
+ # FIXME: only remove channels for current bot!
+ #undef %channels;
undef %floodjoin;
$cache{joinTime} = time();