]> andersk Git - sql-web.git/blame - main.php
old admin stuff deleted
[sql-web.git] / main.php
CommitLineData
dc478ec8
JP
1<?php
2
3require_once('mitsql.cfg.php');
4require_once('mitsql.lib.php');
5
6if (!isLoggedIn()) redirect('index');
7
377015e0
JP
8$User = new User($Login->getUserID());
9
10if (isPost()) {
11 if (isset($i_newdb)) {
2ea5a69f
JP
12 $dbname = $User->getUsername().DELIMETER.$i_newdb;
13 if ($User->addDB($dbname)==false) {
377015e0 14 $err[] = mysql_error();
2ea5a69f 15 } else {
88b7d384 16 $User->refresh();
2ea5a69f 17 $msg[] = 'Database `'.$dbname.'` created.';
377015e0
JP
18 }
19 }
20}
21
2ea5a69f
JP
22$myDBs = $User->getDBList();
23
dc478ec8
JP
24include 'tpl/main.php';
25
26?>
This page took 0.044866 seconds and 5 git commands to generate.