]>
Commit | Line | Data |
---|---|---|
dc478ec8 JP |
1 | <?php |
2 | ||
3 | require_once('mitsql.cfg.php'); | |
4 | require_once('mitsql.lib.php'); | |
2f91d7fe | 5 | require_once('proc.lib.php'); |
4a77eeb5 | 6 | |
dc478ec8 JP |
7 | if (!isLoggedIn()) redirect('index'); |
8 | ||
9840d102 JP |
9 | $err1 = $msg1 = array(); |
10 | ||
377015e0 JP |
11 | $User = new User($Login->getUserID()); |
12 | ||
13 | if (isPost()) { | |
14 | if (isset($i_newdb)) { | |
2f91d7fe | 15 | list($msg1, $err1) = proc::newdb($User, $i_newdb); |
377015e0 | 16 | } |
e47be57b | 17 | if (isset($i_drop)) { |
2f91d7fe | 18 | list($msg1, $err1) = proc::drop($User, $i_drop); |
e47be57b | 19 | } |
690e37fb JP |
20 | } |
21 | ||
22 | if (!count($err1)) {//&& !isset($i_r)) | |
23 | checkQuotas($Login->getUserID()); | |
24 | $User->refresh(); | |
377015e0 JP |
25 | } |
26 | ||
2ea5a69f JP |
27 | $myDBs = $User->getDBList(); |
28 | ||
dc478ec8 JP |
29 | include 'tpl/main.php'; |
30 | ||
31 | ?> |