/db/library/dbscript/_functions.php

<?php

  /** 
   * dbscript -- restful openid framework
   * @version 0.6.0 -- 22-October-2008
   * @author Brian Hendrickson <brian@dbscript.net>
   * @link http://dbscript.net/
   * @copyright Copyright 2009 Brian Hendrickson
   * @package dbscript
   * @license http://www.opensource.org/licenses/mit-license.php MIT License
   */


  /**
   * classify
   * 
   * takes a table/resource name ('entries')
   * makes it singular & capitalized ('Entry')
   * massively crude, needs replacing with actual inflector
   *
   * @access public
   * @param string $resource
   * @return string
   */

function classify( $resource ) {
  
  $inflector =& Inflector::getInstance();
  
  if (substr($resource,2,1) == '_')
    $resouce = substr($resource,3);
  
  return $inflector->classify($resource);
  
}


  /**
   * tableize
   * 
   * takes a (CamelCase or not) name ('DbSession')
   * makes it lower_case and plural ('db_sessions')
   * this implementation is just stupid and needs replacing
   * 
   * @access public
   * @param string $table
   * @return string
   */
   
function tableize( $object ) {
  
  $inflector =& Inflector::getInstance();
  
  return $inflector->tableize($object);
  
}


  /**
   * Error
   * 
   * custom Error handling per-client-type
   * 
   * @author Brian Hendrickson <brian@dbscript.net>
   * @access public
   * @param integer $errno
   * @param string $errstr
   * @param string $errfile
   * @param integer $errline
   * @todo return based on content-negotiation status
   */

function dbscript_error( $errno, $errstr, $errfile, $errline ) {
  if ( !error_reporting() || $errno == 2048 )
    return;
  
  




  switch ($errno) {



    case E_USER_ERROR:
      global $request;
      $req =& $request;
      if (isset($_GET['dbscript_xml_error_continue'])) {
        $xml = "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n";
        $xml .= "<root>\n";
        $xml .= "  <dbscript_error>Fatal error in line $errline of file $errfile<br />: $errstr</dbscript_error>\n";
        $xml .= "</root>\n";
        print $xml;
      } elseif ($req->error) {
        $req->handle_error( $errstr );
        print "<b>ERROR</b> [$errno] $errstr<br />\n";
        print "  Fatal error in line $errline of file $errfile<br />\n";
        print "Aborting...<br />\n";
      } else {
        print "<br /><br />$errstr<br /><br />\n";
        print "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<form><input type=\"submit\" value=\"&lt; &lt; Go Back\" onClick=\"JavaScript:document.history.back();\" /></form>";
        if (environment('debug_enabled'))
          print "  Fatal error in line $errline of file $errfile<br />\n";
      }
			$path = '/var/www/tweetiepic/logs/';
			$file = $path.substr(  microtime(), 0, 7);
			$fd = fopen($file , "a+");
			global $request;
			if (isset($request->uri))
				$data = "ERROR ".serialize($errstr).' '.serialize($errfile).' '.serialize($errline)."   ".$request->uri."\n\n\n";
			 else
			$data = "ERROR ".serialize($errstr).' '.serialize($errfile).' '.serialize($errline)."   "."\n\n\n";
			if ($fd) {
				$result = fwrite( $fd, $data );
			  fclose($fd);
			}
      exit(1);
    case E_USER_WARNING:
      //print "<b>WARNING</b> [$errno] $errstr<br />\n";
			$path = '/var/www/tweetiepic/logs/';
			$file = $path.substr(  microtime(), 0, 7);
			$fd = fopen($file , "a+");
			$data = "WARNING ".serialize($errstr).' '.serialize($errfile).' '.serialize($errline)."\n\n";
			if ($fd) {
				$result = fwrite( $fd, $data );
			  fclose($fd);
			}
			break;
    case E_USER_NOTICE:
      print "<b>NOTICE</b> [$errno] $errstr<br />\n";
  }
}


function microtime_float() {
  list($usec, $sec) = explode(" ", microtime());
  return ((float)$usec + (float)$sec);
}


  /**
   * Trigger Before
   * 
   * trip before filters for a function
   * 
   * @access public
   * @param string $func
   * @param object $obj_a
   * @param object $obj_b
   */

function trigger_before( $func, &$obj_a, &$obj_b ) {
  if (environment('show_timer')) {
    global $exec_time;
    $time_end = microtime_float();
    $time = $time_end - $exec_time;
    $diff = substr($time,1,5);
    echo "$diff seconds <br />$func ";
  }
  if ( isset( $GLOBALS['ASPECTS']['before'][$func] ) ) {
    foreach( $GLOBALS['ASPECTS']['before'][$func] as $callback ) {
      call_user_func_array( $callback, array( $obj_a, $obj_b ) );
    }
  }
}


  /**
   * Trigger After
   * 
   * trip after filters for a function
   * 
   * @access public
   * @param string $func
   * @param object $obj_a
   * @param object $obj_b
   */

function trigger_after( $func, &$obj_a, &$obj_b ) {
  if ( isset( $GLOBALS['ASPECTS']['after'][$func] ) ) {
    foreach( $GLOBALS['ASPECTS']['after'][$func] as $callback ) {
      call_user_func_array( $callback, array( $obj_a, $obj_b ) );
    }
  }
}


  /**
   * aspect_join_functions
   * 
   * add trigger function name pairs to GLOBALS
   * 
   * @access public
   * @param string $func
   * @param string $callback
   * @param string $type
   */
   
function aspect_join_functions( $func, $callback, $type = 'after' ) {
  $GLOBALS['ASPECTS'][$type][$func][] = $callback;
}


  /**
   * Before Filter
   * 
   * set an aspect function to trigger before another function
   * 
   * @access public
   * @param string $name
   * @param string $func
   * @param string $when
   */

function before_filter( $name, $func, $when = 'before' ) {
  aspect_join_functions( $func, $name, $when );
}


  /**
   * After Filter
   * 
   * set an aspect function to trigger after another function
   * 
   * @access public
   * @param string $name
   * @param string $func
   * @param string $when
   */

function after_filter( $name, $func, $when = 'after' ) {
  aspect_join_functions( $func, $name, $when );
}


  /**
   * Never
   * 
   * returns false
   * 
   * @access public
   * @return boolean false
   */

function never() {
  return false;
}


  /**
   * Always
   * 
   * returns true
   * 
   * @access public
   * @return boolean true
   */

function always() {
  return true;
}


  /**
   * model_path
   * 
   * path to data models
   * 
   * @access public
   * @return string
   */
  
function model_path() {
  return $GLOBALS['PATH']['models'];
}


  /**
   * types_path
   * 
   * path to renderers
   * 
   * @access public
   * @return string
   */
  
function types_path() {
  return $GLOBALS['PATH']['types'];
}



  /**
   * library_path
   * 
   * path to libraries
   * 
   * @access public
   * @return string
   */
  
function library_path() {
  return $GLOBALS['PATH']['library'];
}


  /**
   * dbscript_path
   * 
   * path to library/dbscript
   * 
   * @access public
   * @return string
   */
  
function dbscript_path() {
  return $GLOBALS['PATH']['dbscript'];
}


  /**
   * ignore_errors
   * 
   * returns value of ignore_errors environment variable, if set
   * 
   * @access public
   * @return boolean
   */
  
function ignore_errors() {
  global $env;
  if ( isset( $env['ignore_errors'] ) && $env['ignore_errors'] )
    return true;
  return false;
}


  /**
   * plugin_path
   * 
   * path to data models
   * 
   * @access public
   * @return string
   */
  
function plugin_path() {
  return $GLOBALS['PATH']['plugins'];
}


  /**
   * controller_path
   * 
   * path to controllers
   * 
   * @access public
   * @return string
   */
  
function controller_path() {
  return $GLOBALS['PATH']['controllers'];
}


function load( $loader ) {
  $loader =& loader();
  $loader->add_loader($loader);
}


function session_started() {
  if(isset($_SESSION)) {  
    return true; 
  } else { 
    return false;
  }
}



  /**
   * loader
   * 
   * get global BootLoader object
   * 
   * @access public
   * @return string
   */
  
function &loader() {
  global $loader;
  return $loader;
}



function environment($name=NULL) {
  global $env;
  if (!($name == NULL) && isset( $env[$name] ))
    return $env[$name];
  if (!($name == NULL))
    return false;
  return $env;
}


function introspect_tables() {

  global $db;
  
  $arr = array();
  
  $tables = $db->get_tables();

  foreach ($tables as $t) {
    if (!(in_array($t, array( 'db_sessions', 'entries', 'categories_entries' )))
    && $t != classify($t)) {
      //$m =& $db->get_table($t);
      //if (!$m->hidden)
      $arr[] = $t;
    }
  }

  return $arr;
  
}


function read_aws_blob( &$request, $value, $coll, $ext ) {
  global $prefix;
  if (isset($coll[$request->resource])) {
    if ($coll[$request->resource]['location'] == 'aws')
      redirect_to( 'http://' . environment('awsBucket') . '.s3.amazonaws.com/' . $prefix.$request->resource . $request->id . "." . $ext );
  }
}


function read_uploads_blob( &$request, $value, $coll, $ext ) {
  if (!(isset($coll[$request->resource]))) {
    // use posts location for metadata blobs
    global $db;
    $model =& $db->get_table($request->resource);
    if (array_key_exists( 'target_id', $model->field_array ))
      $coll[$request->resource]['location'] = $coll['posts']['location'];
  }
  if (isset($coll[$request->resource])) {
    if ($coll[$request->resource]['location'] == 'uploads') {
      $file = 'uploads' . DIRECTORY_SEPARATOR . $request->resource . $request->id;
      if (file_exists($file)) {
        if (defined('MEMCACHED') && MEMCACHED ) {
          global $response;
          $timeout = MEMCACHED;
          $cache = PCA::get_best_backend();
          $cache->add($request->composite_uri(), file_get_contents( $file ), $timeout);
          $cache->add($request->composite_uri().'type', type_of($response->pick_template_extension( $request )), $timeout);
        }
        print file_get_contents( $file );
      }
    }
  }
}


function exists_uploads_blob( $resource,$id ) {
  $coll = environment('collection_cache');
  if (isset($coll[$resource])) {
    if ($coll[$resource]['location'] == 'uploads') {
      $file = 'uploads' . DIRECTORY_SEPARATOR . $resource . $id;
      if (file_exists($file))
        return true;
    }
  }
  return false;
}


function update_uploadsfile( $table, $id, $tmpfile ) {
  $coll = environment('collection_cache');
  if (!(isset($coll[$table]))) {
    // use posts location for metadata blobs
    global $db;
    $model =& $db->get_table($table);
    if (array_key_exists( 'target_id', $model->field_array ))
      $coll[$table]['location'] = $coll['posts']['location'];
  }
  if (!(isset($coll[$table])))
    return;
  $uploadFile = $coll[$table]['location'].DIRECTORY_SEPARATOR.$table.$id;
  if (file_exists($uploadFile))
    unlink($uploadFile);
  copy($tmpfile,$uploadFile);
}


function unlink_cachefile( $table, $id, $coll ) {
  if (isset($coll[$table])) {
    $cacheFile = $coll[$table]['location'].DIRECTORY_SEPARATOR.$table.$id;
    if (file_exists($cacheFile))
      unlink($cacheFile);
  }
}


function read_cache_blob( &$request, $value, $coll ) {
  
  if (isset($coll[$request->resource])) {
    
    if ($coll[$request->resource]['duration'] > 0) {
      
      $cacheFile = $coll[$request->resource]['location'].DIRECTORY_SEPARATOR.$request->resource.$request->id;
      
      if (!(is_dir($coll[$request->resource]['location'].DIRECTORY_SEPARATOR)))
        return;
      
      if ( file_exists( $cacheFile ) && filemtime( $cacheFile ) > ( time() - $coll[$request->resource]['duration'] ) ) {
        
        // read cacheFile
        if ( !$fp = fopen( $coll[$request->resource]['location'].DIRECTORY_SEPARATOR.'hits', 'a' ) ) {
          trigger_error( 'Error opening hits file', E_USER_ERROR );
        }
        if ( !flock( $fp, LOCK_EX ) ) {
          trigger_error( 'Unable to lock hits file', E_USER_ERROR );
        }
        if( !fwrite( $fp, time_of(timestamp())." hit ".$cacheFile."\n" ) ) {
          trigger_error( 'Error writing to cache file', E_USER_ERROR );
        }
        flock( $fp, LOCK_UN );
        fclose( $fp );
        unset( $fp );
        
        if (defined('MEMCACHED') && MEMCACHED ) {
          global $response;
          $timeout = MEMCACHED;
          $cache = PCA::get_best_backend();
          $cache->add($request->composite_uri(), file_get_contents( $cacheFile ), $timeout);
          $cache->add($request->composite_uri().'type', type_of($response->pick_template_extension( $request )), $timeout);
        }

        print file_get_contents( $cacheFile );
        
        exit;
        
      } else {
        // write cacheFile
        if ( !$fp = fopen( $coll[$request->resource]['location'].DIRECTORY_SEPARATOR.'hits', 'a' ) )
          trigger_error( 'Error opening hits file', E_USER_ERROR );
        
        if ( !flock( $fp, LOCK_EX ) )
          trigger_error( 'Unable to lock hits file', E_USER_ERROR );
        
        if( !fwrite( $fp, time_of(timestamp())." ".'write '.$cacheFile."\n" ) )
          trigger_error( 'Error writing to cache file', E_USER_ERROR );
        
        flock( $fp, LOCK_UN );
        
        fclose( $fp );
        
        unset( $fp );
        
        if ( !$fp = fopen( $cacheFile, 'w' ) )
          trigger_error( 'Error opening cache file', E_USER_ERROR );
        
        if ( !flock( $fp, LOCK_EX ) )
          trigger_error( 'Unable to lock cache file', E_USER_ERROR );
        
        if( !fwrite( $fp, fetch_blob($value, true) ) )
          trigger_error( 'Error writing to cache file', E_USER_ERROR );
        
        flock( $fp, LOCK_UN );
        
        fclose( $fp );
        
        unset( $fp );
        
        return;
        
      }
    }
  }
}


function download ($file_source, $file_target)
{
  // Preparations
  $file_source = str_replace(' ', '%20', html_entity_decode($file_source)); // fix url format
  if (file_exists($file_target)) { chmod($file_target, 0777); } // add write permission

  // Begin transfer
  if (($rh = fopen($file_source, 'rb')) === FALSE) { return false; } // fopen() handles
  if (($wh = fopen($file_target, 'wb')) === FALSE) { return false; } // error messages.
  while (!feof($rh))
  {
    // unable to write to file, possibly because the harddrive has filled up
    if (fwrite($wh, fread($rh, 1024)) === FALSE) { fclose($rh); fclose($wh); return false; }
  }

  // Finished without errors
  fclose($rh);
  fclose($wh);
  return true;
}


function render_blob( $value, $ext ) {
  
  global $request;
  $req =& $request;
  global $db;
  
  $coll = environment('collection_cache');
  
  read_aws_blob($req,$value,$coll,$ext);
  
  header( 'Content-Type: ' . type_of( $ext ) );
  header( "Content-Disposition: inline" );

  read_uploads_blob($req,$value,$coll,$ext);
  
  read_cache_blob($req,$value,$coll);
  
  fetch_blob($value, false);
  
}


function fetch_blob( $value, $return ) {
  
  global $request;
  $req =& $request;
  global $db;
  
  if (is_array( $value )) {

    return $db->large_object_fetch( 

      $value['t'],
      $value['f'],
      $value['k'],
      $value['i'],
      $return

    );

  } else {

    return $db->large_object_fetch( $value, $return );

  }

}


  /**
   * template_exists
   * 
   * find a template during content-negotiation
   * 
   * @access public
   * @param Mapper $request
   * @param string $extension
   * @return boolean
   */
  
function template_exists( &$request, $extension, $template ) {
  #if ($template == 'introspection') print 'ye';
  #print "template_exists $template ".$extension."<br />";
  
  $view = $request->get_template_path( $extension, $template );
  
  if ( file_exists( $view ) )
    return true;
  
  return false;
  
}


  /**
   * Form For
   * 
   * generate a form action string
   * 
   * @access public
   * @param string $template
   * @todo implement
   */

function form_for( &$resource, &$member, $url ) {

  global $request;

  if (is_object($resource)) {
    
    if ( isset( $resource->table )) {
      
       // remote_form_for :entry, @new_entry, :url => entries_url(:project_id => @project.id )
       
       return "<form method=\"post\" >";
      
    }
    
  }
  
}


  /**
   * URL For
   * 
   * generate a url from a Route
   * 
   * @access public
   * @param array $params
   * @param array $altparams
   */

function url_for( $params, $altparams = NULL ) {

  global $request;
  
  print $request->url_for( $params, $altparams );
  
}

function base_path($return = false) {
  global $request;
  $path = $request->values[1].$request->values[2].$request->path;
  if ($return)
    return $path;
  echo $path;
}

function base_url($return = false) {

  global $request;
  global $pretty_url_base;
  
  // XXX subdomain upgrade
  if (isset($pretty_url_base) && !empty($pretty_url_base))
    $base = $pretty_url_base."/".$request->prefix;
  else
    $base = $request->base;
  
  if ( !( substr( $base, -1 ) == '/' ))
    $base = $base . "/";
  
  if ($return)
    return $base;
    
  echo $base;
  
}

// XXX subdomain upgrade
function blog_url($nickname,$return = false) {
  global $request;
  if (pretty_urls() && environment('subdomains')) {
	  global $prefix;
	  if (!empty($prefix))
	    $base = 'http://' . $request->domain;
  	else
      $base = 'http://'.$nickname . '.' . $request->domain;
  } else {
    $q = '?';
    if (pretty_urls())
      $q = '';
    $base = base_url(true).$q.'twitter/'.$nickname;
  }
  if ( !( substr( $base, -1 ) == '/' ))
    $base = $base . "/";
  if ($return)
    return $base;
  else
    echo $base;
}

  /**
   * Redirect To
   * 
   * redirect the browser via Routes
   * 
   * @access public
   * @param string $template
   */

function redirect_to( $param, $altparam = NULL ) {
  
  global $request,$db;
  
  trigger_before( 'redirect_to', $request, $db );
  
  if (is_ajax()){
    echo "OK";
    exit;
  }else{
    $request->redirect_to( $param, $altparam );
  }
  
}


function type_of( $file ) {
  
  $types = mime_types();
  
  if (eregi('\.?([a-z0-9]+)$', $file, $match) && isset($types[strtolower($match[1])]))
    return $types[strtolower($match[1])];
  
  return "text/html";
  
}

function type_of_image( $file ) {
  
  if (is_jpg($file))
    return 'jpg';
    
  if (is_png($file))
    return 'png';
    
  if (is_gif($file))
    return 'gif';
  
  return false;
  
}

function extension_for( $type ) {
  
  $types = mime_types();
  
  foreach($types as $key=>$val) {
    if ($val == $type)
      return $key;
  }
  
  return "html";
  
}


function is_blob( $field ) {
  
  $spleet = split( "\.", $field );
  
  global $db;
  
  if (empty($spleet[0])) return false;
  
  $model =& $db->get_table($spleet[0]);
  
  if ($model && !empty($spleet[1]))
    if ($model->is_blob($spleet[1]))
      return true;
  
  return false;
  
}


function mime_types() {
  
  return array (
    
    'aif'   => 'audio/x-aiff',
    'aiff'  => 'audio/x-aiff',
    'aifc'  => 'audio/x-aiff',
    'm3u'   => 'audio/x-mpegurl',
    'mp3'   => 'audio/mp3',
    'ra'    => 'audio/x-realaudio',
    'ram'   => 'audio/x-pn-realaudio',
    'rm'    => 'audio/x-pn-realaudio',
    'wav'   => 'audio/wav',
    
    'avi'   => 'video/x-ms-wm',
    'mp4'   => 'video/mp4',
    'mpeg'  => 'video/mpeg',
    'mpe'   => 'video/mpeg',
    'mpg'   => 'video/mpeg',
    'mov'   => 'video/quicktime',
    'movie' => 'video/x-sgi-movie',
    'qt'    => 'video/quicktime',
    'swa'   => 'application/x-director',
    'swf'   => 'application/x-shockwave-flash',
    'swfl'  => 'application/x-shockwave-flash',
    'wmv'   => 'video/x-ms-wmv',
    'asf'   => 'video/x-ms-asf',
    
    'sit'   => 'application/x-stuffit',
    'zip'   => 'application/zip',
    'tgz'   => 'application/g-zip',
    'gz'    => 'application/g-zip',
    'gzip'  => 'application/g-zip',
    'hqx'   => 'application/mac-binhex40',
    
    'ico'   => 'image/vnd.microsoft.icon', 
    'bmp'   => 'image/bmp',
    'gif'   => 'image/gif',
    'jpg'   => 'image/jpeg',
    'jpeg'  => 'image/jpeg',
    'jpe'   => 'image/jpeg',
    'pct'   => 'image/pict',
    'pic'   => 'image/pict',
    'pict'  => 'image/pict',
    'png'   => 'image/png',
    'svg'   => 'image/svg+xml',
    'svgz'  => 'image/svg+xml',
    'tif'   => 'image/tiff',
    'tiff'  => 'image/tiff',
    
    'rtf'   => 'text/rtf',
    'pdf'   => 'application/pdf',
    'xdp'   => 'application/pdf',
    'xfd'   => 'application/pdf',
    'xfdf'  => 'application/pdf',
    
  );
  
}


  /**
   * Render
   * 
   * render template or blob using content-negotiation
   * 
   * @access public
   * @param string $template
   */



  /**
   * Member Of
   * 
   * check group membership for a Person
   * 
   * @access public
   * @param string $template
   */

function member_of( $group ) {
  
  global $memberships;

  if ( $group == 'everyone' )
    return true;
  
  if (!( get_person_id() ))
    return false;

  if ( $group == 'members' )
    return true;
  
  if (!is_array($memberships)) {
    $memberships = array();

    global $request;
    global $db;
  
    $Person =& $db->model('Person');
    $Group =& $db->model('Group');
    
    $p = $Person->find( get_person_id() );
    if ($p)
      while ( $m = $p->NextChild( 'memberships' )) {
        $g = $Group->find( $m->group_id );
        $memberships[] = $g->name;
    
        if (!$g)
          trigger_error( "the Group with id ".$m->group_id." does not exist", E_USER_ERROR );
        if ( $g->name == $group )
          return true;
      }
    else
      return false;
  
  } else {
    
    if (in_array($group,$memberships))
      return true;
    
  }
  
  return false;
  
}


// add_include_path by ricardo dot ferro at gmail dot com

function add_include_path($path,$prepend = false) {
    //foreach (func_get_args() AS $path)
    //{
        if (!file_exists($path) OR (file_exists($path) && filetype($path) !== 'dir'))
        {
            trigger_error("Include path '{$path}' not exists", E_USER_WARNING);
            continue;
        }
        
        $paths = explode(PATH_SEPARATOR, get_include_path());
        
        if (array_search($path, $paths) === false && $prepend)
            array_unshift($paths, $path);
        if (array_search($path, $paths) === false)
            array_push($paths, $path);
        
        set_include_path(implode(PATH_SEPARATOR, $paths));
    //}
}


function send_email( $sendto, $subject, $content, $fromemail="", $fromname="", $html=false ) {
  
  if (in_array($fromemail,array('','root@localhost')) || !is_email($fromemail) || empty($fromname))
    return;
  
  require_once(library_path().'xpertmailer'.DIRECTORY_SEPARATOR.'MAIL.php'); 
  
  $mail = new MAIL;
  
  $mail->From($fromemail, $fromname ); 

  $mail->AddTo($sendto);
  
  $mail->Subject($subject);
  
  if ($html)
    $mail->HTML($html);
  
  $mail->Text($content);
  
  $c = $mail->Connect(environment('email_server'), environment('email_port'), environment('email_user'), environment('email_pass'));
  
  $send = $mail->Send( $c ); 
  
  $mail->Disconnect();
  
}


function is_upload($table,$field) {
  return (isset($_FILES[strtolower(classify($table))]['name'][$field])
   && !empty($_FILES[strtolower(classify($table))]['name'][$field]));
}


function is_email($email) {
  return preg_match('/^([a-z0-9])(([-a-z0-9._])*([a-z0-9]))*\@([a-z0-9])([-a-z0-9_])+([a-z0-9])*(\.([a-z0-9])([-a-z0-9_-])([a-z0-9])+)*$/i',$email);
}


  /**
   * Render Partial
   * 
   * render a _template using content-negotiation
   * 
   * @access public
   * @param string $template
   */

function render_partial( $template ) {
  
  global $request,$response;
  
  if (!(strpos($template,".") === false)) {
    $spleet = split("\.",$template);
    $template = $spleet[0];
    $request->set( 'client_wants', $spleet[1] );
  }
  
  $response->render_partial( $request, $template );
  
}

function add_filter($tag, $function_to_add, $priority = 10, $accepted_args = 1) {
	return true;
}

function add_action( $act, $func ) {
  //admin_head, photos_head
  if ($act == 'init')
    return;
  if (!is_array($func) && function_exists($func))
    before_filter( $func, $act );
	add_filter($act, $func);
  return false;
}

function add_options_page($label1, $label2, $level, $parent, $arr ) {

  if (!is_array($arr) && function_exists($arr)) {
    
  }

  //  		add_options_page(
  //			__('Twitter Tools Options', 'twitter-tools')
  //			, __('Twitter Tools', 'twitter-tools')
  //			, 10
  //			, basename(__FILE__)
  //			, 'aktt_options_form'
  //		);  
    //  		add_options_page(
  //			__('Twitter Tools Options', 'twitter-tools')
  //			, __('Twitter Tools', 'twitter-tools')
  //			, 10
  //			, basename(__FILE__)
  //			, 'aktt_options_form'
  //		);
  
  return false;
}

function app_menu($title,$url='',$role='member') {
  if (function_exists('add_management_page')) {
    add_management_page( $title, $title, $role, $file, '', $url );
  }        
}


function render_theme( $theme ) {
  
  // dbscript
  global $request, $db;
  
  // wordpress
  global $blogdata, $optiondata, $current_user, $user_login, $userdata;
  global $user_level, $user_ID, $user_email, $user_url, $user_pass_md5;
  global $wpdb, $wp_query, $post, $limit_max, $limit_offset, $comments;
  global $req, $wp_rewrite, $wp_version, $openid, $user_identity, $logic;
  global $submenu;
  global $comment_author; 
  global $comment_author_email;
  global $comment_author_url;

  $folder = $GLOBALS['PATH']['themes'] . environment('theme') . DIRECTORY_SEPARATOR;
  
  add_include_path($folder);
  
  global $wpmode;
  
  $wpmode = "posts";
  
  if ($request->resource != 'posts' || !(in_array($request->action,array('replies','index')))) {
    $wpmode = "other";
    if (is_file($folder . "functions.php" ))
      require_once( $folder . "functions.php" );
    require_once( $folder . "page.php" );
  } else {
    if (is_file($folder . "functions.php" ))
      require_once( $folder . "functions.php" );
    if ( file_exists( $folder . "index.php" ))
      require_once( $folder . "index.php" );
    else
      require_once( $folder . "index.html" );
  }
}

function theme_path($noslash = false) {
  
  global $request,$db;
  trigger_before('theme_path', $request, $db);
  
  global $pretty_url_base;
  
  if (isset($pretty_url_base) && !empty($pretty_url_base))
    $base = $pretty_url_base . DIRECTORY_SEPARATOR;
  else
    $base = "";
  
  $path = $base . $GLOBALS['PATH']['themes'] . environment('theme') . DIRECTORY_SEPARATOR;
  
  if ($noslash && "/" == substr($path,-1))
    $path = substr($path,0,-1);

  return $path;
  
}

function theme_dir(){
  
  return $GLOBALS['PATH']['themes'] . environment('theme') . DIRECTORY_SEPARATOR;
  
}


  /**
   * content_for_layout
   * 
   * render a _template using content-negotiation
   * 
   * @access public
   * @param string $template
   */

function content_for_layout() {
  
  global $request;
  
  render_partial( $request->action );
  
}


function breadcrumbs() {
  global $request;
  echo $request->breadcrumbs();
}


function register_type( $arr ) {
  global $variants;
  $variants[] = $arr;
}


function photoCreateCropThumb ($p_thumb_file, $p_photo_file, $p_max_size, $p_quality = 100, $tmpfile = null ) {
  
  if ($tmpfile == null)
    $ext = 'jpg';
  else
    $ext = type_of_image($tmpfile);
  
  if ($ext == 'jpg')
    $pic = imagecreatefromjpeg($p_photo_file);
  if ($ext == 'gif')
    $pic = imagecreatefromgif($p_photo_file);
  if ($ext == 'png'){
    
    $image = imagecreatefromstring(file_get_contents($p_photo_file));
    $width = imagesx($image);
    $height = imagesy($image);
    unset($image);
    $size = getimagesize($p_photo_file);
    $required_memory = Round($width * $height * $size['bits']) +500000;
    unset($size);
    $new_limit=memory_get_usage() + $required_memory;
    ini_set("memory_limit", $new_limit);
    
    $pic = imagecreatefrompng($p_photo_file);
    
  }
  
  if ($pic) {
    $thumb = imagecreatetruecolor ($p_max_size, $p_max_size);
    if (!$thumb)
      trigger_error('Sorry, the thumbnail photo could not be created', E_USER_ERROR);
    $width = imagesx($pic);
    $height = imagesy($pic);
    if ($width < $height) {
      $twidth = $p_max_size;
      $theight = $twidth * $height / $width; 
      imagecopyresized($thumb, $pic, 0, 0, 0, ($height/2)-($width/2), $twidth, $theight, $width, $height); 
    } else {
      $theight = $p_max_size;
      $twidth = $theight * $width / $height; 
      imagecopyresized($thumb, $pic, 0, 0, ($width/2)-($height/2), 0, $twidth, $theight, $width, $height); 
    }
    
    if ($ext == 'jpg')
      imagejpeg($thumb, $p_thumb_file, $p_quality);
      
    if ($ext == 'gif')
      imagegif($thumb, $p_thumb_file);
      
    if ($ext == 'png') {
      imagepng($thumb, $p_thumb_file);
      ini_restore("memory_limit");
    }
    
  }
  
}


function resize_jpeg($file,$dest,$size) {
  $new_w = $size;
  $new_h = $new_w;
  $src_img = imagecreatefromjpeg("$file");
  $old_x=imageSX($src_img);
	$old_y=imageSY($src_img);
	if ($old_x > $old_y) 
	{
		$thumb_w=$new_w;
		$thumb_h=$old_y*($new_h/$old_x);
	}
	if ($old_x < $old_y) 
	{
		$thumb_w=$old_x*($new_w/$old_y);
		$thumb_h=$new_h;
	}
	if ($old_x == $old_y) 
	{
		$thumb_w=$new_w;
		$thumb_h=$new_h;
	}
	$dst_img=ImageCreateTrueColor($thumb_w,$thumb_h);
	imagecopyresampled($dst_img,$src_img,0,0,0,0,$thumb_w,$thumb_h,$old_x,$old_y); 
	imagejpeg($dst_img,$dest);
}
	

            


function content_types() {
  global $env;
  $variants = array(
    array(
      'id' => 'html',
      'qs' => 1.000,
      'type' => 'text/html',
      'encoding' => null,
      'charset' => 'iso-8859-1',
      'language' => 'en',
      'size' => 3000
    )
  );
  if (isset($env['content_types']))
    return $env['content_types'];
  else
    return $variants;
}


  /**
   * db_include
   * 
   * include a dbscript file
   * 
   * @access public
   */

function db_include( $file ) {
  if (is_array($file)) {
    foreach($file as $f)
      require_once dbscript_path() . $f . ".php";
  } else {
    require_once dbscript_path() . $file . ".php";
  }  
}


function wp_plugin_include( $file, $basedir=NULL ) {
  $wp_plugins = "wp-content" . DIRECTORY_SEPARATOR . "plugins" . DIRECTORY_SEPARATOR . $file;
  if (is_dir($wp_plugins)) {
    $startfile = $wp_plugins.DIRECTORY_SEPARATOR.$file.".php";
    if (is_file($startfile)) {
      require_once $startfile;
      return;
    }
    $startfile = $wp_plugins.DIRECTORY_SEPARATOR.str_replace('wordpress','wp',$file).".php";
    if (is_file($startfile)) {
      require_once $startfile;
      return;
    }
    $file = str_replace('-','_',$file);
    $startfile = $wp_plugins.DIRECTORY_SEPARATOR.str_replace('wordpress','wp',$file).".php";
    if (is_file($startfile)) {
      require_once $startfile;
      return;
    }
    $startfile = $wp_plugins.DIRECTORY_SEPARATOR.'plugin.php';
    if (is_file($startfile)) {
      require_once $startfile;
      return;
    }
  }

  
  $wp_plugins = "wp-plugins" . DIRECTORY_SEPARATOR . "plugins" . DIRECTORY_SEPARATOR . "enabled";
  if (is_array($file)) {
    foreach($file as $f) {
      if (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . DIRECTORY_SEPARATOR . 'plugin.php' ))
        require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . DIRECTORY_SEPARATOR . 'plugin.php';
      elseif (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . DIRECTORY_SEPARATOR . 'core.php' ))
        require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . DIRECTORY_SEPARATOR . 'core.php';
      elseif (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . ".php"))
        require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $f . ".php";
    }
  } else {
    if (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . DIRECTORY_SEPARATOR . 'plugin.php' ))
      require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . DIRECTORY_SEPARATOR . 'plugin.php';
    elseif (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . DIRECTORY_SEPARATOR . 'core.php' ))
      require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . DIRECTORY_SEPARATOR . 'core.php';
    elseif (file_exists(plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . ".php"))
      require_once plugin_path() . $wp_plugins . DIRECTORY_SEPARATOR . $file . ".php";
  }
}


  /**
   * lib_include
   * 
   * include a library file
   * 
   * @access public
   */

function lib_include( $file ) {
  if ($file == 'json' && class_exists('Services_JSON'))
    return;
  if (is_array($file)) {
    foreach($file as $f) {
      if (file_exists(library_path() . $f . ".php"))
        require_once library_path() . $f . ".php";
    }
  } else {
    if (file_exists(library_path() . $file . ".php"))
      require_once library_path() . $file . ".php";
  }
}


function load_plugin( $plugin ) {
	
	global $request,$db;
  trigger_before('load_plugin',$db,$request);
  $plugin_paths = array();
  
  if (isset($GLOBALS['PATH']['app_plugins']))
    foreach($GLOBALS['PATH']['app_plugins'] as $path)
      $plugin_paths[] = $path;
  
  $plugin_paths[] = $GLOBALS['PATH']['plugins'];
  
  foreach ($plugin_paths as $plugpath) {

    if ( file_exists( $plugpath . $plugin . '.php' ) ) {
      include $plugpath . $plugin . '.php';
      $init = $plugin . "_init";
      if ( function_exists( $init ) )
        $init();
      return;
    }
    
  }
  
}

  /**
   * version
   * 
   * get dbscript version
   * 
   * @access public
   * @return string
   */
  
function version() {
  global $version;
  return $version;
}


function timestamp() {
  return date( "Y-m-d H:i:s", strtotime( "now" ));
}


  /**
   * magic_quotes_stripslashes_b
   * 
   * @access public
   * @param array $a
   * @return array $r
   */

function magic_quotes_stripslashes_b($a) { // Back
   $r=array();
   foreach ($a as $k=>$v) {
       if (!is_array($v)) $r[stripslashes($k)] = stripslashes($v);
       else $r[stripslashes($k)] = magic_quotes_stripslashes_b($v);
   }
   return $r;
}


  /**
   * magic_quotes_stripslashes
   * 
   * @access public
   * @param array $a
   * @return array $r
   */

function magic_quotes_stripslashes($a) { // Top
   $r=array();
   foreach ($a as $k=>$v) {
       if (!is_array($v)) $r[$k] = stripslashes($v);
       else $r[$k] = magic_quotes_stripslashes_b($v);
   }
   return $r;
}


  /**
   * magic_quotes_stripquotes_b
   * 
   * @access public
   * @param array $a
   * @return array $r
   */

function magic_quotes_stripquotes_b($a) { // Back
   $r=array();
   foreach ($a as $k=>$v) {
       if (!is_array($v)) $r[str_replace('\'\'','\'',$k)] = str_replace('\'\'','\'',$v);
       else $r[str_replace('\'\'','\'',$k)] = magic_quotes_stripquotes_b($v);
   }
   return $r;
}


  /**
   * magic_quotes_stripquotes
   * 
   * @access public
   * @param array $a
   * @return array $r
   */

function magic_quotes_stripquotes($a) { // Top
   $r=array();
   foreach ($a as $k=>$v) {
     if (!is_array($v)) $r[$k] = str_replace('\'\'','\'',$v);
     else $r[$k] = magic_quotes_stripquotes_b($v);
   }
   return $r;
}


  /**
   * header_status
   * 
   * @access public
   * @param string $status
   */
   
function header_status( $status ) {
  if (!headers_sent($filename, $linenum)) {
    // this is disabled because it breaks on Dreamhost
    #header( "Status: ".$status );
    // THIS "works" on DH but it's not up to HTTP spec
    #header( "HTTP/1.0 Status: ".$status );
  } else {
    echo "Headers already sent in $filename on line $linenum\nCannot set HTTP status\n";
    exit;
  }
}

  /**
   * set_cookie
   * 
   * make a fresh Cookie
   * 
   * @access public
   * @param integer $userid
   */

function set_cookie($userid) {
  $cookie = new Cookie();
  $cookie->userid = $userid;
  $cookie->set();
}


  /**
   * unset_cookie
   * 
   * throw the Cookie away? noo..
   * 
   * @access public
   */

function unset_cookie() {
  $cookie = new Cookie();
  $cookie->logout();
}


  /**
   * check_cookie
   * 
   * is the Cookie fit for consumption?
   * 
   * @access public
   * @return boolean
   */

function check_cookie() {
  $cookie = new Cookie();
  if ($cookie->validate()) {
    return true;
  } else {
    return false;
  }
}


function print_email( $mail ) {
    if ($mail=='') return '';
    $mail = str_replace(array('@',':','.'), array('&#064;','&#058;','&#046;'), $mail);
    $mail = '<a href=mailto&#058;'.$mail.'>'.$mail.'</a>';
    $len = strlen($mail);
    $i=0;
    while($i<$len)
        {
        $c = mt_rand(1,4);
        $par[] = (substr($mail, $i, $c));
        $i += $c;
        }
    $join = implode('"+ "', $par);

    return '<script language=javascript>
    <!--
    document.write("'.$join.'")
    //-->
    </script>';
}


function signed_in() {
  
  return member_of('members');
  
}


function public_resource() {
  
  global $db;
  global $request;
  $req =& $request;
  
  if ( $req->resource == 'introspection' )
    return true;  
  
  $datamodel =& $db->get_table($req->resource);

  $action = $request->action;

  if ( !( in_array( $action, $datamodel->allowed_methods, true )))
    $action = 'get';
  
  if (!($action == 'get'))
    return false;
  
  if (!(isset($datamodel->access_list['read']['id'])))
    return false;
  
  if (in_array('always',$datamodel->access_list['read']['id']))
    return true;
  
  if (in_array('everyone',$datamodel->access_list['read']['id']))
    return true;
    
  if (isset($req->client_wants))
    if (in_array($req->action.".".$req->client_wants,$datamodel->access_list['read']['id']))
      return true;
    else
      return false;

  if (in_array($req->action,$datamodel->access_list['read']['id']))
    return true;

//      if ((!(file_exists($this->template_path . $resource . "_" . $action . "." . $ext)))
  
  return false;
  
}

function virtual_resource() {
  
  global $request;
  
  $model = model_path() . classify($request->resource) . ".php";
  
  if (!file_exists($model))
    return true;
  
  return false;
  
}


function can_read( $resource ) {
  if (!(isset($this->access_list['read'][$resource]))) return false;
  foreach ( $this->access_list['read'][$resource] as $callback ) {
    if ( function_exists( $callback ) ) {
      if ($callback())
        return true;
    } else {
      if ( member_of( $callback ))
        return true;
    }
  }
  return false;
}

function can_edit( $post ) {
  global $db;
  $pid = get_person_id();
  $e = $post->FirstChild('entries');
  $m =& $db->get_table($post->table);
  return (($pid == $e->person_id) || $m->can_superuser($post->table));
}

function entry_for( &$obj ) {
  
  global $db;
  
  if (isset($obj->entry_id)) {
    
    // it's a Record with metadata
    
    $Entry =& $db->model('Entry');
    
    return $Entry->find($obj->entry_id);
    
  }
  
  return false;
  
}

function owner_of( &$obj ) {
  
  global $db;
  
  $Person =& $db->model('Person');
  
  if (isset($obj->entry_id)) {
    
    // it's a Record
    
    $Entry =& $db->model('Entry');
    
    $e = $Entry->find($obj->entry_id);
    
    $p = $Person->find($e->person_id);
    
  } else {
    
    // it's an Entry
    
    $p = $Person->find($obj->person_id);
    
  }
  
  
  if ($p) {
    $i = $p->FirstChild('identities');
    if ($i)
      return $i;
  }
  
  return false;
  
}

  /**
   * get_profile
   * 
   * get the Identity of a person
   * 
   * @access public
   * @return integer
   */

function get_profile($id=NULL) {
  
  global $db,$response;
  
  if (!($id == NULL)) {
    $Identity =& $db->get_table( 'identities' );
    return $Identity->find($id);
  } elseif ( isset( $response->named_vars['profile'] )) {
    $profile =& $response->named_vars['profile'];
    if ($profile->id > 0)
      return $profile;
  }
  
  $pid = get_person_id();
  
  if (!$pid)
    return false;
  
  $Person =& $db->get_table( 'people' );
  
  $p = $Person->find($pid);
  
  if ($p) {
    $i = $p->FirstChild('identities');
    if ($i)
      $response->named_vars['profile'] = $i;
    if ($i)
      return $i;
  }
  return false;
}


function get_profile_id() {
  
  $profile = get_profile();
  
  return $profile->id;
  
}

function return_ok() {
  header( 'Status: 200 OK' );
  exit;
}


  /**
   * get_person_id
   * 
   * get the person_id of the profile owner
   * 
   * @access public
   * @return integer
   */

function get_person_id() {
  
  global $response,$request;
  
  if (isset($response->named_vars['profile'])) {
    $i = $response->named_vars['profile'];
    if ($i)
      return $i->person_id;
  }

  if (isset($_SERVER['PHP_AUTH_USER'])) {
    global $person_id;
    if ($person_id) {
      before_filter( 'return_ok', 'redirect_to' );
      return $person_id;
    }
  }

  $p = get_cookie_id();


  if ($p)
    return $p;
  
  if (isset($_SESSION['fb_person_id'])
  && $_SESSION['fb_person_id'] >0) {
    return $_SESSION['fb_person_id'];
  }

  if (isset($_SESSION['oauth_person_id'])
  && $_SESSION['oauth_person_id'] >0) {
    return $_SESSION['oauth_person_id'];
  }
  
  if (isset($_SERVER['PHP_AUTH_USER'])) {
	  global $person_id;
	  if ($person_id)
	    return $person_id;
  }

  if (isset($_POST['auth']) && $_POST['auth'] == 'omb')
    authenticate_with_omb();

  if (isset($_POST['auth']) && $_POST['auth'] == 'oauth')
    authenticate_with_oauth();
  
  global $person_id;

  if ($person_id) {
    before_filter( 'return_ok', 'redirect_to' );
    return $person_id;
  }
  
  return 0;
  
}



  /**
   * get_cookie_id
   * 
   * get the person_id of the cookie owner
   * 
   * @access public
   * @return integer
   */

function get_cookie_id() {
  
  $cookie = new Cookie();
  
  if ($cookie->validate())
    return $cookie->userid;
  
  return 0;
  
}


  /**
   * Vars
   * 
   * mutator function makes an array of local variables extractable
   * 
   * @access public
   * @param string $var
   * @return string
   */


 function render($varios, $scope=false, $prefix='unique', $suffix='value') {

if ($varios == 'action'){
	$param = $varios;
	$value = $scope;
  global $db,$response,$request;

  if ( $param == 'action' && !(strpos($value,".") === false ) ) {
    $spleet = split( "\.", $value );
    $value = $spleet[0];
    $request->set( 'client_wants', $spleet[1] );
  }

  $request->set_param( $param, $value );

  $response->render( $request );

  exit;
}

    if ( $scope )
      $vals = $scope;
    else
      $vals = $GLOBALS;
    $i = 0;
    foreach ($varios as $orig) {
      $var =& $varios[$i];
      $old = $var;
      $var = $new = $prefix . rand() . $suffix;
      $vname = FALSE;
      foreach( $vals as $key => $val ) {
        if ( $val === $new ) $vname = $key;
      }
      $var = $old;
      if ($vname) {
        $varios[$vname] = $var;
      }
      $i++;
    }
    return $varios;
  }

  function vars($varios, $scope=false, $prefix='unique', $suffix='value') {
    if ( $scope )
      $vals = $scope;
    else
      $vals = $GLOBALS;
    $i = 0;
    foreach ($varios as $orig) {
      $var =& $varios[$i];
      $old = $var;
      $var = $new = $prefix . rand() . $suffix;
      $vname = FALSE;
      foreach( $vals as $key => $val ) {
        if ( $val === $new ) $vname = $key;
      }
      $var = $old;
      if ($vname) {
        $varios[$vname] = $var;
      }
      $i++;
    }
    return $varios;
  }


  /**
   * Randomstring
   * 
   * give it a string length and you will receive a random string!
   * 
   * @access public
   * @param integer $len
   * @return string
   */

function randomstring($len) {
   srand(date("s"));
   $i = 0;
   $str = "";
   while($i<$len)
     {
       $str.=chr((rand()%26)+97);
       $i++;
   }
   return $str;
}


function getEtag($id) {
  return "ci-".dechex(crc32($id.microtime()));
}


  /**
   * drop_array_element
   * 
   * returns the array minus the named element
   * 
   * @access public
   * @param string $str
   */

function drop_array_element($array_with_elements, $key_name) {
  $key_index = array_keys(array_keys($array_with_elements), $key_name);
  if (count($key_index) != '') {
    array_splice($array_with_elements, $key_index[0], 1);
  }
  return $array_with_elements;
}


  /**
   * dictionary_parse
   * 
   * Parses an xml dictionary.
   * First argument is file name OR xml data.
   * Second argument must be 'true' if the first arg is file name.
   *
   * <code>
   * $array = dictionary_parse( $file_name, true );
   * </code>
   *
   * @author Brian Hendrickson <brian@dbscript.net>
   * @access public
   * @param string $data
   * @return array
   */

function dictionary_parse( $data ) { /* parse XML dictionaries (lookup tables) */
  $dict = array();
  $xml_parser = xml_parser_create();
  xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, 1);
  xml_parser_set_option($xml_parser, XML_OPTION_SKIP_WHITE, 0);
  if (!$xml_parser) {
    trigger_error("error creating xml parser (xml_parser_create) in dictionary_parse", E_USER_ERROR );
  }
  $func_args = func_get_args();
  if (count($func_args) > 1) {
    if ($func_args[1] == true) {
      $data = file_get_contents($data);
      if (!$data) {
        trigger_error("error reading file contents in dictionary_parse, file name was: ".$func_args[0], E_USER_ERROR );
      }
    }
  }
  $int = xml_parse_into_struct($xml_parser, $data, $values, $tags);
  if (!($int > 0)) {
    trigger_error("error parsing XML in dictionary_parse: ".xml_error_string(xml_get_error_code($xml_parser)), E_USER_ERROR )." ". $data;
  }
  foreach ($tags as $tagname=>$valuelocations) {
    if ($tagname == "KEY") {
      $i = 0;
      foreach ($valuelocations as $valkey=>$valloc) {
        $map[$i] = $values[$valloc]['value'];
        $dict[$values[$valloc]['value']] = "";
        $i++;
      }
    }
    if ($tagname == "STRING") {
      $i = 0;
      foreach ($valuelocations as $valkey=>$valloc) {
        if (isset($values[$valloc]['value'])) {
          $dict[$map[$i]] = $values[$valloc]['value'];
        } else {
          $dict[$map[$i]] = "";
        }
        $i++;
      }
    }
  }
  xml_parser_free($xml_parser);
  return $dict;
}


function load_model( &$model, &$model2 ) {
  global $db;
  $tab = tableize(get_class($model));
  if ($tab == 'models') return;
  if (!($db->models[$tab]->exists))
    $model->register($tab);
}


  /**
   * in_string
   * 
   * search for a substring
   * 
   * @access public
   * @param string $needle
   * @param array $haystack
   * @param integer $insensitive
   * @return boolean
   */

function in_string($needle, $haystack, $insensitive = 0) {
  if ($insensitive) {
    return (false !== stristr($haystack, $needle)) ? true : false;
  } else {
    return (false !== strpos($haystack, $needle))  ? true : false;
  }
} 
  

  /**
   * get_script_name
   * 
   * the name of the current script
   * 
   * @access public
   * @return string
   */

function get_script_name() {
  if (!empty($_SERVER['PHP_SELF'])) {
    $strScript = $_SERVER['PHP_SELF'];
  } else if (!empty($_SERVER['SCRIPT_NAME'])) {
    $strScript = @$_SERVER['SCRIPT_NAME'];
  } else {
    trigger_error("error reading script name in get_script_name", E_USER_ERROR );
  }
  $intLastSlash = strrpos($strScript, "/");
  if (strrpos($strScript, "\\")>$intLastSlash) {
    $intLastSlash = strrpos($strScript, "\\");
  }
  return substr($strScript, $intLastSlash+1, strlen($strScript));
}


function dircopy($srcdir, $dstdir, $verbose = false) {
  $num = 0;
  if(!is_dir($dstdir)) mkdir($dstdir);
  if($curdir = opendir($srcdir)) {
   while($file = readdir($curdir)) {
     if($file != '.' && $file != '..') {
       $srcfile = $srcdir . DIRECTORY_SEPARATOR . $file;
       $dstfile = $dstdir . DIRECTORY_SEPARATOR . $file;
       if(is_file($srcfile)) {
         if(is_file($dstfile)) $ow = filemtime($srcfile) - filemtime($dstfile); else $ow = 1;
         if($ow > 0) {
           if($verbose) echo "Copying '$srcfile' to '$dstfile'...";
           if(copy($srcfile, $dstfile)) {
             touch($dstfile, filemtime($srcfile)); $num++;
             if($verbose) echo "OK\n";
           }
           else echo "Error: File '$srcfile' could not be copied!\n";
         }                  
       }
       else if(is_dir($srcfile)) {
         $num += dircopy($srcfile, $dstfile, $verbose);
       }
     }
   }
   closedir($curdir);
  }
  return $num;
}


function unzip($dir, $file, $verbose = 0) {

   $dir_path = "$dir$file";
   $zip_path = "$dir$file.zip";
   
   $ERROR_MSGS[0] = "OK";
   $ERROR_MSGS[1] = "Zip path $zip_path doesn't exists.";
   $ERROR_MSGS[2] = "Directory $dir_path for unzip the pack already exists, impossible continue.";
   $ERROR_MSGS[3] = "Error while opening the $zip_path file.";
   
   $ERROR = 0;
   
   if (file_exists($zip_path)) {
   
         if (!file_exists($dir_path)) {
             
           mkdir($dir_path);    
         
         if (($link = zip_open($zip_path))) {
             
           while (($zip_entry = zip_read($link)) && (!$ERROR)) {
               
               if (zip_entry_open($link, $zip_entry, "r")) {
           
                 $data = zip_entry_read($zip_entry, zip_entry_filesize($zip_entry));
                 $dir_name = dirname(zip_entry_name($zip_entry));
                 $name = zip_entry_name($zip_entry);
                 
                 if ($name[strlen($name)-1] == '/') {
                         
                       $base = "$dir_path/";

                     foreach ( explode("/", $name) as $k) {
                         
                       $base .= "$k/";
                           
                       if (!file_exists($base))
                           mkdir($base);
                           
                     }    
                       
                 }
                 else { 
                 
                     $name = "$dir_path/$name"; 
                     
                     if ($verbose)
                       echo "extracting: $name<br />";
                       
                   $stream = fopen($name, "w");
                   fwrite($stream, $data);
                   
                 }  
                 
                 zip_entry_close($zip_entry);
                 
               }
               else
                 $ERROR = 4;    
  
             }
             
             zip_close($link);  
             
           }
           else
             $ERROR = "3";
       }
       else 
         $ERROR = 2;
   }
   else 
       $ERROR = 1;
     
   return $ERROR_MSGS[$ERROR];        
   
}    

#---

#example:

#$error = unzip("d:/www/dir/", "zipname", 1);


  /**
   * is_obj
   * 
   * more flexible is_object
   * 
   * @access public
   * @param object $object
   * @param boolean $check
   * @param boolean $strict
   * @return boolean
   */

function is_obj( &$object, $check=null, $strict=true ) {
  if (is_object($object)) {
    if ($check == null) {
      return true;
    } else {
      $object_name = get_class($object);
      return ($strict === true)? 
      ( $object_name == $check ):
      ( strtolower($object_name) == strtolower($check) );
    }    
  } else {
    return false;
  }
}

function resource_group_members( $gid=NULL ) {
  
  global $db;
  global $request;
  $req =& $request;
  $Person =& $db->model('Person');
  $Group =& $db->model('Group');
  $Group->find();
  $added = array();
  $result = array();
  $datamodel =& $db->get_table($req->resource);
  
  if ($gid == NULL) {
    
    while ( $g =& $Group->MoveNext() ) {
      if (in_array($g->name,$datamodel->access_list['read']['id'])) {
        while ( $m = $g->NextChild( 'memberships' )) {
          if (!(in_array($m->person_id,$added))) {
            $p =& $Person->find( $m->person_id );
            $result[] = $p->FirstChild('identities');
            $added[] = $m->person_id;
          }
        }
      }
    }
    
  } else {
    while ( $g =& $Group->MoveNext() ) {
      if (($g->id == $gid)) {
        while ( $m = $g->NextChild( 'memberships' )) {
          if (!(in_array($m->person_id,$added))) {
            $p =& $Person->find( $m->person_id );
            $result[] = $p->FirstChild('identities');
            $added[] = $m->person_id;
          }
        }
      }
    }
  }
  
  return $result;
  
}

function _t($t) {
  return $t;
}

function laconica_time($ts) {
  include 'wp-content/language/lang_chooser.php'; //Loads the language-file

  $t = strtotime($ts);
	$now = time();
	$diff = $now - $t;

	if ($diff < 60) {
		return _t($txt['functions_few_seconds']);
	} else if ($diff < 92) {
		return _t($txt['functions_about_a_minute']);
	} else if ($diff < 3300) {
		return _t($txt['functions_about_mins_1']) . round($diff/60) . _t($txt['functions_about_mins_2']);
	} else if ($diff < 5400) {
		return _t($txt['functions_about_an_hour']);
	} else if ($diff < 22 * 3600) {
		return _t($txt['functions_about_hours_1']) . round($diff/3600) . _t($txt['functions_about_hours_2']);
	} else if ($diff < 37 * 3600) {
		return _t($txt['functions_about_a_day']);
	} else if ($diff < 24 * 24 * 3600) {
		return _t($txt['functions_about_days_1']) . round($diff/(24*3600)) . _t($txt['functions_about_days_2']);
	} else if ($diff < 46 * 24 * 3600) {
		return _t($txt['functions_about_a_month']);
	} else if ($diff < 330 * 24 * 3600) {
		return _t($txt['functions_about_months_1']) . round($diff/(30*24*3600)) . _t($txt['functions_about_months_2']);
	} else if ($diff < 480 * 24 * 3600) {
		return _t($txt['functions_about_a_year']);
	}
}

function time_3339($str) {
    $timestamp = strtotime($str);
    if (!$timestamp) {
        $timestamp = time();
    }
    $date = date('Y-m-d\TH:i:s', $timestamp);

    $matches = array();
    if (preg_match('/^([\-+])(\d{2})(\d{2})$/', date('O', $timestamp), $matches)) {
        $date .= $matches[1].$matches[2].':'.$matches[3];
    } else {
        $date .= 'Z';
    }
    return $date;
}

function time_2822($str) {
  return strftime ("%a, %d %b %Y %H:%M:%S %z", strtotime($str));
}

function time_of($str) {
  return strftime ("%a %b %e %I:%M %p", strtotime($str));
}


  /**
   * getLocaltime
   * 
   * echo ' Server Time: '.date("F d, Y - g:i A",time());;
   * echo " || GMT Time: " . gmdate("F d Y - g:i A", time());
   * echo ' ||  Localtime: '.getLocaltime('+5.5',0);
   *
   * @author http://techjunk.websewak.com/
   * @access public
   * @param string $GMT
   * @param string $dst
   * @return string
   */


function getLocaltime($GMT,$dst){
        if(preg_match('/-/i',$GMT))
        {
                $sign = "-";
        }
        else
        {
                $sign = "+";
        }

        $h = round((float)$GMT,2);

        $dst = "true";

        if ($dst)
                {
                $daylight_saving = date('I');
                if ($daylight_saving)
                                {
                   if ($sign == "-"){ $h=$h-1;  }
                   else { $h=$h+1; }
                }
        }

        // FIND DIFFERENCE FROM GMT
        $hm = $h * 60;
        $ms = $hm * 60;

        // SET CURRENT TIME
        if ($sign == "-"){ $timestamp = time()-($ms); }
        else { $timestamp = time()+($ms); }

        // SAMPLE OUTPUT
        $gmdate = gmdate("F d, Y - g:i A", $timestamp);
        return $gmdate;
}

function make_token($int='99') {
  return dechex(crc32($int.microtime()));
}

function normalize_username($username) {
  $username = preg_replace('|[^https?://]?[^\/]+/(xri.net/([^@]!?)?)?/?|', '', $username);
  return trim($username);
}

function is_jpg( $file ) {
  return (exif_imagetype($file) == IMAGETYPE_JPEG);
}

function is_gif( $file ) {
  return (exif_imagetype($file) == IMAGETYPE_GIF);
}

function is_png( $file ) {
  return (exif_imagetype($file) == IMAGETYPE_PNG);
}

if ( ! function_exists( 'exif_imagetype' ) ) {
  function exif_imagetype ( $filename ) {
      if ( ( list($width, $height, $type, $attr) = getimagesize( $filename ) ) !== false ) {
          return $type;
      }
  return false;
  }
}

function isset_admin_email() {
  return (! (environment('email_from') == 'root@localhost' ));
}

function admin_alert($text) {
  global $request;
  if (!isset_admin_email())
    return;
  send_email( environment('email_from'), "admin alert for ".$request->base, $text, environment('email_from'), environment('email_name'), false );
}

function omb_dev_alert($text) {
  global $request;
  if (!isset_admin_email() || $request->domain != 'openmicroblogger.com')
    return;
  send_email( environment('email_from'), "admin alert for ".$request->base, $text, environment('email_from'), environment('email_name'), false );
}

// for Cake libs

function uses( $var ) {
  return;
}

class Object {
  
}

// end Cake libs


// if REST PUT is only one field, via Ajax
// then show the field value after saving

function ajax_put_field( &$model, &$rec ) {
  
  global $request;
  
  if (!(is_ajax()))
    return;
   
  $fields = $model->fields_from_request( $request );
    
  if (isset($fields[$request->resource]))
    $fieldsarr = $fields[$request->resource];
  
  if (count($fieldsarr) == 1) {
    list($field,$type) = each($fieldsarr);
    if (strpos('password',$field)) {
      $chars = split('',$rec->$field);
      foreach($chars as $c)
        echo "*";
    } else {
      echo $rec->$field;
    }
    exit;
  }
  
}

function migrate() {
  
  global $db,$request;
  
  $db->just_get_objects();
  
  foreach($db->models as $model)
    if ($model){
      $model->migrate();
	    if (method_exists( $model, 'init' ))
	      $model->init();
    }
  
  echo "<br />The database schema is now synced to the data models. <a href=\"".$request->url_for('admin')."\">Return to Admin</a><br /><br />";
  exit;
  
}

function is_ajax() {
  return (isset($_SERVER['HTTP_X_REQUESTED_WITH']) && $_SERVER['HTTP_X_REQUESTED_WITH']=="XMLHttpRequest");
}

/**
 * Reference Value
 * 
 * get a value from another table
 * 
 * @author Brian Hendrickson <brian@dbscript.net>
 * @access public
 * @param string table
 * @param string field
 * @param integer pkval
 * @return string[]
 */
function reference_value( $table, $field, $pkval ) {
  global $db;
  $rec = $db->get_record( $table, $pkval );
  return $rec->$field;
}


function app_profile_show($resource,$action) {
  
  global $request;
  echo '<script type="text/javascript">'."\n\n";
  echo '// <![CDATA['."\n\n";
  echo '  $(document).ready(function() {'."\n\n";
  echo "  var url = '".$request->url_for(array('resource'=>$resource,'action'=>$action))."' + '/partial';"."\n\n";
  echo '  $("#'.$resource.'_profile").html("<img src=\''.base_path(true).'resource/jeditable/indicator.gif\'>");'."\n\n";
  echo '  $.get(url, function(str) {'."\n\n";
  echo '    $("#'.$resource.'_profile").html(str);'."\n\n";
  echo '  });'."\n\n";
  echo '});'."\n\n";
  echo '// ]]>'."\n\n";
  echo '</script>'."\n\n";
  echo '<p class="'.$resource.'_profile" id="'.$resource.'_profile"></p>';
  
}

function app_register_init($resource,$action,$button,$appname,$group) {
  
  // this func will be triggered by 'init' crosscut
  global $request;
  
  // make a url from the resource/action Route pattern
  $url = $request->url_for(array(
    
    'resource'  =>   $resource,
    'action'    =>   $action
    
  ));
  
  // todo this should be expressable in the url-for XXX
  $url = $url."/partial";
  
  // add button to menu
  add_management_page( $button, $appname, $group, '', '', $url );
  
}

function get_nav_links() {
  
  global $request;
  
  $pid = get_app_id();
  
  $links = array();
  
  $i = get_profile($pid);
  
  
  $links["Public"] = base_url(true);
  
  
  if ($i && $i->id > 0) {
    
    $links["Personal"] = $request->url_for(array(
        "resource"=>"posts",
        "forid"=>$i->id,
        "page"=>1 ));
    
    if (empty($i->post_notice))
      $links["Profile"] = $request->url_for(array("resource"=>$i->nickname));
    else
      $links["Profile"] = $i->profile;

    if (empty($i->post_notice))
      $links["@".$i->nickname] = $request->url_for(array("resource"=>$i->nickname))."/replies";
    else
      $links["@".$i->nickname] = $i->profile."/replies";
      
  }
  
  if ($pid > 0) {
    
    if (member_of('administrators'))
      $links["Admin"] = $request->url_for(array('resource'=>'admin'));
    
    $links["Upload"] = $request->url_for(array('resource'=>'posts','action'=>'upload'));
    
    $links["Logout"] = $request->url_for("openid_logout");
  
  } else {
  
    $links["Register"] = $request->url_for("register");
    $links["Login"] = $request->url_for("email_login");
  
  }
  
  return $links;
  
}

function get_app_id() {
  
  global $db;
  
  global $request;

  $id = false;

  if (!($request->resource == 'identities')) {
	
    if ($request->params['byid'] > 0)
      $id = $request->params['byid'];
    elseif ($request->params['forid'] > 0)
      $id = $request->params['forid'];
    elseif (get_profile_id())
      $id = get_profile_id();
    
    if ($id && !(strpos($id,".") === false )) {
			$parts = split('\.',$id);
			$id = $parts[0];	    
    }
    if (!$id) {
      //authenticate_with_http();
      //$id = get_profile_id();
    }

    return $id;

  }
  
  // looking some profile page
  // load its apps
  
  if ($request->id > 0)
    return $request->id;
  elseif (get_profile_id())
    return get_profile_id();
  else
    return false;
  
}


function app_path() {
  
  return $GLOBALS['PATH']['app'];
  
}



function load_apps() {
  global $apps_loaded;
  if ($apps_loaded == true)
    return;
  // enable wp-style callback functions
  
  global $db,$request,$env;
  
  if (in_array($request->action,array(
    'replies','following','followers'
  ))) return;
  
  $identity = get_app_id();

  if (!$identity){

    global $api_methods;
    
    if (array_key_exists($request->action,$api_methods)){
		  authenticate_with_http();
		  $identity = get_app_id();
	  }

  }

  if (!$identity)
    return;

  $Identity =& $db->model('Identity');
  $Setting =& $db->model('Setting');
  
  $i = $Identity->find($identity);
  
  $activated = array();
  
  while ($s = $i->NextChild('settings')){
    $s = $Setting->find($s->id);
    if ($s->name == 'app') {
      app_init( $s->value );
      $activated[] = $s->value;
    }
  }
  if (isset($env['installed'])){
    $list = $env['installed'];
    foreach($list as $app)
      if (!in_array($app,$activated))
        app_init( $app );
  }
  global $current_user;
  trigger_before( 'init', $current_user, $current_user );
 	$apps_loaded = true;
 
}

function app_init($appname) {
  
  $startfile = app_path() . $appname . DIRECTORY_SEPARATOR . $appname . ".php";
  if (is_file($startfile))
    require_once $startfile;
  
  $pluginsdir = app_path() . $appname . DIRECTORY_SEPARATOR . 'plugins';
  if (is_dir($pluginsdir)) {
    $GLOBALS['PATH']['app_plugins'][] = $pluginsdir;
    $startfile = $pluginsdir.DIRECTORY_SEPARATOR.$appname.".php";
    if (is_file($startfile))
      require_once $startfile;
  }
    
  $events = array(
    'admin_head'   => 'head',
    'admin_menu'   => 'menu',
    'wp_head'      => 'head',
    'publish_post' => 'post',
    'the_content'  => 'show'
  );
  
  foreach( $events as $wpevent=>$dbevent )
    if (function_exists($appname.'_'.$dbevent))
      add_action( $wpevent, $appname.'_'.$dbevent);
  
  if (function_exists($appname."_init"))
    before_filter( $appname."_init", 'init' );

  
}


function array_sort($array, $key, $max=false) 
{ 
   for ($i = 0; $i < sizeof($array); $i++) { 
       $sort_values[$i] = $array[$i][$key]; 
   } 
   asort ($sort_values); 
   reset ($sort_values); 
   while (list ($arr_key, $arr_val) = each ($sort_values)) { 
     if ($max) {
       if (count($sorted_arr) < $max)
         $sorted_arr[] = $array[$arr_key]; 
       } else {
         $sorted_arr[] = $array[$arr_key]; 
       }
   } 
   return $sorted_arr; 
} 

global $timezone_offsets;
$timezone_offsets = array(
  '-12'    =>  'Baker Island',
  '-11'    =>  'Niue, Samoa',
  '-10'    =>  'Hawaii-Aleutian, Cook Island',
  '-9.5'   =>  'Marquesas Islands',
  '-9'     =>  'Alaska, Gambier Island',
  '-8'     =>  'Pacific',
  '-7'     =>  'Mountain',
  '-6'     =>  'Central',
  '-5'     =>  'Eastern',
  '-4'     =>  'Atlantic',
  '-3.5'   =>  'Newfoundland',
  '-3'     =>  'Amazon, Central Greenland',
  '-2'     =>  'Fernando de Noronha, South Georgia',
  '-1'     =>  'Azores, Cape Verde, Eastern Greenland',
  '0'      =>  'Western European, Greenwich Mean',
  '+1'     =>  'Central European, West African',
  '+2'     =>  'Eastern European, Central African',
  '+3'     =>  'Moscow, Eastern African',
  '+3.5'   =>  'Iran',
  '+4'     =>  'Gulf, Samara',
  '+4.5'   =>  'Afghanistan',
  '+5'     =>  'Pakistan, Yekaterinburg',
  '+5.5'   =>  'Indian, Sri Lanka',
  '+5.75'  =>  'Nepal',
  '+6'     =>  'Bangladesh, Bhutan, Novosibirsk',
  '+6.5'   =>  'Cocos Islands, Myanmar',
  '+7'     =>  'Indochina, Krasnoyarsk',
  '+8'     =>  'Chinese, Australian Western, Irkutsk',
  '+8.75'  =>  'Southeastern Western Australia',
  '+9'     =>  'Japan, Korea, Chita',
  '+9.5'   =>  'Australian Central',
  '+10'    =>  'Australian Eastern, Vladivostok',
  '+10.5'  =>  'Lord Howe',
  '+11'    =>  'Solomon Island, Magadan',
  '+11.5'  =>  'Norfolk Island',
  '+12'    =>  'New Zealand, Fiji, Kamchatka',
  '+12.75' =>  'Chatham Islands',
  '+13'    =>  'Tonga, Phoenix Islands',
  '+14'    =>  'Line Island'
);

function pretty_urls() {
  global $pretty_url_base;
  if (isset($pretty_url_base) && !empty($pretty_url_base))
    return true;
  return false;
}

function setting($name) {
  if (!signed_in())
    return false;
  global $db;
  global $ombsettings;
  if (!is_array($ombsettings))
    $ombsettings = array();
  if (isset($ombsettings[$name]))
    return $ombsettings[$name];
  $Setting =& $db->model('Setting');
  $sett = $Setting->find_by(array('name'=>$name,'profile_id'=>get_profile_id()));
  if ($sett) {
    $ombsettings[$name] = $sett->value;
    return $ombsettings[$name];
  }
  $ombsettings[$name] = false;
  return false;
}

function profile_setting($name) {
  global $db;
  $Setting =& $db->model('Setting');
  $sett = $Setting->find_by(array('name'=>$name,'profile_id'=>get_app_id()));
  if ($sett)
    return $sett->value;
  return false;
}

function md5_encrypt($plain_text, $password, $iv_len = 16){
  $plain_text .= "\x13";
  $n = strlen($plain_text);
  if ($n % 16) $plain_text .= str_repeat("\0", 16 - ($n % 16));
  $i = 0;
  $enc_text = get_rnd_iv($iv_len);
  $iv = substr($password ^ $enc_text, 0, 512);
  while ($i < $n) {
    $block = substr($plain_text, $i, 16) ^ pack('H*', md5($iv));
    $enc_text .= $block;
    $iv = substr($block . $iv, 0, 512) ^ $password;
    $i += 16;
  }
  return base64_encode($enc_text);
}

function md5_decrypt($enc_text, $password, $iv_len = 16){
  $enc_text = base64_decode($enc_text);
  $n = strlen($enc_text);
  $i = $iv_len;
  $plain_text = '';
  $iv = substr($password ^ substr($enc_text, 0, $iv_len), 0, 512);
  while ($i < $n) {
    $block = substr($enc_text, $i, 16);
    $plain_text .= $block ^ pack('H*', md5($iv));
    $iv = substr($block . $iv, 0, 512) ^ $password;
    $i += 16;
  }
  return preg_replace('/\\x13\\x00*$/', '', $plain_text);
}

function get_rnd_iv($iv_len){
  $iv = '';
  while ($iv_len-- > 0) {
    $iv .= chr(mt_rand() & 0xff);
  }
  return $iv;
}

function curl_redir_exec( $ch ) {
  
  $curl_loops = 0;
  
  $curl_max_loops = 20;
  
  if ($curl_loops++ >= $curl_max_loops) {
    $curl_loops = 0;
    return FALSE;
  }
  
  curl_setopt( $ch, CURLOPT_HEADER, true );
  
  curl_setopt( $ch, CURLOPT_RETURNTRANSFER, true );
  
  $data = curl_exec( $ch );
  
  list( $header, $data ) = explode( "\n\n", $data, 2 );
  
  $http_code = curl_getinfo( $ch, CURLINFO_HTTP_CODE );
  
  if ( $http_code == 301 || $http_code == 302 ) {
    
    $matches = array();
    
    preg_match('/Location:(.*?)\n/', $header, $matches);
    
    $url = @parse_url(trim(array_pop($matches)));
    
    if (!$url) {
      //couldn't process the url to redirect to
      $curl_loops = 0;
      return $data;
    }
    
    $last_url = parse_url( curl_getinfo( $ch, CURLINFO_EFFECTIVE_URL ));
    
    if (!$url['scheme'])
      $url['scheme'] = $last_url['scheme'];
    
    if (!$url['host'])
      $url['host'] = $last_url['host'];
    
    if (!$url['path'])
      $url['path'] = $last_url['path'];
    
    $new_url = $url['scheme'] . '://' . $url['host'] . $url['path'] . ($url['query']?'?'.$url['query']:'');
    
    curl_setopt( $ch, CURLOPT_URL, $new_url );
    
    return curl_redir_exec( $ch );
  
  } else {
    
    $curl_loops=0;
    
    return $data;
    
  }
}

function set_tz_by_offset($offset) {
  $offset = $offset * 3600;
  $abbrarray = timezone_abbreviations_list();
  foreach ($abbrarray as $abbr) {
    foreach ($abbr as $city) {
      if ($city['offset'] == $offset) { // remember to multiply $offset by -1 if you're getting it from js
        date_default_timezone_set($city['timezone_id']);
        return true;
      }
    }
  }
  date_default_timezone_set("ust");
  return false;
}


function setting_widget_text_helper($nam,$nammode,$namurl,$namentry) {
  global $request;
    echo '
      var submit_to'.$nam.' = "'. $namurl.'";

      $(".jeditable_'.$nam.'").mouseover(function() {
          $(this).highlightFade({end:\'#def\'});
      });
      $(".jeditable_'.$nam.'").mouseout(function() {
          $(this).highlightFade({end:\'#fff\', speed:200});
      });
      $(".jeditable_'.$nam.'").editable(submit_to'.$nam.', {
          indicator   : "<img src=\''. base_path(true).'resource/jeditable/indicator.gif\'>",
          submitdata  : function() {
            return {"entry[etag]" : "'.$namentry->etag.'"};
          },
          name        : "setting[value]",
          type        : "textarea",
          noappend    : "true",
          submit      : "OK",
          tooltip     : "Click to edit...",
          cancel      : "Cancel",
          callback    : function(value, settings) {
            return(value);
          }
      });  ';
};

function setting_widget_text_post_helper($nam,$namurl) {
  global $request;
    echo '
      var submit_to'.$nam.' = "'. $namurl.'";

      $(".jeditable_'.$nam.'").mouseover(function() {
          $(this).highlightFade({end:\'#def\'});
      });
      $(".jeditable_'.$nam.'").mouseout(function() {
          $(this).highlightFade({end:\'#fff\', speed:200});
      });
      $(".jeditable_'.$nam.'").editable(submit_to'.$nam.', {
          indicator   : "<img src=\''. base_path(true).'resource/jeditable/indicator.gif\'>",
          submitdata  : function() {
            return {"setting[name]" : "'.'config.env.'.$nam.'"};
          },
          name        : "setting[value]",
          type        : "textarea",
          noappend    : "true",
          submit      : "OK",
          tooltip     : "Click to edit...",
          cancel      : "Cancel",
          callback    : function(value, settings) {
            return(value);
          }
      });  ';
};

function tinymce_widget_text_post_helper($nam,$namurl,$post,$field,$namentry) {
echo '
var submit_to'.$nam.' = "'. $namurl.'";
$(".jeditable_'.$nam.'").editable(submit_to'.$nam.', { 
  indicator   : "<img src=\''. base_path(true).'resource/jeditable/indicator.gif\'>",
  submitdata  : function() {
    return {"method":"put","entry[etag]" : "'.$namentry->etag.'"};
  },
  name        : "'.$post.'['.$field.']",
  type        : "mce",
  noappend    : "true",
	width 			: "500px",
	height 			: "100px",
  submit      : "OK",
  tooltip     : "Click to edit...",
  cancel      : "Cancel",
  callback    : function(value, settings) {
    return(value);
  }
});
';
return;
    echo '
      var submit_to'.$nam.' = "'. $namurl.'";

      $(".jeditable_'.$nam.'").editable(submit_to'.$nam.', {
          indicator   : "<img src=\''. base_path(true).'resource/jeditable/indicator.gif\'>",
          submitdata  : function() {
            return {"method":"put","entry[etag]" : "'.$namentry->etag.'"};
          },
          name        : "'.$post.'['.$field.']",
          type        : "mce",
          noappend    : "true",
					width 			: "500px",
					height 			: "100px",
          submit      : "OK",
          tooltip     : "Click to edit...",
          cancel      : "Cancel",
          callback    : function(value, settings) {
            return(value);
          }
      });  ';
};

function setting_widget_helper($nam,$nammode,$namurl,$namentry,$listdata) {
  if (!class_exists("Services_JSON")) lib_include("json"); $json = new Services_JSON(); 
  global $request;
  echo '
      var submit_to'.$nam.' = "'. $namurl.'";

      $(".jeditable_'.$nam.'").mouseover(function() {
          $(this).highlightFade({end:\'#def\'});
      });
      $(".jeditable_'.$nam.'").mouseout(function() {
          $(this).highlightFade({end:\'#fff\', speed:200});
      });
      $(".jeditable_'.$nam.'").editable(submit_to'.$nam.', {
          indicator   : "<img src=\''. base_path(true).'resource/jeditable/indicator.gif\'>",
             data     : \''
     .$json->encode( $listdata ).
     '\',
          submitdata  : function() {
            return {"entry[etag]" : "'.$namentry->etag.'"};
          },
          name        : "setting[value]",
          type        : "select",
          placeholder : "'.placeholder_value($nammode,$listdata).'",
          noappend    : "true",
          submit      : "OK",
          tooltip     : "Click to edit...",
          cancel      : "Cancel",
          callback    : function(value, settings) {
            $(this).html(settings[\'jsonarr\'][value-0]);
            return(value);
          }
      });  ';
  
}

function placeholder_value(&$setting,$listdata) {
  if ($listdata[0] == 'false' && $listdata[1] == 'true')
    return $listdata[$setting->value];
  return $setting->value;
}

function authenticate_with_omb() {
  //
}

function authenticate_with_http() {
  global $db,$request;
  global $person_id;
  global $api_methods,$api_method_perms;
  
  if (array_key_exists($request->action,$api_method_perms)) {
    $arr = $api_method_perms[$request->action];
    if ($db->models[$arr['table']]->can($arr['perm']))
      return;
  }
  
  if (!isset($_SERVER['PHP_AUTH_USER'])) {
    header('WWW-Authenticate: Basic realm="your username/password"');
  } else {
    $Identity =& $db->get_table( 'identities' );
    $Person =& $db->get_table( 'people' );
    $Identity->set_param('find_by',array(
      'nickname'=>$_SERVER['PHP_AUTH_USER'],
      'password'=>md5($_SERVER['PHP_AUTH_PW'])
    ));
    $Identity->find();
    $i = $Identity->MoveFirst();
    $p = $Person->find( $i->person_id );
    if (!(isset( $p->id ) && $p->id > 0)) {
      header('HTTP/1.1 401 Unauthorized');
      echo 'BAD LOGIN';
      exit;
    }
    $person_id = $p->id;
  }
}
function authenticate_with_oauth() {
  //
}

function mu_url() {
  global $request;
  if ((!strpos($request->uri, 'ak_twitter/') && strpos($request->uri, '?twitter/')) ||
(strpos($request->uri, 'ak_twitter/') && strpos($request->uri, '?twitter/')))
    return true;
  return false;
}

function mb_unserialize($serial_str) {
  $out = preg_replace('!s:(\d+):"(.*?)";!se', "'s:'.strlen('$2').':\"$2\";'", $serial_str );
  return unserialize($out);    
}



function handle_posted_file($filename="",$att,$profile) {

	
  global $db,$request,$response;

	$response->set_var('profile',$profile);
	
	load_apps();

	if (isset($_FILES['media']['tmp_name']))
		$table = 'uploads';
	else
	  $table = 'posts';

  $modelvar = classify($table);

	$_FILES = array(
	  strtolower($modelvar) => array( 
	    'name' => array( 'attachment' => $filename ),
	    'tmp_name' => array( 'attachment' => $att )
	));

	$Post =& $db->model( 'Post' );
  $Upload =& $db->model( 'Upload' );

	$field = 'attachment';

  $request->set_param('resource',$table);

	$request->set_param( array( strtolower(classify($table)), $field ), 
	  $att );

  if (!isset($_FILES['media']['tmp_name']))
	trigger_before( 'insert_from_post', $$modelvar, $request );

	$content_type = 'text/html';
	$rec = $$modelvar->base();
	$content_type = type_of( $filename );
	$rec->set_value('profile_id',get_profile_id());
	$rec->set_value( 'parent_id', 0 );
	if (isset($request->params['message']))
		$rec->set_value( 'title', $request->params['message'] );
	else
	  $rec->set_value( 'title', '' );
  if ($table == 'uploads')
	  $rec->set_value( 'tmp_name', 'new' );
	$upload_types = environment('upload_types');
	if (!$upload_types)
	  $upload_types = array('jpg','jpeg','png','gif');
	$ext = extension_for( type_of($filename));
	if (!(in_array($ext,$upload_types)))
	  trigger_error('Sorry, this site only allows the following file types: '.implode(',',$upload_types), E_USER_ERROR);
	   $rec->set_value( $field, $att );
	$rec->save_changes();
	$tmp = $att;
	if (is_jpg($tmp)) {
	  $thumbsize = environment('max_pixels');
	  $Thumbnail =& $db->model('Thumbnail');
	  $t = $Thumbnail->base();
	  $newthumb = tempnam( "/tmp", "new".$rec->id.".jpg" );
	  resize_jpeg($tmp,$newthumb,$thumbsize);
	  $t->set_value('target_id',$atomentry->id);
	  $t->save_changes();
	  update_uploadsfile( 'thumbnails', $t->id, $newthumb );
	  $t->set_etag();
	}
	
	$atomentry = $$modelvar->set_metadata($rec,$content_type,$table,'id');

	$$modelvar->set_categories($rec,$request,$atomentry);
	
//	$url = $request->url_for(array(
//	  'resource'=>$table,
//	  'id'=>$rec->id
//	));
	
//	$title = substr($rec->title,0,140);
	
//	$over = ((strlen($title) + strlen($url) + 1) - 140);
	
//	if ($over > 0)
//	  $rec->set_value('title',substr($title,0,-$over)." ".$url);
//	else
//	  $rec->set_value('title',$title." ".$url);
	
//	$rec->save_changes();

  if (!isset($_FILES['media']['tmp_name']))
  	trigger_after( 'insert_from_post', $$modelvar, $rec );
	
	return true;
	
}

function ent2ncr($text) {
  return $text;
}

function esc_html($text) {
	return $text;
}

function wp_remote_post( $url, $paramarr ){

	return wp_remote_get( $url, $paramarr, true );

}

function esc_url($url){
	return urlencode($url);
}

function wp_remote_get( $url, $paramarr, $post=false ){

  $method = $paramarr['method'];
  $timeout = $paramarr['timeout'];
  $agent = $paramarr['user-agent'];
  $port = $paramarr['port'];

	$ch = curl_init();

	curl_setopt ($ch, CURLOPT_URL, $url);
	curl_setopt ($ch, CURLOPT_HEADER, 0); /// Header control
	curl_setopt ($ch, CURLOPT_PORT, $port);

	if ($post){
	  curl_setopt ($ch, CURLOPT_POST, true);  /// tell it to make a POST, not a GET
  	curl_setopt ($ch, CURLOPT_POSTFIELDS, $paramarr['body']);
 	}

	if (isset($paramarr['headers']))
	  curl_setopt($ch, CURLOPT_HTTPHEADER, $paramarr['headers']);

  curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, false);
   curl_setopt( $ch, CURLOPT_TIMEOUT, $timeout);
   curl_setopt($ch, CURLOPT_USERAGENT, $agent);
	curl_setopt ($ch, CURLOPT_RETURNTRANSFER, 1);
	$xml_response = curl_exec ($ch);
	$response = curl_getinfo( $ch );
  curl_close ( $ch );
  $result = array();
  $result['response'] = array('code'=>$response['http_code']);
  $result['body']=$xml_response;
  return $result;

}


function readUrl($url){
	$timeout = 10;
  $ch = curl_init();
  curl_setopt( $ch, CURLOPT_USERAGENT, "Mozilla/5.0 (Windows; U; Windows NT 5.1; rv:1.7.3) Gecko/20041001 Firefox/0.10.1" );
  curl_setopt( $ch, CURLOPT_URL, $url );
  curl_setopt( $ch, CURLOPT_ENCODING, "" );
  curl_setopt( $ch, CURLOPT_RETURNTRANSFER, true );
  curl_setopt( $ch, CURLOPT_AUTOREFERER, true );
  curl_setopt( $ch, CURLOPT_CONNECTTIMEOUT, $timeout );
  curl_setopt( $ch, CURLOPT_TIMEOUT, $timeout );
  curl_setopt( $ch, CURLOPT_MAXREDIRS, 10 );
  $content = curl_exec( $ch );
  $response = curl_getinfo( $ch );
  curl_close ( $ch );
  if($response['http_code'] == 200)
  {
      return $content;
  }
  return false;
}

function realtime($callback,$payload,$prefix=false){

  if (defined('PING') && !PING)
    return;

  if (defined('REALTIME_HOST') && !REALTIME_HOST )
    return;

  global $db;
  
  if ($prefix)
    $chan = $prefix;
  elseif (!empty($db->prefix))
    $chan = $db->prefix;
  else
    $chan = "chan";
  
	if (!(class_exists('Services_JSON')))
	  lib_include( 'json' );

	$json = new Services_JSON();
  
  $payload['callback'] = $callback;

	$load = $json->encode($payload);

	$curl = curl_init( "http://".REALTIME_HOST.":".REALTIME_PORT );

	curl_setopt( $curl, CURLOPT_RETURNTRANSFER, true );
	curl_setopt( $curl, CURLOPT_TIMEOUT, 1);
	curl_setopt( $curl, CURLOPT_CUSTOMREQUEST, 'ADDMESSAGE '.$chan.' '.addslashes($load) );

	curl_exec($curl);

}



function echo_home_timeline_tweet($tweet,$user){
	echo '	<status>
		<created_at>'.$tweet['created_at'].'</created_at>
		<id>'.$tweet['id'].'</id>
		<text>'.$tweet['text'].'</text>
		<source>'.$tweet['source'].'</source>
		<truncated>'.$tweet['truncated'].'</truncated>
		<in_reply_to_status_id>'.$tweet['in_reply_to_status_id'].'</in_reply_to_status_id>
		<in_reply_to_user_id>'.$tweet['in_reply_to_user_id'].'</in_reply_to_user_id>
		<favorited>'.$tweet['favorited'].'</favorited>
		<in_reply_to_screen_name>'.$tweet['in_reply_to_screen_name'].'</in_reply_to_screen_name>
		<user>
		  <id>'.$user['id'].'</id>
		  <name>'.$user['name'].'</name>
		  <screen_name>'.$user['screen_name'].'</screen_name>
		  <description>'.$user['description'].'</description>
		  <profile_image_url>'.$user['profile_image_url'].'</profile_image_url>
		  <url>'.$user['url'].'</url>
		  <protected>'.$user['protected'].'</protected>
		  <followers_count>'.$user['followers_count'].'</followers_count>
		  <profile_background_color>'.$user['profile_background_color'].'</profile_background_color>
		  <profile_text_color>'.$user['profile_text_color'].'</profile_text_color>
		  <profile_link_color>'.$user['profile_link_color'].'</profile_link_color>
		  <profile_sidebar_fill_color>'.$user['profile_sidebar_fill_color'].'</profile_sidebar_fill_color>
		  <profile_sidebar_border_color>'.$user['profile_sidebar_border_color'].'</profile_sidebar_border_color>
		  <friends_count>'.$user['friends_count'].'</friends_count>
		  <created_at>'.$user['created_at'].'</created_at>
		  <favourites_count>'.$user['favourites_count'].'</favourites_count>
		  <utc_offset>'.$user['utc_offset'].'</utc_offset>
		  <time_zone>'.$user['time_zone'].'</time_zone>
		  <profile_background_image_url>'.$user['profile_background_image_url'].'</profile_background_image_url>
		  <profile_background_tile>'.$user['profile_background_tile'].'</profile_background_tile>
		  <notifications>'.$user['notifications'].'</notifications>
		  <geo_enabled>'.$user['geo_enabled'].'</geo_enabled>
		  <verified>'.$user['verified'].'</verified>
		  <following>'.$user['following'].'</following>
		  <statuses_count>'.$user['statuses_count'].'</statuses_count>
		 <lang>en</lang>
		 <contributors_enabled>false</contributors_enabled>
		</user>
		<geo/>
		<coordinates/>
		<place/>
		<contributors/>
	</status>
	';
}

function render_home_timeline($single=false,$id=null){
	
global $request,$db;

$profile = get_profile();
	$nick = $profile->nickname;
	$Identity =& $db->model( 'Identity' );
	$Identity->set_param('find_by',array(
	  'nickname' => $nick,
	  'eq'=>'IS',
	  'post_notice' => 'NULL',
	));

	$Post =& $db->model( 'Post' );
	//$Post->set_param( 'find_by', array(
	//  'entries.person_id' => $profile->person_id
	//));

$Setting =& $db->model('Setting');

if (!$single)
	echo '<?xml version="1.0" encoding="UTF-8"?>
<statuses type="array">
';
else
		echo '<?xml version="1.0" encoding="UTF-8"?>
	';


//$Post->set_order('desc');
if (isset($_GET['count'])){
	$Post->set_limit($_GET['count']);
}else {
	$Post->set_limit(100);
}
$Post->has_one('profile_id:'.$prefix.'identities');

if (!$single) {

	if (isset($_GET['since_id'])){
		$Post->set_param( 'find_by', array(
			'eq'=>'>',
		  'posts.id' => $_GET['since_id']
		));
	}

//	echo $Post->get_query(); exit;

	$Post->find();
} else {
	$Post->find($id);
}
	$tweets = array();
	while ($p = $Post->MoveNext()) {
		$profile = $p->FirstChild('identities');
	  $tweet = array();
	  $user = array();
		$tit = iconv('UTF-8', 'ASCII//TRANSLIT', $p->title);
	  $tweet['text'] = htmlentities($tit);
	  $tweet['truncated'] = 'false';
	  $tweet['created_at'] = date( "D M d G:i:s O Y", strtotime( $p->created ));
	  $tweet['in_reply_to_status_id'] = '';
	  $tweet['source'] = 'web';
	  $tweet['id'] = intval( $p->id );
	  $tweet['favorited'] ='false';
	  $tweet['user'] = htmlentities($nick);

	  $tweet['in_reply_to_user_id'] = '';
	  $tweet['in_reply_to_screen_name'] = '';

		$bio = iconv('UTF-8', 'ASCII//TRANSLIT', $profile->bio);

		$user['id'] = $profile->id;
		$user['name'] = htmlentities(iconv('UTF-8', 'ASCII//TRANSLIT', $profile->fullname));
		$user['screen_name'] = htmlentities(iconv('UTF-8', 'ASCII//TRANSLIT', $profile->nickname));
		$user['location'] = htmlentities(iconv('UTF-8', 'ASCII//TRANSLIT', $profile->locality));
		$user['description'] = htmlentities($bio);
		$user['profile_image_url'] = htmlentities(iconv('UTF-8', 'ASCII//TRANSLIT', $profile->avatar));
		$user['url'] = htmlentities(iconv('UTF-8', 'ASCII//TRANSLIT', $profile->homepage));
		$user['protected'] = 'false';
		$user['followers_count'] = '0';
		$user['profile_background_color'] = 'FFFFFF';
		$user['profile_text_color'] = '000000';
		$user['profile_link_color'] = '405991';
		$user['profile_sidebar_fill_color'] = 'FFFFFF';
		$user['profile_sidebar_border_color'] = 'FFFFFF';
		$user['friends_count'] = '0';
		$user['created_at'] = date( "D M d G:i:s O Y", strtotime( $profile->created ));
		$user['favourites_count'] = '0';
		$user['utc_offset'] = '-28800';
		$user['time_zone'] = 'Pacific Time (US &amp; Canada)';


	  $settingvalue = $Setting->find_by(array('name'=>'background_image','profile_id'=>$profile->id));


		$user['profile_background_image_url'] = $settingvalue->value;

	  $settingvalue = $Setting->find_by(array('name'=>'background_tile','profile_id'=>$profile->id));
		$user['profile_background_tile'] = $settingvalue->value;
		$user['notifications'] = 'false';
		$user['geo_enabled'] = 'false';
		$user['verified'] = 'false';
		$user['following'] = 'true';
		$user['statuses_count'] = '0';

	  $tweets[] = array($tweet,$user);

    echo_home_timeline_tweet($tweet,$user);

    if ($single)
      break;
	}



if (!$single)
  echo '</statuses>';

	exit;
	
}



class AuthToken  {
 
  var $token;
  var $secret;

}