#!/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; require 5.10.0; use strict; use warnings; use POSIX; use locale; use IO::Socket; use Data::Dumper; use FindBin qw($Bin); our $Bin = $Bin; unshift(@INC, "$Bin/../src"); #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;