#!/usr/bin/env perl

# Auto IRC Bot. An advanced, lightweight and powerful IRC bot.
# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
# This program is free software; rights to this code are stated in doc/LICENSE.
package Auto;
use strict;
use warnings;
use POSIX;
use IO::Socket;
use Data::Dumper;
use FindBin qw($Bin);
our $Bin = $Bin;
unshift(@INC, "$Bin/../src");
#require Lang::Gettext;
require API::Standard;
#require DB::Flatfile;
require Parser::Config;
#require Parser::IRC;
#require IRC::Standard;
#require Sys::Full;

use constant {
	NAME   => 'Auto IRC Bot',
	VER    => 3,
	SVER   => 0,
	REV    => 0,
	RSTAGE => 'd'
};

our $CONF = Parser::Config->new("auto.conf") or print "Failed to open configuration file.\n" and exit;
our %SETTINGS = $CONF->parse;

print Dumper(API::conf_get('server'))."\n";
