pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-13 06:21:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Read eqemu_config.json into eqemu_server.pl utility script

Browse Source
This commit is contained in:
Akkadius 2017-07-23 02:55:02 -05:00
parent 618252882c
commit 055daddcaf
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
utils/scripts/eqemu_server.pl
View File

@ -52,7 +52,12 @@ do_self_update_check_routine() if !$skip_self_update_check;
check_xml_to_json_conversion() if $ARGV[0] eq "convert_xml";
get_windows_wget();
get_perl_version();
if(-e "eqemu_config.json") {
read_eqemu_config_json();
}
else {
read_eqemu_config_xml();
}
get_mysql_path();
#::: Remove old eqemu_update.pl
@ -1126,6 +1131,26 @@ sub read_eqemu_config_xml {
close(CONFIG);
}
sub read_eqemu_config_json {
use JSON;
my $json = new JSON();
my $content;
open(my $fh, '<', "eqemu_config.json") or die "cannot open file $filename"; {
local $/;
$content = <$fh>;
}
close($fh);
$config = $json->decode($content);
$db = $config->{"server"}{"database"}{"db"} . "\n";
$host = $config->{"server"}{"database"}{"host"} . "\n";
$user = $config->{"server"}{"database"}{"username"} . "\n";
$password = $config->{"server"}{"database"}{"password"} . "\n";
$long_name = $config->{"server"}{"world"}{"longname"} . "\n";
}
#::: Fetch Latest PEQ AA's
sub aa_fetch{
if(!$db){