From 9dfe91a70781292bee0ecadf1ac5e13b495309eb Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
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 <david@sighup.nz>
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