]> andersk Git - sql-web.git/blob - main.php
lighttpd remote signups
[sql-web.git] / main.php
1 <?php
2 /*
3         (c) 2005 Joe Presbrey
4 */
5
6 require_once('mitsql.cfg.php');
7 require_once('mitsql.lib.php');
8 require_once('proc.lib.php');
9
10 if (!isLoggedIn()) redirect('index');
11
12 $err1 = $msg1 = array();
13
14 $User = new User($Login->getUserID());
15
16 if (isPost()) {
17         if (isset($i_newdb)) {
18                 list($msg1, $err1) = proc::newdb($User, $i_newdb);
19         }
20         if (isset($i_drop)) {
21                 list($msg1, $err1) = proc::drop($User, $i_drop);
22         }
23 }
24
25 if (!count($err1)) {//&& !isset($i_r))
26         checkQuotas($Login->getUserID());
27         $User->refresh();
28 }
29
30 $myDBs = $User->getDBList();
31
32 include 'tpl/main.php';
33
34 ?>
This page took 0.032268 seconds and 5 git commands to generate.