summaryrefslogtreecommitdiffstats
path: root/meta.pl
diff options
context:
space:
mode:
Diffstat (limited to 'meta.pl')
-rwxr-xr-xmeta.pl13
1 files changed, 12 insertions, 1 deletions
diff --git a/meta.pl b/meta.pl
index 1719512..a769103 100755
--- a/meta.pl
+++ b/meta.pl
@@ -20,11 +20,14 @@ $::debug = 0;
$::cset = '';
%::debugx = (
"dnsbl" => 0,
- "pingpong" => 0
+ "pingpong" => 0,
+ "services" => 1,
+ "sync" => 1
);
%::dsock = ();
%::spy = ();
$::starttime = time;
+@::syncqueue = ();
BEGIN {
my @modules = qw/Util Xml Inspect Event Services Log Command Classes Mysql/;
@@ -72,6 +75,14 @@ sub init {
my @strbl = io('string_blacklist.txt')->getlines;
chomp @strbl;
@::string_blacklist = @strbl;
+ %::proxies = {};
+ my @proxy = io('proxy.txt')->getlines;
+ chomp @proxy;
+ foreach my $line (@proxy) {
+ if ($line =~ /(\d+\.\d+\.\d+\.\d+):\d+/) {
+ $::proxies{$1} = 1;
+ }
+ }
$irc->start();
}