receive UDP beacons, validate them and store with country indicator

1 files changed, 25 insertions, 0 deletions

diff --git a/util/masterserver.pl b/util/masterserver.pl
new file mode 100755
index 0000000..9142d82
--- /dev/null
+++ b/util/masterserver.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+package MasterServer;
+
+use strict;
+use warnings;
+use Cwd 'abs_path';
+
+our $ROOT;
+BEGIN { ($ROOT = abs_path $0) =~ s{/util/masterserver\.pl$}{}; }
+use lib $ROOT.'/lib';
+
+use MasterServer;
+
+our %S;
+require "$ROOT/data/masterserver-config.pl";
+
+#add %C from config.pl to OBJ
+$MasterServer::OBJ->{$_}   = $S{$_} for (keys %S);
+
+# load MasterServer core libs
+MasterServer::load_recursive('MasterServer::Core', 'MasterServer::UDP');
+
+# Run the MasterServer process
+MasterServer::run();