#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; use HTTP::Request; use XML::Simple; use Net::XMPP; use Benchmark; use Time::HiRes qw (sleep); use FindBin qw($Bin); use utf8; #use open ":locale"; my $startGlobal = 1; my %proxyHash = (); my %config = ( paths => { images => "/lib/tpl/dokubook/images", wiki => "/var/www/domains/freefd.info/jwiki/htdocs/data/pages/jabber/socks5_proxy_list.txt", template => $Bin . "/template.tpl", servers_url => 'http://www.jabberes.org/servers/servers.xml', servers_file => $Bin . "/servers.xml", }, answerTypes => { errors => { 403 => 'forbidden', 405 => 'methodnotallowed', 502 => 'serviceunavailable', 503 => 'serviceunavailable', }, IPv4ranges => { '00000000' => 'privatenetwork', # 0/8 '00001010' => 'privatenetwork', # 10/8 '01111111' => 'privatenetwork', # 127.0/8 '101011000001' => 'privatenetwork', # 172.16/12 '1100000010101000' => 'privatenetwork', # 192.168/16 '1010100111111110' => 'reservednetwork', # 169.254/16 '110000000000000000000010' => 'reservednetwork', # 192.0.2/24 '1110' => 'reservednetwork', # 224/4 '11110' => 'reservednetwork', # 240/5 '11111' => 'reservednetwork', # 248/5 }, }, extraProxy => [ "proxy65.jabber.m-network.de", "proxy65.spaceboyz.net", "proxy65.talkonaut.com", "proxy65.xmpp.net2max.com", "proxy.appriss.com", "proxy.jabber.exceede.com", "proxy.bee.nu", "proxy.chaoslab.info", "proxy.devzero.co.uk", "proxy.im.flosoft.biz", "proxy.im.sapo.pt", "proxy.jabber.bluendo.com", "proxy.jabberfr.org", "proxy.jabber-me.de", "proxy.jabster.pl", "proxy.miranda.im", "proxy.netlab.cz", "proxy.php4you.de", "proxy.simplicidade.org", ], ignoreProxy => [ "proxy.jid.pl", "rtpbridge.jabber.planetteamspeak.com", "rtpbridge.jabberim.de", "rtpbridge.jabjab.de", "rtpbridge.programmer-art.org", "mediaproxy.rooyee.biz", ], );