From edff14de60605e402071bd12a924f18063d82562 Mon Sep 17 00:00:00 2001
From: x2003bruneau <x2003bruneau@9869982d-c50d-0410-be91-f2a2ec7c7c7b>
Date: Mon, 29 Jan 2007 19:37:45 +0000
Subject: [PATCH] Can configure spool root

git-svn-id: svn+ssh://murphy/home/svn/banana/trunk@183 9869982d-c50d-0410-be91-f2a2ec7c7c7b
---
 banana/banana.inc.php.in | 1 +
 banana/spool.inc.php     | 3 +--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/banana/banana.inc.php.in b/banana/banana.inc.php.in
index 5da2a44..6725a7e 100644
--- a/banana/banana.inc.php.in
+++ b/banana/banana.inc.php.in
@@ -29,6 +29,7 @@ class Banana
     static public $mimeparts = array();
 
 ### Spool ###
+    static public $spool_root    = '/var/spool/banana';
     static public $spool_max     = 3000;
     static public $spool_tbefore = 5;
     static public $spool_tafter  = 5;
diff --git a/banana/spool.inc.php b/banana/spool.inc.php
index 172e4aa..8f8da45 100644
--- a/banana/spool.inc.php
+++ b/banana/spool.inc.php
@@ -106,8 +106,7 @@ class BananaSpool
 
     private static function spoolFilename($group)
     {
-        $file = dirname(dirname(__FILE__));
-        $file .= '/spool/' . Banana::$protocole->name() . '/';
+        $file = Banana::$spool_root . '/' . Banana::$protocole->name() . '/';
         if (!is_dir($file)) {
             mkdir($file);
         }
-- 
2.1.4