<?php
/*
 *  brisk - spush/brisk-spush.phh
 *
 *  Copyright (C) 2012 Matteo Nastasi
 *                          mailto: nastasi@alternativeoutput.it 
 *                                  matteo.nastasi@milug.org
 *                          web: http://www.alternativeoutput.it
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful, but
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABLILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
 * General Public License for more details. You should have received a
 * copy of the GNU General Public License along with this program; if
 * not, write to the Free Software Foundation, Inc, 59 Temple Place -
 * Suite 330, Boston, MA 02111-1307, USA.
 *
 */

$DOCUMENT_ROOT="";
$HTTP_HOST="dodo.birds.lan";
define('USOCK_PATH_PFX', "/tmp/brisk");
define('USOCK_POOL_N', 10);

define('PENDINGPAGE_CONTINUE', 0);
define('PENDINGPAGE_WAITDATA', 1);
define('PENDINGPAGE_FLUSH',    2);

class PendingPage {
  var $socket; // socket handler of page stream
  var $status; // status can be 0: waiting for data, 1: flush phase

  var $kalive; // if no message are sent after RD_KEEPALIVE_TOUT secs we send a keepalive from server
  var $msg;    // place where store failed fwrite data
  var $msg_sz; // size of content

  var $method; // method used to request the page
  var $header; // array of header fields
  var $get;    // array of get args
  var $post;   // array of post args
  var $cookie; // array of cookie args
  var $path;   // requested path
  var $addr;   // source address
  var $contsz; // expected content size
  var $rest;   // number of missing bytes
  var $cont;   // content of unfinished POST

  function PendingPage($socket, $curtime, $kalive)
  {
      $this->socket = $socket;
      // fprintf(STDERR, "SOCKET ADD: %s\n", $this->socket);
      $this->kalive = $curtime + $kalive;
  }

  static function pendingpage_continue($socket, $curtime, $kalive, $method,
                                       $header,     $get,   $post, $cookie,
                                         $path,    $addr,   $rest, $cont)
  {
      $thiz = static::pendingpage_staminal($socket, PENDINGPAGE_CONTINUE, $curtime, $kalive, $method,
                                           $header, $get, $post, $cookie, $path, $addr, $rest, $cont);
      $thiz->to_continuing();

      return $thiz;
  }

  function context_get(&$header, &$socket, &$path, &$addr, &$get, &$post, &$cookie)
  {
      $header = $this->header;
      $socket = $this->socket;
      $path   = $this->path;
      $addr   = $this->addr;
      $get    = $this->get;
      post_manage($post, $this->cont);
      $cookie = $this->cookie;
      fprintf(STDERR, "SOCKET GET: %s\n", $this->socket);
  }

  function to_continuing()
  {
      // printf("TRY FLUSH CREATE\n");
      $header = array();
      $header['HTTP-Response'] = "100 Continue";
      $hea = headers_render($header, 0);
      $hea_sz = mb_strlen($hea, "ASCII");

      $this->status = PENDINGPAGE_CONTINUE;
      $this->msg    = $hea;
      $this->msg_sz = $hea_sz;
  }

  static function pendingpage_waiting($socket, $curtime, $kalive, $method, $header,
                                      $get, $post, $cookie, $path, $addr, $rest, $cont)
  {
      return (static::pendingpage_staminal($socket, PENDINGPAGE_WAITDATA, $curtime, $kalive, $method,
                                           $header, $get, $post, $cookie, $path, $addr, $rest, $cont));
  }

  static function pendingpage_staminal($socket, $status, $curtime, $kalive, $method, $header,
                                       $get, $post, $cookie, $path, $addr, $rest, $cont)
  {
      $thiz = new PendingPage($socket, $curtime, $kalive);
      $thiz->status = $status;

      $thiz->method = $method;
      $thiz->header = $header;
      $thiz->get    = $get;
      $thiz->post   = $post;
      $thiz->cookie = $cookie;
      $thiz->path   = $path;
      $thiz->addr   = $addr;
      $thiz->contsz = $header['Content-Length'];
      $thiz->rest   = $rest;
      $thiz->cont   = $cont;

      return ($thiz);
  }

  function try_wait($curtime)
  {
      // if completed return TRUE to allow data to be processed, 
      // if timeout or max content dimension is exceeded move to flushing
  }

  static function pendingpage_flushing($socket, $curtime, $kalive, $enc, $header_out, $body)
  {
      $thiz = new PendingPage($socket, $curtime, $kalive);

      $thiz->to_flushing($enc, $header_out, $body);

      return ($thiz);
  }

  function to_flushing($enc, &$header_out, $body)
  {
      // printf("TRY FLUSH CREATE: enc[%s]\n", $enc);
      $body_out = ZLibStream::compress($enc, $body);
      if ($enc != 'plain')
          $header_out['Content-Encoding'] = $enc;
      $body_out_sz = mb_strlen($body_out, "ASCII");
      $hea = headers_render($header_out, $body_out_sz);
      $hea_sz = mb_strlen($hea, "ASCII");

      $this->status = PENDINGPAGE_FLUSH;
      $this->msg    = $hea.$body_out;
      $this->msg_sz = $hea_sz + $body_out_sz;
      // printf("TRY FLUSH CREATE: enc[%s]\n", $enc);
  }

  /* return TRUE if is removable from it's list */
  function try_flush($curtime)
  {
      // fprintf(STDERR, "IMPORTANT: TRY_FLUSH: start %d\n", $this->status);
      if ($this->status != PENDINGPAGE_FLUSH &&
          $this->status != PENDINGPAGE_CONTINUE)
          return (FALSE);

      if ($this->kalive < $curtime) {
          // printf("TRY FLUSH CLOSE 1\n");
          @fclose($this->socket);
          return TRUE;
      }   

      $wret = @fwrite($this->socket, $this->msg, mb_strlen($this->msg, "ASCII"));
      if ($wret == FALSE && $wret !== FALSE) {
          // printf("TRY FLUSH PendingPage::try_flush: wret 0 but not FALSE [%d]\n", mb_strlen($this->msg, "ASCII"));
      }
      if ($wret == $this->msg_sz) {
          if ($this->status == PENDINGPAGE_CONTINUE) {
              $this->status = PENDINGPAGE_WAITDATA;
              return FALSE;
          }
          else {
              // printf("TRY FLUSH CLOSE 2\n");
              fclose($this->socket);
              return TRUE;
          }
      }
      $this->msg_sz -= $wret;
      $this->msg    = mb_substr($this->msg, $wret, $this->msg_sz, "ASCII");

      // printf("TRY FLUSH RETURN FALSE\n");

      return FALSE;
  }

  function socket_get()
  {
      return ($this->socket);
  }

} // class PendingPage {

?>