usr bin perl use strict use warnings use LWP UserAgent use HTTP Reques

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
#!/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",
],
);