From 155bbb8df6332bc6a9b629f62d1725840f8d89ea Mon Sep 17 00:00:00 2001
From: alecpl <alec@alec.pl>
Date: Tue, 7 Oct 2008 18:32:56 +0000
Subject: - added bin/killcache.php script (#1485434) - added copyrights
 disclaimers

---
 bin/killcache.php | 56 +++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 bin/killcache.php

(limited to 'bin/killcache.php')

diff --git a/bin/killcache.php b/bin/killcache.php
new file mode 100644
index 000000000..d933f4f2b
--- /dev/null
+++ b/bin/killcache.php
@@ -0,0 +1,56 @@
+<?php
+/*
+
+ +-----------------------------------------------------------------------+
+ | bin/killcache.php                                                     |
+ |                                                                       |
+ | This file is part of the RoundCube Webmail client                     |
+ | Copyright (C) 2005-2008, RoundCube Dev. - Switzerland                 |
+ | Licensed under the GNU GPL                                            |
+ |                                                                       |
+ | PURPOSE:                                                              |
+ |   Delete rows from cache and messages tables                          |
+ |                                                                       |
+ +-----------------------------------------------------------------------+
+ | Author: Dennis P. Nikolaenko <dennis@nikolaenko.ru>                   |
+ +-----------------------------------------------------------------------+
+
+ $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();
+
+?>
-- 
cgit v1.2.3