From 8d54e0108503016811b4f4626bb476410b206d21 Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Sun, 26 Mar 2017 20:47:50 +1300
Subject: Enforce setting of scalar configs

---
 sb_config.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'sb_config.pm')

diff --git a/sb_config.pm b/sb_config.pm
index ee816b0..39e92aa 100644
--- a/sb_config.pm
+++ b/sb_config.pm
@@ -10,12 +10,17 @@ sub parse_config
 {
 	my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'port', 'usessl', 'password', 'must_id', 'quit_msg', 'user', 'group');
 	my @list_configs = ('channels', 'ignore', 'admins');
+	my @optional_configs = ('password');
 	my $file = $_[0];
 	my %built_config;
 	my $config = Config::Tiny->read($file);
 
 	# FIXME catch undefined/missing config options
 	foreach my $option (@scalar_configs) {
+		my $value = $config->{_}->{$option};
+		if (! defined $value && ! grep {$_ eq $option} @optional_configs) {
+			die "Option \"$option\" must be set in $file\n";
+		}
 		$built_config{$option} = $config->{_}->{$option};
 	}
 
-- 
cgit v1.1