+<?php
+
+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)) {
+ list($msg1, $err1) = proc::newdb($User, $i_newdb);
+ }
+ if (isset($i_drop)) {
+ list($msg1, $err1) = proc::drop($User, $i_drop);
+ }
+ if (!count($err1))
+ $User->refresh();
+}
+
+$myDBs = $User->getDBList();
+
+include 'tpl/main.php';
+
+?>