From 4065df7930d34f14bf202165fd68f9ecd0c15ea5 Mon Sep 17 00:00:00 2001
From: Akkadius <akkadius1@gmail.com>
Date: Sat, 20 Aug 2016 23:49:51 -0500
Subject: [PATCH] Update eqemu_update.pl [skip ci]

Add option 21) Dump DB Player tables (Exports to backups\player_tables_export_(date).sql)
Player table list is referenced/maintained in utils/sql/character_table_list.txt
---
 utils/scripts/eqemu_update.pl | 30 ++++++++++++++++++++++++++++--
 1 file changed, 28 insertions(+), 2 deletions(-)

diff --git a/utils/scripts/eqemu_update.pl b/utils/scripts/eqemu_update.pl
index c28d078c3..67ab528cf 100644
--- a/utils/scripts/eqemu_update.pl
+++ b/utils/scripts/eqemu_update.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-########################################################### 
+###########################################################
 #::: Automatic (Database) Upgrade Script
 #::: Author: Akkadius
 #::: Purpose: To upgrade databases with ease and maintain versioning
@@ -295,9 +295,10 @@ sub show_menu_prompt {
 		13 => \&do_windows_login_server_setup,
 		14 => \&remove_duplicate_rule_values,
 		15 => \&fetch_utility_scripts,
-		18 => \&fetch_latest_windows_binaries_bots,
+		16 => \&fetch_latest_windows_binaries_bots,
 		19 => \&do_bots_db_schema_drop,
         20 => \&do_update_self,
+		21 => \&database_dump_player_tables,
         0 => \&script_exit,
     );
 
@@ -378,6 +379,7 @@ return <<EO_MENU;
  18) [Windows Server Build Bots] :: Download Latest and Stable Server Build with Bots
  19) [EQEmu DB Drop Bots Schema] :: Remove Bots schema and return database to normal state
  20) [Update the updater] Force update this script (Redownload)
+ 21) [DB :: Backup Player Tables] :: Backs up player tables
  0) Exit
  
  Enter numbered option and press enter...	
@@ -404,6 +406,30 @@ sub database_dump {
 	print "Performing database backup....\n";
 	print `perl db_dumper.pl database="$db" loc="backups"`;
 }
+
+sub database_dump_player_tables { 
+	check_for_database_dump_script();
+	print "Performing database backup of player tables....\n";
+	get_remote_file("https://raw.githubusercontent.com/EQEmu/Server/master/utils/sql/character_table_list.txt", "backups/character_table_list.txt");
+	
+	$tables = "";
+	open (FILE, "backups/character_table_list.txt");
+	$i = 0;
+	while (<FILE>){
+		chomp;
+		$o = $_;
+		$tables .= $o . ",";
+	}
+	$tables = substr($tables, 0, -1);
+
+	print `perl db_dumper.pl database="$db" loc="backups" tables="$tables" backup_name="player_tables_export" nolock`;
+	
+	print "\nPress any key to continue...\n";
+	
+	<>; #Read from STDIN
+	
+}
+
 sub database_dump_compress { 
 	check_for_database_dump_script();
 	print "Performing database backup....\n";