util/tools/db_query_master_applet.pl


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

#!/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 => "dev.333networks.com", port => 28905, games => [qw|ut unreal deusex rune|]},
);

for my $ms (@data) {
  sleep 1;
  query_master($ms);
}

# close db
$dbh->disconnect();