function delete_user($uid)
{
    global $dbh;
    // Delete any e-mail addresses this user owns
    delete_user_email_addresses($uid);
    // Delete the user's statistics
    $sth = $dbh->prepare("DELETE FROM maia_stats WHERE user_id = ?");
    $sth->execute(array($uid));
    if (PEAR::isError($sth)) {
        die($sth->getMessage());
    }
    $sth->free();
    // Delete the user's white/blacklist entries
    delete_user_wb_entries($uid);
    // Delete the user's domain admin records
    $sth = $dbh->prepare("DELETE FROM maia_domain_admins WHERE admin_id = ?");
    $sth->execute(array($uid));
    if (PEAR::isError($sth)) {
        die($sth->getMessage());
    }
    $sth->free();
    // Delete the user's mail references
    delete_user_mail_references($uid);
    // Delete the user's record itself
    $sth = $dbh->prepare("DELETE FROM maia_users WHERE id = ?");
    $sth->execute(array($uid));
    if (PEAR::isError($sth)) {
        die($sth->getMessage());
    }
}
function delete_user($uid)
{
    global $dbh;
    // Delete any e-mail addresses this user owns
    delete_user_email_addresses($uid);
    // Delete the user's statistics
    $delete = "DELETE FROM maia_stats WHERE user_id = ?";
    $dbh->query($delete, array($uid));
    // Delete the user's white/blacklist entries
    delete_user_wb_entries($uid);
    // Delete the user's domain admin records
    $delete = "DELETE FROM maia_domain_admins WHERE admin_id = ?";
    $dbh->query($delete, array($uid));
    // Delete the user's mail references
    delete_user_mail_references($uid);
    // Delete the user's record itself
    $delete = "DELETE FROM maia_users WHERE id = ?";
    $dbh->query($delete, array($uid));
}