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

Update eqemu_server.pl [skip ci]

Browse Source
This commit is contained in:
Akkadius 2016-08-25 12:50:26 -05:00 committed by GitHub
parent 6e1a5eac94
commit a70291f20f
1 changed files with 71 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

116
utils/scripts/eqemu_server.pl
View File

@ -26,7 +26,7 @@ $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
$console_output .= " Operating System is: $Config{osname}\n"; $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"; }
@ -34,22 +34,7 @@ if($Config{osname}=~/Win|MS/i){ $OS = "Windows"; }
#::: If current version is less than what world is reporting, then download a new one... #::: If current version is less than what world is reporting, then download a new one...
$current_version = 14; $current_version = 14;
if($ARGV[0] eq "V"){ do_self_update_check_routine();
if($ARGV[1] > $current_version){
print "[Update] eqemu_server.pl Automatic Database Upgrade Needs updating...\n";
print "[Update] Current version: " . $current_version . "\n";
print "[Update] New version: " . $ARGV[1] . "\n";
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "eqemu_server.pl");
exit;
}
else{
print "[Update] No script update necessary \n";
}
exit;
}
#::: Sets database run stage check
$db_run_stage = 0;
$perl_version = $^V; $perl_version = $^V;
$perl_version =~s/v//g; $perl_version =~s/v//g;
@ -290,6 +275,46 @@ if($ARGV[0] eq "login_server_setup"){
exit; exit;
} }
sub do_self_update_check_routine {
#::: Check Version passed from world to update script
if($ARGV[0] eq "V") {
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "updates_staged/eqemu_server.pl", 0, 1);
if(-e "updates_staged/eqemu_server.pl") {
my $remote_script_size = -s "updates_staged/eqemu_server.pl";
my $local_script_size = -s "eqemu_server.pl";
if($remote_script_size != $local_script_size){
print "[Update] Script has been updated, updating...\n";
my @files;
my $start_dir = "updates_staged/";
find(
sub { push @files, $File::Find::name unless -d; },
$start_dir
);
for my $file (@files) {
if($file=~/eqemu_server/i){
$destination_file = $file;
$destination_file =~s/updates_staged\///g;
print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file);
}
}
print "[Install] Done\n";
}
else {
print "[Update] No script update necessary...\n";
}
unlink("updates_staged/eqemu_server.pl");
}
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");
@ -366,11 +391,6 @@ sub do_install_config_xml {
unlink("eqemu_config_template.xml"); unlink("eqemu_config_template.xml");
} }
sub do_update_self{
get_remote_file($eqemu_repository_request_url . "utils/scripts/eqemu_server.pl", "eqemu_server.pl");
die "Rerun eqemu_server.pl";
}
sub fetch_utility_scripts { sub fetch_utility_scripts {
if($OS eq "Windows"){ if($OS eq "Windows"){
get_remote_file($install_repository_request_url . "t_database_backup.bat", "t_database_backup.bat"); get_remote_file($install_repository_request_url . "t_database_backup.bat", "t_database_backup.bat");
@ -451,7 +471,6 @@ sub show_menu_prompt {
elsif($input eq "check_db_updates"){ main_db_management(); $dc = 1; } elsif($input eq "check_db_updates"){ main_db_management(); $dc = 1; }
elsif($input eq "check_bot_db_updates"){ bots_db_management(); $dc = 1; } elsif($input eq "check_bot_db_updates"){ bots_db_management(); $dc = 1; }
elsif($input eq "setup_loginserver"){ do_windows_login_server_setup(); $dc = 1; } elsif($input eq "setup_loginserver"){ do_windows_login_server_setup(); $dc = 1; }
elsif($input eq "update_script"){ do_update_self(); $dc = 1; }
elsif($input eq "exit"){ elsif($input eq "exit"){
exit; exit;
} }
@ -489,7 +508,6 @@ sub print_main_menu {
print "====================================================\n"; print "====================================================\n";
print " database Enter database management menu \n"; print " database Enter database management menu \n";
print " server_assets Manage server assets \n"; print " server_assets Manage server assets \n";
print " update_script Updates this management script \n";
print " exit \n"; print " exit \n";
print "\n"; print "\n";
} }
@ -573,9 +591,9 @@ sub get_remote_file{
my $request_url = $_[0]; my $request_url = $_[0];
my $destination_file = $_[1]; my $destination_file = $_[1];
my $content_type = $_[2]; my $content_type = $_[2];
my $no_retry = $_[3];
#::: Build file path of the destination file so that we may check for the folder's existence and make it if necessary #::: Build file path of the destination file so that we may check for the folder's existence and make it if necessary
# print "destination file is " . $destination_file . "\n";
if($destination_file=~/\//i){ if($destination_file=~/\//i){
my @directory_path = split('/', $destination_file); my @directory_path = split('/', $destination_file);
@ -614,9 +632,13 @@ sub get_remote_file{
#::: Make sure the file exists before continuing... #::: Make sure the file exists before continuing...
if(-e $destination_file) { if(-e $destination_file) {
$break = 1; $break = 1;
print " Saved: (" . $destination_file . ") from " . $request_url . "\n"; print "[Download] Saved: (" . $destination_file . ") from " . $request_url . "\n";
} else { $break = 0; } } else { $break = 0; }
usleep(500); usleep(500);
if($no_retry){
$break = 1;
}
} }
} }
else{ else{
@ -633,21 +655,25 @@ sub get_remote_file{
close (FILE); close (FILE);
} }
else { else {
# print "Error, no connection or failed request...\n\n"; print "Error, no connection or failed request...\n\n";
} }
if(-e $destination_file) { if(-e $destination_file) {
$break = 1; $break = 1;
print " Saved: (" . $destination_file . ") from " . $request_url . "\n"; print "[Download] Saved: (" . $destination_file . ") from " . $request_url . "\n";
} else { $break = 0; } } else { $break = 0; }
usleep(500); usleep(500);
if($no_retry){
$break = 1;
}
} }
} }
} }
if($OS eq "Linux"){ if($OS eq "Linux"){
#::: wget -O db_update/db_update_manifest.txt https://raw.githubusercontent.com/EQEmu/Server/master/utils/sql/db_update_manifest.txt #::: wget -O db_update/db_update_manifest.txt https://raw.githubusercontent.com/EQEmu/Server/master/utils/sql/db_update_manifest.txt
$wget = `wget --no-check-certificate --quiet -O $destination_file $request_url`; $wget = `wget --no-check-certificate --quiet -O $destination_file $request_url`;
print " Saved: (" . $destination_file . ") from " . $request_url . "\n"; print "[Download] Saved: (" . $destination_file . ") from " . $request_url . "\n";
if($wget=~/unable to resolve/i){ if($wget=~/unable to resolve/i){
print "Error, no connection or failed request...\n\n"; print "Error, no connection or failed request...\n\n";
#die; #die;
} }
@ -687,7 +713,7 @@ sub aa_fetch{
print "Pulling down PEQ AA Tables...\n"; print "Pulling down PEQ AA Tables...\n";
get_remote_file($eqemu_repository_request_url . "utils/sql/peq_aa_tables_post_rework.sql", "db_update/peq_aa_tables_post_rework.sql"); get_remote_file($eqemu_repository_request_url . "utils/sql/peq_aa_tables_post_rework.sql", "db_update/peq_aa_tables_post_rework.sql");
print "\n\nInstalling AA Tables...\n"; print "\n\n[Install] Installing AA Tables...\n";
print get_mysql_result_from_file("db_update/peq_aa_tables_post_rework.sql"); print get_mysql_result_from_file("db_update/peq_aa_tables_post_rework.sql");
print "\nDone...\n\n"; print "\nDone...\n\n";
} }
@ -787,7 +813,7 @@ sub fetch_latest_windows_binaries {
for my $file (@files) { for my $file (@files) {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/updates_staged\/binaries\///g; $destination_file =~s/updates_staged\/binaries\///g;
print "Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file); copy_file($file, $destination_file);
} }
print "\n --- Done... --- \n"; print "\n --- Done... --- \n";
@ -810,7 +836,7 @@ sub fetch_latest_windows_binaries_bots {
for my $file (@files) { for my $file (@files) {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/updates_staged\/binaries\///g; $destination_file =~s/updates_staged\/binaries\///g;
print "Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file); copy_file($file, $destination_file);
} }
print "\n --- Done... --- \n"; print "\n --- Done... --- \n";
@ -832,14 +858,14 @@ sub do_windows_login_server_setup {
for my $file (@files) { for my $file (@files) {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/updates_staged\/login_server\///g; $destination_file =~s/updates_staged\/login_server\///g;
print "Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file); copy_file($file, $destination_file);
} }
print "\n Done... \n"; print "\n Done... \n";
print "Pulling down Loginserver database tables...\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"); get_remote_file($install_repository_request_url . "login_server_tables.sql", "db_update/login_server_tables.sql");
print "\n\nInstalling Loginserver tables...\n"; print "\n\n[Install] Installing Loginserver tables...\n";
print get_mysql_result_from_file("db_update/login_server_tables.sql"); print get_mysql_result_from_file("db_update/login_server_tables.sql");
print "\nDone...\n\n"; print "\nDone...\n\n";
@ -859,14 +885,14 @@ sub do_linux_login_server_setup {
for my $file (@files) { for my $file (@files) {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/updates_staged\/login_server\///g; $destination_file =~s/updates_staged\/login_server\///g;
print "Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file); copy_file($file, $destination_file);
} }
print "\n Done... \n"; print "\n Done... \n";
print "Pulling down Loginserver database tables...\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"); get_remote_file($install_repository_request_url . "login_server_tables.sql", "db_update/login_server_tables.sql");
print "\n\nInstalling Loginserver tables...\n"; print "\n\n[Install] Installing Loginserver tables...\n";
print get_mysql_result_from_file("db_update/login_server_tables.sql"); print get_mysql_result_from_file("db_update/login_server_tables.sql");
print "\nDone...\n\n"; print "\nDone...\n\n";
@ -1023,7 +1049,7 @@ sub fetch_peq_db_full{
get_mysql_result_from_file($file); get_mysql_result_from_file($file);
} }
if($file=~/eqtime/i){ if($file=~/eqtime/i){
print "Installing eqtime.cfg\n"; print "[Install] Installing eqtime.cfg\n";
copy_file($file, "eqtime.cfg"); copy_file($file, "eqtime.cfg");
} }
} }
@ -1042,7 +1068,7 @@ sub map_files_fetch_bulk{
for my $file (@files) { for my $file (@files) {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/maps\/EQEmuMaps-master\/maps\///g; $destination_file =~s/maps\/EQEmuMaps-master\/maps\///g;
print "Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, "maps/" . $new_file); copy_file($file, "maps/" . $new_file);
} }
print "\n --- Fetched Latest Maps... --- \n"; print "\n --- Fetched Latest Maps... --- \n";
@ -1113,7 +1139,7 @@ sub quest_files_fetch{
if (!-e $destination_file) { if (!-e $destination_file) {
copy_file($staged_file, $destination_file); copy_file($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n"; print "[Install] Installing :: '" . $destination_file . "'\n";
$fc++; $fc++;
} }
else{ else{
@ -1131,7 +1157,7 @@ sub quest_files_fetch{
copy_file($destination_file, $backup_dest); copy_file($destination_file, $backup_dest);
#::: Copy staged to running #::: Copy staged to running
copy($staged_file, $destination_file); copy($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n\n"; print "[Install] Installing :: '" . $destination_file . "'\n\n";
} }
$fc++; $fc++;
} }
@ -1172,7 +1198,7 @@ sub lua_modules_fetch{
if (!-e $destination_file) { if (!-e $destination_file) {
copy_file($staged_file, $destination_file); copy_file($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n"; print "[Install] Installing :: '" . $destination_file . "'\n";
$fc++; $fc++;
} }
else{ else{
@ -1189,7 +1215,7 @@ sub lua_modules_fetch{
copy_file($destination_file, $backup_dest); copy_file($destination_file, $backup_dest);
#::: Copy staged to running #::: Copy staged to running
copy($staged_file, $destination_file); copy($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n\n"; print "[Install] Installing :: '" . $destination_file . "'\n\n";
} }
$fc++; $fc++;
} }
@ -1228,7 +1254,7 @@ sub plugins_fetch{
if (!-e $destination_file) { if (!-e $destination_file) {
copy_file($staged_file, $destination_file); copy_file($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n"; print "[Install] Installing :: '" . $destination_file . "'\n";
$fc++; $fc++;
} }
else{ else{
@ -1245,7 +1271,7 @@ sub plugins_fetch{
copy_file($destination_file, $backup_dest); copy_file($destination_file, $backup_dest);
#::: Copy staged to running #::: Copy staged to running
copy($staged_file, $destination_file); copy($staged_file, $destination_file);
print "Installing :: '" . $destination_file . "'\n\n"; print "[Install] Installing :: '" . $destination_file . "'\n\n";
} }
$fc++; $fc++;
} }