From d7aa95f5ee6f1d03c707f5a1ecc87f6c3dee0b05 Mon Sep 17 00:00:00 2001 From: William Heimbigner Date: Wed, 30 May 2012 22:12:30 +0000 Subject: make rules private, properly handle ghosting/releasing, added a proxy list, much faster join/startup --- meta.pl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'meta.pl') 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(); } -- cgit v1.2.3