Enforce setting of scalar configs

1 files changed, 5 insertions, 0 deletions

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};
 	}