sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Require Perl 5.10.0.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-01-12 23:01:28 -07:00
1 parent e714f11634
commit d0ca862f63
1 file changed
+14 -2
Download Patch File Download Diff File Expand all files Collapse all files
bin/auto
+14 -2
View File
@@ -4,16 +4,18 @@
# Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS) # Copyright (C) 2010-2011 Xelhua Development Team (doc/CREDITS)
# This program is free software; rights to this code are stated in doc/LICENSE. # This program is free software; rights to this code are stated in doc/LICENSE.
package Auto; package Auto;
require 5.10.0;
use strict; use strict;
use warnings; use warnings;
use POSIX; use POSIX;
use locale;
use IO::Socket; use IO::Socket;
use Data::Dumper;
use FindBin qw($Bin); use FindBin qw($Bin);
our $Bin = $Bin; our $Bin = $Bin;
unshift(@INC, "$Bin/../src"); unshift(@INC, "$Bin/../src");
#require Lang::Gettext;
require API::Std; require API::Std;
#require DB::Flatfile; require DB::Flatfile;
require Parser::Config; require Parser::Config;
#require Parser::IRC; #require Parser::IRC;
#require IRC::Standard; #require IRC::Standard;
@@ -29,3 +31,13 @@ use constant {
our $CONF = Parser::Config->new("auto.conf") or print "Failed to open configuration file.\n" and exit; our $CONF = Parser::Config->new("auto.conf") or print "Failed to open configuration file.\n" and exit;
our %SETTINGS = $CONF->parse; our %SETTINGS = $CONF->parse;
setlocale(LC_CTYPE, API::Std::conf_get('locale'));
require API::Text;
DB::load() or exit;
my $k = DB::get("LOL") or print ".\n" and exit;
print Dumper($k);
print @{ $k }->[0]->[0]."\n";