From 2680fc1a8379d59e1466945cb699e493e566fc8d Mon Sep 17 00:00:00 2001
From: Akkadius <akkadius1@gmail.com>
Date: Mon, 5 Oct 2015 01:07:59 -0500
Subject: [PATCH] Preliminary routines for modular installer efforts [skip ci]

---
 utils/scripts/eqemu_update.pl | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)

diff --git a/utils/scripts/eqemu_update.pl b/utils/scripts/eqemu_update.pl
index f34d5b9af..2c9393162 100644
--- a/utils/scripts/eqemu_update.pl
+++ b/utils/scripts/eqemu_update.pl
@@ -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";
 	}