Rev 1087 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<?php/*vim: set expandtab tabstop=4 shiftwidth=4: */// +------------------------------------------------------------------------------------------------------+// | PHP version 4.1 |// +------------------------------------------------------------------------------------------------------+// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org) |// +------------------------------------------------------------------------------------------------------+// | This library is free software; you can redistribute it and/or |// | modify it under the terms of the GNU Lesser General Public |// | License as published by the Free Software Foundation; either |// | version 2.1 of the License, or (at your option) any later version. |// | |// | This library 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 |// | Lesser General Public License for more details. |// | |// | You should have received a copy of the GNU Lesser General Public |// | License along with this library; if not, write to the Free Software |// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |// +------------------------------------------------------------------------------------------------------+// CVS : $Id: instal_installation.fonct.php,v 1.6 2006-04-28 12:41:49 florian Exp $/*** Bibliothèque des fonctions de l'application Installateur de Papyrus.** Ce sous-paquetage contient les fonctions de l'application Installateur de Papyrus. Cette application gère* l'installation de Papyrus (base de données).**@package Installateur*@subpackage Fonctions//Auteur original :*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>//Autres auteurs :*@author aucun*@copyright Tela-Botanica 2000-2004*@version $Revision: 1.6 $ $Date: 2006-04-28 12:41:49 $*/// +------------------------------------------------------------------------------------------------------+// | LISTE de FONCTIONS |// +------------------------------------------------------------------------------------------------------+/**Fonction donnerUrlCourante() - Retourne la base de l'url courante.** Cette fonction renvoie la base de l'url courante.* Origine : fonction provenant du fichier header.php de Wikini version 0.4.1* Licence : la même que celle figurant dans l'entête du fichier header.php de Wikini version 0.4.1* ou le fichier install_defaut.inc.php de cette application.* Auteurs : Hendrik MANS, David DELON, Patrick PAUL, Jean-Pascal MILCENT** @return string l'url courante.*/function donnerUrlCourante(){list($url, ) = explode('?', $_SERVER['REQUEST_URI']);return $url;}/**Fonction testerConfig() - Retourne un message en fonction du résultat du test.** Cette fonction retourne un message en fonction du résultat du test.* Origine : fonction provenant du fichier header.php de Wikini version 0.4.1* Licence : la même que celle figurant dans l'entête du fichier header.php de Wikini version 0.4.1* ou le fichier install_defaut.inc.php de cette application.* Auteurs : Hendrik MANS, David DELON, Patrick PAUL, Jean-Pascal MILCENT** @return string l'url courante.*/function testerConfig(&$sortie, $texte, $test, $texte_erreur = '', $stop_erreur = 1, $erreur) {if ($erreur == 2) {return 2;}$sortie .= $texte.' ';if ($test) {$sortie .= '<span class="ok"> OK </span><br />'."\n";return 0;} else {$sortie .= '<span class="failed"> ECHEC </span>';if ($texte_erreur) {$sortie .= ' <span class="erreur">'.$texte_erreur.'</span>';}$sortie .= '<br />'."\n" ;if ($stop_erreur == 1) {return 2;} else {return 1;}}}/*** Removes comment lines and splits up large sql files into individual queries** Last revision: September 23, 2001 - gandon* Origine : fonction provenant de PhpMyAdmin version 2.6.0-pl1* Licence : GNU* Auteurs : voir le fichier Documentation.txt ou Documentation.html de PhpMyAdmin.** @param array the splitted sql commands* @param string the sql commands* @param integer the MySQL release number (because certains php3 versions* can't get the value of a constant from within a function)** @return boolean always true** @access public*/function PMA_splitSqlFile(&$ret, $sql, $release){// do not trim, see bug #1030644//$sql = trim($sql);$sql = rtrim($sql, "\n\r");$sql_len = strlen($sql);$char = '';$string_start = '';$in_string = FALSE;$nothing = TRUE;$time0 = time();for ($i = 0; $i < $sql_len; ++$i) {$char = $sql[$i];// We are in a string, check for not escaped end of strings except for// backquotes that can't be escapedif ($in_string) {for (;;) {$i = strpos($sql, $string_start, $i);// No end of string found -> add the current substring to the// returned arrayif (!$i) {$tab_info = retournerInfoRequete($sql);$ret[] = array('query' => $sql, 'table_nom' => $tab_info['table_nom'], 'type' => $tab_info['type']);return TRUE;}// Backquotes or no backslashes before quotes: it's indeed the// end of the string -> exit the loopelse if ($string_start == '`' || $sql[$i-1] != '\\') {$string_start = '';$in_string = FALSE;break;}// one or more Backslashes before the presumed end of string...else {// ... first checks for escaped backslashes$j = 2;$escaped_backslash = FALSE;while ($i-$j > 0 && $sql[$i-$j] == '\\') {$escaped_backslash = !$escaped_backslash;$j++;}// ... if escaped backslashes: it's really the end of the// string -> exit the loopif ($escaped_backslash) {$string_start = '';$in_string = FALSE;break;}// ... else loopelse {$i++;}} // end if...elseif...else} // end for} // end if (in string)// lets skip comments (/*, -- and #)else if (($char == '-' && $sql_len > $i + 2 && $sql[$i + 1] == '-' && $sql[$i + 2] <= ' ') || $char == '#' || ($char == '/' && $sql_len > $i + 1 && $sql[$i + 1] == '*')) {$i = strpos($sql, $char == '/' ? '*/' : "\n", $i);// didn't we hit end of string?if ($i === FALSE) {break;}if ($char == '/') $i++;}// We are not in a string, first check for delimiter...else if ($char == ';') {// if delimiter found, add the parsed part to the returned array$retour_sql = substr($sql, 0, $i);$tab_info = retournerInfoRequete($retour_sql);$ret[] = array('query' => $retour_sql, 'empty' => $nothing, 'table_nom' => $tab_info['table_nom'], 'type' => $tab_info['type']);$nothing = TRUE;$sql = ltrim(substr($sql, min($i + 1, $sql_len)));$sql_len = strlen($sql);if ($sql_len) {$i = -1;} else {// The submited statement(s) end(s) herereturn TRUE;}} // end else if (is delimiter)// ... then check for start of a string,...else if (($char == '"') || ($char == '\'') || ($char == '`')) {$in_string = TRUE;$nothing = FALSE;$string_start = $char;} // end else if (is start of string)elseif ($nothing) {$nothing = FALSE;}// loic1: send a fake header each 30 sec. to bypass browser timeout$time1 = time();if ($time1 >= $time0 + 30) {$time0 = $time1;header('X-pmaPing: Pong');} // end if} // end for// add any rest to the returned arrayif (!empty($sql) && preg_match('@[^[:space:]]+@', $sql)) {$tab_info = retournerInfoRequete($sql);$ret[] = array('query' => $sql, 'empty' => $nothing, 'table_nom' => $tab_info['table_nom'], 'type' => $tab_info['type']);}return TRUE;}/**Fonction retournerInfoRequete() - Retourne le type de requête sql et le nom de la table touchée.** Cette fonction retourne un tableau associatif contenant en clé 'table_nom' le nom de la table touchée* et en clé 'type' le type de requête (create, alter, insert, update...).* Licence : la même que celle figurant dans l'entête de ce fichier* Auteurs : Jean-Pascal MILCENT** @author Jean-Pascal MILCENT <jpm@tela-botanica.org>* @return string l'url courante.*/function retournerInfoRequete($sql){$requete = array();$resultat='';if (preg_match('/(?i:CREATE TABLE) +(.+) +\(/', $sql, $resultat)) {if (isset($resultat[1])) {$requete['table_nom'] = $resultat[1];}$requete['type'] = 'create';} else if (preg_match('/(?i:ALTER TABLE) +(.+) +/', $sql, $resultat)) {if (isset($resultat[1])) {$requete['table_nom'] = $resultat[1];}$requete['type'] = 'alter';} else if (preg_match('/(?i:INSERT INTO) +(.+) +(?i:\(|VALUES +\()/', $sql, $resultat)) {if (isset($resultat[1])) {$requete['table_nom'] = $resultat[1];}$requete['type'] = 'insert';} else if (preg_match('/(?i:UPDATE) +(.+) +(?i:SET)/', $sql, $resultat)) {if (isset($resultat[1])) {$requete['table_nom'] = $resultat[1];}$requete['type'] = 'update';}return $requete;}/*** Reads (and decompresses) a (compressed) file into a string** Origine : fonction provenant de PhpMyAdmin version 2.6.0-pl1* Licence : GNU* Auteurs : voir le fichier Documentation.txt ou Documentation.html de PhpMyAdmin.** @param string the path to the file* @param string the MIME type of the file, if empty MIME type is autodetected** @global array the phpMyAdmin configuration** @return string the content of the file or* boolean FALSE in case of an error.*/function PMA_readFile($path, $mime = ''){global $cfg;if (!file_exists($path)) {return FALSE;}switch ($mime) {case '':$file = @fopen($path, 'rb');if (!$file) {return FALSE;}$test = fread($file, 3);fclose($file);if ($test[0] == chr(31) && $test[1] == chr(139)) return PMA_readFile($path, 'application/x-gzip');if ($test == 'BZh') return PMA_readFile($path, 'application/x-bzip');return PMA_readFile($path, 'text/plain');case 'text/plain':$file = @fopen($path, 'rb');if (!$file) {return FALSE;}$content = fread($file, filesize($path));fclose($file);break;case 'application/x-gzip':if ($cfg['GZipDump'] && @function_exists('gzopen')) {$file = @gzopen($path, 'rb');if (!$file) {return FALSE;}$content = '';while (!gzeof($file)) {$content .= gzgetc($file);}gzclose($file);} else {return FALSE;}break;case 'application/x-bzip':if ($cfg['BZipDump'] && @function_exists('bzdecompress')) {$file = @fopen($path, 'rb');if (!$file) {return FALSE;}$content = fread($file, filesize($path));fclose($file);$content = bzdecompress($content);} else {return FALSE;}break;default:return FALSE;}return $content;}/* +--Fin du code ---------------------------------------------------------------------------------------+** $Log: not supported by cvs2svn $* Revision 1.5 2005/09/23 14:20:23 florian* nouvel habillage installateur, plus correction de quelques bugs** Revision 1.4 2004/10/25 16:26:56 jpm* Ajout de la gestion des requêtes de type alter et update.** Revision 1.3 2004/10/19 16:47:06 jpm* Modification de la gestion du texte de sortie dans la fonction testerConfig().** Revision 1.2 2004/10/15 18:28:44 jpm* Ajout de fonction utilisée pour l'installation de Papyrus.** Revision 1.1 2004/06/16 14:34:12 jpm* Changement de nom de Génésia en Papyrus.* Changement de l'arborescence.** +--Fin du code ----------------------------------------------------------------------------------------+*/?>