banana/banana.inc.php.in

   1 <?php
   2 /********************************************************************************
   3 * install.d/config.inc.php : configuration file
   4 * --------------------------
   5 *
   6 * This file is part of the banana distribution
   7 * Copyright: See COPYING files that comes with this distribution
   8 ********************************************************************************/
   9
  10 class Banana
  11 {
  12     var $maxspool    = 3000;
  13
  14     var $hdecode     = array('from','name','organization','subject');
  15     var $parse_hdr   = array('content-disposition', 'content-transfer-encoding',
  16                              'content-type', 'content-id', 'date', 'followup-to',
  17                              'from', 'message-id', 'newsgroups', 'organization',
  18                              'references', 'subject', 'x-face');
  19     var $show_hdr    = array('from', 'newsgroups', 'followup', 'date',
  20                              'organization', 'references', 'x-face');
  21
  22     /** Favorites MIMEtypes to use, by order for reading multipart messages
  23      */
  24     var $body_mime   = array('text/plain', 'text/html', 'text/richtext');
  25     /** Indicate wether posting attachment is allowed
  26      */
  27     var $can_attach  = true;
  28     /** Maximum allowed file size for attachment
  29      */
  30     var $maxfilesize = 100000;
  31     /** Indicate wether x-face should be skinned as specials data or not
  32      */
  33     var $formatxface = true;
  34
  35     /** Regexp for selecting newsgroups to show (if empty, match all newsgroups)
  36      * ex : '^xorg\..*' for xorg.*
  37      */
  38     var $grp_pattern;
  39
  40     var $tbefore     = 5;
  41     var $tafter      = 5;
  42     var $tmax        = 50;
  43
  44     var $wrap        = 74;
  45     /** Match an url
  46      * Should be included in a regexp delimited using ! (eg: "!$url_regexp!i")
  47      * If it matches, return 3 main parts :
  48      *  \\1 and \\3 are delimiters
  49      *  \\2 is the url
  50      *
  51      * eg : preg_match("!$url_regexp!i", "[http://www.polytechnique.org]", $matches);
  52      *   $matches[1] = "["
  53      *   $matches[2] = "http://www.polytechnique.org"
  54      *   $matches[3] = "]"
  55      */
  56     var $url_regexp  = '(["\[])?((?:https?|ftp|news)://(?:&amp;|,*[a-z@0-9.~%$£µ&i#\-+=_/\?])*)(["\]])?';
  57
  58
  59     /** Boundary for multipart messages
  60      */
  61     var $boundary    = 'bananaBoundary42';
  62     /** Global headers to use for messages
  63      */
  64     var $custom      = "Mime-Version: 1.0\nUser-Agent: Banana @VERSION@\n";
  65     /** Global headers to use from multipart messages
  66      */
  67     var $custom_mp   = "Content-Type: multipart/mixed; boundary=\"bananaBoundary42\"\nContent-Transfer-Encoding: 7bit\n";
  68     /** Body type when using plain text
  69      */
  70     var $custom_plain= "Content-Type: text/plain; charset=utf-8\nContent-Transfert-Encoding: 8bit\n";
  71
  72     /** News serveur to use
  73      */
  74     var $host        = 'news://localhost:119/';
  75
  76     /** User profile
  77      */
  78     var $profile     = Array( 'name' => 'Anonymous <anonymouse@example.com>', 'sig'  => '', 'org'  => '',
  79             'customhdr' =>'', 'display' => 0, 'lastnews' => 0, 'locale'  => 'fr_FR', 'subscribe' => array());
  80
  81     var $state       = Array('group' => null, 'artid' => null, 'action' => null);
  82     var $nntp;
  83     var $groups;
  84     var $newgroups;
  85     var $post;
  86     var $spool;
  87
  88     var $get;
  89
  90     function Banana()
  91     {
  92         $this->_require('NetNNTP');
  93         setlocale(LC_ALL,  $this->profile['locale']);
  94         $this->nntp = new nntp($this->host);
  95         if (!$this->nntp || !$this->nntp->valid) {
  96             $this->nntp = null;
  97         }
  98     }
  99
 100     /** Run Banana
 101      * @param STRING class Name of the class to use
 102      * @param ARRAY  myget If defined is used instead of get
 103      */
 104     function run($class = 'Banana', $myget = null)
 105     {
 106         global $banana;
 107
 108         Banana::_require('misc');
 109         $banana = new $class();
 110
 111         if (is_null($myget)) {
 112             $banana->get = $_GET;
 113         } else {
 114             $banana->get = $myget;
 115         }
 116
 117         if (!$banana->nntp) {
 118             $banana->state['page'] = 'error';
 119             return makeTable('<p class="error">'._b_('Impossible de contacter le serveur').'</p>');
 120         }
 121
 122         $group  = empty($banana->get['group']) ? null : $banana->get['group'];
 123         if (!is_null($group)
 124                 &&  isset($banana->grp_pattern) && !preg_match('/' . $banana->grp_pattern . '/', $group)) {
 125             $banana->state['page'] = 'error';
 126             return makeTable('<p class="error">'
 127                     . $group . _b_(' : ce newsgroup n\'existe pas ou vous n\'avez pas l\'autorisation d\'y accéder')
 128                     . '</p>');
 129         }
 130         $artid  = empty($banana->get['artid']) ? null : strtolower($banana->get['artid']);
 131         $partid = !isset($banana->get['part']) ? -1 : $banana->get['part'];
 132         $action = !isset($banana->get['action']) ? null : $banana->get['action'];
 133         $banana->state = Array ('group' => $group, 'artid' => $artid, 'action' => $action);
 134
 135         if (is_null($group)) {
 136             if (isset($banana->get['subscribe'])) {
 137                 $banana->state['page'] = 'subscribe';
 138                 return makeTable($banana->action_listSubs());
 139             } elseif (isset($_POST['validsubs'])) {
 140                 $banana->action_saveSubs();
 141             }
 142             $banana->state['page'] = 'forums';
 143             return makeTable($banana->action_listGroups());
 144
 145         } elseif (is_null($artid)) {
 146             if (isset($_POST['action']) && $_POST['action'] == 'new') {
 147                 return makeTable($banana->action_doFup($group, isset($_POST['artid']) ? intval($_POST['artid']) : -1));
 148             } elseif ($action == 'new') {
 149                 $banana->state['page'] = 'action';
 150                 return makeTable($banana->action_newFup($group));
 151             } else {
 152                 $banana->state['page'] = 'group';
 153                 return makeTable($banana->action_showThread($group, isset($banana->get['first']) ? intval($banana->get['first']) : 1));
 154             }
 155
 156         } else {
 157             if (isset($_POST['action']) && $_POST['action']=='cancel') {
 158                 $res = $banana->action_cancelArticle($group, $artid);
 159             } else {
 160                 $res = '';
 161             }
 162
 163             if (!is_null($action)) {
 164                 $banana->state['page'] = 'action';
 165                 switch ($action) {
 166                     case 'cancel':
 167                         $res .= $banana->action_showArticle($group, $artid, $partid);
 168                         if ($banana->post->checkcancel()) {
 169                             $form = '<p class="error">'._b_('Voulez-vous vraiment annuler ce message ?').'</p>'
 170                                   . '<form action="'
 171                                   . htmlentities(makeLink(Array('group' => $group,
 172                                                                 'artid' => $artid)))
 173                                   . '" method="post"><p>'
 174                                   . '<input type="hidden" name="action" value="cancel" />'
 175                                   . '<input type="submit" value="Annuler !" />'
 176                                   . '</p></form>';
 177                             return makeTable($form . $res);
 178                         }
 179                         return makeTable("" . $res);
 180
 181                     case 'new':
 182                         return makeTable($banana->action_newFup($group, $artid));
 183                 }
 184             }
 185
 186             if (isset($banana->get['pj'])) {
 187                 $view = false;
 188                 if ($action == 'view') {
 189                     $view = true;
 190                 }
 191                 $att = $banana->action_getAttachment($group, $artid, $banana->get['pj'], $view);
 192                 return makeTable($res . $att);
 193             }
 194
 195             $banana->state['page'] = 'message';
 196             return makeTable($banana->action_showArticle($group, $artid, $partid));
 197         }
 198     }
 199
 200     /**************************************************************************/
 201     /* actions                                                                */
 202     /**************************************************************************/
 203
 204     function action_saveSubs()
 205     {
 206         return;
 207     }
 208
 209     function action_listGroups()
 210     {
 211         $this->_newGroup();
 212
 213         $res  = $this->groups->to_html();
 214         if (count($this->newgroups->overview)) {
 215             $res .= '<p>'._b_('Les forums suivants ont été créés depuis ton dernier passage :').'</p>';
 216             $res .= $this->newgroups->to_html();
 217         }
 218
 219         $this->nntp->quit();
 220         return $res;
 221     }
 222
 223     function action_listSubs()
 224     {
 225         $this->_require('groups');
 226         $this->groups = new BananaGroups(BANANA_GROUP_ALL);
 227
 228         $res  = $this->groups->to_html(true);
 229
 230         $this->nntp->quit();
 231         return $res;
 232     }
 233
 234     function action_showThread($group, $first)
 235     {
 236         if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
 237             return '<p class="error">'._b_('Impossible charger la liste des messages de ') . $group . '</p>';
 238         }
 239
 240         if ($first > count($this->spool->overview)) {
 241             $first = count($this->spool->overview);
 242         }
 243
 244         $first = $first - ($first % $this->tmax) + 1;
 245
 246         $pages = displayPages($first);
 247         $res  = $pages . $this->spool->to_html($first, $first+$this->tmax) . $pages;
 248
 249         $this->nntp->quit();
 250
 251         return $res;
 252     }
 253
 254     function action_showArticle($group, $id, $part)
 255     {
 256         if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
 257             return '<p class="error">'._b_('Impossible charger la liste des messages de ') . $group . '</p>';
 258         }
 259
 260         if (!$this->_newPost($id)) {
 261             if ($this->nntp->lasterrorcode == "423") {
 262                 $this->spool->delid($id);
 263             }
 264             $this->nntp->quit();
 265             return '<p class="error">'._b_('Impossible d\'accéder au message.   Le message a peut-être été annulé').'</p>';
 266         }
 267
 268         $res = $this->post->to_html($part);
 269
 270         $this->nntp->quit();
 271
 272         return $res;
 273     }
 274
 275     function action_getAttachment($group, $id, $pjid, $action)
 276     {
 277         if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
 278             return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
 279         }
 280
 281         if (!$this->_newPost($id)) {
 282             if ($this->nntp->lasterrorcode == "423") {
 283                 $this->spool->delid($id);
 284             }
 285             $this->nntp->quit();
 286             return '<p class="error">'._b_('Impossible d\'accéder au message.   Le message a peut-être été annulé').'</p>';
 287         }
 288
 289         $this->nntp->quit();
 290         if ($this->post->get_attachment($pjid, $action)) {
 291             return "";
 292         } else {
 293             return '<p calss="error">'._b_('Impossible d\'accéder à la pièce jointe.').'</p>';
 294         }
 295     }
 296
 297     function action_cancelArticle($group, $id)
 298     {
 299         if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
 300             return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
 301         }
 302
 303         if (!$this->_newPost($id)) {
 304             return '<p class="error">'._b_('Impossible de trouver le message à annuler').'</p>';
 305         }
 306         $mid  = array_search($id, $this->spool->ids);
 307
 308         if (!$this->post->checkcancel()) {
 309             return '<p class="error">'._b_('Vous n\'avez pas les permissions pour annuler ce message').'</p>';
 310         }
 311         $msg = 'From: '.$this->profile['name']."\n"
 312              . "Newsgroups: $group\n"
 313              . "Subject: cmsg $mid\n"
 314              . $this->custom
 315              . "Control: cancel $mid\n"
 316              . "\n"
 317              . "Message canceled with Banana";
 318         if ($this->nntp->post($msg)) {
 319             $ndx = $this->spool->getndx($artid) - 1;
 320             if ($ndx > 50) {
 321                 $ndx = 0;
 322             }
 323             $this->spool->delid($id);
 324             $this->nntp->quit();
 325             redirectInBanana(Array('group' => $group,
 326                                    'first' => $ndx));
 327         } else {
 328             return '<p class="error">'._b_('Impossible d\'annuler le message').'</p>';
 329         }
 330     }
 331
 332     function action_newFup($group, $id = -1)
 333     {
 334         $subject = $body = '';
 335         $target  = $group;
 336
 337         if (@$_POST['action'] == 'new') {
 338             $subject  = $_POST['subject'];
 339             $body     = $_POST['body'];
 340             $target   = $_POST['newsgroups'];
 341             $followup = $_POST['followup'];
 342             $this->state['page']   = 'action';
 343             $this->state['group']  = $group;
 344             $this->state['action'] = 'new';
 345             if ($id != -1) {
 346                 $this->state['artid'] = $id;
 347             }
 348         } elseif ($id > 0) {
 349             $this->nntp->group($group);
 350             if ($this->_newPost($id)) {
 351                 $subject  = 'Re: ' . preg_replace("/^re\s*:\s*/i", '', $this->post->headers['subject']);
 352                 $body     = to_entities(utf8_encode($this->post->name." "._b_("a écrit"))." :\n"
 353                                         . wrap($this->post->get_body(), "> ")
 354                           . ($this->profile['sig'] ? "\n\n-- \n". $this->profile['sig'] : ''));
 355                 $target   = isset($this->post->headers['followup-to']) ?
 356                                 $this->post->headers['followup-to'] : $this->post->headers['newsgroups'];
 357                 $followup = null;
 358             }
 359         } else {
 360             $targe   = $group;
 361             $subject = $followup = null;
 362             $body    = $this->profile['sig'] ? "\n\n-- \n". $this->profile['sig'] : '';
 363         }
 364
 365         $this->nntp->quit();
 366
 367         $html  = '<form enctype="multipart/form-data" action="'
 368                . htmlentities(makeLink(Array('group' => $group)))
 369                . '" method="post" accept-charset="utf-8">'
 370                . '<table class="bicol" cellpadding="0" cellspacing="0">'
 371                . '<tr><th colspan="2">' . _b_('En-têtes') . '</th></tr>'
 372                . '<tr><td>' . _b_('Nom') . '</td>'
 373                . '<td>' . htmlentities($this->profile['name']) . '</td></tr>'
 374                . '<tr><td>' . _b_('Sujet') . '</td>'
 375                . '<td><input type="text" name="subject" value="' . htmlentities($subject) . '" size="60" /></td></tr>'
 376                . '<tr><td>' . _b_('Forums') . '</td>'
 377                . '<td><input type="text" name="newsgroups" value="' . htmlentities($target) . '" size="60" /></td></tr>'
 378                . '<tr><td>' . _b_('Suivi à') . '</td>'
 379                . '<td><input type="text" name="followup" value="' . htmlentities($followup). '" size="60" /></td></tr>'
 380                . '<tr><td>' . _b_('Organisation') . '</td>'
 381                . '<td>' . $this->profile['org'] . '</td></tr>'
 382                . '<tr><th colspan="2">' . _b_('Corps') . '</th></tr>'
 383                . '<tr><td colspan="2"><textarea name="body" cols="74" rows="16">'
 384                .  $body . '</textarea></td></tr>';
 385         if ($this->can_attach) {
 386             $html .= '<tr><th colspan="2">' . _b_('Pièce jointe') . '</th></tr>'
 387                   . '<tr><td colspan="2">'
 388                   . '<input type="hidden" name="MAX_FILE_SIZE" value="' . $this->maxfilesize . '" />'
 389                   . '<input type="file" name="newpj" size="40"/></td></tr>';
 390         }
 391         $html .= '<tr><th colspan="2">';
 392         if ($id != -1) {
 393             $html .= '<input type="hidden" name="artid" value="' . $id . '" />';
 394         }
 395         $html .= '<input type="hidden" name="action" value="new" />'
 396               . '<input type="submit" value="' . _b_('Envoyer le message') . '" /></th></tr>'
 397               . '</table></form>';
 398
 399         return $html;
 400     }
 401
 402     function action_doFup($group, $artid = -1)
 403     {
 404         if ( ! (is_utf8($_POST['subject']) && is_utf8($_POST['body']))) {
 405             foreach(Array('subject', 'body') as $key) {
 406                 $_POST[$key] = utf8_encode($_POST[$key]);
 407             }
 408         }
 409
 410         $forums = preg_split('/\s*(,|;)\s*/', $_POST['newsgroups']);
 411         $fup    = $_POST['followup'];
 412         if (sizeof($forums) > 1) {
 413             if (empty($fup)) {
 414                 $fup = $forums[0];
 415             }
 416         }
 417         $to     = implode(',', $forums);
 418
 419         if (!$this->_newSpool($group, $this->profile['display'], $this->profile['lastnews'])) {
 420             return '<p class="error">'._b_('Impossible charger la liste des messages').'</p>';
 421         }
 422
 423         $body = preg_replace("/\n\.[ \t\r]*\n/m", "\n..\n", $_POST['body']);
 424         $msg  = 'From: ' . $this->profile['name'] . "\n"
 425               . "Newsgroups: ". $to . "\n"
 426               . "Subject: " . headerEncode($_POST['subject'], 128) . "\n"
 427               . (empty($this->profile['org']) ? '' : "Organization: {$this->profile['org']}\n")
 428               . (empty($fup) ? '' : 'Followup-To: ' . $fup . "\n");
 429
 430         if ($artid != -1) {
 431             $this->_require('post');
 432             $post = new BananaPost($artid);
 433             if (!$post || !$post->valid) {
 434                 return '<p class="error">'._b_('Impossible charger le message d\'origine').'</p>';
 435             }
 436             $refs = ( isset($post->headers['references']) ? $post->headers['references']." " : "" );
 437             $msg .= "References: $refs{$post->headers['message-id']}\n";
 438         }
 439
 440         $body_headers  = $this->custom_plain;
 441         $body          = wrap($body, "");
 442
 443         // include attachment in the body
 444         $uploaded = $this->_upload('newpj');
 445         switch ($uploaded['error']) {
 446             case UPLOAD_ERR_OK:
 447                 $this->custom = $this->custom_mp.$this->custom;
 448                 $body         = $this->_make_part($body_headers, $body);
 449                 $file_head    = 'Content-Type: '.$uploaded['type'].'; name="'.$uploaded['name']."\"\n"
 450                               . 'Content-Transfer-Encoding: '.$uploaded['encoding']."\n"
 451                               . 'Content-Disposition: attachment; filename="'.$uploaded['name']."\"\n";
 452                 $body        .= $this->_make_part($file_head, $uploaded['data']);
 453                 $body        .= "\n--".$this->boundary.'--';
 454                 break;
 455
 456             case UPLOAD_ERR_INI_SIZE: case UPLOAD_ERR_FORM_SIZE:
 457                 return '<p class="error">'._b_('Fichier trop gros pour être envoyé : ')
 458                         .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);
 459
 460             case UPLOAD_ERR_PARTIAL:
 461                 return '<p class="error">'._b_('Erreur lors de l\'upload de ')
 462                         .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);
 463
 464             case UPLOAD_ERR_NO_FILE:
 465                 return '<p class="error">'._b_('Le fichier spécifié n\'existe pas : ')
 466                         .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);
 467
 468             case UPLOAD_ERR_NO_TMP_DIR:
 469                 return '<p class="error">'._b_('Une erreur est survenue sur le serveur lors de l\'upload de ')
 470                         .$uploaded['name'].'</p>'.$this->action_showThread($group, $artid);
 471
 472             default:
 473                 $this->custom = $body_headers.$this->custom;
 474         }
 475
 476         // finalise and post the message
 477         $msg .= $this->custom.$this->profile['customhdr']."\n".$body;
 478
 479         if ($this->nntp->post($msg)) {
 480             $dir = Array('group' => $group);
 481             if ($artid != -1) {
 482                 $ndx = $this->spool->getndx($artid);
 483                 if ($ndx > 50) {
 484                     $dir['first'] = $ndx;
 485                 }
 486             }
 487             redirectInBanana($dir);
 488         } else {
 489             return '<p class="error">' . _b_('Impossible de poster le message. Le serveur a retourné l\'erreur :') . '</p>'
 490                    . '<pre class="error">' . utf8_encode($this->nntp->lasterrortext) .'</pre>'
 491                    . $this->action_newFup($group, $artid);
 492         }
 493     }
 494
 495     /**************************************************************************/
 496     /* Private functions                                                      */
 497     /**************************************************************************/
 498
 499     function _newSpool($group, $disp=0, $since='') {
 500         $this->_require('spool');
 501         if (!$this->spool || $this->spool->group != $group) {
 502             $this->spool = new BananaSpool($group, $disp, $since);
 503             if (!$this->spool || !$this->spool->valid) {
 504                 $this->spool = null;
 505                 return false;
 506             }
 507         }
 508         if (count($this->profile['subscribe']) > 0) {
 509             $this->_newGroup(false);
 510         }
 511         return true;
 512     }
 513
 514     function _newPost($id)
 515     {
 516         $this->_require('post');
 517         $this->post = new BananaPost($id);
 518         if (!$this->post || !$this->post->valid) {
 519             $this->post = null;
 520             return false;
 521         }
 522         return true;
 523     }
 524
 525     function _newGroup($showNew = true)
 526     {
 527         $this->_require('groups');
 528         $this->groups = new BananaGroups(BANANA_GROUP_SUB);
 529         if ($showNew && $this->groups->type == BANANA_GROUP_SUB) {
 530             $this->newgroups = new BananaGroups(BANANA_GROUP_NEW);
 531         }
 532     }
 533
 534     function _require($file)
 535     {
 536         require_once (dirname(__FILE__).'/'.$file.'.inc.php');
 537     }
 538
 539     function _upload($file)
 540     {
 541         if ($_FILES[$file]['name'] == "") {
 542             return Array( 'error' => -1 );
 543         }
 544
 545         // upload
 546         $_FILES[$file]['tmp_name'];
 547
 548         // test if upload is ok
 549         $file    = $_FILES[$file];
 550         if ($file['size'] == 0 || $file['error'] != 0) {
 551             if ($file['error'] == 0) {
 552                 $file['error'] = -1;
 553             }
 554             return $file;
 555         }
 556
 557         // adding custum data
 558         $mime    = rtrim(shell_exec('file -bi '.$file['tmp_name'])); //Because mime_content_type don't work :(
 559         $encod   = 'base64';
 560         if (preg_match("@([^ ]+/[^ ]+); (.*)@", $mime, $format)) {
 561             $mime  = $format[1];
 562             $encod = $format[2];
 563         }
 564         $data = fread(fopen($file['tmp_name'], 'r'), $file['size']);
 565         if ($encod == 'base64') {
 566             $data = chunk_split(base64_encode($data));
 567         }
 568         $file['name']     = basename($file['name']);
 569         $file['type']     = $mime;
 570         $file['encoding'] = $encod;
 571         $file['data']     = $data;
 572
 573         return $file;
 574     }
 575
 576     function _make_part($headers, $body)
 577     {
 578         return "\n--".$this->boundary."\n".$headers."\n".$body;
 579     }
 580 }
 581
 582 // vim:set et sw=4 sts=4 ts=4
 583 ?>