Bot Binaries Update

[GRUMPY]

Originally Posted by kokey98

my concern is that it performs a backup each and every time... and i'm not changing anything, lol.

server does work fine - i think, but i'd rather not have a 200mb write to an ssd for no reason each time i restart my server :p i assume it's quite wasteful to be re-downloading all the time too.

I use this to disable the script (and world) from force checking updates. Nothing wrong with it for people who use it.
I just rename the original to eqemu_server.OFF and save this one as the .pl script. Then run the main one when I am
in the mood for update checks (grin). But some people need automated things to compensate for a busy day.

#!/usr/bin/perl

###########################################################
#::: General EQEmu Server Administration Script
#::: Purpose - Handles:
#::: 	Automatic database versioning (bots and normal DB)
#::: 	Updating server assets (binary, opcodes, maps, configuration files)
#::: Original Author: Akkadius
#::: 	Contributors: Uleat
#::: Purpose: To upgrade databases with ease and maintain versioning
###########################################################

use Config;
use File::Copy qw(copy);
use POSIX qw(strftime);
use File::Path;
use File::Find;
use Time::HiRes qw(usleep); 

#::: Variables
#$install_repository_request_url = "https://raw.githubusercontent.com/Akkadius/EQEmuInstall/master/";
#$eqemu_repository_request_url = "https://raw.githubusercontent.com/EQEmu/Server/master/";

#::: Globals
#$time_stamp = strftime('%m-%d-%Y', gmtime());
#$db_run_stage = 0; #::: Sets database run stage check
#if($Config{osname}=~/freebsd|linux/i){ $OS = "Linux"; }
#if($Config{osname}=~/Win|MS/i){ $OS = "Windows"; }
#$has_internet_connection = check_internet_connection();
#($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime();

#::: Check for script self update
#do_self_update_check_routine();
#get_perl_version();
#read_eqemu_config_xml();
#get_mysql_path();

#::: Remove old eqemu_update.pl
#if(-e "eqemu_update.pl"){
#	unlink("eqemu_update.pl");
#}
#::: Create db_update working directory if not created
#mkdir('db_update'); 

#print "[Info] For EQEmu Server management utilities - run eqemu_server.pl\n" if $ARGV[0] eq "ran_from_world";

#::: Check if db_version table exists... 
#if(trim(get_mysql_result("SHOW COLUMNS FROM db_version LIKE 'Revision'")) ne "" && $db){
#	print get_mysql_result("DROP TABLE db_version");
#	print "[Database] Old db_version table present, dropping...\n\n";
#}

[kokey98]

heh i was just looking though that .pl file, lol... Thank you.. i will back old pl script or edit it as yours is. i'll just run eqemu_server.pl to do updates manually on occasion. i prefer that anyway.

but i also might have useful info why update is snagging?

-- Update npc_spells_id to new values
UPDATE `bot_spells_entries` SET `npc_spells_id` = '3002' WHERE `npc_spells_id` = '701';


that's the first 2 lines form one of the update sql's... believe it's 9014

set npcspell id to 3002 where npc spell id is 701... that' can't be right.. i assume this is supposed to be set npc spells id where "id" is 701?

"id" doesn't go past low-2000's is why i assume... not real familiar with this db structure at all, lol.

[kokey98]

well my file has some noticeable differences... i removed the nested-if os thing because i only use windows... but...

if(-e "eqemu_server_skip_update.txt"){
$skip_self_update_check = 1;
}

this looks like something simpler than 2 pl files.