File Source for func.php

<?php
/**
* Fichier utilitaire proposant des fonctions souvent utilisées dans Lodel
*
* PHP versions 4 et 5
*
* LODEL - Logiciel d'Edition ELectronique.
*
* Copyright (c) 2001-2002, Ghislain Picard, Marin Dacos
* Copyright (c) 2003, Ghislain Picard, Marin Dacos, Luc Santeramo, Nicolas Nutten, Anne Gentil-Beccot
* Copyright (c) 2004, Ghislain Picard, Marin Dacos, Luc Santeramo, Anne Gentil-Beccot, Bruno Cénou
* Copyright (c) 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
* Copyright (c) 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
* Copyright (c) 2007, Marin Dacos, Bruno Cénou, Sophie Malafosse, Pierre-Alain Mignot
*
* Home page: http://www.lodel.org
*
* E-Mail: lodel@lodel.org
*
* All Rights Reserved
*
* 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., 675 Mass Ave, Cambridge, MA 02139, USA.
*
* @author Ghislain Picard
* @author Jean Lamy
* @author Sophie Malafosse
* @author Pierre-Alain Mignot
* @copyright 2005, Ghislain Picard, Marin Dacos, Luc Santeramo, Gautier Poupeau, Jean Lamy, Bruno Cénou
* @copyright 2006, Marin Dacos, Luc Santeramo, Bruno Cénou, Jean Lamy, Mikaël Cixous, Sophie Malafosse
* @copyright 2007, Marin Dacos, Bruno Cénou, Sophie Malafosse, Pierre-Alain Mignot
* @licence http://www.gnu.org/copyleft/gpl.html
* @version CVS:$Id:
* @package lodel
*/
function writefile ($filename,$text)
{
# echo "name de fichier : $filename";
if (file_exists($filename)) {
if (! (unlink($filename)) ) die ("Ne peut pas supprimer $filename. probleme de right contacter Luc ou Ghislain");
}
$ret=($f=fopen($filename,"w")) && (fputs($f,$text)!==false) && fclose($f);
@chmod ($filename,0666 & octdec($GLOBALS['filemask']));
return $ret;
}
function postprocessing(&$context)
{
if ($context) {
foreach($context as $key=>$val) {
if (is_array($val)) {
postprocessing($context[$key]);
} else {
$context[$key]=str_replace(array("\n","Â\240"),array(" "," "),$val);
}
}
}
}
/**
* Extrait toutes les variables passées par la méthode post puis les stocke dans
* le tableau $context
*/
function extract_post($arr=-1)
{
if (!is_array($arr)) $arr=&$_POST;
foreach ($arr as $key=>$val) {
if (!isset($GLOBALS['context'][$key])) // protege
$GLOBALS['context'][$key] = $val;
}
array_walk($GLOBALS['context'],"clean_request_variable");
}
function clean_request_variable(&$var)
{
static $filter;
if (!$filter) {
require_once 'class.inputfilter.php';
$filter = new InputFilter(array(), array(), 1, 1);
}
if (is_array($var)) {
#print_r($var);
foreach(array_keys($var) as $k) {
clean_request_variable($var[$k]);
}
} else {
$var = magic_stripslashes($var);
//ici on regle un bug : lors qu'on insere un espace insécable, l'appel à la fonction PHP 'chr' plante sur le   dans la fonction $filter->decode
if(preg_match("` `me", $var))
$var = str_replace(" ", " ", $var);
$var = $filter->process(trim($var));
// le process nettoie un peu trop : remplace les br fermés par des br ouverts : document plus valide..
$var = str_replace("<br>", "<br />", $var);
$var = str_replace(array("\n", " "), array("", "Â\240"), $var);
}
}
function magic_addslashes($var)
{
/*if (!get_magic_quotes_gpc()) {
$var = addslashes($var);
}*/
$var = stripslashes($var);
$var = addslashes($var);
return $var;
}
function magic_stripslashes($var)
{
if (get_magic_quotes_gpc()) {
$var = stripslashes($var);
}
return $var;
}
function get_max_rank ($table,$where="")
{
if ($where) $where="WHERE ".$where;
#require_once ($GLOBALS[home]."connect.php");
$rank=$db->getone("SELECT MAX(rank) FROM #_TP_$table $where");
if ($db->errorno()) dberror();
return $rank+1;
}
function chrank($table,$id,$critere,$dir,$inverse="",$jointables="")
{
global $db;
$table="#_TP_$table";
$dir=$dir=="up" ? -1 : 1; if ($inverse) $dir=-$dir;
$desc=$dir>0 ? "" : "DESC";
if ($jointables) {
$jointables=",#_TP_".
trim(join(",#_TP_",preg_split("/,\s*/",$jointables)));
}
$result=$db->execute(lq("SELECT $table.id,$table.rank FROM $table $jointables WHERE $critere ORDER BY $table.rank $desc")) or dberror();
$rank=$dir>0 ? 1 : mysql_num_rows($result);
while ($row=$result->fetchrow($result)) {
if ($row['id']==$id) {
# intervertit avec le suivant s il existe
if (!($row2=$result->fetchrow($result))) break;
$db->execute(lq("UPDATE $table SET rank='$rank' WHERE id='$row2[id]'")) or dberror();
$rank+=$dir;
}
if ($row['rank']!=$rank) {
$db->execute(lq("UPDATE $table SET rank='$rank' WHERE id='$row[id]'")) or dberror();
}
$rank+=$dir;
}
}
/**
* function returning the closing tag corresponding to the opening tag in the sequence
* this function could be smarter.
*/
function closetags($text)
{
preg_match_all("/<(\w+)\b[^>]*>/",$text,$results,PREG_PATTERN_ORDER);
$n=count($results[1]);
for($i=$n-1; $i>=0; $i--) $ret.="</".$results[1][$i].">";
return $ret;
}
function myaddslashes (&$var)
{
if (is_array($var)) {
array_walk($var,"myaddslashes");
return $var;
} else {
return $var=addslashes($var);
}
}
/**
* Fonction permettant de vérifier l'existence d'un fichier correctement !
*
* @param string $file fichier à tester
*/
function myfileexists($file) {
// plus important : on supprime le cache généré par les fonctions de stat de fichier !
clearstatcache();
return file_exists($file); // on retourne le test du fichier
}
/**
* Retourne la dernière date de modif de $filename
*
* @param string $filename fichier à tester
*/
function myfilemtime($filename)
{
return myfileexists($filename) ? @filemtime($filename) : 0;
}
function update()
{
require_once 'cachefunc.php';
clearcache(false);
}
function addmeta(&$arr,$meta="")
{
foreach ($arr as $k=>$v) {
if (strpos($k,"meta_")===0) {
if (!isset($metaarr)) { // cree le hash des meta
$metaarr=$meta ? unserialize($meta) : array();
}
if ($v) {
$metaarr[$k]=$v;
} else {
unset($metaarr[$k]);
}
}
}
return $metaarr ? serialize($metaarr) : $meta;
}
function translate_xmldata($data)
{
return strtr($data,array("&"=>"&","<" => "<", ">" => ">"));
}
### use the transaction now.
function unlock()
{
global $db;
// Déverrouille toutes les tables verrouillées
// fonction lock_write()
if (!defined("DONTUSELOCKTABLES") || !DONTUSELOCKTABLES) {
$db->execute(lq("UNLOCK TABLES")) or dberror();
}
}
function lock_write()
{
global $db;
// Verrouille toutes les tables MySQL en écriture
$list = func_get_args();
if (!defined("DONTUSELOCKTABLES") || !DONTUSELOCKTABLES)
$db->execute(lq("LOCK TABLES #_MTP_". join (" WRITE ,"."#_MTP_", $list)." WRITE")) or dberror();
}
function prefix_keys($prefix,$arr)
{
if (!$arr) {
return $arr;
}
foreach ($arr as $k=>$v) {
$outarr[$prefix.$k]=$v;
}
return $outarr;
}
function array_merge_withprefix($arr1,$prefix,$arr2)
{
if (!$arr2) {
return $arr1;
}
foreach ($arr2 as $k=>$v) {
$arr1[$prefix.$k]=$v;
}
return $arr1;
}
function getoption($name)
{
global $db;
static $options_cache;
if (!$name) return;
if (!isset($options_cache)) {
$optionsfile=SITEROOT."CACHE/options_cache.php";
if (file_exists($optionsfile)) {
require($optionsfile);
} else {
require_once('optionfunc.php');
$options_cache = cacheOptionsInFile($optionsfile);
}
}
if (is_array($name)) {
foreach ($name as $n) {
if ($options_cache[$n]) $ret[$n]=stripslashes($options_cache[$n]);
}
return ($ret);
} else {
if ($options_cache[$name]) // cached ?
return stripslashes ($options_cache[$name]);
$critere="name='$name'";
}
}
function getlodeltext($name,$group,&$id,&$contents,&$status,$lang=-1)
{
if ($group=="") {
if ($name[0]!='[' && $name[1]!='@') return array(0,$name);
$dotpos=strpos($name,".");
if ($dotpos) {
$group=substr($name,1,$dotpos);
$name=substr($name,$dotpos+1,-1);
} else {
die("ERROR: unknow group for getlodeltext");
}
}
if ($lang==-1) $lang=$GLOBALS['lang'] ? $GLOBALS['lang'] : $GLOBALS['lodeluser']['lang'];
if (!$lang) $lang = $GLOBALS['installlang']; // if no lang is specified choose the default installation language
require_once("connect.php");
global $db;
if ($group!="site") {
usemaindb();
$prefix="#_MTP_";
} else {
$prefix="#_TP_";
}
$critere=$GLOBALS['lodeluser']['visitor'] ? "" : "AND status>0";
$logic=false;
do {
$arr=$db->getRow("SELECT id,contents,status FROM ".lq($prefix)."texts WHERE name='".$name."' AND textgroup='".$group."' AND (lang='$lang' OR lang='') $critere ORDER BY lang DESC");
if ($arr===false) dberror();
if (!$GLOBALS['lodeluser']['admin'] || $logic) break;
if (!$arr) {
// create the textfield
require_once("logic.php");
$logic=getLogic("texts");
$logic->createTexts($name,$group);
}
} while(!$arr);
if ($group!="site") usecurrentdb();
$id=$arr['id'];
$contents=$arr['contents'];
$status=$arr['status'];
if (!$contents && $GLOBALS['lodeluser']['visitor']) $contents="@".$name;
}
function getlodeltextcontents($name,$group="",$lang=-1)
{
if ($lang==-1) $lang=$GLOBALS['lang'] ? $GLOBALS['lang'] : $GLOBALS['lodeluser']['lang'];
if ($GLOBALS['langcache'][$lang][$group.".".$name]) {
return $GLOBALS['langcache'][$lang][$group.".".$name];
} else {
#echo "name=$name,group=$group,id=$id,contents=$contents,status=$status,lang=$lang<br />";
getlodeltext($name,$group,$id,$contents,$status,$lang);
return $contents;
}
}
function makeurlwithid ($id, $base = 'index')
{
if (is_numeric($base)) {
$t = $id;
$id = $base;
$base = $t;
} // exchange
if (defined('URI')) {
$uri = URI;
} else {
// compat 0.7
if ($GLOBALS['idagauche']) {
$uri = 'leftid';
}
}
/*$class = $GLOBALS['db']->getOne(lq("SELECT class FROM #_TP_objects WHERE id='$id'"));
if ($GLOBALS['db']->errorno()) {
dberror();
}
if($class != 'entities')
$uri = '';*/
switch($uri) {
case 'leftid':
return $base. $id. '.'. $GLOBALS['extensionscripts'];
//fabrique des urls type index.php?/rubrique/mon-titre
case 'path':
$id = intval($id);
$path = getPath($id,'path');
return $path;
case 'querystring':
$id = intval($id);
$path = getPath($id,'querystring');
return $path;
default:
return $base. '.'. $GLOBALS['extensionscripts']. '?id='. $id;
}
}
function makeurlwithfile($id) {
$url = makeurlwithid($id);
$url .= (false === strpos($url, '?')) ? '?file=1' : '&file=1';
return $url;
}
if (!function_exists("file_get_contents")) {
function file_get_contents($file)
{
$fp=fopen($file,"r") or die("Impossible to read the file $file");
while(!feof($fp)) $res.=fread($fp,2048);
fclose($fp);
return $res;
}
}
/**
* retourne le chemin complet vers une entitée *
* @param integer $id identifiant numérique de l'entitée *
* @param string $urltype le type d'url utilisée(path,querystring)
* @return string le chemin
* @since fonction ajoutée en 0.8
*/
function getPath($id, $urltype,$base='index')
{
$urltype = 'querystring'; //la version actuelle de lodel ne gère que le type path
if($urltype!='path' && $urltype!='querystring') {
return;
}
$id = intval($id);
$result = $GLOBALS['db']->execute(lq("SELECT identifier FROM #_TP_entities INNER JOIN #_TP_relations ON id1=id WHERE id2='$id' ORDER BY degree DESC")) or dberror();
while(!$result->EOF) {
$path.= '/'. $result->fields['identifier'];
$result->MoveNext();
}
$row = $GLOBALS['db']->getRow(lq("SELECT identifier FROM #_TP_entities WHERE id='$id'"));
if ($GLOBALS['db']->errorno()) {
dberror();
}
$path.= "/$id-". $row['identifier'];
if($urltype == 'path') {
return $base. '.'. $GLOBALS['extensionscripts']. $path;
}
return "$base.". $GLOBALS['extensionscripts']. "?$path";
}
/**
* sent the header and the file for downloading
*
* @param string name of the real file.
* @param string name to send to the browser.
*
*/
function download($filename,$originalname="",$contents="")
{
$mimetype = array(
'doc'=>'application/msword',
'htm'=>'text/html',
'html'=>'text/html',
'jpg'=>'image/jpeg',
'gif'=>'image/gif',
'png'=>'image/png',
'pdf'=>'application/pdf',
'txt'=>'text/plain',
'xls'=>'application/vnd.ms-excel'
);
if (!$originalname) $originalname=$filename;
$originalname=preg_replace("/.*\//","",$originalname);
$ext=substr($originalname,strrpos($originalname,".")+1);
$size = $filename ? filesize($filename) : strlen($contents);
get_PMA_define();
if($mimetype[$ext] && !(PMA_USR_BROWSER_AGENT == 'IE' && $ext == "pdf" && PMA_USR_OS != "Mac")){
$mime = $mimetype[$ext];
$disposition = "inline";
} else {
$mime =

	lodel

[ class tree: lodel ] [ index: lodel ] [ all elements ]

Source for file func.php