| +-----------------------------------------------------------------------+ $Id$ */ define('INSTALL_PATH', realpath(dirname(__FILE__).'/..') . '/'); require INSTALL_PATH.'program/include/iniset.php'; $config = new rcube_config(); // don't allow public access if not in devel_mode if (!$config->get('devel_mode') && $_SERVER['REMOTE_ADDR']) { header("HTTP/1.0 401 Access denied"); die("Access denied!"); } $dbh =& MDB2::factory($config->get('db_dsnw'), $options); if (PEAR::isError($dbh)) { exit($mdb2->getMessage()); } //TODO: transaction here (if supported by DB) would be a good thing $res =& $dbh->exec("DELETE FROM cache"); if (PEAR::isError($res)) { $dbh->disconnect(); exit($res->getMessage()); }; $res =& $dbh->exec("DELETE FROM messages"); if (PEAR::isError($res)) { $dbh->disconnect(); exit($res->getMessage()); }; echo "Cache cleared\n"; $dbh->disconnect(); ?>