mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-13 10:31:29 +00:00
Update eqemu_server.pl [skip ci]
This commit is contained in:
Akkadius
GitHub
parent
55d2e9b842
commit
37b87e98f4
@ -61,19 +61,7 @@ no warnings;
|
|||||||
|
|
||||||
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
|
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
|
||||||
|
|
||||||
my $confile = "eqemu_config.xml"; #default
|
read_eqemu_config_xml();
|
||||||
open(F, "<$confile");
|
|
||||||
my $indb = 0;
|
|
||||||
while(<F>) {
|
|
||||||
s/\r//g;
|
|
||||||
if(/<database>/i) { $indb = 1; }
|
|
||||||
next unless($indb == 1);
|
|
||||||
if(/<\/database>/i) { $indb = 0; last; }
|
|
||||||
if(/<host>(.*)<\/host>/i) { $host = $1; }
|
|
||||||
elsif(/<username>(.*)<\/username>/i) { $user = $1; }
|
|
||||||
elsif(/<password>(.*)<\/password>/i) { $pass = $1; }
|
|
||||||
elsif(/<db>(.*)<\/db>/i) { $db = $1; }
|
|
||||||
}
|
|
||||||
|
|
||||||
$console_output = "[Update] EQEmu: Automatic Database Upgrade Check\n";
|
$console_output = "[Update] EQEmu: Automatic Database Upgrade Check\n";
|
||||||
|
|
||||||
@ -112,7 +100,6 @@ if($path eq ""){
|
|||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
#::: Create db_update working directory if not created
|
#::: Create db_update working directory if not created
|
||||||
mkdir('db_update');
|
mkdir('db_update');
|
||||||
|
|
||||||
@ -161,8 +148,11 @@ else {
|
|||||||
exit;
|
exit;
|
||||||
}
|
}
|
||||||
|
|
||||||
if(!$db){ print "[eqemu_server.pl] No database connection found... Running without\n"; }
|
#::: Make sure that we didn't pass any arugments to the script
|
||||||
show_menu_prompt();
|
if(!$ARGV[0]){
|
||||||
|
if(!$db){ print "[eqemu_server.pl] No database connection found... Running without\n"; }
|
||||||
|
show_menu_prompt();
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
if($db){
|
if($db){
|
||||||
@ -185,6 +175,112 @@ if($db){
|
|||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
if($ARGV[0] eq "install_peq_db"){
|
||||||
|
|
||||||
|
get_installation_variables();
|
||||||
|
|
||||||
|
$db_name = "peq";
|
||||||
|
if($ARGV[1]){
|
||||||
|
$db_name = $ARGV[1];
|
||||||
|
}
|
||||||
|
elsif($installation_variables{"mysql_eqemu_db_name"}){
|
||||||
|
$db_name = $installation_variables{"mysql_eqemu_db_name"};
|
||||||
|
}
|
||||||
|
|
||||||
|
$db = $db_name;
|
||||||
|
|
||||||
|
#::: Database Routines
|
||||||
|
print "MariaDB :: Creating Database '" . $db_name . "'\n";
|
||||||
|
print `"$path" --host $host --user $user --password="$pass" -N -B -e "DROP DATABASE IF EXISTS $db_name;"`;
|
||||||
|
print `"$path" --host $host --user $user --password="$pass" -N -B -e "CREATE DATABASE $db_name"`;
|
||||||
|
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); }
|
||||||
|
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
|
||||||
|
$bin_db_ver = trim($db_version[1]);
|
||||||
|
check_db_version_table();
|
||||||
|
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
|
||||||
|
fetch_peq_db_full();
|
||||||
|
print "\nFetching Latest Database Updates...\n";
|
||||||
|
main_db_management();
|
||||||
|
print "\nApplying Latest Database Updates...\n";
|
||||||
|
main_db_management();
|
||||||
|
|
||||||
|
print get_mysql_result("UPDATE `launcher` SET `dynamics` = 30 WHERE `name` = 'zone'");
|
||||||
|
}
|
||||||
|
|
||||||
|
if($ARGV[0] eq "remove_duplicate_rules"){
|
||||||
|
remove_duplicate_rule_values();
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
if($ARGV[0] eq "map_files_fetch_bulk"){
|
||||||
|
map_files_fetch_bulk();
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
if($ARGV[0] eq "installer"){
|
||||||
|
print "Running EQEmu Server installer routines...\n";
|
||||||
|
mkdir('logs');
|
||||||
|
mkdir('updates_staged');
|
||||||
|
mkdir('shared');
|
||||||
|
|
||||||
|
do_install_config_xml();
|
||||||
|
read_eqemu_config_xml();
|
||||||
|
|
||||||
|
get_installation_variables();
|
||||||
|
|
||||||
|
$db_name = "peq";
|
||||||
|
if($installation_variables{"mysql_eqemu_db_name"}){
|
||||||
|
$db_name = $installation_variables{"mysql_eqemu_db_name"};
|
||||||
|
}
|
||||||
|
|
||||||
|
if($OS eq "Windows"){
|
||||||
|
#::: Binary dll's
|
||||||
|
fetch_latest_windows_binaries();
|
||||||
|
get_remote_file($install_repository_request_url . "lua51.dll", "lua51.dll", 1);
|
||||||
|
get_remote_file($install_repository_request_url . "zlib1.dll", "zlib1.dll", 1);
|
||||||
|
get_remote_file($install_repository_request_url . "libmysql.dll", "libmysql.dll", 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
map_files_fetch_bulk();
|
||||||
|
opcodes_fetch();
|
||||||
|
plugins_fetch();
|
||||||
|
quest_files_fetch();
|
||||||
|
lua_modules_fetch();
|
||||||
|
|
||||||
|
#::: Server scripts
|
||||||
|
fetch_utility_scripts();
|
||||||
|
|
||||||
|
#::: Database Routines
|
||||||
|
print "MariaDB :: Creating Database '" . $db_name . "'\n";
|
||||||
|
print `"$path" --host $host --user $user --password="$pass" -N -B -e "DROP DATABASE IF EXISTS $db_name;"`;
|
||||||
|
print `"$path" --host $host --user $user --password="$pass" -N -B -e "CREATE DATABASE $db_name"`;
|
||||||
|
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); }
|
||||||
|
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
|
||||||
|
$bin_db_ver = trim($db_version[1]);
|
||||||
|
check_db_version_table();
|
||||||
|
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
|
||||||
|
fetch_peq_db_full();
|
||||||
|
print "\nFetching Latest Database Updates...\n";
|
||||||
|
main_db_management();
|
||||||
|
print "\nApplying Latest Database Updates...\n";
|
||||||
|
main_db_management();
|
||||||
|
|
||||||
|
print get_mysql_result("UPDATE `launcher` SET `dynamics` = 30 WHERE `name` = 'zone'");
|
||||||
|
|
||||||
|
if($OS eq "Windows"){
|
||||||
|
check_windows_firewall_rules();
|
||||||
|
do_windows_login_server_setup();
|
||||||
|
}
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
|
if($ARGV[0] eq "db_dump_compress"){ database_dump_compress(); exit; }
|
||||||
|
if($ARGV[0] eq "login_server_setup"){
|
||||||
|
do_windows_login_server_setup();
|
||||||
|
exit;
|
||||||
|
}
|
||||||
|
|
||||||
sub get_installation_variables{
|
sub get_installation_variables{
|
||||||
#::: Fetch installation variables before building the config
|
#::: Fetch installation variables before building the config
|
||||||
open (INSTALL_VARS, "../install_variables.txt");
|
open (INSTALL_VARS, "../install_variables.txt");
|
||||||
@ -261,110 +357,6 @@ sub do_install_config_xml {
|
|||||||
unlink("eqemu_config_template.xml");
|
unlink("eqemu_config_template.xml");
|
||||||
}
|
}
|
||||||
|
|
||||||
if($ARGV[0] eq "install_peq_db"){
|
|
||||||
|
|
||||||
get_installation_variables();
|
|
||||||
|
|
||||||
$db_name = "peq";
|
|
||||||
if($ARGV[1]){
|
|
||||||
$db_name = $ARGV[1];
|
|
||||||
}
|
|
||||||
elsif($installation_variables{"mysql_eqemu_db_name"}){
|
|
||||||
$db_name = $installation_variables{"mysql_eqemu_db_name"};
|
|
||||||
}
|
|
||||||
|
|
||||||
$db = $db_name;
|
|
||||||
|
|
||||||
#::: Database Routines
|
|
||||||
print "MariaDB :: Creating Database '" . $db_name . "'\n";
|
|
||||||
print `"$path" --host $host --user $user --password="$pass" -N -B -e "DROP DATABASE IF EXISTS $db_name;"`;
|
|
||||||
print `"$path" --host $host --user $user --password="$pass" -N -B -e "CREATE DATABASE $db_name"`;
|
|
||||||
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); }
|
|
||||||
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
|
|
||||||
$bin_db_ver = trim($db_version[1]);
|
|
||||||
check_db_version_table();
|
|
||||||
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
|
|
||||||
fetch_peq_db_full();
|
|
||||||
print "\nFetching Latest Database Updates...\n";
|
|
||||||
main_db_management();
|
|
||||||
print "\nApplying Latest Database Updates...\n";
|
|
||||||
main_db_management();
|
|
||||||
|
|
||||||
print get_mysql_result("UPDATE `launcher` SET `dynamics` = 30 WHERE `name` = 'zone'");
|
|
||||||
}
|
|
||||||
|
|
||||||
if($ARGV[0] eq "remove_duplicate_rules"){
|
|
||||||
remove_duplicate_rule_values();
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($ARGV[0] eq "map_files_fetch_bulk"){
|
|
||||||
map_files_fetch_bulk();
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($ARGV[0] eq "installer"){
|
|
||||||
print "Running EQEmu Server installer routines...\n";
|
|
||||||
mkdir('logs');
|
|
||||||
mkdir('updates_staged');
|
|
||||||
mkdir('shared');
|
|
||||||
|
|
||||||
do_install_config_xml();
|
|
||||||
|
|
||||||
get_installation_variables();
|
|
||||||
|
|
||||||
$db_name = "peq";
|
|
||||||
if($installation_variables{"mysql_eqemu_db_name"}){
|
|
||||||
$db_name = $installation_variables{"mysql_eqemu_db_name"};
|
|
||||||
}
|
|
||||||
|
|
||||||
if($OS eq "Windows"){
|
|
||||||
#::: Binary dll's
|
|
||||||
fetch_latest_windows_binaries();
|
|
||||||
get_remote_file($install_repository_request_url . "lua51.dll", "lua51.dll", 1);
|
|
||||||
get_remote_file($install_repository_request_url . "zlib1.dll", "zlib1.dll", 1);
|
|
||||||
get_remote_file($install_repository_request_url . "libmysql.dll", "libmysql.dll", 1);
|
|
||||||
}
|
|
||||||
|
|
||||||
map_files_fetch_bulk();
|
|
||||||
opcodes_fetch();
|
|
||||||
plugins_fetch();
|
|
||||||
quest_files_fetch();
|
|
||||||
lua_modules_fetch();
|
|
||||||
|
|
||||||
#::: Server scripts
|
|
||||||
fetch_utility_scripts();
|
|
||||||
|
|
||||||
#::: Database Routines
|
|
||||||
print "MariaDB :: Creating Database '" . $db_name . "'\n";
|
|
||||||
print `"$path" --host $host --user $user --password="$pass" -N -B -e "DROP DATABASE IF EXISTS $db_name;"`;
|
|
||||||
print `"$path" --host $host --user $user --password="$pass" -N -B -e "CREATE DATABASE $db_name"`;
|
|
||||||
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); }
|
|
||||||
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
|
|
||||||
$bin_db_ver = trim($db_version[1]);
|
|
||||||
check_db_version_table();
|
|
||||||
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
|
|
||||||
fetch_peq_db_full();
|
|
||||||
print "\nFetching Latest Database Updates...\n";
|
|
||||||
main_db_management();
|
|
||||||
print "\nApplying Latest Database Updates...\n";
|
|
||||||
main_db_management();
|
|
||||||
|
|
||||||
print get_mysql_result("UPDATE `launcher` SET `dynamics` = 30 WHERE `name` = 'zone'");
|
|
||||||
|
|
||||||
if($OS eq "Windows"){
|
|
||||||
check_windows_firewall_rules();
|
|
||||||
do_windows_login_server_setup();
|
|
||||||
}
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
if($ARGV[0] eq "db_dump_compress"){ database_dump_compress(); exit; }
|
|
||||||
if($ARGV[0] eq "login_server_setup"){
|
|
||||||
do_windows_login_server_setup();
|
|
||||||
exit;
|
|
||||||
}
|
|
||||||
|
|
||||||
sub do_update_self{
|
sub do_update_self{
|
||||||
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "eqemu_server.pl");
|
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "eqemu_server.pl");
|
||||||
die "Rerun eqemu_server.pl";
|
die "Rerun eqemu_server.pl";
|
||||||
@ -661,6 +653,22 @@ sub trim {
|
|||||||
return $string;
|
return $string;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub read_eqemu_config_xml {
|
||||||
|
my $confile = "eqemu_config.xml"; #default
|
||||||
|
open(F, "<$confile");
|
||||||
|
my $indb = 0;
|
||||||
|
while(<F>) {
|
||||||
|
s/\r//g;
|
||||||
|
if(/<database>/i) { $indb = 1; }
|
||||||
|
next unless($indb == 1);
|
||||||
|
if(/<\/database>/i) { $indb = 0; last; }
|
||||||
|
if(/<host>(.*)<\/host>/i) { $host = $1; }
|
||||||
|
elsif(/<username>(.*)<\/username>/i) { $user = $1; }
|
||||||
|
elsif(/<password>(.*)<\/password>/i) { $pass = $1; }
|
||||||
|
elsif(/<db>(.*)<\/db>/i) { $db = $1; }
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
#::: Fetch Latest PEQ AA's
|
#::: Fetch Latest PEQ AA's
|
||||||
sub aa_fetch{
|
sub aa_fetch{
|
||||||
if(!$db){
|
if(!$db){
|
||||||
@ -735,16 +743,16 @@ sub copy_file {
|
|||||||
$l_source_file = $_[0];
|
$l_source_file = $_[0];
|
||||||
$l_destination_file = $_[1];
|
$l_destination_file = $_[1];
|
||||||
if($l_destination_file=~/\//i){
|
if($l_destination_file=~/\//i){
|
||||||
my @dir_path = split('/', $l_destination_file);
|
my @directory_path = split('/', $l_destination_file);
|
||||||
$build_path = "";
|
$build_path = "";
|
||||||
$directory_index = 0;
|
$directory_index = 0;
|
||||||
while($directory_indexr_path[$directory_index]){
|
while($directory_path[$directory_index]){
|
||||||
$build_path .= $directory_indexr_path[$directory_index] . "/";
|
$build_path .= $directory_path[$directory_index] . "/";
|
||||||
#::: If path does not exist, create the directory...
|
#::: If path does not exist, create the directory...
|
||||||
if (!-d $build_path) {
|
if (!-d $build_path) {
|
||||||
mkdir($build_path);
|
mkdir($build_path);
|
||||||
}
|
}
|
||||||
if(!$directory_indexr_path[$directory_index + 2] && $directory_indexr_path[$directory_index + 1]){
|
if(!$directory_path[$directory_index + 2] && $directory_path[$directory_index + 1]){
|
||||||
# print $actual_path . "\n";
|
# print $actual_path . "\n";
|
||||||
$actual_path = $build_path;
|
$actual_path = $build_path;
|
||||||
last;
|
last;
|
||||||
@ -833,6 +841,42 @@ sub do_windows_login_server_setup {
|
|||||||
|
|
||||||
print "\nPress any key to continue...\n";
|
print "\nPress any key to continue...\n";
|
||||||
|
|
||||||
|
<>; #Read from STDIN
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
sub do_linux_login_server_setup {
|
||||||
|
print "\n --- Fetching Loginserver... --- \n";
|
||||||
|
get_remote_file($install_repository_request_url . "login_server.zip", "updates_staged/login_server.zip", 1);
|
||||||
|
print "\n --- Extracting... --- \n";
|
||||||
|
unzip('updates_staged/login_server.zip', 'updates_staged/login_server/');
|
||||||
|
my @files;
|
||||||
|
my $start_dir = "updates_staged/login_server";
|
||||||
|
find(
|
||||||
|
sub { push @files, $File::Find::name unless -d; },
|
||||||
|
$start_dir
|
||||||
|
);
|
||||||
|
for my $file (@files) {
|
||||||
|
$destination_file = $file;
|
||||||
|
$destination_file =~s/updates_staged\/login_server\///g;
|
||||||
|
print "Installing :: " . $destination_file . "\n";
|
||||||
|
copy_file($file, $destination_file);
|
||||||
|
}
|
||||||
|
print "\n Done... \n";
|
||||||
|
|
||||||
|
print "Pulling down Loginserver database tables...\n";
|
||||||
|
get_remote_file($install_repository_request_url . "login_server_tables.sql", "db_update/login_server_tables.sql");
|
||||||
|
print "\n\nInstalling Loginserver tables...\n";
|
||||||
|
print get_mysql_result_from_file("db_update/login_server_tables.sql");
|
||||||
|
print "\nDone...\n\n";
|
||||||
|
|
||||||
|
add_login_server_firewall_rules();
|
||||||
|
|
||||||
|
rmtree('updates_staged');
|
||||||
|
rmtree('db_update');
|
||||||
|
|
||||||
|
print "\nPress any key to continue...\n";
|
||||||
|
|
||||||
<>; #Read from STDIN
|
<>; #Read from STDIN
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user