egroupware/admin/deleteaccount.php

<?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"));
     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();
?>