Rename old saxrobot/saxbot sb_config to more appropriate name

1 files changed, 0 insertions, 68 deletions

diff --git a/sb_config.pm b/sb_config.pm
deleted file mode 100644
index a6ac9cb..0000000
--- a/sb_config.pm
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/usr/bin/env perl
-
-package sb_config;
-
-use strict;
-use warnings;
-use Config::Tiny;
-
-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};
-	}
-
-	foreach my $option (@list_configs) {
-		my $vals = $config->{_}->{$option};
-		$vals =~ s/^\s+|\s+$//g;
-		@built_config{$option} = [split /\s*,\s*/, $vals];
-	}
-
-	# special case: triggers hash
-	my %triggers;
-	foreach (split ',', $config->{_}->{triggers}) {
-		my ($match, $response) = split /=>/;
-		# strip outer quotes
-		$match =~ s/^[^']*'|'[^']*$//g;
-		$response =~ s/^[^']*'|'[^']*$//g;
-		$triggers{$match} = $response;
-	}
-
-	$built_config{uid} = getpwnam($built_config{user})
-		or die "Cannot get uid of $built_config{user}: $!\n";
-	$built_config{gid} = getgrnam($built_config{group})
-		or die "Cannot get gid of $built_config{group}: $!\n";
-
-
-	$built_config{triggers} = \%triggers;
-
-	return %built_config;
-}
-1;