From 9dfe91a70781292bee0ecadf1ac5e13b495309eb Mon Sep 17 00:00:00 2001 From: David Phillips Date: Tue, 7 Mar 2017 15:13:50 +1300 Subject: Make identifying with services optional to remote control --- bot.conf.example | 1 + saxrobot | 2 +- sb_config.pm | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) diff --git a/bot.conf.example b/bot.conf.example index 8b43c3a..6fc84f7 100644 --- a/bot.conf.example +++ b/bot.conf.example @@ -6,3 +6,4 @@ channels = #saxtalk,#bot ignore = trumpetbot,abusiveuser password = pleffquiffle admins = snargle!~kleg@glarg.example.com +must_id = 1 diff --git a/saxrobot b/saxrobot index da51f8f..869d976 100755 --- a/saxrobot +++ b/saxrobot @@ -84,7 +84,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; } diff --git a/sb_config.pm b/sb_config.pm index f4e851e..53ce0e6 100644 --- a/sb_config.pm +++ b/sb_config.pm @@ -8,7 +8,7 @@ use Config::Tiny; sub parse_config { - my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'password'); + my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'password', 'must_id'); my @list_configs = ('channels', 'ignore', 'admins'); my $file = $_[0]; my %built_config; -- cgit v1.1 From e99c752927ba2e151ec887ea2e82e80d54ccea8c Mon Sep 17 00:00:00 2001 From: David Phillips Date: Tue, 7 Mar 2017 15:33:30 +1300 Subject: Add configuration option for port --- saxrobot | 1 + sb_config.pm | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/saxrobot b/saxrobot index 869d976..a90eb3c 100755 --- a/saxrobot +++ b/saxrobot @@ -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: $!"; diff --git a/sb_config.pm b/sb_config.pm index 53ce0e6..d107147 100644 --- a/sb_config.pm +++ b/sb_config.pm @@ -8,7 +8,7 @@ use Config::Tiny; sub parse_config { - my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'password', 'must_id'); + my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'port', 'password', 'must_id'); my @list_configs = ('channels', 'ignore', 'admins'); my $file = $_[0]; my %built_config; -- cgit v1.1