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
67
68
69
70
71
72
|
#!/usr/bin/perl
################################################################################
## Supported Games list ciphers
## Clear the Supported Games table and insert the list of supported games AND
## their ciphers / default ports / descriptions included from the
## data/supportedgames.pl file.
##
## Only config files after 5 October 2015 work with this script.
##
## It is generally not necessary to run this script at all. Normally, the
## masterserver performs the same action on startup. With this script it is
## possible to add new game/cipher pairs or reload the game descriptions
## without having to restart the masterserver.
## Doing so while the masterserver is running MAY lead to missed queries or
## failed secure/validate queries in your logs/output. This is undesirable,
## but always better than being offline while restarting the masterserver.
##
## Use with care!
##
##
## Note: set database name / user / password manually in the code below.
################################################################################
use strict;
use warnings;
use DBI;
use Data::Dumper 'Dumper';
use Cwd 'abs_path';
our $ROOT;
BEGIN { ($ROOT = abs_path $0) =~ s{/util/ciphers\.pl$}{}; }
use lib $ROOT.'/lib';
use MasterServer;
our %S;
require "$ROOT/data/supportedgames.pl";
# open db connection
my $dbh = DBI->connect('dbi:Pg:dbname=masterserver', 'user', 'password')
or die "Cannot connect: $DBI::errstr\n";
# intro
print "Deleting old entries... ";
# check existing entries
my $m = $dbh->do('DELETE FROM games');
print "Deleted $m lines.\n";
# announce
print "Inserting new entries ... (this may take a while) ... ";
my $g = $S{game};
$dbh->begin_work;
for (keys %{$g}) {
$dbh->do("INSERT INTO games (gamename, cipher, description, default_qport) VALUES(?, ?, ?, ?)", undef,
lc $_, $g->{$_}->{key}, $g->{$_}->{label}, $g->{$_}->{port} || 0) ;
}
$dbh->commit;
# verify
print "Done! ";
my $n = $dbh->selectall_arrayref('SELECT COUNT(*) FROM games as count');
print "$m game entries found and added. \n";
# EOF
|
