mirror of
https://github.com/EQEmu/Server.git
synced 2025-12-12 17:51:28 +00:00
Preliminary routines for modular installer efforts [skip ci]
This commit is contained in:
parent
aaae583dab
commit
2680fc1a83
@ -66,6 +66,16 @@ while(<F>) {
|
|||||||
elsif(/<db>(.*)<\/db>/i) { $db = $1; }
|
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 =
|
$console_output =
|
||||||
"============================================================
|
"============================================================
|
||||||
EQEmu: Automatic Upgrade Check
|
EQEmu: Automatic Upgrade Check
|
||||||
@ -463,6 +473,28 @@ sub copy_file{
|
|||||||
copy $l_source_file, $l_dest_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{
|
sub map_files_fetch{
|
||||||
print "\n --- Fetching Latest Maps --- \n";
|
print "\n --- Fetching Latest Maps --- \n";
|
||||||
|
|
||||||
@ -551,6 +583,8 @@ sub quest_files_fetch{
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
rmtree('updates_staged');
|
||||||
|
|
||||||
if($fc == 0){
|
if($fc == 0){
|
||||||
print "\nNo Quest Updates found... \n\n";
|
print "\nNo Quest Updates found... \n\n";
|
||||||
}
|
}
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user