diff options
author | David Phillips <david@sighup.nz> | 2017-03-07 15:50:48 +1300 |
---|---|---|
committer | David Phillips <david@sighup.nz> | 2017-03-07 15:50:48 +1300 |
commit | 51a140854c757f81cc7bc9b90a0175e185ec0e0e (patch) | |
tree | cad938ca8931ed6c88c8138f6a785da673c72a4c /saxrobot | |
parent | 30d44a6b8e05a0e31dca073e0f8d9092e35c8d61 (diff) | |
parent | e99c752927ba2e151ec887ea2e82e80d54ccea8c (diff) | |
download | idalius-51a140854c757f81cc7bc9b90a0175e185ec0e0e.tar.xz |
Merge branch 'master' into more-commands
Diffstat (limited to 'saxrobot')
-rwxr-xr-x | saxrobot | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -14,6 +14,7 @@ my %config = sb_config::parse_config('bot.conf'); my $irc = POE::Component::IRC->spawn( nick => $config{nick}, ircname => $config{ircname}, + port => $config{port}, server => $config{server}, username => $config{username}, ) or die "Failed to create new PoCo-IRC: $!"; @@ -84,7 +85,7 @@ sub irc_public { sub irc_msg { my ($who, $to, $what, $ided) = @_[ARG0, ARG1, ARG2, ARG3]; my $nick = (split /!/, $who)[0]; - if ($ided != 1) { + if ($config{must_id} && $ided != 1) { $irc->yield(privmsg => $nick => "You must identify with services"); return; } |