From 2e39d5b2b95c2e705fd962c9752070f816c1dfec Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 4 Jul 2007 02:00:24 +0000
Subject: critical bug fix + code optimizations

---
 meta.pl | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'meta.pl')

diff --git a/meta.pl b/meta.pl
index 4b71024..61f97ff 100755
--- a/meta.pl
+++ b/meta.pl
@@ -16,6 +16,7 @@ use Getopt::Long;
 
 %::eline=();
 $::pass = '';
+@::string_blacklist=();
 
 BEGIN {
 my @modules = qw/Xml Util Inspect Event Services Log Command Classes Actions Mysql OperQueue/;
@@ -32,6 +33,7 @@ sub init {
               'config|c:s' => \$::cset
             );
   ASM::XML->readXML();
+  mkdir($::settings->{log}->{dir});
   $::log = ASM::Log->new($::settings->{log});
   $::pass = $::settings->{pass} if $::pass eq '';
   $host = ${$::settings->{server}}[rand @{$::settings->{server}}];
@@ -57,6 +59,9 @@ sub init {
   foreach my $item (@eline) {
     $::eline{lc $item} = 1;
   }
+  my @strbl = io('string_blacklist.txt')->getlines;
+  chomp @strbl;
+  @::string_blacklist = @strbl;
   $irc->start();
 }
 
-- 
cgit v1.2.3