egroupware/admin/deleteaccount.php
2001-01-07 17:25:25 +00:00

94 lines
3.3 KiB
PHP
Executable File

<?php
/**************************************************************************\
* phpGroupWare - administration *
* http://www.phpgroupware.org *
* -------------------------------------------- *
* This program is free software; you can redistribute it and/or modify it *
* under the terms of the GNU General Public License as published by the *
* Free Software Foundation; either version 2 of the License, or (at your *
* option) any later version. *
\**************************************************************************/
/* $Id$ */
$phpgw_info = array();
if ($confirm || ! $account_id) {
$phpgw_info["flags"] = array("noheader" => True, "nonavbar" => True);
}
$phpgw_info["flags"]["currentapp"] = "admin";
$phpgw_info["flags"]["enable_calendar_class"] = True;
include("../header.inc.php");
include($phpgw_info["server"]["app_inc"]."/accounts_".$phpgw_info["server"]["account_repository"].".inc.php");
// I didn't active this code until all tables are up to date using the owner field
// The calendar isn't update to date. (jengo)
// NOTE: This is so I don't forget, add a double explode() to the app_tables field
// to say what the name of the owner field is.
function delete_users_records($account_id, $permissions)
{
global $phpgw;
$db2 = $phpgw->db;
while ($permission = each($permissions)) {
$db2->query("select app_tables from applications where app_name='$permission[0]'");
$db2->next_record();
if ($db2->f("app_tables")) {
$tables = explode(",",$db2->f("app_tables"));
while (list($null,$table) = each($tables)) {
$db2->query("delete from $table where owner='$account_id'");
}
}
} // end while
} // end function
// Make sure they are not attempting to delete there own account.
// If they are, they should not reach this point anyway.
if ($phpgw_info["user"]["account_id"] == $account_id) {
Header("Location: " . $phpgw->link("accounts.php"));
$phpgw->common->phpgw_exit();
}
if (($account_id) && (! $confirm)) {
// the account can have special chars/white spaces, if it is a ldap dn
$account_id = rawurlencode($account_id);
?>
<center>
<table border=0 with=65%>
<tr colspan=2>
<td align=center>
<?php echo lang("Are you sure you want to delete this account ?"); ?>
<td>
</tr>
<tr colspan=2>
<td align=center>
<?php echo "<font color=\"red\"><blink>".lang("All records and account information will be lost!")."</blink></font>"; ?>
</td>
</tr>
<tr>
<td>
<a href="<?php echo $phpgw->link("accounts.php") . "\">" . lang("No"); ?></a>
</td>
<td>
<a href="<?php echo $phpgw->link("deleteaccount.php","account_id=$account_id&confirm=true") . "\">" . lang("Yes"); ?></a>
</td>
</tr>
</table>
</center>
<?php
$phpgw->common->phpgw_footer();
}
if ($confirm) {
$cd = account_delete($account_id);
Header("Location: " . $phpgw->link("accounts.php","cd=$cd"));
}
account_close();
?>