root/trunk/midgard/tools/midrepository/paths.php

<?
/* 
   midgard-paths 1.0beta
   This provides path functionality as described in the documentation at http://midgard.dataflow.ch
   Author: David Schmitter, schmitt@dataflow.ch
   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License 2 as published by
   the Free Software Foundation; 

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA   02111-1307  USA
*/

if (isset($midgard)) 
     $sitegroup = $midgard->sitegroup;

function mgd_get_sitegroup_by_name($name) {
  if ($name == 'SG0') {
    $sg = mgd_get_sitegroup();
    $sg->id=0;
    return $sg;
  }
  $sitegroups = mgd_list_sitegroups();
  while ($sitegroups && $sitegroups->fetch()) {
    if ($sitegroups->name == $name) {
      return mgd_get_sitegroup($sitegroups->id);
    }
  }
  return FALSE;
}

function mgd_really_get_page_by_name($sg, $name) {
  $pages = mgd_list_pages(0);
  while ($pages && $pages->fetch()) {
    if ($pages->sitegroup == $sg && $pages->name == $name) {
      return mgd_get_page($pages->id);
    }   
  }
  return FALSE;  
}

function mgd_get_event_by_guid($id, $guid) {
  $event = mgd_get_object_by_guid($guid);
  if (!$event || get_class($event) != 'MidgardEvent') {
    return FALSE;
  }        
  if ($event->up != $id) {
    return FALSE;
  }
  return $event;
}

function mgd_get_event_member_by_guid($id, $guid) {
  $eventmember = mgd_get_object_by_guid($guid);
  if (!$eventmember || get_class($event) != 'MidgardEventMember') {
    return FALSE;
  }
  if ($eventmember->eid != $id) {
    return FALSE;
  }
  return $eventmember;
}

function label($host) { 
  if (!$host || get_class($host) != 'MidgardHost') {
    return FALSE;
  } else {
     return $host->name . ':' . $host->port . '|' . str_replace('/', '|', substr($host->prefix, 1));
  }
}


function mgd_get_member_by_guid($id, $guid) {
  $member = mgd_get_object_by_guid($guid);
  if (!$member || get_class($member) != 'MidgardMember') {
    return FALSE;
  }
  if ($member->uid != $id) {
    return FALSE;
  }
  return $member;
}

function mgd_get_host_by_label($label) {
  preg_match('/([^:]+):(\d+)\|(.*)/', $label, $stuff);
  list($bla, $name, $port, $prefix) = $stuff;
  $prefix = str_replace('|', '/', $prefix);
  $prefix = '/' . $prefix;
  $hosts = mgd_list_hosts();
  while ($hosts && $hosts->fetch()) {
    if ($hosts->name == $name && $hosts->port == $port && ($hosts->prefix == $prefix || '/' . $hosts->prefix == $prefix)) {
      return mgd_get_host($hosts->id);
    }
  }
  return FALSE;
} 

function mgd_get_style_by_id_and_name($id, $name) {
  $styles = mgd_list_styles($id);
  while ($styles && $styles->fetch()) {
    if ($styles->name == $name) {
      return mgd_get_style($styles->id);
    }
  }
  return FALSE;
}

function mgd_really_get_group_by_name($sg, $name) {
  $groups = mgd_list_groups(0);
  while ($groups && $groups->fetch()) {
    if ($groups->sitegroup == $sg && $groups->name== $name) {
      return mgd_get_group($groups->id);
    }
  }
  return FALSE;
}


function mgd_really_get_person_by_name($sg, $name) {
  $persons = mgd_list_persons();
  while ($persons && $persons->fetch()) {
    if ($persons->sitegroup == $sg && $persons->username == $name) {
      return mgd_get_person($persons->id);
    }
  }
  return FALSE;
}

function mgd_really_get_style_by_name($sg, $name) {
  $styles = mgd_list_styles(0);
  while ($styles && $styles->fetch()) {
    if ($styles->sitegroup == $sg && $styles->name == $name) {
      return mgd_get_style($styles->id);
    }
  }
  return FALSE;
}


function mgd_really_get_topic_by_name($sg, $name) {
  $topics = mgd_list_topics(0);
  while ($topics && $topics->fetch()) {
    if ($topics->sitegroup == $sg && $topics->name == $name) {
      return mgd_get_topic($topics->id);
    }   
  }
  return FALSE;
}
     
$CLASSES = array (
'ar' => 'article',
'at' => 'attachment',
'el' => 'element',
'ev' => 'event',
'em' => 'eventmember', 
'gr' => 'group',
'ho' => 'host',
'me' => 'member',
'pa' => 'page',
'pe' => 'pageelement',
'pr' => 'person',
'sd' => 'snippetdir',
'sg' => 'sitegroup',
'sn' => 'snippet',
'st' => 'style',
'to' => 'topic');
      
class Node {
  var $namefield;
  var $links;
  function Node($namefield, $links) {
    $this->namefield = $namefield;
    $this->links = $links;
  }
}

class Link {
  var $downfunc;
  var $primkey;
  var $uptable;
  var $upkey;
  var $upfunc;  
  var $uptablekey;
  function Link($downfunc, $primkey, $uptable, $upkey, $upfunc='mgd_get_$uptable', $uptablekey = NULL) {
    $this->downfunc = $downfunc;
    $this->primkey = $primkey;
    $this->uptable = $uptable;
    $this->upkey = $upkey;
    eval ("\$upfunc = \"$upfunc\";");
    $this->upfunc  = $upfunc;
    $this->uptablekey = $uptablekey;
  }
}

function newstdlink($table, $uptable) {
  $stdlink = new Link("mgd_get_${table}_by_name", 'id', $uptable, 'up');
  return $stdlink;
}

$LINKS = array('article' => new Node('$obj->name', array(new Link('mgd_get_reply_by_name', 'id', 'article','up'),
                                 new Link('mgd_get_article_by_name', 'id', 'topic', 'topic'))),
           'attachment' => new Node('$obj->name', array(new Link('$obj->getattachment',  NULL, 'ANY', 'pid', 'mgd_get_$uptablekey', '$obj->ptable'))),
           'element' => new Node('$obj->name', array(new Link('mgd_get_element_by_name', 'id', 'style', 'style'))),
           'event' => new Node('$obj->guid()', array(new Link('mgd_get_event_by_guid',  'id', 'event', 'up'),
                                 new Link('mgd_get_event_by_guid', '0', 'sitegroup', 'sitegroup'))),
           'eventmember' => new Node('$obj->guid()', array(new Link('mgd_get_event_member_by_guid',  'id', 'event', 'eid'))),
           'group' => new Node('$obj->name', array(new Link('mgd_get_group_by_name', 'id', 'group', 'owner'),
                               new Link('mgd_really_get_group_by_name', '$cursg', 'sitegroup', 'sitegroup'))),
           'host' => new Node('label($obj)', array(new Link('mgd_get_host_by_label', NULL, 'sitegroup', 'sitegroup'))),
           'member' => new Node('$obj->guid()', array(new Link('mgd_get_member_by_guid', 'id', 'person', 'uid'))),
           'page' => new Node('$obj->name', array(newstdlink('page', 'page'),
                              new Link('mgd_really_get_page_by_name', '$cursg', 'sitegroup', 'sitegroup'))),
           'pageelement' => new Node('$obj->name', array(new Link('mgd_get_page_element_by_name', 'id', 'page', 'page'))),
           'person' => new Node('$obj->username', array(new Link('mgd_really_get_person_by_name', '$cursg', 'sitegroup', 'sitegroup'))),
           'snippet' => new Node('$obj->name', array(newstdlink('snippet', 'snippetdir'))),
           'snippetdir' => new Node('$obj->name', array(new Link(NULL, NULL, 'snippetdir', 'up'), // snippetdir_by_path must be handled specially 
                                new Link('mgd_get_snippetdir_by_path', NULL, 'sitegroup', 'sitegroup'))),
           'sitegroup' => new Node('$obj->name', array(new Link('mgd_get_sitegroup_by_name', NULL, NULL, NULL))),
           'style' => new Node('$obj->name', array(new Link('mgd_get_style_by_id_and_name', 'id', 'style', 'up'),
                               new Link('mgd_really_get_style_by_name', '$cursg', 'sitegroup', 'sitegroup'))),
           'topic' => new Node('$obj->name', array(newstdlink('topic', 'topic'),
                               new Link('mgd_really_get_topic_by_name', '$cursg', 'sitegroup', 'sitegroup')))
           );

/* Returns the object pointed to by $path
   $path: the path (string)
*/
function mgd_get_object_by_path ($path) {
  global $CLASSES, $LINKS, $sitegroup;
  if (function_exists('mgd_set_lang')) 
    $multilang = 1;
  else
    $multilang = 0;
  $class = NULL;
  $snippetpath = '';
  $cursg = $sitegroup;    
  $lang = 0;
  $search = array ('\\', '\'');//for eval
  $replace = array ('\\\\', '\\\'');//for eval
  $path .= '/';//can't figure out how to construct the r.e. without trailing slash
  preg_match_all('/(([a-z]+?):)(.*?)(?<!\\\)\//', $path, $atoms);
  $c = count($atoms[3]);
  if (!$atoms[2][0] || ($atoms[2][0] != 'sg' && $atoms[2][0] != 'sitegroup')) {
    $sgObj = mgd_get_sitegroup($sitegroup);
    array_unshift($atoms[2], 'sg');
    array_unshift($atoms[3], $sgObj->name);
  }
  $langid = 0;
  if ($multilang && $atoms[2][$c - 1] == 'lang') {
    $lang = mgd_get_language_by_code($atoms[3][$c - 1]);
    $langid = ($lang)?$lang->id:0;
    $c--;
  }
  $i = 0;
  if ($multilang) 
    mgd_set_lang(0);
  for ($i = 0; $i < $c; $i++) {
    $atoms[3][$i] = str_replace('\/', '/', $atoms[3][$i]);
    if ($multilang && $i == $c - 1) {
      mgd_set_lang($langid);
    }
    $parentclass = $class;
    if ($atoms[2][$i]) {
      $class = $atoms[2][$i];
      if (isset($CLASSES[$class])) {
        $class = $CLASSES[$class];
      } else {
        if (!array_search($class, $CLASSES)) {
          return FALSE;
        }
      }
    }
    if (!isset($class)) {
       return FALSE;
    }
     $newobj = NULL;
    if ($class == 'snippetdir') {
      $snippetpath .= '/' . $atoms[3][$i];
      if (isset($atoms[2][$i+1]) && ($atoms[2][$i+1] == 'sd' || $atoms[2][$i+1] == 'snippetdir')) {
        continue;
      } else {
    $atoms[3][$i] = $snippetpath;
    $parentclass = 'sitegroup';
      }
    }
    $graph = $LINKS[$class];
    array_reverse($graph->links);
    foreach ($graph->links as $link) {
      if ($link->uptable == $parentclass || ($link->uptable == 'ANY' && $link->uptable != $class)) {
    if (strlen($atoms[3][$i]) == 32 and strspn($atoms[3][$i], '0123456789abcdef') == 32) {
      $eval_str = "\$newobj = mgd_get_object_by_guid(\"$guid\");";
    } else {
      $eval_str = "\$newobj = $link->downfunc (";
      if ($link->primkey != NULL) {
        $primkey = "$link->primkey";
        if ($primkey != '0') {
          if ($primkey{0} != '$') {
        $primkey = '$obj->' . $primkey;
          }
          eval ("\$primkey = \"$primkey\";");
        }
        $eval_str .= $primkey . ',';
      }
      $eval_str .= '\'' . str_replace($search, $replace, $atoms[3][$i]) .'\');';
    }
    eval ($eval_str);
    break;
      }
    }
    $snippetpath = '';
    $obj = $newobj;
    if (!$obj) {
      return mgd_errno();
    }
    if (get_class($obj) == 'MidgardSitegroup') {
      $cursg = $obj->id;
    }
    if (get_class($obj) != 'MidgardSitegroup' && $obj->sitegroup != $cursg && $obj->sitegroup != 0) {
      return MGD_ERR_NOT_EXISTS;
    }
  }
  return $obj;
}


/* Returns the path of the object 
   $obj: Specifies the object. Can be MidgardObject or guid
*/
function mgd_get_path($obj) {
  global $CLASSES, $LINKS, $sitegroup;
  if (function_exists('mgd_set_lang')) 
    $multilang = 1;
  else
    $multilang = 0;
  $path="";
  if (is_string($obj)) {
    $obj = mgd_get_object_by_guid($obj);
  }
  if (!$obj) {
    return MGD_ERR_NOT_EXISTS;
  }
  $origobj = $obj;
  $lastobj = NULL;
  if ($multilang)
    mgd_set_lang(0);
  while ($obj && !($obj === $lastobj)) {
    $ClassName = get_class($obj);
    if (!$ClassName) {
      return MGD_ERR_NOT_EXISTS;
    }
    if (substr($ClassName, 0, 7) != 'Midgard') {
      return MGD_ERR_NOT_EXISTS;
    }
    $class = strtolower(substr($ClassName, 7));
    $graph = $LINKS[$class];
    if (!$graph) {
      return MGD_ERR_NOT_EXISTS;    
    }
    $name = "$graph->namefield";
    eval ("\$name = $name;");
    $name = str_replace('/','\/',$name);
    if ($name == '') {
      $name = $obj->guid();
    }
    $path = '/' . $class . ':' . $name . $path;    
    $lastobj = $obj;
    foreach ($graph->links as $link) {
      if (!$link->upkey)
        continue;
      $upkey = '$obj->' . "$link->upkey";
      eval ("\$upkey = \"$upkey\";");
      if ($upkey == NULL || ($upkey == 0 && !($link->uptable == 'sitegroup' || ($class == 'attachment' && $obj->ptable == 'sitegroup')))) {
        continue;
      }
      $upfunc = "$link->upfunc";
      if ($upfunc == 'mgd_get_sitegroup' && $upkey == 0) {
        $path = '/sitegroup:SG0' . $path;
    $obj = 0;
      } else {
    eval ("\$upfunc = \"$upfunc\";");   
    $eval_str = "\$obj = $upfunc(";
    $eval_str .= $upkey;
    $eval_str .= ');';
    eval ($eval_str);
    break;
      }
    }
  }
  if ($multilang) {
    $lang = mgd_get_language(@$origobj->lang);
    $langcode = $lang?$lang->code:"nolang";
    $path = $path . '/lang:' . $langcode;
  }
  return $path;
}

?>