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

Preliminary routines for modular installer efforts [skip ci]

Browse Source
This commit is contained in:
Akkadius 2015-10-05 01:07:59 -05:00
parent aaae583dab
commit 2680fc1a83
1 changed files with 34 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
utils/scripts/eqemu_update.pl
View File

@ -66,6 +66,16 @@ while(<F>) {
elsif(/<db>(.*)<\/db>/i) { $db = $1; }
}
if($ARGV[0] eq "installer"){
print "Running EQEmu Server installer routines...\n";
map_files_fetch_bulk();
opcodes_fetch();
plugins_fetch();
quest_files_fetch();
lua_modules_fetch();
exit;
}
$console_output =
"============================================================
EQEmu: Automatic Upgrade Check
@ -463,6 +473,28 @@ sub copy_file{
copy $l_source_file, $l_dest_file;
}
sub map_files_fetch_bulk{
print "\n --- Fetching Latest Maps... (This could take a few minutes...) --- \n";
get_remote_file("http://github.com/Akkadius/EQEmuMaps/archive/master.zip", "maps/maps.zip", 1);
unzip('maps/maps.zip', 'maps/');
my @files;
my $start_dir = "maps\\EQEmuMaps-master\\maps";
find(
sub { push @files, $File::Find::name unless -d; },
$start_dir
);
for my $file (@files) {
$dest_file = $file;
$dest_file =~s/maps\\EQEmuMaps-master\\maps\///g;
print "Installing :: " . $dest_file . "\n";
copy_file($file, "maps/" . $new_file);
}
print "\n --- Fetched Latest Maps... --- \n";
rmtree('maps/EQEmuMaps-master');
unlink('maps/maps.zip');
}
sub map_files_fetch{
print "\n --- Fetching Latest Maps --- \n";
@ -551,6 +583,8 @@ sub quest_files_fetch{
}
}
rmtree('updates_staged');
if($fc == 0){
print "\nNo Quest Updates found... \n\n";
}