/db/library/dbscript/_functions.php

Large files files are truncated, but you can click here to view the full file

<?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);  
             
         …