diff --git a/checkin_notes b/checkin_notes
index 632440c61a..c846c09a37 100755
--- a/checkin_notes
+++ b/checkin_notes
@@ -436,3 +436,13 @@ Rom    10 Jan 2007
         
     client/win/
         win_screensaver.cpp
+
+David  11 Jan 2007
+    - Add script to clean up web cache.
+        Sometimes the cache gets so full that it takes 30 secs
+        just to compute free and used disk space,
+        so that normal cleanup times out before it does anything.
+        I recommend running clean_cache.php once a day.
+
+    html/ops/
+        clean_cache.php (new)
diff --git a/html/ops/clean_cache.php b/html/ops/clean_cache.php
new file mode 100755
index 0000000000..5024b6344d
--- /dev/null
+++ b/html/ops/clean_cache.php
@@ -0,0 +1,22 @@
+#! /usr/bin/env php
+<?php
+require_once("../inc/cache.inc");
+
+set_time_limit(0);
+
+function cache_check_diskspace2(){
+   $too_old = 86400;
+   while (1) {
+       $f = disk_free_space("../cache");
+       $u = disk_usage("../cache");
+       echo "free: $f used: $u\n";
+       if ($f > MIN_FREE_SPACE && $u < MAX_CACHE_USAGE) {
+           break;
+       }
+       clean_cache($too_old, "../cache");
+       $too_old/=2;
+   }
+}
+
+cache_check_diskspace2();
+?>