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
55
56
57
58
59
60
61
62
63
64
65
66
|
#!/usr/bin/perl
################################################################################
## Load configuration variables to the database
##
## Normally the masterserver loads a number of masterserver applets via the
## configuration file. This tool allows to load a number of masterserver applets
## directly into the database without restarting the masterserver.
##
## It is generally not necessary to run this script at all. Normally, the
## masterserver performs the same action on startup.
##
## Use with care!
##
## Note: set database name / user / password manually in the r_database.pl file!
################################################################################
use strict;
use warnings;
use DBI;
require "r_database.pl";
require "r_functions.pl";
# open db
our $dbh;
my @data = (
{address => "utmaster.epicgames.com", port => 28900, games => [qw|ut unreal|]},
{address => "master.hypercoop.tk", port => 28900, games => [qw|unreal|]},
{address => "sof1master.megalag.org", port => 28900, games => [qw|sofretail|]},
{address => "master.deusexnetwork.com", port => 28900, games => [qw|deusex|]},
);
# iterate through all entries
for my $ms (@data) {
# iterate through all games per entry
for my $g (@{$ms->{games}}) {
# resolve domain names
my $applet_ip = host2ip($ms->{address});
# check if all credentials are valid
if ($applet_ip &&
$ms->{port} &&
$g)
{
# add to database
add_master_applet(
ip => $applet_ip,
port => $ms->{port},
gamename => $g,
);
} # else: insufficient info available
else {
print "fail: could not add master applet: ".
($applet_ip || "ip") .", ".
($ms->{port} || "0") .", ".
($g || "game").".";
}
}
}
# close db
$dbh->disconnect();
|
