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