diff --git a/doc/CHANGELOG b/doc/CHANGELOG index dc73149..bd6774b 100644 --- a/doc/CHANGELOG +++ b/doc/CHANGELOG @@ -3,6 +3,8 @@ Auto IRC Bot 3.0: Change Log 3.0 Indev ================================================================== + * Added server:nspass to config options. Will be replaced in + the future by idstr. * Parse NICK. * Added usrc() to API::IRC for formatting a source. * Added awarn() to API::Std for warnings. diff --git a/src/Parser/IRC.pm b/src/Parser/IRC.pm index 0b60821..0c1dbca 100644 --- a/src/Parser/IRC.pm +++ b/src/Parser/IRC.pm @@ -56,6 +56,12 @@ sub num001 $got_001{$svr} = 1; + # Identify string. + unless (!conf_get("server:$svr:nspass")) { + my $nspass = (conf_get("server:$svr:nspass"))[0][0]; + Auto::socksnd($svr, "PRIVMSG NickServ :IDENTIFY $nspass"); + } + # Get the auto-join from the config. my @cajoin = @{ (conf_get("server:$svr:ajoin"))[0] };