batch drop_db command

git-svn-id: svn://presbrey.mit.edu/sql/web/dev@132 a142d4bd-2cfb-0310-9673-cb33a7e74f58

diff --git a/batch/drop_db.php b/batch/drop_db.php
new file mode 100755 (executable)
index 0000000..121eb28
--- /dev/null
+++ b/batch/drop_db.php
@@ -0,0 +1,30 @@
+<?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.');
+}
+
+?>