pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-20 17:31:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update eqemu_server.pl [skip ci] - Fix eqemu_config.xml tag parsing scenarios

Browse Source
This commit is contained in:
Akkadius 2016-10-18 16:49:47 -05:00 committed by GitHub
parent fe968f83a3
commit 97999a63b7
1 changed files with 42 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
utils/scripts/eqemu_server.pl
View File

@ -1063,46 +1063,50 @@ sub trim {
} }
sub read_eqemu_config_xml { sub read_eqemu_config_xml {
open (CONFIG, "eqemu_config.xml"); open (CONFIG, "eqemu_config.xml");
while (<CONFIG>){ while (<CONFIG>){
chomp; chomp;
$o = $_; $o = $_;
if($o=~/\<\!--/i){ if($o=~/\<\!--/i){
next; next;
} }
if($o=~/database/i && $o=~/\<\//i){ if($o=~/database/i && $o=~/\<\//i){
$in_database_tag = 0; $in_database_tag = 0;
} }
if($o=~/\<database\>/i){ if($o=~/<database>/i){
print "IN DATABASE TAG\n" if $debug; print "IN DATABASE TAG\n" if $debug;
$in_database_tag = 1; $in_database_tag = 1;
} }
if($o=~/\<longname\>/i){ if($o=~/<longname>/i){
($long_name) = $o =~ /<longname>(.*)<\/longname>/; ($long_name) = $o =~ /<longname>(.*)<\/longname>/;
print "Long Name: " . $long_name . "\n" if $debug; print "Long Name: '" . $long_name . "'\n" if $debug;
} }
if($in_database_tag == 1){ if($in_database_tag == 1){
if($o=~/\<username\>/i && $in_database_tag){ @left = split (">", $o);
($user) = $o =~ />(\w+)</; @right = split("<", $left[1]);
print "Database User: " . $user . "\n" if $debug; $tag_data = trim($right[0]);
}
if($o=~/\<password\>/i && $in_database_tag){ if($o=~/<username>/i && $in_database_tag){
($pass) = $o =~ />(\w+)</; $user = $tag_data;
print "Database Pass: " . $pass . "\n" if $debug; print "Database User: '" . $user . "'\n" if $debug;
} }
if($o=~/\<db\>/i){ if($o=~/<password>/i && $in_database_tag){
($db) = $o =~ />(\w+)</; $pass = $tag_data;
print "Database Name: " . $db . "\n" if $debug; print "Database Pass: '" . $pass . "'\n" if $debug;
} }
if($o=~/\<host\>/i){ if($o=~/<db>/i){
($host) = $o =~ />(\w+)</; $db = $tag_data;
print "Database Host: " . $host . "\n" if $debug; print "Database Name: '" . $db . "'\n" if $debug;
} }
} if($o=~/<host>/i){
} $host = $tag_data;
close(CONFIG); print "Database Host: '" . $host . "'\n" if $debug;
}
}
}
close(CONFIG);
} }
#::: Fetch Latest PEQ AA's #::: Fetch Latest PEQ AA's