some XHTML/XML wrapper classes

[sql-web.git] / main.php

diff --git a/main.php b/main.php
index e69de29bb2d1d6434b8b29ae775ad8c2e48c5391..4551be7984b1b47622834156c17d0d9e1798b410 100644 (file)
--- a/main.php
+++ b/main.php
@@ -0,0 +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)) {
+               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';
+
+?>