X-Git-Url: http://andersk.mit.edu/gitweb/sql-web.git/blobdiff_plain/377015e0d78cce3bd62af0357fcb951fe506efb4..35d6bcaee2327c5c7bf5519044ba88f9cffb6a82:/main.php

diff --git a/main.php b/main.php
index 775fbda..4551be7 100644
--- a/main.php
+++ b/main.php
@@ -1,20 +1,34 @@
 <?php
+/*
+	(c) 2005 Joe Presbrey
+*/
 
 require_once('mitsql.cfg.php');
 require_once('mitsql.lib.php');
+require_once('proc.lib.php');
 
 if (!isLoggedIn()) redirect('index');
 
+$err1 = $msg1 = array();
+
 $User = new User($Login->getUserID());
 
 if (isPost()) {
 	if (isset($i_newdb)) {
-		if ($User->addDB($User->getUsername().DELIMETER.$i_newdb)==false) {
-			$err[] = mysql_error();
-		}
+		list($msg1, $err1) = proc::newdb($User, $i_newdb);
+	}
+	if (isset($i_drop)) {
+		list($msg1, $err1) = proc::drop($User, $i_drop);
 	}
 }
 
+if (!count($err1)) {//&& !isset($i_r))
+	checkQuotas($Login->getUserID());
+	$User->refresh();
+}
+
+$myDBs = $User->getDBList();
+
 include 'tpl/main.php';
 
 ?>