Fix xface handling in case it contains =?(B|Q)?...?=

[banana.git] / banana / banana.inc.php.in

<?php
/********************************************************************************
* install.d/config.inc.php : configuration file
* --------------------------
*
* This file is part of the banana distribution
* Copyright: See COPYING files that comes with this distribution
********************************************************************************/

class Banana
{
    var $maxspool    = 3000;

    var $hdecode     = array('from','name','organization','subject');
    var $parse_hdr   = array('content-disposition', 'content-transfer-encoding', 'content-type', 'date', 'followup-to', 'from',
            'message-id', 'newsgroups', 'organization', 'references', 'subject', 'x-face');
    var $show_hdr    = array('from', 'newsgroups', 'followup', 'date', 'organization', 'references', 'x-face');

    /** Favorites MIMEtypes to use, by order for reading multipart messages
     */
    var $body_mime   = array('text/plain', 'text/html', 'text/richtext');
    /** Indicate wether posting attachment is allowed
     */
    var $can_attach  = true;
    /** Maximum allowed file size for attachment
     */
    var $maxfilesize = 100000;
    /** Indicate wether x-face should be skinned as specials data or not
     */
    var $formatxface = true;

    /** Regexp for selecting newsgroups to show (if empty, match all newsgroups)
     * ex : '^xorg\..*' for xorg.*
     */
    var $grp_pattern;

    var $tbefore     = 5;
    var $tafter      = 5;
    var $tmax        = 50;

    var $wrap        = 74;
    /** Match an url
     * Should be included in a regexp delimited using ! (eg: "!$url_regexp!i")
     * If it matches, return 3 main parts :
     *  \\1 and \\3 are delimiters
     *  \\2 is the url
     *
     * eg : preg_match("!$url_regexp!i", "[http://www.polytechnique.org]", $matches);
     *   $matches[1] = "["
     *   $matches[2] = "http://www.polytechnique.org"
     *   $matches[3] = "]"
     */
    var $url_regexp  = '(["\[])?((?:https?|ftp|news)://(?:&amp;|,?[a-z@0-9.~%$£µ&i#\-+=_/\?])*)(["\]])?';

    
    /** Boundary for multipart messages
     */
    var $boundary    = 'bananaBoundary42';
    /** Global headers to use for messages
     */
    var $custom      = "Mime-Version: 1.0\nUser-Agent: Banana @VERSION@\n";
    /** Global headers to use from multipart messages
     */
    var $custom_mp   = "Content-Type: multipart/mixed; boundary=\"bananaBoundary42\"\nContent-Transfer-Encoding: 7bit\n";
    /** Body type when using plain text
     */
    var $custom_plain= "Content-Type: text/plain; charset=utf-8\nContent-Transfert-Encoding: 8bit\n"; 

    /** News serveur to use
     */
    var $host        = 'news://localhost:119/';

    /** User profile
     */
    var $profile     = Array( 'name' => 'Anonymous <anonymouse@example.com>', 'sig'  => '', 'org'  => '',
            'customhdr' =>'', 'display' => 0, 'lastnews' => 0, 'locale'  => 'fr_FR', 'subscribe' => array());
    
    var $state       = Array('group' => null, 'artid' => null);
    var $nntp;
    var $groups;
    var $newgroups;
    var $post;
    var $spool;

    var $get;

    function Banana()
    {
        $this->_require('NetNNTP');
        setlocale(LC_ALL,  $this->profile['locale']);
        $this->nntp = new nntp($this->host);
        if (!$this->nntp || !$this->nntp->valid) {
            $this->nntp = null;
        }
    }

    /** Run Banana
     * @param STRING class Name of the class to use
     * @param ARRAY  myget If defined is used instead of get
     */
    function run($class = 'Banana', $myget = null)
    {
        global $banana;

        Banana::_require('misc');
        $banana = new $class();

        if (is_null($myget)) {
            $banana->get = $_GET;
        } else {
            $banana->get = $myget;
        }


        if (!$banana->nntp) {
            return '<p class="error">'._b_('Impossible de contacter le serveur').'</p>';
        }

        $group  = empty($banana->get['group']) ? null : $banana->get['group'];
        if (isset($banana->grp_pattern) && !preg_match('/' . $banana->grp_pattern . '/', $group)) {
            return '<p class="error">'
                    . $group . _b_(' : ce newsgroup n\'existe pas ou vous n\'avez pas l\'autorisation d\'y accéder')
                    . '</p>';
        }
        $artid  = empty($banana->get['artid']) ? null : strtolower($banana->get['artid']);
        $partid = !isset($banana->get['part']) ? -1 : $banana->get['part'];
        $banana->state = Array ('group' => $group, 'artid' => $artid);

        if (is_null($group)) {
            if (isset($banana->get['subscribe'])) {
                return $banana->action_listSubs();
            } elseif (isset($_POST['validsubs'])) {
                $banana->action_saveSubs();
            }
            return $banana->action_listGroups();

        } elseif (is_null($artid)) {
            if (isset($_POST['action']) && $_POST['action'] == 'new') {
                return $banana->action_doFup($group, isset($_POST['artid']) ? intval($_POST['artid']) : -1);
            } elseif (isset($banana->get['action']) && $banana->get['action'] == 'new') {
                return $banana->action_newFup($group);
            } else {
                return $banana->action_showThread($group, isset($banana->get['first']) ? intval($banana->get['first']) : 1);
            }

        } else {
            if (isset($_POST['action']) && $_POST['action']=='cancel') {
                $res = $banana->action_cancelArticle($group, $artid);
            } else {
                $res = '';
            }

            if (isset($banana->get['action'])) {
                switch ($banana->get['action']) {
                    case 'cancel':
                        $res .= $banana->action_showArticle($group, $artid, $partid);
                        if ($banana->post->checkcancel()) {
                            $form = '<p class="error">'._b_('Voulez-vous vraiment annuler ce message ?').'</p>'
                                  . '<form action="' 
                                  . htmlentities(makeLink(Array('group' => $group,
                                                                'artid' => $artid)))
                                  . '" method="post"><p>'
                                  . '<input type="hidden" name="action" value="cancel" />'
                                  . '<input type="submit" value="Annuler !" />'
                                  . '</p></form>';
                            return $form.$res;
                        }
                        return $res;

                    case 'new':
                        return $banana->action_newFup($group, $artid);
                }
            }

            if (isset($banana->get['pj'])) {
                $action = false;
                if (isset($banana->get['action']) && $banana->get['action'] == 'view') {
                    $action = true;
                }
                $att = $banana->action_getAttachment($group, $artid, $banana->get['pj'], $action);
                if ($att != "") {
                    return $res.$att;
                }
                return "";
            }
            
            return $res . $banana->action_showArticle($group, $artid, $partid);
        }
    }

    /**************************************************************************/
    /* actions                                                                */
    /**************************************************************************/

    function action_saveSubs()
    {
        return;
    }

    function action_listGroups()
    {
        $this->_newGroup();
        
        $cuts = displayshortcuts();
        $res  = '<h1>'._b_('Les forums de Banana').'</h1>'.$cuts.$this->groups->to_html();
        if (count($this->newgroups->overview)) {
            $res .= '<p>'._b_('Les forums suivants ont été créés depuis ton dernier passage :').'</p>';
            $res .= $this->newgroups->to_html();
        }

        $this->nntp->quit();
        return $res.$cuts;
    }

    function action_listSubs()
    {
        $this->_require('groups');
        $this->groups = new BananaGroups(BANANA_GROUP_ALL);
        
        $cuts = displayshortcuts();
        $res  = '<h1>'._b_('Abonnements').'</h1>'.$cuts.$this->groups->to_html(true).$cuts;

        $this->nntp->quit();
        return $res;
    }

    function action_showThread($group, $first)
    {
        if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
            return '<p class="error">'._b_('Impossible charger la liste des messages de ') . $group . '</p>';
        }

        if ($first > count($this->spool->overview)) {
            $first = count($this->spool->overview);
        }

        $first = $first - ($first % $this->tmax) + 1;

        $cuts = displayshortcuts($first);
        
        $res  = '<h1>'.$group.'</h1>'.$cuts;
        $res  .= $this->spool->to_html($first, $first+$this->tmax);

        $this->nntp->quit();
        
        return $res.$cuts;
    }

    function action_showArticle($group, $id, $part)
    {
        if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
            return '<p class="error">'._b_('Impossible charger la liste des messages de ') . $group . '</p>';
        }

        if (!$this->_newPost($id)) {
            if ($this->nntp->lasterrorcode == "423") {
                $this->spool->delid($id);
            }
            $this->nntp->quit();
            return displayshortcuts().'<p class="error">'._b_('Impossible d\'accéder au message.   Le message a peut-être été annulé').'</p>';
        }

        $cuts = displayshortcuts();
        $res  = '<h1>'._b_('Message').'</h1>'.$cuts;
        $res .= $this->post->to_html($part);

        $this->nntp->quit();
        
        return $res.$cuts;
    }

    function action_getAttachment($group, $id, $pjid, $action)
    {
        if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
            return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
        }

        if (!$this->_newPost($id)) {
            if ($this->nntp->lasterrorcode == "423") {
                $this->spool->delid($id);
            }
            $this->nntp->quit();
            return displayshortcuts().'<p class="error">'._b_('Impossible d\'accéder au message.   Le message a peut-être été annulé').'</p>';
        }

        $this->nntp->quit();
        if ($this->post->get_attachment($pjid, $action)) {
            return "";
        } else {
            return displayshortcuts().'<p calss="error">'._b_('Impossible d\'accéder à la pièce jointe.').'</p>';
        }
    }

    function action_cancelArticle($group, $id)
    {
        if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
            return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
        }

        if (!$this->_newPost($id)) {
            return '<p class="error">'._b_('Impossible de trouver le message à annuler').'</p>';
        }
        $mid  = array_search($id, $this->spool->ids);

        if (!$this->post->checkcancel()) {
            return '<p class="error">'._b_('Vous n\'avez pas les permissions pour annuler ce message').'</p>'; 
        }
        $msg = 'From: '.$this->profile['name']."\n"
             . "Newsgroups: $group\n"
             . "Subject: cmsg $mid\n"
             . $this->custom
             . "Control: cancel $mid\n"
             . "\n"
             . "Message canceled with Banana";
        if ($this->nntp->post($msg)) {
            $this->spool->delid($id);
            $this->nntp->quit();
            redirectInBanana(Array('group' => $group,
                           'first' => $id));
        } else {
            return '<p class="error">'._b_('Impossible d\'annuler le message').'</p>';
        }
    }

    function action_newFup($group, $id = -1)
    {
        $subject = $body = '';
        $target  = $group;
        
        if ($id > 0) {
            $this->nntp->group($group);
            if ($this->_newPost($id)) {
                $subject = preg_replace("/^re\s*:\s*/i", '', 'Re: '.$this->post->headers['subject']);
                $body    = utf8_encode($this->post->name." "._b_("a écrit"))." :\n".wrap($this->post->get_body(), "> ");
                $target  = isset($this->post->headers['followup-to']) ? $this->post->headers['followup-to'] : $this->post->headers['newsgroups'];
            }
        }

        $this->nntp->quit();

        $cuts  = displayshortcuts();
        $html  = '<h1>'._b_('Nouveau message').'</h1>'.$cuts;
        $html .= '<form enctype="multipart/form-data" action="'
               . htmlentities(makeLink(Array('group' => $group)))
               .'" method="post" accept-charset="utf-8">';
        $html .= '<table class="bicol" cellpadding="0" cellspacing="0">';
        $html .= '<tr><th colspan="2">'._b_('En-têtes').'</th></tr>';
        $html .= '<tr><td>'._b_('Nom').'</td><td>'.htmlentities($this->profile['name']).'</td></tr>';
        $html .= '<tr><td>'._b_('Sujet').'</td><td><input type="text" name="subject" value="'.htmlentities($subject).'" size="60" /></td></tr>';
        $html .= '<tr><td>'._b_('Forums').'</td><td><input type="text" name="newsgroups" value="'.htmlentities($target).'" size="60" /></td></tr>';
        $html .= '<tr><td>'._b_('Suivi à').'</td><td><input type="text" name="followup" value="" size="60" /></td></tr>';
        $html .= '<tr><td>'._b_('Organisation').'</td><td>'.$this->profile['org'].'</td></tr>';
        $html .= '<tr><th colspan="2">'._b_('Corps').'</th></tr>';
        $html .= '<tr><td colspan="2"><textarea name="body" cols="74" rows="16">'
              .  to_entities($body).($this->profile['sig'] ? "\n\n-- \n".htmlentities($this->profile['sig']) : '').'</textarea></td></tr>';
        if ($this->can_attach) {
            $html .= '<tr><th colspan="2">'._b_('Pièce jointe').'</th></tr>';
            $html .= '<tr><td colspan="2"><input type="hidden" name="MAX_FILE_SIZE" value="'.$this->maxfilesize.'" />';
            $html .= '<input type="file" name="newpj" size="40"/></td></tr>';
        }
        $html .= '<tr><th colspan="2">';
        if ($id > 0) {
            $html .= '<input type="hidden" name="artid" value="'.$id.'" />';
        }
        $html .= '<input type="hidden" name="action" value="new" />';
        $html .= '<input type="submit" value="Envoyer le message" /></th></tr>';
        $html .= '</table></form>';

        return $html.$cuts;
    }

    function action_doFup($group, $artid = -1)
    {
        if ( ! ( is_utf8($_POST['subject']) && is_utf8($_POST['name'])
                 && is_utf8($_POST['org']) && is_utf8($_POST['body']) )
        ) {
            foreach(array('subject', 'name', 'org', 'body') as $key) {
                $_POST[$key] = utf8_encode($_POST[$key]);
            }
        }
       
        $forums = preg_split('/\s*(,|;)\s*/', $_POST['newsgroups']);
        $fup    = $_POST['followup'];
        if (sizeof($forums) > 1) {
            if (empty($fup)) {
                $fup = $forums[0];
            }
        }
        $to     = implode(',', $forums);
        
        if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
            return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
        }
        
        $body = preg_replace("/\n\.[ \t\r]*\n/m", "\n..\n", $_POST['body']);
        $msg  = 'From: ' . $this->profile['name'] . "\n"
              . "Newsgroups: ". $to . "\n"
              . "Subject: " . headerEncode($_POST['subject'], 128) . "\n"
              . (empty($this->profile['org']) ? '' : "Organization: {$this->profile['org']}\n")
              . (empty($fup) ? '' : 'Followup-To: ' . $fup . "\n");

        if ($artid != -1) {
            $this->_require('post');
            $post = new BananaPost($artid);
            if (!$post || !$post->valid) {
                return '<p class="error">'._b_('Impossible charger le message d\'origine').'</p>';
            }
            $refs = ( isset($post->headers['references']) ? $post->headers['references']." " : "" );
            $msg .= "References: $refs{$post->headers['message-id']}\n";
        }

        $body_headers  = $this->custom_plain;
        $body          = wrap($body, "");

        // include attachment in the body
        $uploaded = $this->_upload('newpj');
        switch ($uploaded['error']) {
            case UPLOAD_ERR_OK:
                $this->custom = $this->custom_mp.$this->custom;
                $body         = $this->_make_part($body_headers, $body);
                $file_head    = 'Content-Type: '.$uploaded['type'].'; name="'.$uploaded['name']."\"\n"
                              . 'Content-Transfer-Encoding: '.$uploaded['encoding']."\n"
                              . 'Content-Disposition: attachment; filename="'.$uploaded['name']."\"\n";
                $body        .= $this->_make_part($file_head, $uploaded['data']);
                $body        .= "\n--".$this->boundary.'--';
                break;

            case UPLOAD_ERR_INI_SIZE: case UPLOAD_ERR_FORM_SIZE:
                return '<p class="error">'._b_('Fichier trop gros pour être envoyé : ')
                        .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);

            case UPLOAD_ERR_PARTIAL:
                return '<p class="error">'._b_('Erreur lors de l\'upload de ')
                        .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);

            case UPLOAD_ERR_NO_FILE:
                return '<p class="error">'._b_('Le fichier spécifié n\'existe pas : ')
                        .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);

            case UPLOAD_ERR_NO_TMP_DIR:
                return '<p class="error">'._b_('Une erreur est survenue sur le serveur lors de l\'upload de ')
                        .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);

            default:
                $this->custom = $body_headers.$this->custom;
        }

        // finalise and post the message
        $msg .= $this->custom.$this->profile['customhdr']."\n".$body;

        if ($this->nntp->post($msg)) {
            $dir = Array('group' => $group);
            if ($artid != -1) {
                $dir['first'] = $artid;
            }
            redirectInBanana($dir);
        } else {
            return '<p class="error">' . _b_('Impossible de poster le message') . '</p>'
                   . $this->action_showThread($group, $artid);
        }
    }

    /**************************************************************************/
    /* Private functions                                                      */
    /**************************************************************************/

    function _newSpool($group, $disp=0, $since='') {
        $this->_require('spool');
        if (!$this->spool || $this->spool->group != $group) {
            $this->spool = new BananaSpool($group, $disp, $since);
            if (!$this->spool || !$this->spool->valid) {
                $this->spool = null;
                return false;
            }
        }
        if (count($this->profile['subscribe']) > 0) {
            $this->_newGroup(false);
        }
        return true;
    }

    function _newPost($id)
    {
        $this->_require('post');
        $this->post = new BananaPost($id);
        if (!$this->post || !$this->post->valid) {
            $this->post = null;
            return false;
        }
        return true;
    }

    function _newGroup($showNew = true)
    {
        $this->_require('groups');
        $this->groups = new BananaGroups(BANANA_GROUP_SUB);
        if ($showNew && $this->groups->type == BANANA_GROUP_SUB) {
            $this->newgroups = new BananaGroups(BANANA_GROUP_NEW);
        }
    }

    function _require($file)
    {
        require_once (dirname(__FILE__).'/'.$file.'.inc.php');
    }

    function _upload($file)
    {
        if ($_FILES[$file]['name'] == "") {
            return Array( 'error' => -1 );
        }

        // upload
        $_FILES[$file]['tmp_name'];

        // test if upload is ok
        $file    = $_FILES[$file];
        if ($file['size'] == 0 || $file['error'] != 0) {
            if ($file['error'] == 0) {
                $file['error'] = -1;
            }
            return $file;
        }

        // adding custum data
        $mime    = rtrim(shell_exec('file -bi '.$file['tmp_name'])); //Because mime_content_type don't work :(
        $encod   = 'base64';
        if (preg_match("@([^ ]+/[^ ]+); (.*)@", $mime, $format)) {
            $mime  = $format[1];
            $encod = $format[2];
        }
        $data = fread(fopen($file['tmp_name'], 'r'), $file['size']);
        if ($encod == 'base64') {
            $data = chunk_split(base64_encode($data));
        }
        $file['name']     = basename($file['name']);
        $file['type']     = $mime;
        $file['encoding'] = $encod;
        $file['data']     = $data;

        return $file;
    }

    function _make_part($headers, $body)
    {
        return "\n--".$this->boundary."\n".$headers."\n".$body;
    }
}

// vim:set et sw=4 sts=4 ts=4
?>