<?php

require_once('../mitsql.cfg.php');
require_once('mitsql.lib.php');
require_once('proc.lib.php');

require_once('batch.inc.php');

$Login = new Login($i_u, $i_p);
if (!$Login->canLogin()) die('-1,Login failed.');

$User = new User($Login->getUserID());
$myUsername = $User->getUsername();

if (substr($i_d,0,strlen($myUsername)+1) == $myUsername.DELIMETER) {
	$i_d = explode(DELIMETER, $i_d);
	array_shift($i_d);
	$i_d = implode(DELIMETER, $i_d);
}
$i_d = sprintf("%s%s%s", $myUsername, DELIMETER, $i_d);

if (strlen($i_d)) {
	list($msg1, $err1) = proc::drop($User, array("$i_d"=>'Yes'));
	if (count($err1)) die('-3,'.implode(' ',$err1));
	if (count($err1)==0) die('0,'.$i_d);
} else {
	die('-2,Unspecified database.');
}

?>