From bbb625fbd7ee5ebb2e3e2564b3c7117f08200e7d Mon Sep 17 00:00:00 2001
From: William Heimbigner <william.heimbigner@gmail.com>
Date: Wed, 23 Oct 2013 17:40:15 +0000
Subject: all sorts of stuff changed. This is just one big code package update

---
 meta.pl | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'meta.pl')

diff --git a/meta.pl b/meta.pl
index 7586b23..aa38fc4 100755
--- a/meta.pl
+++ b/meta.pl
@@ -13,6 +13,8 @@ use IO::All;
 use Getopt::Long;
 use POSIX qw(strftime);
 use Term::ANSIColor qw(:constants);
+use File::Monitor;
+use feature qw(say);
 
 $Data::Dumper::Useqq=1;
 
@@ -24,6 +26,7 @@ $::netsplit = 0;
 $::debug = 0;
 $::cset = '';
 $::pacealerts = 1;
+$::settingschanged = 0;
 %::wordlist = ();
 
 ## debug variables. 0 to turn off debugging, else set it to a Term::ANSIColor constant.
@@ -35,7 +38,7 @@ $::pacealerts = 1;
   "chanstate" => MAGENTA,
   "restrictions" => BLUE,
   "startup" => YELLOW,
-  "mysql" => CYAN,
+  "mysql" => 0, #CYAN,
   "inspector" => 0,
   "commander" => GREEN,
   "msg" => GREEN,
@@ -128,6 +131,12 @@ sub init {
   foreach my $item (@wl) {
     $::wordlist{lc $item} = 1;
   }
+  $::fm = File::Monitor->new();
+  foreach my $file ("channels", "commands", "dnsbl", "mysql", "restrictions", "rules", "settings", "users") {
+    $::fm->watch("./" . $::cset . '/' . $file . ".xml");
+  }
+  $::fm->watch("string_blacklist.txt");
+  $::fm->scan();
   $irc->start();
 }
 
-- 
cgit v1.2.3