Subversion Repositories Applications.papyrus

<?php

// $Id: ezmlm.php,v 1.6 2007-10-01 15:54:54 alexandre_tb Exp $

//

// ezmlm.php - ezmlm-php v2.0

// --------------------------------------------------------------

// As the site that ezmlm-php was developed for grew, and grew

// the old system used had to be bandaid fixed more, and more

// because the site started moving to an object oriented design

// for all the backend systems and ezmlm wasn't playing nice

// with the new design. So, ezmlm was redesigned too, and here

// it is.

//

// It may look a little more confusing if you're not used to

// working with objects but it actually is much more effiecient

// and organized in it's new incarnation.

// Simply edit the variables in the ezmlm-php constructor below

// just like you would with the old ezmlm-php-config.php file,

// if you're unsure howto do this check out the file CONFIG,

// then check the USAGE file for how you should include and use

// the new classes if you are integrating ezmlm-php into your

// site.

// (SEARCH FOR: USER-CONFIG to find where to edit.)

// --------------------------------------------------------------

require_once("ezmlm-errors.def");

require_once("ezmlm-parser.php");

require_once("ezmlm-threads.php");

require_once("ezmlm-listinfo.php");

require_once("ezmlm-msgdisplay.php");

require_once("ezmlm-repondre.php");

require_once("ezmlm-author.php");

$GLOBALS['mois'] = array ('Jan', 'Fév', 'Mars', 'Avril', 'Mai', 'Juin', 'Juil', 'Août', 'Sept', 'Oct', 'Nov', 'Dèc') ;

// CLASS: ezmlm_php

// the base class, contains common functions and the config

class ezmlm_php {

	var $listdir;		// the root directory of the list

	var $listname;		// the list address upto the @

	var $listdomain;	// the domain for the list

	var $tempdir;		// a directory in which the webserver can write cache files

	var $sendheaders;	// send generic page headers

	var $sendbody;		// send generic body definitions

	var $sendfooters;	// send generic page footers

	var $includebefore;	// a file to include before the content

	var $includeafter;	// a file to include after the content

	var $href;		// what to add before the '?param=value' in links

	var $prefertype;	// what mime type do you prefer?

	var $showheaders;	// what headers should we show?

	var $msgtemplate;	// the template for displaying messages (see the file TEMPLATE)

	var $tablecolours;	// what are the colours for the table rows?

	var $thread_subjlen;	// the maximum length of subjects in the thread view (0 = no limit)

	var $forcehref;		// force the base of makelink();

	// --------- END USER CONFIGURATION ---------

	// Internal variables

	var $action = '';

	var $actionargs;

	function ezmlm_php() {

		// USER-CONFIG section

		// these variables act the same way ezmlm-php-config.php did in the first release

		// simply edit these variables to match your setup

		$this->listdir		= "";

		$this->listname		= "";

		$this->listdomain	= "";

		$this->tempdir		= "";

		$this->sendheaders	= TRUE;

		$this->sendbody		= TRUE;

		$this->sendfooters	= TRUE;

		$this->includebefore	= "";

		$this->includeafter	= "";

		$this->href		= "";

		$this->prefertype	= "text/html";

		$this->showheaders	= array(

						"to",

						"from",

						"subject",

						"date"

					);

        $this->header_en_francais = array ('to' => 'A',

                                            'from' => 'De',

                                            'subject' => 'Sujet',

                                            'date' => 'Date') ;

		$this->msgtemplate	= "<pre><ezmlm-body></pre>"; // if blank it will use the internal one

		$this->tablecolours	= array(

						// delete the next line if you don't want alternating colours

						"#eeeeee",

						"#ffffff"

					);

		$this->thread_subjlen	= 55;

		// --- STOP EDITING HERE ---

		// some sanity checking

		if ((!is_dir($this->listdir . "/archive")) or

		    (!is_dir($this->listdir . "/archive/authors")) or

		    (!is_dir($this->listdir . "/archive/threads")) or

		    (!is_dir($this->listdir . "/archive/subjects"))) {

            return false ;

			/*$this->error(EZMLM_INVALID_DIR,TRUE);*/

		}

	}

	function set_action($action) {

		if (is_array($action)) { $this->error(EZMLM_INVALID_SYNTAX,TRUE); }

		$this->action = $action;

	}

	function set_actionargs($actionargs) {

		if ($this->action == '') { $this->error(EZMLM_INVALID_SYNTAX,TRUE); }

		$this->actionargs = $actionargs;

	}

	function run() {

		if ($this->action == '') { $this->error(EZMLM_INVALID_SYNTAX,TRUE); }

		if ($this->sendheaders) { $this->sendheaders(); }

		if ($this->sendbody) { $this->sendbody(); }

		if ($this->includebefore != '') { @include_once($this->includebefore); }

		switch ($this->action) {

			case "list_info":

				$info = new ezmlm_listinfo();

				$info->display();

				break;

			case "show_msg":

				if (count($this->actionargs) < 2) {

					$this->error(EZMLM_INVALID_SYNTAX,TRUE);

				}

				$show_msg = new ezmlm_msgdisplay();

				$show_msg->display($this->actionargs[0] . "/" . $this->actionargs[1]);

				break;

			case "show_threads":

				$threads = new ezmlm_threads();

				$threads->load($this->actionargs[0]);

				break;

			case "show_author_msgs":

				$author = new ezmlm_author();

				$author->display($this->actionargs[0]);

				break;

		}

		if ($this->includeafter != '') { @include_once($this->includeafter); }

		if ($this->sendfooters) { $this->sendfooters(); }

	}

	function sendheaders() {

		print "<html><head>\n";

		print "<style type=\"text/css\">\n";

		print "<!--\n";

		print ".heading { font-family: helvetica; font-size: 16px; line-height: 18px; font-weight: bold; }\n";

		print "//-->\n";

		print "</style>\n";

		print "</head>\n";

	}

	function sendbody() {

		print "<body>\n";

	}

	function sendfooters() {

		print "</body>\n";

		print "</html>\n";

	}

	// begin common functions

	// makehash - generates an author hash using the included makehash program

	function makehash($str) {

         $str = preg_replace ('/>/', '', $str) ;

        $handle = popen ('/usr/local/lib/safe_mode/makehash \''.$str.'\'', 'r') ;

        $hash = fread ($handle, 256) ;

        pclose ($handle) ;

		return $hash;

	}

	// makelink - writes the <a href=".."> tag

	function makelink($params,$text) {

		if ($this->forcehref != "") {

			$basehref = $this->forcehref;

		} else {

			$basehref = preg_replace('/^(.*)\?.*/', '\\1', $_SERVER['REQUEST_URI']);

		}

		$link = '<a href="'. $basehref . '&amp;' . $params . '">' . $text . '</a>';

		return $link;

	}

	// md5_of_file - provides wrapper function that emulates md5_file for PHP < 4.2.0

	function md5_of_file($file) {

		if (function_exists("md5_file")) { // php >= 4.2.0

			return md5_file($file);

		} else {

			if (is_file($file)) {

				$fd = fopen($file, "rb");

				$filecontents = fread($fd, filesize($file));

				fclose ($fd);

				return md5($filecontents);

			} else {

				return FALSE;

			}

		}

	}

	// protect_email - protects email address turns user@domain.com into user@d...

	function protect_email($str,$short = FALSE) {

		if (preg_match("/[a-zA-Z0-9\-\.]\@[a-zA-Z0-9\-\.]*\./", $str)) {

			$outstr = preg_replace("/([a-zA-Z0-9\-\.]*\@)([a-zA-Z0-9\-\.])[a-zA-Z0-9\-\.]*\.[a-zA-Z0-9\-\.]*/","\\1\\2...",$str);

			$outstr = preg_replace("/\</", '&lt;', $outstr);

			$outstr = preg_replace("/\>/", '>', $outstr);

		} else {

			$outstr = $str;

		}

		if ($short) {

			$outstr = preg_replace("/<.*>/", '', $outstr);

			$outstr = preg_replace("/[\"']/", '', $outstr);

		}

		return trim($outstr);

	}

	// cleanup_body: sortta like protect_email, just for message bodies

	function cleanup_body($str) {

			$outstr = preg_replace("/([a-zA-Z0-9\-\.]*\@)([a-zA-Z0-9\-\.])[a-zA-Z0-9\-\.]*\.[a-zA-Z0-9\-\.]*/","\\1\\2...",$str);

			return $outstr;

	}

	function error($def, $critical = FALSE) {

		global $ezmlm_error;

		print "\n\n";

		print "<table width=600 border=1 cellpadding=3 cellspacing=0>\n";

		print "<tr bgcolor=\"#cccccc\"><td><b>EZMLM-PHP Error: " . $ezmlm_error[$def]['title'] . "</td></tr>\n";

		print "<tr bgcolor=\"#aaaaaa\"><td>" . $ezmlm_error[$def]['body'] . "</td></tr>\n";

		print "</table>\n\n";

		if ($critical) { die; }

	}

    /**

     *  Parse une chaime et supprime les problème d'encodage de type ISO-4 ...

     *

     * @return string

     */

    function decode_iso ($chaine) {

        if (preg_match ('/windows-[0-9][0-9][0-9][0-9]/i', $chaine, $nombre)) {

            $reg_exp = $nombre[0] ;

            $chaine = str_replace(' ', '', $chaine);

        } else {

            $reg_exp = 'ISO-8859-15?' ;

        }

        if (preg_match ('/UTF/i', $chaine)) $reg_exp = 'UTF-8' ;

        preg_match_all ("/=\?$reg_exp\?(Q|B)\?(.*?)\?=/i", $chaine, $match, PREG_PATTERN_ORDER)  ;

        for ($i = 0; $i < count ($match[0]); $i++ ) {

                if (strtoupper($match[1][$i]) == 'Q') {

                    $decode = quoted_printable_decode ($match[2][$i]) ;

                } elseif ($match[1][$i] == 'B') {

                    $decode = base64_decode ($match[2][$i]) ;

                }

                $decode = preg_replace ("/_/", " ", $decode) ;

            if ($reg_exp == 'UTF-8') {

                $decode = utf8_decode ($decode) ;

            }

            $chaine = str_replace ($match[0][$i], $decode, $chaine) ;

        }

        return $chaine ;

    }

    /**

     *

     *

     * @return

     */

    function date_francaise ($date_mail) {

        $date_mail = preg_replace ('/\(?CEST\)?/', '', $date_mail) ;

        $numero_mois = date('m ', strtotime($date_mail)) - 1 ;

        $date = date ('d ', strtotime($date_mail)).$GLOBALS['mois'][$numero_mois] ; // Le jour et le mois

        $date .= date(' Y ', strtotime($date_mail)) ; // l'année

        if (date('a', strtotime($date_mail)) == 'pm') {

            $date .= (int) date('g', strtotime($date_mail)) + 12 ;  // Les heures

        } else {

            $date .= date('g', strtotime($date_mail)) ;

        }

        $date .= date(':i', strtotime($date_mail)) ;    // Les minutes

        return $date ;

    }

    /**

     * Cette fonction renvoie le prefixe, cad 0 ou rien

     * d un nom de message, ex : pour 09, on renvoie 0

     * pour 12 on renvoie rien

     */

    function prefixe_nom_message($nom) {

    	if (preg_match ('/0([1-9][0-9]*)/', $nom, $match)) {

			$nom_fichier = $match[1];

			return '0' ;

		} else {

			return '' ;

		}

    }

}

//

// --- END OF CLASS DEFINITION ---

//

// FIN