Anonymous

sub CfgLoad {
        my @config;

        open(CFG,'<','glombot.conf') or die "Unable to open config: $!";

        while(<CFG>) {
                push @config, [split(/:/,$_)];
        }

        return @config;
                
}

sub LogInit {
        my $self = shift;

        my $log = {};

        $log->{server} = File::Log->new({
                debug          => $self->debug,
                logFileName    => 'log/' . $self->id . '/server.log',
                logFileMode    => '>>',
                dateTimeStamp  => 1,
                stderrRedirect => 0,
        });

        $log->{other} = File::Log->new({
                debug          => $self->debug,
                logFileName    => 'log/' . $self->id . '/other.log',
                logFileMode    => '>>',
                dateTimeStamp  => 1,
                stderrRedirect => 0,
        });

        return $log;
}