<?php
define ('VERSION', '1.3.4');
/// i-senso transSQL [2006/2007]												Filipe Manuel da Silva Martins
/// http://www.i-senso.com
///
/// LICENSE AND WARRANTY
/// We are releasing this script to the community as free software. You can do anything you want with it except
/// claiming it as yours. For derived work, giving credit to the author or even putting a link to our website in
/// your page would be greatly appreciated.
/// Beware that we don't provide any king of warranty about this software -- it could destroy your computer or
/// purge your entire data and we still wouldn't accept any kind of responsibility.
/// That said, we hope you find transSQL very useful.
///
/// TRANSSQL
/// transSQL is a webclient for MySQL. It enables you to dump a database and load it elsewhere. This file is the
/// whole program.
/// Aside from dumping and loading you can issue SQL statements ad-hoc against a database. This makes transSQL
/// a very easy way of interacting with a remote or local database. The more SQL you know more you can do with
/// it.
/// Besides that, we believe that this script is a quite good example of non-trivial PHP programming for the
/// novice and just-arrived developers.
///
/// BUG REPORTING
/// Please report us everything you think is wrong or missing (bugs, misspellings, terms, new features, etc).
/// We really don't promise nothing but we will surely read and take note of all your suggestions.
/// Use this e-mail: geral [at] i-senso.com. We don't have an homepage for transSQL yet but we will build it
/// as soon as we can.
///
/// (ççç This is a UTF-8 file ççç)
///

define ('SCRIPT_NAME', $_SERVER ['SCRIPT_NAME']);
define ('SCRIPT_NAME_QS', @$_SERVER ['REQUEST_URI']);
define ('WROOT', mb_substr ($_SERVER ['SCRIPT_FILENAME'], 0, 1 - mb_strlen (SCRIPT_NAME)));

define ('DEBUGGING', 0);
define ('LOG_FOLDER', DEBUGGING && is_dir ('z:/Volatil/') ? 'z:/Volatil/' : WROOT);
define ('LOG_SUCC_STMTS_FILE', LOG_FOLDER . 'succ_stmts.txt');
define ('LOG_FAILED_STMTS_FILE', LOG_FOLDER . 'failed_stmts.txt');
define ('LOG_PEND_STMTS_FILE', LOG_FOLDER . 'pend_stmts.txt');

define ('EXPORT_NOTICE',
"# i-senso transSQL/MySQL
# i-senso/2006-2007
# http://www.i-senso.com/
#
# The format of this file is very simple. Every statement _must_ start at column 1. If it spans for more than one line,
# others than the first _must_ start with tabs or spaces. That's all.
#\n");


if (DEBUGGING) {
	require_once WROOT . 'site/cfg/site.php';
	require_once WROOT . 'reutil/php/dbg.php';

	@unlink (LOG_SUCC_STMTS_FILE);
	@unlink (LOG_FAILED_STMTS_FILE);
	@unlink (LOG_PEND_STMTS_FILE);
}

ini_set ('default_charset', 'UTF-8');
ini_set ('max_execution_time', 3600);
mb_internal_encoding ('UTF-8');

///	HELPER FUNCTIONS	///
///

if (get_magic_quotes_gpc ()) {

// Get POST data.
function getAStr (&$a, $nm, $def = NULL) {
	$s = stripslashes (trim (@$a [$nm]));
	return $s ? $s : $def;
}

} else {

// Get POST data.
function getAStr (&$a, $nm, $def = NULL) {
	$s = trim (@$a [$nm]);
	return $s ? $s : $def;
}

}

function getPostStr ($nm, $def = NULL) {	return getAStr ($_POST, $nm, $def);	}
function getQSStr ($nm, $def = NULL) {	return getAStr ($_GET, $nm, $def);	}


// Return the length of S in a UTF-8 safe way.
function mblen ($s) {	return mb_strlen ($s, 'UTF-8');	}


/// RUN
///

$c = new Controller;
$c->run ();


/// Controller
///
/// Manages the view and the Model.
///

class Controller {
	public		$isConnectedToDb = false;
	protected	$_connInfo;
	protected	$_vw;
	protected	$_m;
	protected	$_whatToDump;
	protected	$_dropFirst;
	protected	$_onlyNewTables;
	protected	$_clearNonData;
	protected	$_f = NULL;
	protected	$_sql;
	protected	$_showWarnings;

	const		kDefaultCharsetForDbModel = 'utf8';
	const		kDefaultCollationForDbModel = 'utf8_general_ci';


	public		function _destruct () {
		$this->_f && fclose ($this->_f);
	}

	// Run the App.
	public		function run () {
		$vw = $this->_vw;
		$op = getQSStr ('op');
		$paramSrc =& $_POST;
		// Decide what to do.
		$meth = '';
		switch ($op) {
		case 'dump':
			$vw = new HTMLView_Dump ($this);
			$meth = '_dump';
			break;
		case 'load':
	   		$vw = new HTMLView_Load ($this);
			$meth = '_load';
			break;
		case 'query':
			$vw = new HTMLView_Query ($this);
			$meth = '_query';
			break;
		default:
			// Or we show the welcome page or we're in a popup and are expected to show the table list for selection.
			if (getQSStr ('pop') === 'seltables') {
				$vw = new HTMLView_ShowTableList ($this);
				$meth= '_showTableList';
				$paramSrc =& $_GET;
			}
			else {
				$vw = new HTMLView_Welcome ($this);
				$vw->render ();
				return;
			}
		}
		$this->_vw = $vw;
		// Read input about database connection info;
		$this->_connInfo = $connInfo = new stdclass;
		$connInfo->server = getAStr ($paramSrc, 'txtServer');
		$connInfo->portNum = getAStr ($paramSrc, 'txtPortNum');
		$connInfo->user = getAStr ($paramSrc, 'txtUserName');
		$connInfo->pwd = getAStr ($paramSrc, 'txtPwd');
		$connInfo->dbName = getAStr ($paramSrc, 'txtDb');
		// Create the model. We have to be aware that it may throw exceptions if we supply invalid data.
		if ($paramSrc) {
			// Main processing.
			try {
				$this->_m = $m = new DbModel ($connInfo, new ObserverWeb ($vw, LOG_SUCC_STMTS_FILE, LOG_PEND_STMTS_FILE, LOG_FAILED_STMTS_FILE));
				$this->isConnectedToDb = true;
			}
			catch (DbConnException $e) {
				$vw->ackError ($e->getMessage ());
				$this->_m = NULL;
			}
		}
		else {
			$connInfo->server = 'localhost';
			$connInfo->portNum = 3306;
			$connInfo->user = 'root';
		}

		try {
			call_user_func_array (array ($this, $meth), NULL);
		}
		catch (DbModelHalt $e) {}
	}

	// Called by the view for doing the dumping process.
	public		function vw_dump () {
		if (!($m = $this->_m)) return;
   		$m->observer->msg (EXPORT_NOTICE);
		try {
			$m->dump ($this->_whatToDump, $this->_dropFirst, $this->_onlyNewTables) && ($this->_vw->processFinishedMsg = 'Finished Ok');
		}
		catch (Exception $e) {
			$vw->ackError ($e->getMessage ());
		}
	}

	// Called by the view for doing the loading process.
	public		function vw_load () {
		if (!($m = $this->_m)) return;
		$vw = $this->_vw;
		try {
			if ($this->_clearNonData) {
				$vw->ackNotification ('Clearing non-data...');
				$m->clearNonData ();
			}
			if ($this->_clearConstraints) {
				$vw->ackNotification ('Clearing constraints...');
				$m->clearConstraints ();
			}
			$vw->ackNotification ('Loading... Please wait');
			$onEachSqlStmt = '_execLoadingStmt';
			$m->startLoading ();
			$res = $this->_f ? $this->_loadFromFile ($this->_f, $onEachSqlStmt) : $this->_loadFromText ($this->_sql, $onEachSqlStmt);
			$m->endLoading ();
			$m->errorCount < 1 && ($vw->processFinishedMsg = 'Finished Ok');
			// Remove the script, if that's what's instructed.
	       	($m->errorCount < 1) && $this->_selfDestruct && !DEBUGGING && @unlink ($_SERVER ['SCRIPT_FILENAME']);
		}
		catch (Exception $e) {
			$m->abortLoading ();
			$vw->ackError ($e->getMessage ());
		}
	}

	// Called by the view for doing the querying of the query page.
	public		function vw_query () {
		if (!($m = $this->_m) || !($sql = $this->_sql)) return;
		$vw = $this->_vw;
		$vw->processFinishedMsg = 'Done';
		try {
			$this->_loadFromText ($sql, '_queryAndPrint');
		}
		catch (Exception $e) {
			$vw->ackError ($e->getMessage ());
		}
	}

	// Dump the data.
	protected	function _dump () {
		$m = $this->_m;
		$vw = $this->_vw;
		// Read input.
		$deftCharset = getPostStr ('txtDeftCharset', self::kDefaultCharsetForDbModel);
		$deftCollation = getPostStr ('txtDeftCollation', self::kDefaultCollationForDbModel);
		$tables = getPostStr ('txtTables');
		$this->_whatToDump = $whatToDump = intval (getPostStr ('cmbWhatToDump'));
   		$this->_dropFirst = $dropFirst = !getPostStr ('chkNoDrop');
		$this->_onlyNewTables = $onlyNewTables = !!getPostStr ('chkOnlyNewTables');
		$fn = getPostStr ('txtFileName');
		$saveFile = !!getPostStr ('chkSaveToFile');

		if ($m) try {
			// Validate.
			if ($saveFile && !$fn)
				throw new ValidationException ('You must enter the name of the file to create');
			// Configure the Model.
			$saveFile && ($m->observer = new ObserverFile ($vw, LOG_SUCC_STMTS_FILE, LOG_PEND_STMTS_FILE, LOG_FAILED_STMTS_FILE, $fn));
			$m->setCharset ($deftCharset, $deftCollation);
			$m->dumpingTablesFilter = $this->_splitTableList ($tables);
		}
		catch (Exception $e) {
			$vw->ackError ($e->getMessage ());
			$this->_m = $m = NULL;
		}
		// Show the view.
		$vw->title = $this->isConnectedToDb ? "Dumping data from \"{$this->_connInfo->dbName}\"" : 'Dump data';
		$vw->render ($this->_connInfo, $deftCharset, $deftCollation, $tables, $whatToDump, $dropFirst, $onlyNewTables, $fn, $saveFile);

		return true;
	}

	// Load the data.
	protected	function _load () {
		$m = $this->_m;
		$vw = $this->_vw;
		// Read input.
		$this->_sql = $sql = getPostStr ('txtSQL');
		$this->_selfDestruct = $selfDestruct = sizeof ($_POST) ? !!getPostStr ('chkSelfDestruct') : true;
		$this->_clearNonData = $clearNonData = !!getPostStr ('chkClearNonData');
		$this->_clearConstraints = $clearConstraints = !!getPostStr ('chkClearConstraints');
		$fl = getPostStr ('txtFileName');
		$haltOnError = !!getPostStr ('chkHaltOnError');
		$tmpfn = @$_FILES ['txtUplFile']['tmp_name'];
		$isUpl = is_uploaded_file ($tmpfn);

		if ($m) try {
			// Validate.
			if (!$fl && !$sql && !$isUpl)
				throw new ValidationException ('Enter the file or the SQL to execute');
			$c = 0;
			$fl && ++$c;
			$sql && ++$c;
			$isUpl && ++$c;
			if ($c > 1)
				throw new ValidationException ('You can\'t enter more than one source for loading');
			// Try opening the file.
			if (!$sql) {
				$fn = $fl ? $fl : $tmpfn;
				if (!($f = @fopen ($fn, 'r')))
					throw new ValidationException ("Couldn't open \"$fn\"");
				$this->_f = $f;
			}
			// Configure the Model.
			$m->haltOnError = $haltOnError;
		}
		catch (Exception $e) {
			$vw->ackError ($e->getMessage ());
			$this->_m = $m = NULL;
		}
		// Show the view.
		$vw->title = $this->isConnectedToDb ? "Loading data to \"{$this->_connInfo->dbName}\"" : 'Load data';
		$vw->render ($this->_connInfo, $fl, $sql, $selfDestruct, $haltOnError, $clearNonData, $clearConstraints);

		return true;
	}

	// Allow querying as if there's no tomorrow.
	protected	function _query () {
		$m = $this->_m;
		$vw = $this->_vw;
		// Read input.
		$this->_sql = $sql = getPostStr ('txtSQL');
		$charset = getPostStr ('txtCharset', self::kDefaultCharsetForDbModel);
		$collation = getPostStr ('txtCollation', self::kDefaultCollationForDbModel);
		$haltOnError = !!getPostStr ('chkHaltOnError');
		$this->_showWarnings = $showWarnings = $_POST ? !!getPostStr ('chkShowWarnings') : 1;
		// Validate.
		if ($_POST && !$sql) {
			$vw->ackError ('Please enter some SQL bellow');
			$this->_m = $m = NULL;
		}
		// Configure the Model.
		if ($m) {
			$m->setCharset ($charset, $collation);
			$m->haltOnError = $haltOnError;
		}
		// Show the view.
		$vw->title = $this->isConnectedToDb ? "Query \"{$this->_connInfo->dbName}\" at will" : 'Query at will';
		$vw->render ($this->_connInfo, $sql, $charset, $collation, $haltOnError, $showWarnings);
	}

	// Creates the table list page.
	protected	function _showTableList  () {
		$vw = $this->_vw;
		// List tables.
		$tbllst = NULL;
		$qchar = '';
		if ($m = $this->_m) {
			$tbllst = $m->getTableNames ();
			$qchar = $m->quotingChar;
		}
		// Show the view.
		$vw->title = 'Select tables for dumping';
		$vw->render ($tbllst, $qchar);
	}

	// Split TXT and return an array with table names. They must be separated with commas and may be quoted.
	protected	function _splitTableList ($txt) {
		$m = $this->_m;
		assert (!!$m);

		$txt = trim ($txt) . ',';
		$res = array ();
		$l = mblen ($txt);
		$start = 0;
		$isQuoted = false;
		$tblqchar = $m->quotingChar;
		$ql = mblen ($tblqchar);

		for ($i = 0; $i < $l; ++$i) {
			switch (mb_substr ($txt, $i, 1)) {
			case ",":
				if ($isQuoted) continue;
				$s = trim (mb_substr ($txt, $start, $i - $start));
				$start = $i + 1;
				// Remove quotes.
				if (mb_substr ($s, 0, $ql) == $tblqchar)
					$s = mb_substr ($s, $ql, mblen ($s) - $ql * 2);
				// Validate.
				if (!$s || mb_strpos ($s, $tblqchar) !== false) continue;
				// Store.
				$res [$s] = 1;
				break;
			case $tblqchar:
				$isQuoted = !$isQuoted;
			}
		}

		return $res;
	}


/// METHODS FOR CONTROLLING THE LOADING PROCESS ///

	// Loads the SQL in F into DB.
	protected	function _loadFromFile ($f, $onEachSqlStmt) {
		assert (!!$f);
		$sql = '';
		while (!feof ($f)) {
			$ln = rtrim (fgets ($f));
			$this->_buildSQLStmt ($sql, $ln, $onEachSqlStmt);
	    }

		return $sql ? call_user_func_array (array ($this, $onEachSqlStmt), $sql) : NULL;
	}

	// Loads the SQL in TXT INTO DB.
	protected	function _loadFromText ($txt, $onEachSqlStmt = '_execSQL') {
		$sql = '';
		$lines = preg_split ('/(?:\r\n)|\n|\r/m', $txt);
		foreach ($lines as $ln)
			$this->_buildSQLStmt ($sql, $ln, $onEachSqlStmt);

		return $sql ? call_user_func_array (array ($this, $onEachSqlStmt), $sql) : NULL;
	}

	// Parses LN and creates an SQL statement, that when completed is issued against BD.
	protected	function _buildSQLStmt (&$sql, $ln, $onEachSqlStmt) {
		// Ignore comments.
		if (!($ln = rtrim ($ln))) {
			$sql .= DbModel::KSQLNL;
			return;
		}
		if (mb_substr ($ln, 0, 1) == '#' || substr ($ln, 0, 2) == '--') return;

		if (!preg_match ('/^\s+/', mb_substr ($ln, 0, 1))) {		// Starting new SQL statement.
			$sql = preg_replace ('/(?:\r\n)|\n|\r/m', DbModel::KSQLNL, $sql);
			$sql && call_user_func_array (array ($this, $onEachSqlStmt), $sql);
			$sql = $ln . DbModel::KSQLNL;
		}
		else $sql .= mb_substr ($ln, 1) . DbModel::KSQLNL;			// Resuming the last SQL statement.
	}

	// Simply execute SQL.
	protected	function _execLoadingStmt ($sql) {	$this->_m->execSQL ($sql);	}

	// Run SQL and print results.
	protected	function _queryAndPrint ($sql) {
		$m = $this->_m;
		$vw = $this->_vw;
		$vw->startPrintingQuery ($sql);
		$qres = $m->query ($sql);
		// Process the results (there may be more then one).
		while ($res = $qres->nextResult ()) {
			// Test if this is an error.
			if (is_object ($res)) {
				$vw->ackQueryError ($res->getCode (), $res->getMessage (), $sql);
				continue;
			}
			// Extract field names.
			$fldnms = array ();
			if ($res && !is_bool ($res)) {
				$row =& $res [0];
				foreach ($row as $fldnm => $x) {
					if (is_int ($fldnm)) continue;
					$fldnms [] = $fldnm;
				}
			}

			$vw->printRecords ($fldnms, $res, $sql);
			$vw->flush ();
		}
		// Print warnings.
		if ($this->_showWarnings && ($warns = $qres->warnings)) {
			foreach ($warns as $w)
				$vw->ackQueryWarning ($w->code, $w->message, $sql);
		}
		$vw->endPrintingQuery ();
	}
}


/// DbModel
///
/// The "juice" of the script.
///


class DbModel {
	const		KDumpTableStructureAndData = 0;
	const		KDumpTableStructureOnly = 1;
	const		KDumpDataOnly = 2;
	const		KDumpNonDataOnly = 3;

	const		KSQLNL = "\r\n";
	const		KMaxPacketData = 4096;


	public		$observer;
	public		$haltOnError;
	public		$errorCount = 0;
	public		$quotingChar = '`';
	public		$dumpingTablesFilter;	// List of the table names to dump (if it's empty all are dumped).
	protected	$_conn;
	protected	$_connInfo;
	protected	$_deftCharset = '';
	protected	$_deftCollation = '';
	protected	$_selfDestruct = false;
	protected	$_pendingStmts = array ();


	public		function __construct ($connInfo, $observer, $deftCharset = NULL) {
		$this->_conn = $this->_connect ($connInfo);
		$this->_connInfo = $connInfo;
		$this->observer = $observer ? $observer : new NullDbModelObserver;
	}

	public		function __destruct () {	$this->_conn && mysqli_close ($this->_conn);	}

	// Select the character-set to use.
	public		function setCharset ($deftCharset, $deftCollation = '') {
		$this->_deftCharset = $deftCharset;
		$this->_execSQL ("SET NAMES $deftCharset");
		$this->_deftCollation = $deftCollation;
	}

	// Runs one or more SQL statement and returns the resulting rows.
	public		function query ($sql) {
		$conn = $this->_conn;
		mysqli_multi_query ($conn, $sql);
		return new QueryResults ($conn, $this);
	}

	// Runs one SQL statement and returns true if there was no error.
	public		function execSQL ($sql) {	return !!$this->_execSQL ($sql);	}

		// Dumps the database contents.
	public		function dump ($whatToDump, $dropFirst, $onlyNewTables) {
		$o = $this->observer;
		// Before dumping, run the Stored Proc "__clean". This allows making some cleanup to the Database before
		// dumping. No harm done if the procedure doesn't exist.
		$this->_execSQL ('CALL __clean()', true, array (1305 => NULL));
		// First, analyse tables.
		$rs = $this->_query ('SHOW FULL TABLES');
		foreach ($rs as $row) {
			$tblnm = $row [0];
			$this->_analyseTable ($tblnm, $tblsInfo);
		}
		// First of all set the charset.
		if ($deftCharset = $this->_deftCharset) {
			$o->msg ("-- CONFIG --\n");
			$o->msg ("SET NAMES $deftCharset;");
			$o->msg ("SET FOREIGN_KEY_CHECKS = 0;\n");
		}
		if ($whatToDump !== self::KDumpNonDataOnly) {
			// Drop relations, so we can re-create tables if we need to.
			$o->msg ("-- DROP RELATIONS (will be rebuilt later) --\n");
			if ($sqllst = $this->_getSQLForRemovingConstraints ($tblsInfo, true))
				foreach ($sqllst as $sql)
					$o->msg ($sql);
			// Print table definitions.
			$a =& $this->dumpingTablesFilter;
			$o->msg ("\n\n-- TABLES --\n");
			$o->notify ('Tables');
			foreach ($tblsInfo as $ti) {
				if ($a && !array_key_exists ($ti->name, $a)) continue;
				$ti->isView || $this->_printTable ($ti, $whatToDump, $dropFirst, $onlyNewTables);
			}
		}
		// Print views definition.
		$o->msg ("\n\n-- VIEWS --\n");
		$o->notify ('Views');
		foreach ($tblsInfo as $ti)
			$ti->isView && $this->_printView ($ti);
		// Drop temp procedures.
		$o->msg (
"DROP PROCEDURE IF EXISTS __table_exists;
DROP PROCEDURE IF EXISTS __table_exists_;
DROP PROCEDURE IF EXISTS __create_table;");
		// Create constraints.
		$o->msg ("\n\n-- CONSTRAINTS --\n");
		$o->notify ("CONSTRAINTS");
		$this->_printConstraints ($tblsInfo);
		// Create triggers.
		$o->msg ("\n\n-- TRIGGERS --\n");
		$o->notify ("\nTRIGGERS");
		$this->_printTriggers ();
		// Print "stored procs" definitions.
		$o->msg ("\n\n-- STORED PROCS --\n");
		$o->notify ("STORED ROUTINES");
		$this->_printStoredRoutines ();
		// Print pending statements.
		if ($pendingStmts =& $this->_pendingStmts) {
			$o->msg ("\n\n-- OTHER STATEMENTS --\n");
			foreach ($pendingStmts as $sql)
				$o->msg ("$sql\n");
		}

		return true;
	}

	// Start a loading process. Use 'query' or 'execSQL' for running the SQL.
	public		function startLoading () {}

	// Abort the loading process.
	public		function abortLoading () {	$this->_pendingStmts = NULL;	}

	// End the loading process.
	public		function endLoading () {
		// Flush the statements that depend on objects that should be created by now.
		if (!($a = $this->_pendingStmts)) return;
		$this->_pendingStmts = NULL;
		foreach ($a as $o) $o->i = 0;
		// Let's try the statements a number times cause they can depend on each other.
		$n = sizeof ($a) + 2;
		foreach ($a as $o) {
			if ($o->i === NULL) continue;
			$sql = $o->sql;
			if ($o->i++ > $n) {
				// Stop trying - print the error.
				$this->_queryErrorMsg ($sql);
				$o->i = NULL;
				continue;
			}
			// Try running it.
			$this->_execSQL ($sql);

			$this->observer->ackPendingStmt ($sql);
		}
	}

	// Drops all views, stored procedures and functions and triggers (everyting but constraints).
	public		function clearNonData () {
		// Drop triggers.
		$rs = $this->_query ('SHOW TRIGGERS');
		foreach ($rs as $row) {
			$nm = $row ['Trigger'];
			$this->_execSQL ("DROP TRIGGER `$nm`;");
		}
		// Drop Views.
		$rs = $this->_query ('SHOW FULL TABLES');
		foreach ($rs as $row) {
			$nm = $row [0];
			if ($row ['Table_type'] === 'VIEW')
				$this->_execSQL ("DROP VIEW `$nm`;");
		}
		// Drop Stored Procs and Functions.
		$rs = $this->_query ('SHOW PROCEDURE STATUS WHERE Db = DATABASE()');
		foreach ($rs as $row) {
			$nm = $row ['Name'];
			$this->_execSQL ("DROP PROCEDURE `$nm`;");
		}
		$rs = $this->_query ('SHOW FUNCTION STATUS WHERE Db = DATABASE()');
		foreach ($rs as $row) {
			$nm = $row ['Name'];
			$this->_execSQL ("DROP FUNCTION `$nm`;");
		}
	}

	// Clear all constraints (primary keys, foreign keys, etc).
	public		function clearConstraints () {
		$tblsInfo = NULL;
		// Get table info.
		$rs = $this->_query ('SHOW FULL TABLES');
		foreach ($rs as $row) {
			$nm = $row [0];
			// Ignore views.
			if ($row ['Table_type'] === 'VIEW') continue;
	 		$this->_analyseTable ($nm, $tblsInfo);
		}
		if (!$tblsInfo) return;
		// Drop constraints.
		/// First, remove foreign-key constraints.
		if ($sqllst = $this->_getSQLForRemovingConstraints ($tblsInfo, true))
			foreach ($sqllst as $sql)
				$this->_execSQL ($sql);
		/// Then, remove all others.
		if ($sqllst = $this->_getSQLForRemovingConstraints ($tblsInfo, false))
			foreach ($sqllst as $sql)
				$this->_execSQL ($sql);
	}

	// Return the names of the tables. IF LIST-VIEWS-ALSO is true, view names are also returned.
	public		function getTableNames ($listViewsAlso = false) {
		$res = array ();
		$sql = $listViewsAlso ? 'SHOW TABLES' : 'SHOW FULL TABLES';
		$rs = $this->_query ($sql);
		if ($listViewsAlso) {
    		foreach ($rs as $row)
				$res [] = $row [0];
		}
		else {
    		foreach ($rs as $row) {
				if (strtolower ($row [1]) === 'view') continue;
				$res [] = $row [0];
			}
		}

		return $res;
	}


///	METHODS FOR EXPORTING ///

	// Stores info about the table NM in TBL-INFO.
	protected	function _analyseTable ($nm, &$tblsInfo) {
		$conn = $this->_conn;
		$nm = mysqli_escape_string ($conn, $nm);
		// Is it a "view"?.
		$rs = $this->_query ('SHOW CREATE TABLE `' . $nm . '`');
		$rs =& $rs [0];
		if (!$rs) return;
		$fldnm = 'Create Table';
		if (!array_key_exists ($fldnm, $rs)) {
			$isView = true;
			$fldnm = 'Create View';
		}
		else $isView = false;
		$lines = preg_split ('/(?:(?:\r\n)|\r|\n)+/s', $rs [$fldnm]);
		// Store (and remove) "constraints" and format.
		$sql = $autoFieldDef = '';
		$c = array ();
		foreach ($lines as $ln) {
			if (preg_match ('/^\s*CONSTRAINT|(?:PRIMARY\s+)?KEY|UNIQUE\s+KEY\s+()/', $ln)) {
				// If it does not end with a coma, remove it from the previous line.
				if (mb_substr ($ln, -1) !== ',')
					$sql = mb_substr ($sql, 0, -1);
				else $ln = mb_substr ($ln, 0, -1);

				$c [] = preg_replace ('/\s+/m', ' ', trim ($ln));
			}
			else $sql .= "\n\t" . trim ($ln);
		}
		$sql = trim ($sql);
		// Note if theres an auto_increment field (and remove it).
		if (preg_match ('/[\(,]\s*(`([^`]+)`.*?\s+auto_increment)(?:\s+|,|\))/m', $sql, $m)) {
			$autoFieldDef = '`' . $m [2] . '` ' . $m [1];
		}
		// Store the info collected.
		$o = new stdclass;
		$o->name = $nm;
		$o->isView = $isView;
		$o->autoFieldDef = $autoFieldDef;
		$o->fields =& $c;
		$o->sql =& $sql;
		$tblsInfo [$nm] = $o;
	}

	// Print the definition of the table in TBL-INFO.
	protected	function _printTable ($tblInfo, $whatToDump, $dropFirst, $onlyNewTables) {
		$o = $this->observer;
		$nm = $tblInfo->name;

		if ($whatToDump !== self::KDumpDataOnly) {
			$sql = $tblInfo->sql;
			// Autonumbers are not allowed yet. They will be set later.
			if ($tblInfo->autoFieldDef)
				$sql = preg_replace('/\s+auto_increment((?:\s+|,|\)))/', '$1', $sql);
			// If omitted put some default charset info.
			if (($deftCharset = $this->_deftCharset)&& !preg_match ('/\).*(?:s+DEFAULT)?\s+CHARSET=.*$/i', $sql))
				$sql .= ' DEFAULT CHARSET=' . $deftCharset;
			if (($deftCollation = $this->_deftCollation)&& !preg_match ('/\).*(?:\s+DEFAULT)?\s+COLLATE=.*$/i', $sql))
				$sql .= ' DEFAULT COLLATE=' . $deftCollation;
			$sql .= ";";
		}
		else $sql = '';

		$o->msg ("---- Table \"$nm\" --\n");
		$o->notify ($nm, 2);
		// In order to support some advanced options, tables are created through a temp Stored Proc.
		$drop = '';
		// Recreate tables?
		if ($dropFirst && ($whatToDump !== self::KDumpDataOnly)) {
			$drop = "DROP TABLE IF EXISTS `$nm`;\n";
		}
		// Insert data?
		$insertDataSQL = $whatToDump !== self::KDumpTableStructureOnly ? $this->_getTableDataSQL ($nm, $tblInfo) : '';
		// Only create new tables?
		if ($onlyNewTables) {
			// Create a procedure that will catch errors presumably related to the non-existance of the table. The
			// procedure it calls does all the work.
			$o->msg (
"DROP PROCEDURE IF EXISTS `__table_exists`;
DROP PROCEDURE IF EXISTS `__table_exists_`;
CREATE PROCEDURE `__table_exists_`()
	BEGIN
		SELECT * FROM `$nm` LIMIT 0;
	END
CREATE PROCEDURE `__table_exists`(OUT _res INT)
	BEGIN
	DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET _res = 0;
	SET _res = 1;

	CALL __table_exists_();

	END\n");
			// Create the main procedure.
			$sql = $this->_indent ($sql, 2);
			$insertDataSQL = $this->_indent ($insertDataSQL, 2);
			$o->msg (
"DROP PROCEDURE IF EXISTS `__create_table`;
CREATE PROCEDURE `__create_table`()
	BEGIN
	DECLARE e INT;
	CALL __table_exists(e);
	IF e = 0 THEN

		$sql
		$insertDataSQL

	END IF;
	END");

			$o->msg ("CALL __create_table('$nm');\n");
		}
		else {
			$insertDataSQL && ($insertDataSQL = "\n\n$insertDataSQL\n");
			$o->msg ($drop . $sql . $insertDataSQL);
		}
	}

	// Print the definition of the view in TBL-INFO.
	protected	function _printView ($tblInfo) {
		$o = $this->observer;
		$nm = $tblInfo->name;
		$sql = $tblInfo->sql;
		$dbName = $this->_connInfo->dbName;
		// Remove the definer info.
		if (($i = mb_stripos ($sql, 'VIEW')) !== false)
			$sql = mb_substr ($sql, $i);
		// Remove explicit references to the database.
		$sql = preg_replace ("/(?:`$dbName`|\b$dbName)\./i", ' ', trim ($sql));
		// Replace if already exists.
		$sql = 'CREATE OR REPLACE ' . $sql . ";\n";
		$o->msg ("---- View \"$nm\" --\n");
		$o->notify ($nm, 2);
		$o->msg ($sql);
	}

	// Returns SQL for inserting data in table NM.
	protected	function _getTableDataSQL ($nm, $tblInfo) {
		$res = NULL;
		$conn = $this->_conn;
		$o = $this->observer;
		$pendingStmts =& $this->_pendingStmts;
		$nm = mysqli_escape_string ($conn, $nm);
		$h = $this->_execSQL ('SELECT * FROM `' . $nm . '`');
		if (!$h) return;
		$rs = array ();
		while ($row = mysqli_fetch_array ($h, MYSQLI_BOTH)) $rs [] = $row;

		$maxIncrVal = -1;
		// Get field data.
		$columns = mysqli_fetch_fields ($h);
		mysqli_free_result ($h);
		if (!$rs) return;
		$res = '';
		$flds = '';
		$n = sizeof ($columns);
		for ($i = 0; $i < $n; ++$i)
			$flds .= ',`' . mysqli_escape_string ($conn, $columns [$i]->name) . '`';
		$flds = mb_substr ($flds, 1);
		$insertStmt = "INSERT INTO `$nm` ($flds) VALUES";
		// Éxtract the name of the auto-increment field.
		$autoIncrFldNm = '';
		if ($tblInfo->autoFieldDef && preg_match('/`?([^`]+)/', $tblInfo->autoFieldDef, $m))
			$autoIncrFldNm = $m [1];
		// Print records.
		$sql = $insertStmt;
		$c = 0;
		foreach ($rs as $row) {
			$s = '';
			++$c;
			// Take care for not pushing the MySQL "KMaxPacketData" limit.
			if (mblen ($sql) > self::KMaxPacketData) {
				$res .= mb_substr ($sql, 0, -1) . ";\n";
				$sql = $insertStmt;
			}
			// Get the values.
			foreach ($columns as $fld) {
				$val = $row [$fld->name];
				$s .= ',' . $this->_getForSQL ($fld, $val);
			}
			// If theres an auto-incremented field...
			if ($autoIncrFldNm) {
				// Store the max auto-incremented value.
				$id = intval ($row [$autoIncrFldNm]);
				$id > $maxIncrVal && ($maxIncrVal = $id);
				// If the Id value is 0, Mysql will silently change it when we mark the field as "auto_increment" in
				// the end of the load process. We can solve this by simply inserting the record in the end.
				if ($id === 0) {
					$pendingStmts [] = "$insertStmt\n\t(" . mb_substr ($s, 1) . ');';
					$pendingStmts [] = "UPDATE `$nm` SET `$autoIncrFldNm` = 0 WHERE `$autoIncrFldNm` = LAST_INSERT_ID();";
					continue;
				}
			}

			$sql .= "\n\t(" . mb_substr ($s, 1) . '),';
		}
		$res .= mb_substr ($sql, 0, -1);
		// Disallow negative auto-incremented values.
		if ($autoIncrFldNm && $maxIncrVal < 0 && $c > 0)
			$res .= "\nALTER TABLE `$nm` AUTO_INCREMENT = 1";

		return $res . ";";
	}

	// Return a list of SQL statements for removing all constraints from all tables. Id PRINT-FG-KEYS is false no
	// foreign-key constraints are printed. Otherwise, __only__ the foreign-key constraints are printed.
	protected	function _getSQLForRemovingConstraints (&$tblInfo, $printFgKeys = false) {
		assert (!!$tblInfo);
		$sql = '';
		// Drop all constraints (so they will be recreated next).
		foreach ($tblInfo as $tblnm => $o) {
			foreach ($o->fields as $s) {
				if (preg_match('/PRIMARY\s+KEY/m', $s)) {													// Primary key.
					if ($printFgKeys) continue;
					// An auto_increment field must be PRIMARY. So if we want to drop the primary key, we have
					// to clear that attribute.
					if ($o->autoFieldDef) {
						$sql .= "ALTER TABLE `$tblnm` CHANGE " . trim (preg_replace ('/\s+auto_increment\s*/m', ' ', $o->autoFieldDef)) . ";\n\t";
					}
					$s = 'PRIMARY KEY';
				}
				else if (preg_match('/CONSTRAINT(?:\s*`([^`]+)`\s*|\s+(\S+)\s+)FOREIGN\s+KEY/m', $s, $m)) {	// Relation.
					if (!$printFgKeys) continue;
					$keynm = $m [1];
					$keynm || ($keynm = $m [2]);
					$s = 'FOREIGN KEY `' . $keynm . '`';
				}
				else {																   						// Index.
					if ($printFgKeys || !preg_match ('/KEY\s+(?:`([^`]+)`|(\S+))/m', $s, $m)) continue;
					$keynm = $m [1];
					$keynm || ($keynm = $m [2]);
					$s = 'KEY `' . $keynm . '`';
				}

				$sql .= "ALTER TABLE `$tblnm` DROP $s;\n\t";
			}
		}
		$sql = rtrim ($sql);
		if (!$sql) return '';
		$res = array ();
		// Create a procedure that does the dropping and ignores all the errors that could occur.
		$sql =
"CREATE PROCEDURE `__clear_constraints`()
	BEGIN
	DECLARE x INT;
	DECLARE CONTINUE HANDLER FOR SQLEXCEPTION SET x = 0;

	$sql

	END";
		$res [] = 'DROP PROCEDURE IF EXISTS __clear_constraints;';
		$res [] = $sql;
		$res [] = 'CALL __clear_constraints();';
		$res [] = 'DROP PROCEDURE IF EXISTS __clear_constraints;';
		return $res;
	}

	// Prints CONSTRAINTS.
	protected	function _printConstraints (&$tblsInfo) {
		assert (!!$tblsInfo);
		$o = $this->observer;
		$sql = '';
		if ($sqllst = $this->_getSQLForRemovingConstraints ($tblsInfo)) {
			foreach ($sqllst as $s)
				$sql .= "$s\n";
			$sql = "$sql\n\n";
		}
		// First create indexes...
		foreach ($tblsInfo as $tblnm => $tbli) {
			$o->notify ("Indexes for \"$tblnm\"", 2);
			$sql .= "---- Indexes for $tblnm --\n";
			foreach ($tbli->fields as $s) {
				if (preg_match ('/CONSTRAINT\s+/m', $s)) continue;
				$sql .= "ALTER TABLE `$tblnm` ADD $s;\n";
			}
			// If there was an auto_increment field, now it's time to restore it.
			if ($tbli->autoFieldDef) {
				$sql .= "ALTER TABLE `$tblnm` CHANGE " . $tbli->autoFieldDef . ";\n";
			}
		}
		// Than, create all the other constraints.
		foreach ($tblsInfo as $tblnm => $tbli) {
			$o->notify ("Constraints for \"$tblnm\"", 2);
			$sql .= "---- Constraints for $tblnm --\n";
			foreach ($tbli->fields as $s) {
				if (!preg_match ('/CONSTRAINT\s+/m', $s)) continue;
				$sql .= "ALTER TABLE `$tblnm` ADD $s;\n";
			}
		}

		$o->msg ($sql);
	}

	// Imprime a definição dos "triggers" em DB.
	protected function _printTriggers () {
		$o = $this->observer;
		$rs = $this->_query ('SHOW TRIGGERS');
		$sql = '';
		foreach ($rs as $row) {
			$nm = trim ($row ['Trigger']);
			$o->notify ($nm, 2);
			$sql .= 'DROP TRIGGER `' . $nm . "`\n";
			$sql .= 'CREATE TRIGGER ' . $nm . ' ' . $row ['Timing'] . ' ' . $row ['Event'] . ' ON ' . $row ['Table'] . "\n\tFOR EACH ROW " . ltrim ($this->_indent ($row ['Statement'])) . "\n\n";
		}

		$o->msg (rtrim ($sql));
	}

	// Prints the definition of the procedures in CONN.
	protected function _printStoredRoutines () {
		$o = $this->observer;
		$rsProcs = $this->_query ('SHOW PROCEDURE STATUS WHERE Db="' . $this->_connInfo->dbName . '"');
		$rs = NULL;
		// Procedimentos.
		foreach ($rsProcs as $row) {
			$s = $row ['Name'];
			$o->notify ($s, 2);
			$o->msg ('---- PROCEDURE "' . $s . "\" --\n");
			// Get the definition.
			$rs = $this->_query ('SHOW CREATE ' . $row ['Type'] . ' ' . $s);
			$rs =& $rs [0];
			$procdef = $rs ['Create Procedure'];
			/// Remove "definer".
			$procdef = $this->_indent (preg_replace ('/\s+DEFINER=`[^`]+`@`[^`]+`\s*/i', ' ', $procdef));

			$o->msg ("DROP PROCEDURE IF EXISTS `$s`");
			$o->msg ($procdef . "\n");
		}
		// Funções.
		$rsFuncs = $this->_query ('SHOW FUNCTION STATUS WHERE Db="' . $this->_connInfo->dbName . '"');
		foreach ($rsFuncs as $row) {
			$s = $row ['Name'];
			$o->notify ($s, 2);
			$o->msg ('---- FUNCTION "' . $s . "\" --\n");
			// Get the definition.
			$rs = $this->_query ('SHOW CREATE ' . $row ['Type'] . ' ' . $s);
			$rs =& $rs [0];
			$funcdef = $rs ['Create Function'];
			/// Remove "definer".
			$funcdef = $this->_indent (preg_replace ('/\s+DEFINER=`[^`]+`@`[^`]+`\s*/i', ' ', $funcdef));

			$o->msg ("DROP FUNCTION IF EXISTS `$s`");
			$o->msg ($funcdef . "\n");
		}
	}

	// Returns VAL formatted in the way a field of the type of FLD must be.
	protected	function _getForSQL ($fld, $val) {
		$conn = $this->_conn;
		switch ($fld->type) {
		case MYSQLI_TYPE_TIMESTAMP:
		case MYSQLI_TYPE_DATETIME:
			if ($val === NULL) return 'NULL';
			// Analisar se é a data 0.
			$l = strlen ($val);
			for ($i = 0; $i < $l; ++$i) {
				$ch = substr ($val, $i, 1);
				if ($ch > '0' && $ch <= '9') break;
			}
			if ($i >= $l) return '\'0000-00-00 00:00:00\'';
			// Converter.
			is_string ($val) && ($val = strtotime ($val));
			return '\'' . date ('Y-m-d h:i:s', $val) . '\'';
		case MYSQLI_TYPE_TIME:
			if ($val === NULL) return 'NULL';
			is_string ($val) && ($val = strtotime ($val));
			return '\'' . date ('h:i:s', $val) . '\'';
		case MYSQLI_TYPE_DATE:
		case MYSQLI_TYPE_NEWDATE:
			if ($val === NULL) return 'NULL';
			is_string ($val) && ($val = strtotime ($val));
			return '\'' . date ('Y-m-d', $val) . '\'';
		case MYSQLI_TYPE_TINY_BLOB:
		case MYSQLI_TYPE_MEDIUM_BLOB:
		case MYSQLI_TYPE_LONG_BLOB:
		case MYSQLI_TYPE_BLOB:
		case MYSQLI_TYPE_VAR_STRING:
		case MYSQLI_TYPE_STRING:
			if ($val === NULL) return 'NULL';
			return '\'' . mysqli_real_escape_string ($conn, $val) . '\'';
		case MYSQLI_TYPE_FLOAT:
		case MYSQLI_TYPE_DOUBLE:
		case MYSQLI_TYPE_DECIMAL:
			if ($val === NULL) return 'NULL';
			if (is_string ($val) && $val != NULL) {
				$val = str_replace (",", ".", $val);
			}
			else $val = strval ($val);

			return $val;
		case 16:	// BIT FIELD.
			if ($val === NULL) return 'NULL';
			return ord ($val);
		default:
			if ($val === NULL) return 'NULL';
			if (!is_string ($val))
				$val = $val == '0' ? 0 : strval ($val);

			return $val;
		}
	}

	// Retorna S com um "tab" antes de cada linha.
	// Returns SQL with a TAB-COUNT tabs after each line break.
	protected	function _indent ($sql, $tabCount = 1) {
		if (!$sql) return '';
		$res = '';
		$eol = "\n" . str_repeat ("\t", $tabCount);
		$lines = preg_split ('/(?:\r\n)|\r|\n/s', $sql);
		foreach ($lines as $ln)
			$res .= $eol . rtrim ($ln);

		return mb_substr ($res, mblen ($eol));
	}

	// Tries to connect to the database. It returns false if it failed or if the connection info is not present.
	protected	function _connect ($connInfo) {
		// Validate and connect.
		if (!$connInfo || !$connInfo->dbName || !$connInfo->user)
			throw new DbConnException ('Connection info missing (at least "Database Name" and "User Name" must be provided)');
		if (!($conn = @mysqli_connect ($connInfo->server, $connInfo->user, $connInfo->pwd, $connInfo->dbName, $connInfo->portNum)))
			throw new DbConnException ('ERROR #' . mysqli_connect_errno () . ': ' . mysqli_connect_error ());

		return $conn;
	}

	// Runs SQL and returns the result in an array.
	protected	function _query ($sql) {
		if (!($h = $this->_execSQL ($sql))) return NULL;
		if (is_bool ($h)) return $h;

		$res = array ();
		while ($row = mysqli_fetch_array ($h, MYSQLI_BOTH))
			$res [] = $row;

        mysqli_free_result ($h);
		return $res;
	}

	// Executes SQL against the DB. It doesn't expect the query to return records.
	protected	function _execSQL ($sql, $reopenIfDown = true, $ignoredErrList = NULL) {
		$sql = trim ($sql);
		if (!$sql) return NULL;
		$o = $this->observer;
		if ($res = mysqli_query ($conn = $this->_conn, $sql)) {
			$o->ackSuccStmt ($sql);
			return $res;
		}
		// Reconnect if the connection is lost.
		$errn = mysqli_errno ($conn);
		if ($reopenIfDown && ($errn == 2013 || $errn == 2006)) {
			$this->_connect ($this->_connInfo);
			return $this->_execSQL ($sql, false, $ignoredErrList);
		}
		// Ignore certain errors.
		if ($ignoredErrList && array_key_exists ($errn, $ignoredErrList)) return NULL;

		$o->ackFailedStmt ($errn, mysqli_error ($conn), $sql);
		$this->_queryErrorMsg ($sql);
		return NULL;
	}

	// Prints the error in CONN.
	protected	function _queryErrorMsg ($sql) {
		if (strtoupper (mb_substr ($sql, 0, 13)) == 'DROP TRIGGER ') return NULL;
		$pendingStmts =& $this->_pendingStmts;
		$conn = $this->_conn;
		$err = mysqli_errno ($conn);
		$errMsg = mysqli_error ($conn);
		// A view can depend on another that isn't created yet. Let's postpone those statements.
		if (($err === 1146) && preg_match ('/CREATE.*?VIEW/m', $sql)) {
			$o = new stdclass;
			$o->sql = $sql;
			$pendingStmts [] = $o;
			return NULL;
		}

		++$this->errorCount;
		$this->observer->queryError ($err, $errMsg, $sql);

		if ($this->haltOnError) throw new DbModelHalt;
	}
}

/// QueryResults
///
/// Handles the results of a query.
///
class QueryResults {
	public		$count;
	public		$warnings;
	protected	$_res;
	protected	$_ndx = 0;


	public	function __construct ($conn, $m) {
		$res = array ();
		$warnings = array ();
		// Process results now.
		do {
			$qres = mysqli_store_result ($conn);
			if (!$qres) {
				if ($errn = mysqli_errno ($conn)) {
					// Take note of the error.
					$res [] = new DbQueryException (mysqli_error ($conn), $errn);
				}
				else $res [] = NULL;	// No records returned.
			}
			else {
				// Store the records returned.
				$recs = array ();
				while ($row = mysqli_fetch_array ($qres, MYSQLI_BOTH))
					$recs [] = $row;
				$res [] = $recs;
			}
			@mysqli_free_result ($qres);
		} while (mysqli_next_result ($conn));
		// Take note of errors and warnings.
		if ($h = mysqli_query ($conn, 'SHOW WARNINGS')) {
			while ($row = mysqli_fetch_array ($h, MYSQLI_BOTH)) {
				$code = $row ['Code'];
				$msg = $row ['Message'];
				if ($row ['Level'] === 'Error') {
					// Make sure we're not reporting this error twice.
					foreach ($res as $e) {
						if (!is_object ($e)) continue;
						if ($e->getCode () == $code && $e->getMessage () === $msg) continue 2;
					}
					// Store the error.
					$res [] = new DbQueryException ($msg, $code);
				}
				else {
					// Just a warning.
					$o = new stdclass;
					$o->code = $code;
					$o->message = $msg;
					$warnings [] = $o;
				}
			}
			mysqli_free_result ($h);
		}

		$this->_res =& $res;
		$this->count = sizeof ($res);
		$this->warnings =& $warnings;
	}

	// Gets the next resultset.
	public	function nextResult () {
		if ($this->_ndx >= $this->count) return false;
		return $this->_res [$this->_ndx++];
	}
}


/// AHTMLView
///
/// This is the base "view" of the script
///

abstract class AHTMLView {
	public		$title = 'i-senso load/dump';
	public		$processFinishedMsg = '';
	protected	$_controller;
	protected	$_connInfo;
	protected	$_errorMsgs = array ();
	protected	$_processing = false;
	protected	$_bodyClass = 'wnd';
	protected	$_outDivCSSClass = 'out';

	const		kMaxColumnWidth = 35;	// Max column width in "ems".
	const		kDateTimeFormat = 'Y-m-d H:i:s';
	const		kDateFormat = 'Y-m-d';
	const		kTimeFormat = 'H:i:s';
	const		kMaxDisplayableRows = 256;


	public		function __construct ($controller) {	$this->_controller = $controller;	}

	// Print page layout. Somewhere in the middle there's a placeholder for inserting actual content.
	protected function _printPageTemplate () {	?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<style type="text/css">
<!--
body, div, span, table, td, input, select, textarea, h1, h2, h3, button, li, a {
	font-family:Verdana, Tahoma, Arial, Helvetica, sans-serif;
	font-size:12px;
	background-repeat:no-repeat;
	background-position:center;
}
body {
	background-color:#ffe;
	margin:0;
}

#credits-bar {
	overflow:hidden;
	height:2em;
	line-height:1.9em;
	color:#fff;
	background-color:#000;
	padding:0 2em;
	margin:0 0 3px 0;
}
#credits-bar strong span {
	font-weight:normal;
	font-size:xx-small;
	padding:0 0 0 10px;
}
#credits-bar h1 {
	display:inline;
	font-size:small;
	margin:0 0 0 5em;
}
#credits-bar div {	float:right	}
#credits-bar span {	font-size:xx-small	}
#credits-bar p {
	display:inline;
	font-size:xx-small;
	padding:0 0 0 1em;
}
#credits-bar a {
 	color:#ffe;
	padding:0 0 0 1em;
}
#credits-bar a:hover {	color:#fff	}

h1, h1 a {
	font-size:medium;
	margin-bottom:1.5em;
}
a, a:visited {	color:#0000cc	}

#out {
	font-family:Georgia, "Times New Roman", Times, serif;
	font-size:small;
	margin:0 2em;
}
#out p {
	margin:0;
	padding:0;
}

form {
	padding:0 0 2em 0;
	margin-bottom:2em;
	border-bottom:1px solid gray;
}
form input, form select {	width:25em	}
form input.inp-small, form input.inp-vsmall {
	float:left;
	width:12em;
	margin:0 0 0 .5em;
}
form td input.inp-small:first-child, form td input.inp-vsmall:first-child {	margin:0	}
form input.inp-vsmall {	width:4em	}

table.cx-chk {
	float:left;
	display:block;
	margin:0 3em 0 0;
	min-width:10em;
}
table.cx-chk td {	white-space:nowrap	}
table.cx-chk input {	width:auto	}
form textarea {
	width:100%;
	height:10em;
}

#tbl {
	margin:0.5em auto 0 auto;
	width:60%;
}
#txtFileName {	width:20em	}

td {	vertical-align:middle	}
td.req, td.lbl {
	text-align:right;
	white-space:nowrap;
	padding:0 5px 0 0;
}
td.req {	font-weight:bold	}

#btns {
	overflow:hidden;
	padding:1em 0;
	text-align:center;
}
#btns button {
	padding:2px 3em;
	margin:0 5px;
}
#btns a {
	float:left;
	margin:0 0 0 5em;
	display:block;
	font-weight:bold;
	font-size:small;
}

.error, .query-error, .query-warn {
	font-weight:bold;
	text-align:center;
	margin:10px auto 1em auto;
}
.error, .query-error {	color:#990000	}
.query-warn {	color:#999	}
.error {	width:80%	}
.query-error, .query-warn {
 	border:1px solid #444;
	padding:5px 1em;
	max-width:50em;
}
.query-error div, .query-warn div {
	margin-bottom:1em;
	font-size:small;
	font-weight:100;
	color:#444;
	background-color:inherit;
	text-align:left;
	width:100%;
}
p#process-finished-msg {
	color:#666;
	font-weight:bold;
	margin:2em 0 5px 0;
}
#out p.notif.l1 {
	font-weight:bold;
	margin:10px 0 5px 0;
}
#out p.notif.l2 {	margin:0 0 0 2em	}
#out p.notif.l3 {	margin:0 0 0 4em	}

.hint {
	font-weight:bold;
	text-align:center;
	padding-right:5px;
	color:#0099FF;
	white-space:nowrap;
}
.discr-txt {
	font-weight:normal;
	font-size:xx-small;
	color:#666;
	background-color:inherit;
	margin:0;
	letter-spacing:-1px;
}


#ruler {
	position:absolute;
	visibility:hidden;
	width:25em;
}

-->
</style>
<?php
$this->_inHTMLHeader ();
$tit = $this->title;
if (mblen ($tit) > 35) $tit = mb_substr ($tit, 0, 35);
$tit = htmlspecialchars ($tit);

?>
<title>i-senso transSQL<?php	if ($tit) echo " - $tit";	?></title>
<?php
// Replace " by <EM>.
$tit = preg_replace ('/([^"]+)"([^"]+)"(.*)/ms', '$1<em>$2</em>$3', str_replace ('&quot;', '"', $tit));

if (DEBUGGING) {	?>
<script type="text/javascript" src="/reutil/js/util.js"></script>
<script type="text/javascript" src="/reutil/js/dbg.js"></script>
<?php	printDbgHeader ();
}
?>
</head>

<body class="<?php	echo $this->_bodyClass;	?>"><div id="ruler"></div>
	<div id="credits-bar">
		<div>
			<span>i-senso/2006-2007</span>
			<p>Filipe Manuel da Silva Martins</p>
			<a href="http://www.i-senso.com">http://www.i-senso.com</a>
		</div>
		<strong>transSQL/MySQL <span>ver <?php	echo VERSION;	?></span></strong>
	<?php	if ($tit) {	?>
		<h1>[ <?php	echo $tit;	?> ]</h1>
	<?php	}	?>
	</div>
<?php
$this->_printContents ();

if (!$this->_controller->isConnectedToDb) {	?>
<script type="text/javascript">
<!--
var el;
top.elm && (el = elm ("txtPwd")) && el.focus ();
-->
</script>
<?php
}
?>
</body>
</html>
<?php
	}

	// Print the page contents.
	protected function _inHTMLHeader () {}

	// Print the page contents.
	protected function _printContents () {
		// Print errors.
		if ($errorMsgs = $this->_errorMsgs)
			foreach ($errorMsgs as $errmsg) {	?><p class="error"><?php	echo $this->_encodeMsg ($errmsg);	?></p><?php	}
		// Insert content.
		$this->_printPageContent ();

		$this->flush ();
		// Start processing. Messages and notifications will be presented to the user.
		$this->_processing = true;	// From now on, errors and notifications will be printed immediatly.
?>
<div id="<?php	echo $this->_outDivCSSClass;	?>">
<?php	$this->_process ();
		if ($msg = $this->processFinishedMsg) {	?><p id="process-finished-msg"><?php	echo $this->_encodeMsg ($msg);	?></p><?php	}
?>
</div>
<?php
	}

	// Print the DB authentication fields.
	protected function _printAuthFields () {
		$connInfo = $this->_connInfo;
		if (!$this->_controller->isConnectedToDb) {	?>
<tr>
	<td rowspan="4" class="hint">Connection info</td>
	<td class="req">Server and Port</td>
	<td>
		<input type="text" name="txtServer" value="<?php	echo htmlspecialchars ($connInfo->server);	?>" class="inp-small" alt="db" />
		<input type="text" name="txtPortNum" value="<?php	echo htmlspecialchars ($connInfo->portNum);	?>" class="inp-vsmall" alt="db" />
	</td>
</tr>
<tr>
	<td class="req">User Name</td>
	<td>
		<input type="text" name="txtUserName" value="<?php	echo htmlspecialchars ($connInfo->user);	?>" class="inp-small" alt="db" />
	</td>
</tr>
<tr>
	<td class="lbl">Password</td>
	<td><input type="password" name="txtPwd" id="txtPwd" value="<?php	echo htmlspecialchars ($connInfo->pwd);	?>" class="inp-small" alt="db" /></td>
</tr>
<tr>
	<td class="req">Database Name</td>
	<td><input type="text" name="txtDb" value="<?php	echo htmlspecialchars ($connInfo->dbName);	?>" class="inp-small" alt="db" /></td>
</tr>
<tr><td colspan="99"><hr  /></td></tr>
<?php	} else {	?>
<tr><td colspan="99">
	<input type="hidden" name="txtServer" value="<?php	echo htmlspecialchars ($connInfo->server);	?>" alt="db" />
	<input type="hidden" name="txtPortNum" value="<?php	echo htmlspecialchars ($connInfo->portNum);	?>" alt="db" />
	<input type="hidden" name="txtUserName" value="<?php	echo htmlspecialchars ($connInfo->user);	?>" alt="db" />
	<input type="hidden" name="txtPwd" value="<?php	echo htmlspecialchars ($connInfo->pwd);	?>" alt="db" />
	<input type="hidden" name="txtDb" value="<?php	echo htmlspecialchars ($connInfo->dbName);	?>" alt="db" />
</td></tr>
<?php	}
	}

	// Flush the output.
	public		function flush () {
		@ob_flush ();
		flush ();
	}

	// Be informed that an error message was encountered and should be displayed.
	// NOTE: Errors may be acknowledge before printing the view.
	public		function ackError ($msg) {
		if (!$this->_processing) {
			// Just store the message for now.
			$this->_errorMsgs [] = $msg;
		}
		else {
			?><p class="error"><?php	echo $this->_encodeMsg ($msg);	?></p><?php
			$this->flush ();
		}
	}

	// Be informed that a query error was encountered and should be displayed.
	public		function ackQueryError ($errnum, $msg, $sql) {	?>
<div class="query-error">
	<p>ERROR #<?php	echo $errnum;	?>: <?php	echo $this->_encodeMsg ($msg);	?></p>
	<div><?php	echo $this->_encodeMsg ($sql);	?></div>
</div>
<?php	$this->flush ();
	}

	// Be informed that a query error was encountered and should be displayed.
	public		function ackQueryWarning ($errnum, $msg, $sql) {	?>
<div class="query-warn">
	<p>WARNING #<?php	echo $errnum;	?>: <?php	echo $this->_encodeMsg ($msg);	?></p>
	<div><?php	echo $this->_encodeMsg ($sql);	?></div>
</div>
<?php	$this->flush ();
	}

	// A message was issued and should be displayed.
	public		function ackMsg ($msg) {
		assert ($this->_processing);
		?><p class="msg"><?php	echo $this->_encodeMsg ($msg);	?></p><?php
		$this->flush ();
	}

	// Be informed that a notification was issued and should be displayed.
	public		function ackNotification ($msg, $level = 1) {
		assert ($this->_processing);
		?><p class="notif l<?php	echo $level;	?>"><?php	echo $this->_encodeMsg ($msg);	?></p><?php
		$this->flush ();
	}

	// Encodes MSG for being printed safely on a web page.
	protected	function _encodeMsg ($msg) {
		$msg = htmlspecialchars ($msg);
		$msg = str_replace ("\n", '<br />', $msg);
		$msg = str_replace ("\t", '&nbsp;&nbsp;&nbsp;&nbsp;', $msg);
		return $msg;
	}

	// Return true if S is a valid date. T flags what type of date it is: d == date; te == time; dt == datetime.
	protected	function _isDate ($s, &$t) {
		$t = NULL;
		if (!function_exists ('date_parse')) return false;
		$res = date_parse ($s);
		if (!$res || @$res ['error_count']) return false;
		// Analyse 'res'.
		$n = 0;
		foreach ($res as $fldnm => $v) {
			if (!$v) continue;
			switch ($fldnm) {
			case 'hour':
			case 'minute':
			case 'second':
			case 'fraction':
				$t = $t == 'd' ? 'dt' : 'te';
				break;
			case 'year':
			case 'month':
			case 'day':
				$t = $t == 'te' ? 'dt' : 'd';
				break;
			}

			if ($t == 'dt') return true;
		}

		return !!$t;
	}

	// Return V formatted according it's type (T).
	protected	function _formatVal ($v, $t) {
		if ($v === NULL) return 'NULL';

		switch ($t) {
		case 'r':	// Real.
			return number_format (floatval($v), 2);
		case 'i':	// Integer.
			return number_format (intval ($v), 0);
		case 'dt':	// Date-time.
			return date (self::kDateTimeFormat, strtotime ($v));
		case 'd':	// Date.
			return date (self::kDateFormat, strtotime ($v));
		case 'te':	// Time.
			return date (self::kTimeFormat, strtotime ($v));
		case 'b':
			return intval ($v) ? 'true' : 'false';
		default:
			return addslashes ($v);
		}
	}

	// Print the page contents.
	abstract protected	function _printPageContent ();

	// Do the page processing.
	abstract protected	function _process ();
}

/// HTMLView_Welcome
///
/// This is the "view" part of the script
///

class HTMLView_Welcome extends AHTMLView {
	// Render the main page.
	public		function render () {	$this->_printPageTemplate ();	}

	// Just invite the controller to query.
	protected	function _process () {}

	// Print the main page.
	protected	function _printPageContent () {	?>
<div id="welcome">
	<h1>Welcome to transSQL/MySQL</h1>
	<p>This script lets you dump a whole local database and load it to a remote host (or vice-versa).</p>
	<p>The differences between this script and the others are:</p>
	<ul>
		<li>supports tables, views, Stored Procedures, triggers and constraints;</li>
		<li>is inter-dependency aware;</li>
		<li>is error tolerant;</li>
		<li>very easy to install -- it's a single file.</li>
	</ul>
	<p>transSQL dumps the whole database: tables, views, stored procs, triggers, constraints... the works.</p>
	<p>
		The script knows that a view depends on tables or other views. It is also aware that two tables can be
		linked to one another via a foreign key.
	</p>
	<p>
		When loading, unless instructed otherwise, the script will continue working even if errors occur. In that
		case, it prints the error message and the statement that caused it (so you can correct it later).
		In fact, successful statements are logged to a file and failed ones are logged to another, so everything
		gets registered.
	</p>
	<p>
		transSQL is a single file. Just copy it to your server's webroot and everything (should) work, as long as
		you have a proper PHP and MySQL installation.
	</p>
	<br />
	<p>So, what do you want to do now?</p>
	<div id="btns">
		<a href="<?php	echo SCRIPT_NAME . '?op=dump';	?>">Dump</a>
		<a href="<?php	echo SCRIPT_NAME . '?op=load';	?>">Load</a>
		<a href="<?php	echo SCRIPT_NAME . '?op=query';	?>">Query at will</a>
	</div>
	<p id="report-bugs">
		Surely won't be needed but...
		<a href="javascript:top.location='mailto:geral_at_i-senso.com'.replace('_at_','@')">report a bug</a>.
	</p>
</div>
<?php
	}

	// Print some CSS and HTML to the <HEAD>.
	protected	function _inHTMLHeader () {	?>
<style type="text/css">
<!--
#welcome {
	width:50em;
	margin:2em auto 1em auto;
	text-align:justify;
}
#welcome ul {	margin-top:-1em	}
#welcome li {	line-height:150%	}
#welcome #btns {	border:1px solid #999	}
#report-bugs, #report-bugs a {
	font-size:x-small;
	color:#777;
}
#report-bugs {	margin:5em 0 0 0	}
-->
</style>
<?php
	}
}

/// HTMLView_Dump
///
/// The "dump" screen.
///

class HTMLView_Dump extends AHTMLView {
	protected	$_deftCharset;
	protected	$_deftCollation;
	protected	$_tables;
	protected	$_whatToDump;
	protected	$_dropFirst;
	protected	$_onlyNewTables;
	protected	$_fn;
	protected	$_saveFile;


	// Render the dump page.
	public		function render ($connInfo, $deftCharset, $deftCollation, $tables, $whatToDump, $dropFirst, $onlyNewTables, $fn, $saveFile) {
		$this->_connInfo = $connInfo;
		$this->_deftCharset = $deftCharset;
		$this->_deftCollation = $deftCollation;
		$this->_tables = $tables;
		$this->_whatToDump = $whatToDump;
		$this->_dropFirst = $dropFirst;
		$this->_onlyNewTables = $onlyNewTables;
		$this->_fn = $fn;
		$this->_saveFile = $saveFile;

		$this->_printPageTemplate ();
	}

	// Create the form for dumping.
	protected	function _printPageContent () {
		$whatToDump = $this->_whatToDump;
?>
<form method="post" action="<?php	echo SCRIPT_NAME_QS;	?>">
<table id="tbl" cellpadding="1" cellspacing="0">
<?php	$this->_printAuthFields ();	?>
	<tr title="Used if that info is not present in the table definition, and to connect to the database">
		<td class="hint">
			Locale settings
		</td>
		<td class="lbl">Charset and Collation</td>
		<td>
			<input type="text" name="txtDeftCharset" value="<?php	echo htmlspecialchars ($this->_deftCharset);	?>" class="inp-small" />
			<input type="text" name="txtDeftCollation" value="<?php	echo htmlspecialchars ($this->_deftCollation);	?>" class="inp-small" />
		</td>
	</tr>
	<tr><td colspan="99"><hr /></td></tr>
	<tr>
		<td class="hint" rowspan="2">Dump</td>
		<td class="lbl"><a href="#" onclick="return selTables()">Tables (click to select)</a></td>
		<td><input type="text" name="txtTables" id="txtTables" value="<?php	echo htmlspecialchars ($this->_tables);	?>" /></td>
	</tr>
	<tr>
		<td class="lbl">What to dump</td>
		<td>
			<select name="cmbWhatToDump" onchange="if(this.value==<?php	echo DbModel::KDumpNonDataOnly;	?>)this.form.txtTables.value=''" title="Select what type of objects to dump">
				<option value="0"<?php	if ($whatToDump === DbModel::KDumpTableStructureAndData) echo ' selected="selected"';	?>>Table structure and data (and non-data)</option>
				<option value="1"<?php	if ($whatToDump === DbModel::KDumpTableStructureOnly) echo ' selected="selected"';	?>>Table structure only (and non-data)</option>
				<option value="2"<?php	if ($whatToDump === DbModel::KDumpDataOnly) echo ' selected="selected"';	?>>Data only (and non-data)</option>
				<option value="3"<?php	if ($whatToDump === DbModel::KDumpNonDataOnly) echo ' selected="selected"';	?>>Non-data only (views, stored procs, etc)</option>
			</select>
		</td>
	</tr>
	<tr><td colspan="99"><hr  /></td></tr>
	<tr>
		<td class="hint">Options</td>
		<td colspan="99">
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="CREATE TABLE will fail if a table already exists">
				<tr>
					<td><input type="checkbox" name="chkNoDrop" id="chkNoDrop"<?php	if (!$this->_dropFirst) echo ' checked="checked"';	?> onclick="this.checked&amp;&amp;(elm('chkOnlyNewTables').checked=false)" /></td>
					<td><label for="chkNoDrop">No DROP TABLE first</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Don't recreate or insert data on existing tables">
				<tr>
					<td><input type="checkbox" name="chkOnlyNewTables" id="chkOnlyNewTables"<?php	if ($this->_onlyNewTables) echo ' checked="checked"';	?> onclick="this.checked&amp;&amp;(elm('chkNoDrop').checked=false)" /></td>
					<td><label for="chkOnlyNewTables">New Tables Only</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Send output to a file">
				<tr>
					<td><input type="checkbox" name="chkSaveToFile" id="chkSaveToFile" onclick="txtFileName.disabled=this.checked?false:true;txtFileName.focus()"<?php	if ($this->_saveFile) echo ' checked="checked"';	?> /></td>
					<td><label for="chkSaveToFile">Save to file</label></td>
					<td style="padding-left:3em"></td>
					<td><input type="text" name="txtFileName" id="txtFileName" value="<?php	echo htmlspecialchars ($this->_fn);	?>" <?php	if (!$this->_saveFile) echo ' disabled="disabled"';	?> /></td>
				</tr>
			</table>
		</td>
	</tr>
	<tr>
		<td colspan="99" id="btns">
			<button type="submit">Go</button>
			<button type="button" onclick="document.location='<?php	echo SCRIPT_NAME;	?>'">BACK</button>
		</td>
	</tr>
</table>
</form>
<script type="text/javascript">
<!--
function elm (id) {	return document.getElementById (id);	}

var txtFileName = elm ("txtFileName"), tbl = elm ("tbl"), wndw = elm ("ruler").offsetWidth;

// Opens a window allowing the user to select the tables in the BD.
function selTables () {
	var qs = "?pop=seltables", fields = tbl.getElementsByTagName ("INPUT"), i, fld, t, l, w, h;
	// Collect connection data.
	for (i in fields) {
		fld = fields [i];
		if (fld.alt != "db") continue;
		qs += "&" + fld.name + "=" + fld.value;
	}
	// Calc the window size.
	w = Math.floor (wndw * 1.3);
	h = Math.floor (w * 1.1);
	t = Math.floor ((screen.height - h) / 2);
	l = Math.floor ((screen.width - w) / 2);
	// Open the window.
	top.open (top.location.pathname + qs, "seltables", "top=" + t + ",left=" + l + ",width=" + w + ",height=" + h + ",scrollbars=yes,resizable=yes");

	return false;
}
-->
</script>
<?php
	}

	// Just invite the controller to dump SQL.
	protected	function _process () {	$this->_controller->vw_dump ();	}

}

/// HTMLView_Load
///
/// The "load" screen.
///

class HTMLView_Load extends AHTMLView {
	protected	$_fl;
	protected	$_sql;
	protected	$_selfDestruct;
	protected	$_haltOnError;
	protected	$_clearNonData;
	protected	$_clearConstraints;


	// Render the load page.
	public		function render ($connInfo, $fl, $sql, $selfDestruct, $haltOnError, $clearNonData, $clearConstraints) {
		$this->_connInfo = $connInfo;
		$this->_fl = $fl;
		$this->_sql = $sql;
		$this->_selfDestruct = $selfDestruct;
		$this->_haltOnError = $haltOnError;
		$this->_clearNonData = $clearNonData;
		$this->_clearConstraints = $clearConstraints;

		$this->_printPageTemplate ();
	}

	// Just invite the controller to load SQL.
	protected	function _process () {	$this->_controller->vw_load ();	}

	// Print the form for loading.
	protected	function _printPageContent () {	?>
<form method="post" action="<?php	echo SCRIPT_NAME_QS;	?>" enctype="multipart/form-data">
<table id="tbl" cellpadding="1" cellspacing="0">
<?php	$this->_printAuthFields ();	?>
	<tr>
		<td class="hint">Options</td>
		<td colspan="99">
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Stop on the first error encountered">
				<tr>
					<td><input type="checkbox" name="chkHaltOnError" id="chkHaltOnError"<?php	if ($this->_haltOnError) echo ' checked="checked"';	?> /></td>
					<td><label for="chkHaltOnError">Halt on error</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Delete this script when the loading is done, and no errors were found">
				<tr>
					<td><input type="checkbox" name="chkSelfDestruct" id="chkSelfDestruct"<?php	if ($this->_selfDestruct) echo ' checked="checked"';	?> /></td>
					<td><label for="chkSelfDestruct">Self destruct, if all went well</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Before loading, drop all views, stored procs, functions and triggers">
				<tr>
					<td><input type="checkbox" name="chkClearNonData" id="chkClearNonData"<?php	if ($this->_clearNonData) echo ' checked="checked"';	?> onclick="if(this.checked)alert('WARNING!! Make sure the SQL you\'re loading will rebuild ALL stored procs, functions, triggers, etc.')" /></td>
					<td><label for="chkClearNonData">Clear non-data</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Before loading, drop constraints (keys, foreign-keys, etc)">
				<tr>
					<td><input type="checkbox" name="chkClearConstraints" id="chkClearConstraints"<?php	if ($this->_clearConstraints) echo ' checked="checked"';	?> onclick="if(this.checked)alert('WARNING!! Make sure the SQL you\'re loading will rebuild ALL constraints.')" /></td>
					<td><label for="chkClearConstraints">Clear constraints</label></td>
				</tr>
			</table>
		</td>
	</tr>
	<tr><td colspan="99"><hr  /></td></tr>
	<tr>
		<td rowspan="3" class="hint">Source</td>
		<td class="lbl">File</td>
		<td><input type="text" name="txtFileName" value="<?php	echo htmlspecialchars ($this->_fl);	?>" onkeypress="txtSQL.value=''" /></td>
	</tr>
	<tr>
		<td class="lbl">Upload file</td>
		<td><input type="file" name="txtUplFile" onchange="txtFileName.value=txtSQL.value=''" /></td>
	</tr>
	<tr><td class="lbl">Direct SQL Input</td><td></td></tr>
	<tr>
		<td colspan="99">
			<textarea name="txtSQL" onkeypress="txtFileName.value=''" rows="10" cols="10" title="The first line of a SQL statement must start at row 1 and the following must start at 2 or after"><?php	echo htmlspecialchars ($this->_sql);	?></textarea>
		</td>
	</tr>
	<tr>
		<td colspan="99" id="btns">
			<button type="submit">Go</button>
			<button type="button" onclick="document.location='<?php	echo SCRIPT_NAME;	?>'">BACK</button>
		</td>
	</tr>
</table>
</form>
<script type="text/javascript">
<!--
function elm (id) {	return document.getElementById (id);	}

var txtFileName = document.getElementById ("txtFileName"), txtSQL = document.getElementById ("txtSQL");
-->
</script>
<?php
	}
}

/// HTMLView_Query
///
/// The "query" screen.
///

class HTMLView_Query extends AHTMLView {
	protected	$_outDivCSSClass = 'qout';
	protected	$_queryCount = 0;
	protected	$_sql;
	protected	$_charset;
	protected	$_collation;
	protected	$_haltOnError;
	protected	$_showWarnings;


	// Render the page for querying.
	public		function render ($connInfo, $sql, $charset, $collation, $haltOnError, $showWarnings) {
		$this->_connInfo = $connInfo;
		$this->_sql = $sql;
		$this->_charset = $charset;
		$this->_collation = $collation;
		$this->_haltOnError = $haltOnError;
		$this->_showWarnings = $showWarnings;

		$this->_printPageTemplate ();
	}

	// Start printing the results a query.
	public		function startPrintingQuery ($sql) {	?>
<div class="q<?php	if (++$this->_queryCount % 2 === 0) echo 'x2';	?>">
	<p class="query-sql"><?php	echo htmlspecialchars (preg_replace ('/\s+/sm', ' ', $sql));	?></p>
<?php
	}

	// Query results ended.
	public		function endPrintingQuery () {	?></div><?php	}

	// Just invite the controller to query.
	protected	function _process () {	$this->_controller->vw_query ();	}

	// Print the page contents.
	protected	function _printPageContent () {	?>
<form method="post" action="<?php	echo SCRIPT_NAME_QS;	?>">
<table id="tbl" cellpadding="1" cellspacing="0">
<?php	$this->_printAuthFields ();	?>
	<tr title="Select the charset and collation for extracting data">
		<td class="hint">Locale</td>
		<td class="lbl">Charset and Collation</td>
		<td>
			<input type="text" name="txtCharset" value="<?php	echo htmlspecialchars ($this->_charset);	?>" class="inp-small" />
			<input type="text" name="txtCollation" value="<?php	echo htmlspecialchars ($this->_collation);	?>" class="inp-small" />
		</td>
	</tr>
	<tr><td colspan="99"><hr /></td></tr>
	<tr>
		<td class="hint">Options</td>
		<td colspan="99">
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Stop on the first error encountered">
				<tr>
					<td><input type="checkbox" name="chkHaltOnError" id="chkHaltOnError"<?php	if ($this->_haltOnError) echo ' checked="checked"';	?> /></td>
					<td><label for="chkHaltOnError">Halt on error</label></td>
				</tr>
			</table>
			<table cellpadding="1" cellspacing="0" class="cx-chk" title="Print warnings issued by queries">
				<tr>
					<td><input type="checkbox" name="chkShowWarnings" id="chkShowWarnings"<?php	if ($this->_showWarnings) echo ' checked="checked"';	?> /></td>
					<td><label for="chkShowWarnings">Show warnings</label></td>
				</tr>
			</table>
		</td>
	</tr>
	<tr><td colspan="99"><hr /></td></tr>
	<tr><td class="lbl" colspan="2">Query like there's no tomorrow</td><td></td></tr>
	<tr>
		<td colspan="99">
			<textarea name="txtSQL" rows="10" cols="10" title="The first line of a SQL statement must start at row 1 and the following must start at 2 or after"><?php	echo htmlspecialchars ($this->_sql);	?></textarea>
		</td>
	</tr>
	<tr>
		<td colspan="99" id="btns">
			<button type="submit">Go</button>
			<button type="button" onclick="document.location='<?php	echo SCRIPT_NAME;	?>'">BACK</button>
		</td>
	</tr>
</table>
</form>
<?php
	}

	// Print records. FLD-NMS is the field name list and RECS is the record list.
	public		function printRecords ($fldnms, $recs, $sql = '') {
		if (sizeof ($recs) < 1 || is_bool ($recs)) {
			if ($sql) {
				?><p class="no-res">No rows returned from <strong><?php	echo htmlspecialchars ($sql);	?></strong></p><?php
			}
			else {	?><p class="no-res">No rows returned</p><?php	}
			return;
		}

		$fldcount = sizeof ($fldnms);
		$colwidths = array ();
		$coltypes = array ();
		for ($i = 0; $i < $fldcount; ++$i) {
			$colwidths [] = mblen ($fldnms [$i]);
			$coltypes [] = NULL;
		}
		// Figure out column max width and types.
		$rowCount = 0;
		foreach ($recs as $rec) {
			for ($i = 0; $i < $fldcount; ++$i) {
				$v = trim ($rec [$i]);
				// Check width.
				$l = mblen ($v);
				if ($colwidths [$i] < $l) $colwidths [$i] = $l;
				// Check type -- t == text; i == integer; r == real; d == date; dt == datetime; te == time; b == boolean.
				$t = $coltypes [$i];
				if ($t === 't') continue;
				if (is_numeric ($s = str_replace (',', '.', $v))) {
					if ($t !== 'd') {
						$rec [$i] = $v = $s;
						$d = doubleval ($v);
						$t = (floor ($d) - $d) < 0.00000001 ? 'i' : 'd';
					}
				}
				else if (is_bool ($v)) $t = 'b';
				else if ($this->_isDate ($v, $subtype)) {
					if ($t !== 'dt') $t = $subtype;
				}
				else $t = 't';

				$coltypes [$i] = $t;
			}
			// If there's too much records then give up understanding them all.
			if (++$rowCount > 64) {
				for ($i = 0; $i < $fldcount; ++$i) $coltypes [$i] = 't';
				break;
			}
		}
		// Adjust column width, make sure they aren't too wide for display, and calc total width.
		$tw = 0;
		for ($i = 0; $i < $fldcount; ++$i) {
			$w = $colwidths [$i];
			if ($w > self::kMaxColumnWidth) $w = self::kMaxColumnWidth;
			// If displaying numbers we don't need as much space.
			$factor = 1;
			switch ($coltypes [$i]) {
			case 'i':
				$factor = 0.7;
				break;
			case 'r':
				$factor = 0.85;
				break;
			default:
				$factor = 0.95;
			}
			$w = floor ($w * $factor);

			$colwidths [$i] = $w;
			$tw += $w;
		}
		// Print record list header.
?>
<div style="width:<?php	echo $tw;	?>em">
<table cellspacing="0"  cellpadding="1" class="tbl-res">
	<tr>
<?php	for ($i = 0; $i < $fldcount; ++$i) {
			?><th class="<?php	echo $coltypes [$i];	?>" style="width:<?php	echo $colwidths [$i] + 3;	?>em"><?php	echo htmlspecialchars ($fldnms [$i]);	?></th><?php
		}	?>
	</tr>
<?php	// Print records.
		$rowCount = 0;
		foreach ($recs as $rec) {
			// Let's not go crusy here...
			if (++$rowCount > self::kMaxDisplayableRows) {
				$rowCount = -1;
				break;
			}

			?><tr<?php	if ($rowCount % 2 === 0) echo ' class="x2"';	?>><?php
			for ($i = 0; $i < $fldcount; ++$i) {
				$t = $coltypes [$i];
				$v = $this->_formatVal ($rec [$i], $t);
				if ($v === '') $v = '&nbsp;';	// IE won't print borders on an empty cell...
				else if ($v === NULL) $v = 'NULL';
				else $v = htmlspecialchars ($v);
				?><td class="<?php	echo $t;	?>"><?php	echo $v;	?></td><?php
			}
			?></tr><?php
		}
		// Print row count.
		if ($rowCount < 0) {	?>
<tr class="footer"><td colspan="99">Too many rows... displaying only <?php	echo self::kMaxDisplayableRows;	?> of them</td></tr>
<?php	} else if ($rowCount > 5) {	?>
<tr class="footer"><td colspan="99"><?php	echo $rowCount;	?> rows</td></tr>
<?php	}	?>
</table>
</div>
<?php
	}

	// Print some CSS and HTML to the <HEAD>.
	protected	function _inHTMLHeader () {	?>
<style type="text/css">
<!--

#qout div {
	margin:0 .5em .5em 1em;
	padding:0;
}
#qout table {	margin:0	}
#qout p.query-sql {
	font-weight:bold;
	color:#fff;
	background-color:#666;
	margin:0 0 .5em 0;
	padding:3px 0 3px 10px;
	border:1px solid #999;
}

#qout div.q, #qout div.qx2 {
	margin:0 1em 1.5em 1em;
	padding:0;
}

#qout p.query-error, #qout p.query-warn {	border:none	}

#qout p#process-finished-msg {	margin-left:2em	}

.tbl-res {
	border-top:1px solid #666;
	border-left:1px solid #666;
	border-bottom:1px solid #666;
	margin:5px 0;
}
.tbl-res tr th {
	background-color:#eee;
	border-right:1px solid #666;
	padding:2px 3px;
}
.tbl-res tr {	background-color:#fff	}
.tbl-res tr.x2 {	background-color:#ddd	}
.tbl-res tr td {
	padding:2px 3px;
	border-top:1px solid #666;
	border-right:1px solid #666;
}
.tbl-res tr.footer td {
	padding:3px 0 3px 20px;
	font-weight:bold;
}
#out p.no-res {
	margin:1em 0;
	padding:1em;
	border:1px solid #666;
}
#out p.no-res strong {
	font-style:italic;
}
-->
</style>
<?php
	}

	// Be informed that a query error was encountered and should be displayed.
	public		function ackQueryError ($errnum, $msg, $sql) {	?>
<p class="query-error">ERROR #<?php	echo $errnum;	?>: <?php	echo $this->_encodeMsg ($msg);	?></p>
<?php	$this->flush ();
	}

	// Be informed that a query error was encountered and should be displayed.
	public		function ackQueryWarning ($errnum, $msg, $sql) {	?>
	<p class="query-warn">WARNING #<?php	echo $errnum;	?>: <?php	echo $this->_encodeMsg ($msg);	?></p>
<?php	$this->flush ();
	}

}

/// HTMLView_ShowTableList
///
/// The "Select Tables List" screen.
///

class HTMLView_ShowTableList extends AHTMLView {
	protected	$_bodyClass = 'pop';
	protected	$_tbllst;
	protected	$_tblnmQuote;


	// Render the page for selecting tables (used on a popup window).
	public		function render ($tbllst, $tblnmQuote) {
		$this->_tbllst =& $tbllst;
		$this->_tblnmQuote = $tblnmQuote;

		$this->_printPageTemplate ();
	}

	// Just invite the controller to query.
	protected	function _process () {}

	// Print the page for selecting tables (used on a popup window). TBL-LST is the list of table names.
	// TBL-NM-QUOTE is the quoting char for surrounding table names.
	protected	function _printPageContent () {
		$tbllst =& $this->_tbllst;
		if ($tbllst === NULL) return;
?>
<p class="lbl">
	Select the tables you wish to dump. If none is selected, all will be dumped. When you're done, just close the window.
</p>
<?php	$i = 0;
		foreach ($tbllst as $tblnm) {
			++$i;
?>
<table cellpadding="1" cellspacing="0" class="cx-chk">
	<tr>
		<td><input type="checkbox" id="chk<?php	echo $i;	?>" onclick="selTable(this)" /></td><td><label for="chk<?php	echo $i;	?>"><?php	echo htmlspecialchars ($tblnm);	?></label></td>
	</tr>
</table>
<?php	}
		if (!$tbllst) return;	// There's no tables.
?>
<script type="text/javascript">
<!--
// Clean trailing white space.
String.prototype.trim = function () {	return this.replace (/^[\s\xA0]+/, "").replace (/[\s\xA0]+$/, "");	}

var txtTables, o = top.opener, tblqchar = "<?php	echo $this->_tblnmQuote	?>";
o && (txtTables = o.elm ("txtTables"));


loadActualSelection ();

// Select the checkboxes of the tables that already are selected on the main window.
function loadActualSelection () {
	var el, i, chk, chks = document.getElementsByTagName ("input"), tblnm, tbllst = splitTableList (txtTables.value);
	for (i in chks) {
		chk = chks [i];
		if (chk.type !== "checkbox") continue;
		el = chk.parentNode.nextSibling.firstChild;
		tblnm = el.textContent || el.innerText;

		chk.checked = !!tbllst [tblnm];
	}
}

// Select or unselect a table.
function selTable (chk) {
	if (!txtTables) return;
	var el, tblnm, tbllst = splitTableList (txtTables.value);
	// Get the table name.
	el = chk.parentNode.nextSibling.firstChild;
	tblnm = el.textContent || el.innerText;

	if (chk.checked) {	// Select the table.
		if (tbllst [tblnm]) return;
		tbllst [tblnm] = 1;
	}
	else {				// Unselect the table.
		if (!tbllst [tblnm]) return;
		tbllst [tblnm] = 0;
	}
	// Save the selection.
	txtTables.value = encodeTableList (tbllst);
}

// Return the textual representation of tbllst.
function encodeTableList (tbllst) {
	var res = "", tblnm;
	for (tblnm in tbllst) {
		if (!tbllst [tblnm]) continue;
		res += "," + tblqchar + tblnm + tblqchar;
	}
	return res ? res.substr (1) : "";
}

// Split TXT and return an array with table names. They must be separated with commas and may be quoted.
function splitTableList (txt) {
	txt = txt.trim () + ",";
	var res = [], i, s, l = txt.length, start = 0, isQuoted = false, ql = tblqchar.length;
	for (i = 0; i < l; ++i) {
		switch (txt.substr (i, 1)) {
		case ",":
			if (isQuoted) continue;
			s = txt.substr (start, i - start).trim ();
			start = i + 1;
			// Remove quotes.
			if (s.substr (0, ql) == tblqchar)
				s = s.substr (ql, s.length - ql * 2);
			// Validate.
			if (!s || s.indexOf (tblqchar) >= 0) continue;
			// Store.
			res [s] = 1;
			break;
		case tblqchar:
			isQuoted = !isQuoted;
		}
	}

	return res;
}

-->
</script>
<?php
	}

	// Print some CSS and HTML to the <HEAD>.
	protected	function _inHTMLHeader () {	?>
<style type="text/css">
<!--
body.pop p.lbl {
	color:#fff;
	background-color:#555;
	padding:5px 10px;
	margin:0;
	text-align:justify;
	border-bottom:1px solid #ccc;
}
body.pop p.error {	margin-top:5em	}
body.pop .cx-chk {
	float:left;
	display:block;
	width:45%;
	margin:0 5px;
}
body.pop #credits-bar {	display:none	}

table.cx-chk td+td {	width:100%	}
-->
</style>
<?php
	}
}


/// ADbModelObserver
///
/// Implements the interface and base functionality for the observers.
///

abstract class ADbModelObserver {
	protected	$_vw;


	public		function __construct ($vw) {	$this->_vw = $vw;	}

	// Print an error.
	public		function error ($msg) {}

	// Print a query error.
	public		function queryError ($errnum, $msg, $sql) {	$this->_vw->ackQueryError ($errnum, $msg, $sql);	}

	// Print a message.
	public		function msg ($msg, $level = 2) {}

	// Print a notification.
	public		function notify ($msg, $level = 1) {}

	// Acknowledge a successul sql statement.
	public		function ackSuccStmt ($sql) {}

	// Acknowledge a sql statement that was postponed until other objects are created.
	public		function ackPendingStmt ($sql) {}

	// Acknowledge a failed sql statement.
	public		function ackFailedStmt ($errn, $errmsg, $sql) {}
}


/// NullDbModelObserver
///
/// A dumb observer that does nothing.
///

class NullDbModelObserver extends ADbModelObserver {}


/// DbModelLogger
///
/// A dumb observer that does nothing.
///

class DbModelLogger extends ADbModelObserver {
	protected	$_succLogFN;
	protected	$_failedLogFN;
	protected	$_pendLogFN;


	public		function __construct ($vw, $succLogFN, $pendLogFN, $failedLogFN) {
		parent::__construct ($vw);
		$this->_succLogFN = $succLogFN;
		$this->_failedLogFN = $failedLogFN;
		$this->_pendLogFN = $pendLogFN;
	}

	// Acknowledge a successul sql statement.
	public		function ackSuccStmt ($sql) {	$this->_dump ($this->_succLogFN, $sql);	}

	// Acknowledge a sql statement that was postponed until other objects are created.
	public		function ackPendingStmt ($sql) {	$this->_dump ($this->_pendLogFN, $sql);	}

	// Acknowledge a failed sql statement.
	public		function ackFailedStmt ($errn, $errmsg, $sql) {
		$s = "ERROR # $errn: $errmsg!\nSQL: $sql\n" . str_repeat ('-', 60) . "\n\n";
		file_put_contents ($this->_failedLogFN, $s, FILE_APPEND);
	}

	// Append a SQL statement to a log file.
	protected	function _dump ($fn, $sql) {	file_put_contents ($fn, $sql . "\n" . str_repeat ('-', 60) . "\n\n", FILE_APPEND);	}
}


/// ObserverFile
///
/// Sends its input to a file.
///

class ObserverFile extends DbModelLogger {
	protected	$_f;


	public		function __construct ($vw, $succLogFN, $pendLogFN, $failedLogFN, $fn) {
		parent::__construct ($vw, $succLogFN, $pendLogFN, $failedLogFN);
		if (!($this->_f = @fopen ($fn, 'w')))
			throw new FileException ("Couldn't open \"$fn\"");
	}

	public		function __destruct () {	fclose ($this->_f);	}

	// Print an error.
	public		function error ($msg) {	fputs ($this->_f, "\n\nERROR: $msg\n\n");	}

	// Print a message.
	public		function msg ($msg, $level = 2) {	fputs ($this->_f, "$msg\n");	}

	// Print a notification.
	public		function notify ($msg, $level = 1) {	$this->_vw->ackNotification ($msg, $level);	}

}

/// ObserverWeb
///
/// Sends its input to the View.
///

class ObserverWeb extends DbModelLogger {
	// Print an error.
	public		function error ($msg) {	$this->_vw->ackError ("$msg");	}

	// Print a message.
	public		function msg ($msg) {	$this->_vw->ackMsg ("$msg");	}
}


/// EXCEPTION CLASSES
///
/// Just for error signaling.
///

class DbModelHalt extends Exception {}
class ValidationException extends Exception {}
class DbConnException extends Exception {}
class DbQueryException extends Exception {}
class FileException extends Exception {}

?>