35 lines
824 B
Perl
Executable File
35 lines
824 B
Perl
Executable File
#!/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";
|