Implements a url-shortener (Closes #1042).
[platal.git] / include / banana / ml.inc.php
index e6dd670..6c703cf 100644 (file)
@@ -1,6 +1,6 @@
 <?php
 /***************************************************************************
- *  Copyright (C) 2003-2010 Polytechnique.org                              *
+ *  Copyright (C) 2003-2011 Polytechnique.org                              *
  *  http://opensource.polytechnique.org/                                   *
  *                                                                         *
  *  This program is free software; you can redistribute it and/or modify   *
@@ -19,7 +19,6 @@
  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  ***************************************************************************/
 
-require_once 'banana/banana.inc.php';
 require_once 'banana/hooks.inc.php';
 
 class PlatalBananaMLPage extends PlatalBananaPage
@@ -47,17 +46,17 @@ class MLBanana extends Banana
     static public $domain;
     private $user;
 
-    function __construct(User &$user, $params = null)
+    function __construct(User $user, $params = null)
     {
         global $globals;
         $this->user = &$user;
 
-        Banana::$spool_root = $globals->banana->spool_root;
+        Banana::$spool_root = $globals->spoolroot . '/spool/banana/';
         Banana::$spool_boxlist = false;
         Banana::$msgedit_canattach = true;
         Banana::$debug_mbox = ($globals->debug & DEBUG_BT);
         Banana::$debug_smarty = ($globals->debug & DEBUG_SMARTY);
-        Banana::$mbox_helper = $globals->banana->mbox_helper;
+        Banana::$mbox_helper = $globals->spoolroot . '/banana/mbox-helper/mbox-helper';
         Banana::$feed_updateOnDemand = true;
         if (S::admin()) {
             Banana::$msgshow_mimeparts[] = 'source';
@@ -105,7 +104,7 @@ class MLBanana extends Banana
     }
 }
 
-require_once('banana/mbox.inc.php');
+require_once dirname(__FILE__) . '/../../banana/banana/mbox.inc.php';
 
 class BananaMLArchive extends BananaMBox
 {