pa/eqemu-server
2
0
Fork 0
mirror of https://github.com/EQEmu/Server.git synced 2025-12-13 14:41:28 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Update eqemu_server.pl [skip ci] Testing self update

Browse Source
This commit is contained in:
Akkadius 2016-08-25 12:56:30 -05:00 committed by GitHub
parent a70291f20f
commit 24856b6a2d
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
utils/scripts/eqemu_server.pl
View File

@ -20,7 +20,6 @@ use File::Find;
use Time::HiRes qw(usleep); use Time::HiRes qw(usleep);
#::: Variables #::: Variables
$install_repository_request_url = "https://raw.githubusercontent.com/Akkadius/EQEmuInstall/master/"; $install_repository_request_url = "https://raw.githubusercontent.com/Akkadius/EQEmuInstall/master/";
$eqemu_repository_request_url = "https://raw.githubusercontent.com/EQEmu/Server/master/"; $eqemu_repository_request_url = "https://raw.githubusercontent.com/EQEmu/Server/master/";
@ -31,9 +30,7 @@ $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"; }
#::: If current version is less than what world is reporting, then download a new one... #::: Check for script self update
$current_version = 14;
do_self_update_check_routine(); do_self_update_check_routine();
$perl_version = $^V; $perl_version = $^V;
@ -70,7 +67,7 @@ if($OS eq "Windows"){
if($OS eq "Linux"){ if($OS eq "Linux"){
$path = `which mysql`; $path = `which mysql`;
if ($path eq "") { if ($path eq "") {
$path = `which mariadb`; $path = `which mariadb`;
} }
$path =~s/\n//g; $path =~s/\n//g;
@ -299,7 +296,8 @@ sub do_self_update_check_routine {
$destination_file = $file; $destination_file = $file;
$destination_file =~s/updates_staged\///g; $destination_file =~s/updates_staged\///g;
print "[Install] Installing :: " . $destination_file . "\n"; print "[Install] Installing :: " . $destination_file . "\n";
copy_file($file, $destination_file); unlink($destination_file);
copy_file($file, $destination_file);
} }
} }
print "[Install] Done\n"; print "[Install] Done\n";