]> andersk Git - sql-web.git/blame - main.php
session_name set to SQLMITEDU
[sql-web.git] / main.php
CommitLineData
dc478ec8
JP
1<?php
2
3require_once('mitsql.cfg.php');
4require_once('mitsql.lib.php');
2f91d7fe 5require_once('proc.lib.php');
4a77eeb5 6
dc478ec8
JP
7if (!isLoggedIn()) redirect('index');
8
9840d102
JP
9$err1 = $msg1 = array();
10
377015e0
JP
11$User = new User($Login->getUserID());
12
13if (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 }
9840d102 20 if (!count($err1))
9c70b481 21 $User->refresh();
377015e0
JP
22}
23
2ea5a69f
JP
24$myDBs = $User->getDBList();
25
dc478ec8
JP
26include 'tpl/main.php';
27
28?>
This page took 0.047637 seconds and 5 git commands to generate.