From 635184d33dfb8b955a162e37863bc7b8e4541f2b Mon Sep 17 00:00:00 2001
From: Michael Andreen <harv@ruin.nu>
Date: Sun, 16 Nov 2008 15:43:13 +0100
Subject: [PATCH] Tweaked the cache and added a cleaning script

---
 lib/NDWeb.pm           |  3 +++
 scripts/clean_cache.pl | 14 ++++++++++++++
 2 files changed, 17 insertions(+)
 create mode 100755 scripts/clean_cache.pl

diff --git a/lib/NDWeb.pm b/lib/NDWeb.pm
index d7aec96..8d90ff4 100644
--- a/lib/NDWeb.pm
+++ b/lib/NDWeb.pm
@@ -38,12 +38,15 @@ __PACKAGE__->config( cache => {
 	backend => {
 		class => "Cache::FileCache",
 		cache_root => "/tmp/ndweb-$>",
+		namespace => "cache",
+		default_expires_in => 3600,
 		directory_umask => 077,
 	},
 });
 
 __PACKAGE__->config( page_cache => {
 	set_http_headers => 1,
+	disable_index => 1,
 });
 
 
diff --git a/scripts/clean_cache.pl b/scripts/clean_cache.pl
new file mode 100755
index 0000000..313bbe5
--- /dev/null
+++ b/scripts/clean_cache.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl -w
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/../lib";
+
+use Cache::FileCache;
+
+my $cache = new Cache::FileCache({cache_root => "/tmp/ndweb-$<", namespace => 'cache'} );
+
+$cache->purge;
+
-- 
2.39.2