blob: 9af8b739ac533be2fcdd2ca653d7a9e4301a8311 (
plain)
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
|
#!/usr/bin/perl
################################################################################
## Manually query other masterservers/applets and save list into the pending
##
## Use with care!
################################################################################
use strict;
use warnings;
use Encode;
use AnyEvent;
use AnyEvent::Handle;
use Data::Dumper 'Dumper';
use DBI;
$|++;
our %S;
require "../../data/supportedgames.pl";
require "r_secure.pl";
require "r_database.pl";
require "r_functions.pl";
require "r_lists.pl";
# open db
our $dbh;
my @data = (
{ip => "master.hypercoop.tk", port => 28900, games => [qw|ut unreal|]},
{ip => "utmaster.epicgames.com", port => 28900, games => [qw|ut unreal|]},
{ip => "master.deusexnetwork.com",port => 28900, games => [qw|deusex|]},
);
for my $ms (@data) {
sleep 1;
print "\n\n$ms->{ip}, $ms->{port}\n";
query_master($ms);
}
# close db
$dbh->disconnect();
|
