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

<?
// +----------------------------------------------------------------------+
// | MidRepository: Common functions                                      |
// +----------------------------------------------------------------------+
// | Copyright (c) 2003 David Schmitter, Dataflow Solutions GmbH          |
// +----------------------------------------------------------------------+
// | This program is free software; you can redistribute it and/or modify |
// | it under the terms of the GNU General Public License as published    |
// | by the Free Software Foundation; either version 2 of the License,    |
// | or (at your option) any later version.                               |
// |                                                                      |
// | This program is distributed in the hope that it will be useful,      |
// | but WITHOUT ANY WARRANTY; without even the implied warranty of       |
// | 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                                                                  |
// +----------------------------------------------------------------------+
// | Author: David Schmitter <schmitt@dataflow.ch>                        |
// +----------------------------------------------------------------------+
//


function handle_pear_error ($error_obj) {
  if (DEBUG) echo ($error_obj->getMessage()."\n".$error_obj->getDebugInfo() . '<br>');
}

/**
 * Get a VCSession for a branch and register it in the global VCSessionRegistry.
 * @param string $branch 
 * @return object $VCSession
 */
function &getSession($branch) {
  global $VCSConf;
  if (!($vcs = VCSessionRegistry::getVCSession($branch))) {
    if (isset($VCSConf[$branch])) {
      $vcs = & new VCSession(&$VCSConf[$branch]);
      VCSessionRegistry::addVCSession($branch,$vcs);
    } else {
      return false;
    }
  }
  return $vcs;
}

/**
 * Initialize the default VCSession for this branch and register it in the global VCSessionRegistry.
 */
function vcInit() {
  $VCSession = new VCSession();
  VCSessionRegistry::addDefaultVCSession($VCSession);
}

/**
 * Schedule a command for execution via at
 * @param string $cmd
 */
function batchStart($cmd) {
  $pipe = popen ("/usr/bin/at now &> /dev/null", "w");
  fwrite($pipe, "$cmd\n");
  pclose($pipe);
}

/**
 * Copies the values of $a2 into $a1 without destroying the keys.
 * @param array $a1
 * @param array $a2
 * @return array $a3
 */
function &array_copy(&$a1, &$a2) {
  foreach($a2 as $key => $val) {
    $a1[$key] = $val;
  }
  return $a1;
}

/** 
 * Makes a language id out of a language code or a language id.
 * @param mixed $lang
 * @return int $lang
 */ 
function reallyILang($lang) {
  if (is_numeric($lang)) {
    return $lang;
  } else {
    $langobj = mgd_get_language_by_code($lang);
    if (!is_object($langobj)) {
      trigger_error("I don't know this language code", E_USER_WARNING);
      return 0;
    } else {
      return $langobj->id;
    }
  }
}

/** 
 * Makes a language id out of a language code or a language id.
 * @param mixed $lang
 * @return string $lang
 */ 
function reallySLang($lang) {
  if (is_string($lang)) {
    return $lang;
  } else {
    $langobj = mgd_get_language($lang);
    if (!is_object($langobj)) {
      trigger_error("I don't know this language id", E_USER_WARNING);
      return 0;
    } else {
      return $langobj->code;
    }
  }
}

/** 
 * Creates the 0/0/ - f/f/ hierarchy.
 * @param string $base the directory in which to create the hierarchy
 */
function create_hash_dirs ($base) {
  for ($i = 0; $i < 16; $i++) {
    $top = "$base/" . strtolower(sprintf('%X', $i));
    mkdir($top);
    for ($j = 0; $j < 16; $j++) {
      mkdir("$top/" . strtolower(sprintf('%X', $j)));
    }
  }
}

/** 
 * Gets the relative path of an object in the 0/0/ - f/f/ hierarchy.
 * @param string $guid guid of the obj
 * @return string $path
 */
function get_hash_path($guid) {
  return "{$guid{0}}/{$guid{1}}/$guid";
}

/** 
 * Gets the directory in the 0/0/ - f/f/ hierarchy that an object is in 
 * @param string $guid guid of the obj
 * @return string $dir
 */
function get_hash_dir($guid) {
  return "{$guid{0}}/{$guid{1}}";
}

/** 
 * Checks if $spec has the format of a guid
 * @param string $spec
 * @return boolean $isGuid
 */
function is_guid($spec) {
  if (strlen($spec) == 32 and strspn($spec, '0123456789abcdef') == 32) {
    return true;
  } else {
    return false;
  }
}

/** 
 * Gets all directories where changes should be placed for import for this branch
 * @param int $branchid
 * @return array $dirs;
 */
function &getOutgoingDirs($branchid) {
  $dirs = array();
  foreach ($GLOBALS['VCSConf'] as $dbconf) {
    if (@$dbconf['branchid'] == $branchid and !isset($dbconf['vcconf'])) {
      $dirs[] = $dbconf['fsconf']['import'];
    }
  }
  return $dirs;
}

/**
 * Subtracts the last piece of a path.
 */ 
function path_minus_one($path) {
  $lastslash = strrpos($path, '/');
  if ($lastslash == 0) { //pos 0 or no slash left
    return '';
  }
  return substr($path, 0, $lastslash);
}

function isRoot() { 
  $midgard = mgd_get_midgard();
  if (!$midgard->root) {
    return MGD_ERR_ACCESS_DENIED;
  } else return true;
}

if (!function_exists("file_get_contents")) {
  function file_get_contents($filename) {
    $fp = @fopen($filename, "r");
    if (!($fp)) {
      return 0;
    }
    $temp = '';
    while (!feof($fp)) {
      $temp .= fread($fp, 4096);
    }
    return $temp;
  }
}

?>