pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2026-03-11 11:12:25 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Set eqemu_server.pl to check database manifest for only updates that are higher than the local database version - this will prevent false previous match conditions [skip ci]

Browse Source
This commit is contained in:
Akkadius 2016-08-27 01:25:22 -05:00
parent 62a4ce76b6
commit 031a37baa1
1 changed files with 117 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

224
utils/scripts/eqemu_server.pl
View File

@ -23,122 +23,40 @@ $eqemu_repository_request_url = "https://raw.githubusercontent.com/EQEmu/Server/
#::: Globals #::: Globals
$time_stamp = strftime('%m-%d-%Y', gmtime()); $time_stamp = strftime('%m-%d-%Y', gmtime());
$db_run_stage = 0; #::: Sets database run stage check $db_run_stage = 0; #::: Sets database run stage check
$console_output .= " Operating System is: $Config{osname}\n";
if($Config{osname}=~/freebsd|linux/i){ $OS = "Linux"; } if($Config{osname}=~/freebsd|linux/i){ $OS = "Linux"; }
if($Config{osname}=~/Win|MS/i){ $OS = "Windows"; } if($Config{osname}=~/Win|MS/i){ $OS = "Windows"; }
$has_internet_connection = check_internet_connection(); $has_internet_connection = check_internet_connection();
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
#::: Check for script self update #::: Check for script self update
do_self_update_check_routine(); do_self_update_check_routine();
get_perl_version();
print "[Info] For EQEmu Server management utilities - run eqemu_server.pl\n"; read_eqemu_config_xml();
get_mysql_path();
#::: Check Perl version
$perl_version = $^V;
$perl_version =~s/v//g;
print "[Update] Perl Version is " . $perl_version . "\n";
if($perl_version > 5.12){
no warnings 'uninitialized';
}
no warnings;
#::: Remove old eqemu_update.pl #::: Remove old eqemu_update.pl
if(-e "eqemu_update.pl"){ if(-e "eqemu_update.pl"){
unlink("eqemu_update.pl"); unlink("eqemu_update.pl");
} }
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();
read_eqemu_config_xml();
if($OS eq "Windows"){
$has_mysql_path = `echo %PATH%`;
if($has_mysql_path=~/MySQL|MariaDB/i){
@mysql = split(';', $has_mysql_path);
foreach my $v (@mysql){
if($v=~/MySQL|MariaDB/i){
$v =~s/\n//g;
$path = trim($v) . "/mysql";
last;
}
}
}
}
#::: Linux Check
if($OS eq "Linux"){
$path = `which mysql`;
if ($path eq "") {
$path = `which mariadb`;
}
$path =~s/\n//g;
}
#::: Path not found, error and exit
if($path eq ""){
print "[Error:eqemu_server.pl] MySQL path not found, please add the path for automatic database upgrading to continue... \n\n";
exit;
}
#::: Create db_update working directory if not created #::: Create db_update working directory if not created
mkdir('db_update'); mkdir('db_update');
print "[Info] For EQEmu Server management utilities - run eqemu_server.pl\n";
#::: Check if db_version table exists... #::: Check if db_version table exists...
if(trim(get_mysql_result("SHOW COLUMNS FROM db_version LIKE 'Revision'")) ne "" && $db){ if(trim(get_mysql_result("SHOW COLUMNS FROM db_version LIKE 'Revision'")) ne "" && $db){
print get_mysql_result("DROP TABLE db_version"); print get_mysql_result("DROP TABLE db_version");
print "[Database] Old db_version table present, dropping...\n\n"; print "[Database] Old db_version table present, dropping...\n\n";
} }
sub check_db_version_table{
if(get_mysql_result("SHOW TABLES LIKE 'db_version'") eq "" && $db){
print get_mysql_result("
CREATE TABLE db_version (
version int(11) DEFAULT '0'
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
INSERT INTO db_version (version) VALUES ('1000');");
print "[Database] Table 'db_version' does not exists.... Creating...\n\n";
}
}
check_db_version_table(); check_db_version_table();
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); } check_for_world_bootup_database_update();
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
$bin_db_ver = trim($db_version[1]);
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
#::: If ran from Linux startup script, supress output
if($bin_db_ver == $local_db_ver && $ARGV[0] eq "ran_from_world"){
print "[Update] Database up to date...\n";
exit;
}
else {
#::: We ran world - Database needs to update, lets backup and run updates and continue world bootup
if($local_db_ver < $bin_db_ver && $ARGV[0] eq "ran_from_world"){
print "[Update] Database not up to date with binaries... Automatically updating...\n";
print "[Update] Issuing database backup first...\n";
database_dump_compress();
print "[Update] Updating database...\n";
sleep(1);
main_db_management();
main_db_management();
print "[Update] Continuing bootup\n";
exit;
}
#::: Make sure that we didn't pass any arugments to the script
if(!$ARGV[0]){
if(!$db){ print "[eqemu_server.pl] No database connection found... Running without\n"; }
show_menu_prompt();
}
}
if($db){ if($db){
print "[Update] MySQL Path/Location: " . $path . "\n"; print "[Update] MySQL Path/Location: " . $path . "\n";
print "[Update] Binary Revision / Local: (" . $bin_db_ver . " / " . $local_db_ver . ")\n"; print "[Update] Binary Revision / Local: (" . $binary_database_version . " / " . $local_database_version . ")\n";
#::: Bots #::: Bots
#::: Make sure we're running a bots binary to begin with #::: Make sure we're running a bots binary to begin with
@ -150,7 +68,7 @@ if($db){
} }
#::: If World ran this script, and our version is up to date, continue... #::: If World ran this script, and our version is up to date, continue...
if($bin_db_ver <= $local_db_ver && $ARGV[0] eq "ran_from_world"){ if($binary_database_version <= $local_database_version && $ARGV[0] eq "ran_from_world"){
print "[Update] Database up to Date: Continuing World Bootup...\n"; print "[Update] Database up to Date: Continuing World Bootup...\n";
exit; exit;
} }
@ -202,8 +120,6 @@ if($ARGV[0] eq "installer"){
lua_modules_fetch(); lua_modules_fetch();
fetch_utility_scripts(); fetch_utility_scripts();
#::: Database Routines #::: Database Routines
print "[Database] Creating Database '" . $db_name . "'\n"; print "[Database] 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 "DROP DATABASE IF EXISTS $db_name;"`;
@ -212,11 +128,11 @@ if($ARGV[0] eq "installer"){
#::: Get Binary DB version #::: Get Binary DB version
if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); } if($OS eq "Windows"){ @db_version = split(': ', `world db_version`); }
if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); } if($OS eq "Linux"){ @db_version = split(': ', `./world db_version`); }
$bin_db_ver = trim($db_version[1]); $binary_database_version = trim($db_version[1]);
#::: Local DB Version #::: Local DB Version
check_db_version_table(); check_db_version_table();
$local_db_ver = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1")); $local_database_version = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
#::: Download PEQ latest #::: Download PEQ latest
fetch_peq_db_full(); fetch_peq_db_full();
@ -244,6 +160,44 @@ if($ARGV[0] eq "login_server_setup"){
exit; exit;
} }
sub check_for_world_bootup_database_update {
if($OS eq "Windows"){
@db_version = split(': ', `world db_version`);
}
if($OS eq "Linux"){
@db_version = split(': ', `./world db_version`);
}
$binary_database_version = trim($db_version[1]);
$local_database_version = trim(get_mysql_result("SELECT version FROM db_version LIMIT 1"));
if($binary_database_version == $local_database_version && $ARGV[0] eq "ran_from_world"){
print "[Update] Database up to date...\n";
exit;
}
else {
#::: We ran world - Database needs to update, lets backup and run updates and continue world bootup
if($local_database_version < $binary_database_version && $ARGV[0] eq "ran_from_world"){
print "[Update] Database not up to date with binaries... Automatically updating...\n";
print "[Update] Issuing database backup first...\n";
database_dump_compress();
print "[Update] Updating database...\n";
sleep(1);
main_db_management();
main_db_management();
print "[Update] Continuing bootup\n";
exit;
}
#::: Make sure that we didn't pass any arugments to the script
if(!$ARGV[0]){
if(!$db){ print "[eqemu_server.pl] No database connection found... Running without\n"; }
show_menu_prompt();
}
}
}
sub check_internet_connection { sub check_internet_connection {
if($OS eq "Linux"){ if($OS eq "Linux"){
$count = "c"; $count = "c";
@ -266,6 +220,17 @@ sub check_internet_connection {
} }
} }
sub get_perl_version {
#::: Check Perl version
$perl_version = $^V;
$perl_version =~s/v//g;
print "[Update] Perl Version is " . $perl_version . "\n";
if($perl_version > 5.12){
no warnings 'uninitialized';
}
no warnings;
}
sub do_self_update_check_routine { sub do_self_update_check_routine {
#::: Check Version passed from world to update script #::: Check Version passed from world to update script
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "updates_staged/eqemu_server.pl", 0, 1, 1); get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "updates_staged/eqemu_server.pl", 0, 1, 1);
@ -518,6 +483,35 @@ sub print_main_menu {
print "Enter a command #> "; print "Enter a command #> ";
} }
sub get_mysql_path {
if($OS eq "Windows"){
$has_mysql_path = `echo %PATH%`;
if($has_mysql_path=~/MySQL|MariaDB/i){
@mysql = split(';', $has_mysql_path);
foreach my $v (@mysql){
if($v=~/MySQL|MariaDB/i){
$v =~s/\n//g;
$path = trim($v) . "/mysql";
last;
}
}
}
}
if($OS eq "Linux"){
$path = `which mysql`;
if ($path eq "") {
$path = `which mariadb`;
}
$path =~s/\n//g;
}
#::: Path not found, error and exit
if($path eq ""){
print "[Error:eqemu_server.pl] MySQL path not found, please add the path for automatic database upgrading to continue... \n\n";
exit;
}
}
sub check_for_database_dump_script{ sub check_for_database_dump_script{
if(`perl db_dumper.pl`=~/Need arguments/i){ if(`perl db_dumper.pl`=~/Need arguments/i){
return; return;
@ -569,6 +563,17 @@ sub script_exit{
exit; exit;
} }
sub check_db_version_table{
if(get_mysql_result("SHOW TABLES LIKE 'db_version'") eq "" && $db){
print get_mysql_result("
CREATE TABLE db_version (
version int(11) DEFAULT '0'
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
INSERT INTO db_version (version) VALUES ('1000');");
print "[Database] Table 'db_version' does not exists.... Creating...\n\n";
}
}
#::: Returns Tab Delimited MySQL Result from Command Line #::: Returns Tab Delimited MySQL Result from Command Line
sub get_mysql_result{ sub get_mysql_result{
my $run_query = $_[0]; my $run_query = $_[0];
@ -1560,14 +1565,14 @@ sub get_bots_db_version{
sub bots_db_management{ sub bots_db_management{
#::: Main Binary Database version #::: Main Binary Database version
$bin_db_ver = trim($db_version[2]); $binary_database_version = trim($db_version[2]);
#::: If we have stale data from main db run #::: If we have stale data from main db run
if($db_run_stage > 0 && $bots_db_management == 0){ if($db_run_stage > 0 && $bots_db_management == 0){
clear_database_runs(); clear_database_runs();
} }
if($bin_db_ver == 0){ if($binary_database_version == 0){
print "[Database] Your server binaries (world/zone) are not compiled for bots...\n\n"; print "[Database] Your server binaries (world/zone) are not compiled for bots...\n\n";
return; return;
} }
@ -1587,7 +1592,7 @@ sub main_db_management{
} }
#::: Main Binary Database version #::: Main Binary Database version
$bin_db_ver = trim($db_version[1]); $binary_database_version = trim($db_version[1]);
$bots_db_management = 0; $bots_db_management = 0;
run_database_check(); run_database_check();
@ -1658,13 +1663,18 @@ sub run_database_check{
@total_updates = (); @total_updates = ();
#::: This is where we set checkpoints for where a database might be so we don't check so far back in the manifest... #::: This is where we set checkpoints for where a database might be so we don't check so far back in the manifest...
$revision_check = 1000; if($local_database_version){
if(get_mysql_result("SHOW TABLES LIKE 'character_data'") ne ""){ $revision_check = $local_database_version;
$revision_check = 9000; }
else {
$revision_check = 1000;
if(get_mysql_result("SHOW TABLES LIKE 'character_data'") ne ""){
$revision_check = 9000;
}
} }
#::: Iterate through Manifest backwards from binary version down to local version... #::: Iterate through Manifest backwards from binary version down to local version...
for($i = $bin_db_ver; $i > $revision_check; $i--){ for($i = $binary_database_version ; $i > $revision_check; $i--){
if(!defined($m_d{$i}[0])){ next; } if(!defined($m_d{$i}[0])){ next; }
$file_name = trim($m_d{$i}[1]); $file_name = trim($m_d{$i}[1]);
@ -1728,12 +1738,12 @@ sub run_database_check{
if(scalar (@total_updates) == 0 && $db_run_stage == 2){ if(scalar (@total_updates) == 0 && $db_run_stage == 2){
print "[Database] No updates need to be run...\n"; print "[Database] No updates need to be run...\n";
if($bots_db_management == 1){ if($bots_db_management == 1){
print "[Database] Setting Database to Bots Binary Version (" . $bin_db_ver . ") if not already...\n\n"; print "[Database] Setting Database to Bots Binary Version (" . $binary_database_version . ") if not already...\n\n";
get_mysql_result("UPDATE db_version SET bots_version = $bin_db_ver"); get_mysql_result("UPDATE db_version SET bots_version = $binary_database_version ");
} }
else{ else{
print "[Database] Setting Database to Binary Version (" . $bin_db_ver . ") if not already...\n\n"; print "[Database] Setting Database to Binary Version (" . $binary_database_version . ") if not already...\n\n";
get_mysql_result("UPDATE db_version SET version = $bin_db_ver"); get_mysql_result("UPDATE db_version SET version = $binary_database_version ");
} }
clear_database_runs(); clear_database_runs();