Initial dump

1 files changed, 30 insertions, 0 deletions

diff --git a/sb_config.pm b/sb_config.pm
new file mode 100644
index 0000000..f4e851e
--- /dev/null
+++ b/sb_config.pm
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+
+package sb_config;
+
+use strict;
+use warnings;
+use Config::Tiny;
+
+sub parse_config
+{
+	my @scalar_configs = ('nick', 'username', 'ircname', 'server', 'password');
+	my @list_configs = ('channels', 'ignore', 'admins');
+	my $file = $_[0];
+	my %built_config;
+	my $config = Config::Tiny->read($file);
+
+	# FIXME catch undefined/missing config options
+	foreach my $option (@scalar_configs) {
+		$built_config{$option} = $config->{_}->{$option};
+	}
+
+	foreach my $option (@list_configs) {
+		my $vals = $config->{_}->{$option};
+		$vals =~ s/^\s+|\s+$//g;
+		@built_config{$option} = [split /\s*,\s*/, $vals];
+	}
+
+	return %built_config;
+}
+1;