Subversion Repositories Applications.papyrus

Compare Revisions

Ignore whitespace Rev 1346 → Rev 1347

/trunk/papyrus/applications/installateur/instal_fichier.inc.php
32,11 → 32,11
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: instal_fichier.inc.php,v 1.27 2007-04-19 16:53:57 neiluj Exp $
// CVS : $Id: instal_fichier.inc.php,v 1.28 2007-04-20 09:05:46 alexandre_tb Exp $
/**
* Page de création des fichiers nécessaire à l'installation de Papyrus.
* Page de creation des fichiers necessaire a l'installation de Papyrus.
*
* Page permettant de créer le fichier de configuration de Papyrus.
* Page permettant de creer le fichier de configuration de Papyrus.
*
*@package Installateur
//Auteur original :
46,7 → 46,7
*@author Patrick PAUL
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.27 $ $Date: 2007-04-19 16:53:57 $
*@version $Revision: 1.28 $ $Date: 2007-04-20 09:05:46 $
// +------------------------------------------------------------------------------------------------------+
**/
 
89,7 → 89,7
// | CORPS du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Affichage d'informations...
$sortie .= '<br /><h1>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
$sortie .= '<br /><h1>Etape n&deg;'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
 
// Correction éventuelle des informations saisies par l'utilisateur
if (ereg('^[\/\\]', $fichier['PAP_FTP_RACINE']) == false) {
105,7 → 105,7
$sortie_verif .= ' <br /><h2>Test de la connexion FTP</h2>'."\n";
$erreur = testerConfig($sortie_verif, 'Test connexion FTP ...', $ftp = @ftp_connect($fichier['PAP_FTP_SERVEUR'], $fichier['PAP_FTP_PORT']), '', 1, $erreur);
$erreur = testerConfig($sortie_verif, 'Test identification sur le serveur FTP ...', @ftp_login($ftp, $fichier['PAP_FTP_UTILISATEUR'],
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les paramètres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
$fichier['PAP_FTP_MOT_DE_PASSE']), 'Les param&ecirc;tres FTP saisies ne permettent pas l\'identification !', 1, $erreur);
$sortie_verif .= '<br />'."\n";
$configCode = "<?php\n// pap_config.inc.php construit le ".strftime("%c")."\n// ne changez pas la version de Papyrus manuellement!\n\n";
118,7 → 118,7
$entries[] = 'define(\''.$cle.'\',\''.$val.'\');'."\n";
}
foreach ($pref as $cle => $val) {
// Nous récupérons uniquement les constantes à stocker dans le fichier de config (leur nom commence par PAP_)
// Nous recuperons uniquement les constantes a stocker dans le fichier de config (leur nom commence par PAP_)
if (preg_match('/^PAP_/', $cle)) {
if (preg_match('/^[0-9]+|(?i:true|false)$/', $val)) {
$entries[] = 'define(\''.$cle.'\','.$val.');'."\n";
129,13 → 129,13
}
$configCode .= implode("\n", $entries)."\n\n?>";
if ($erreur==0) {
// Tentative d'écriture du fichier de config
// Tentative d'ecriture du fichier de config
$sortie_verif .= ' <h2>Ecriture des fichiers sur le serveur par FTP</h2>'."\n";
$chemin_fpt_absolu = $fichier['PAP_FTP_RACINE'].INSTAL_CHEMIN_CONFIG;
$url_ftp = 'ftp://'.$fichier['PAP_FTP_UTILISATEUR'].':'.$fichier['PAP_FTP_MOT_DE_PASSE'].
'@'.$fichier['PAP_FTP_SERVEUR'].$chemin_fpt_absolu;
// Dans le cas, où nous mettons à jour Papyrus, il faut supprimer l'ancien fichier de config
// Dans le cas, ou nous mettons a jour Papyrus, il faut supprimer l'ancien fichier de config
if (INSTAL_VERSION_ANCIENNE != '') {
$txt_suppression = 'Suppression de <tt>'.$chemin_fpt_absolu.'</tt>...';
$txt_suppression_erreur = '<p>Le fichier <tt>'.$chemin_fpt_absolu.'</tt> ne peut être supprimer automatiquement. '.
152,8 → 152,8
$fichier_config_cible = substr($fichier['PAP_FTP_RACINE']."/papyrus/configuration/pap_config.inc.php", 1) ;
// Nous écrivons le fichier de config sur le disque
// $fp = @fopen($url_ftp, 'w');
// Nous ecrivons le fichier de config sur le disque
 
$txt_ecriture_conf = '&Eacute;criture sur le serveur de <tt>'.$chemin_fpt_absolu.'</tt>...';
$txt_ecriture_conf_erreur = '<span class="failed">AVERTISSEMENT:</span> Le fichier de configuration <tt>'.$chemin_fpt_absolu.
'</tt> n\'a pu &ecirc;tre cr&eacute;&eacute;. Veuillez vous assurez que votre serveur a les droits '.
282,7 → 282,7
$sortie .= ' </ul>'."\n";
$sortie .= ' </form>';
} else if ($erreur == 2 && !empty($sortie_verif)) {
// Vérification du fichier avec interuption...
// Verification du fichier avec interuption...
$sortie .= creerFormulaire($fichier);
$sortie .= '<li><input type="hidden" name="pref_serial" value="'.htmlentities(serialize($pref)).'" /></li>'."\n";
$sortie .= '<li><input type="hidden" name="bdd_serial" value="'.htmlentities(serialize($bdd)).'" /></li>'."\n";
291,7 → 291,7
$sortie .= ' </form>';
$sortie .= $sortie_verif;
} else if (($erreur == 0 || $erreur == 1) && !empty($sortie_verif)) {
// Vérification du fichier sans interuption... passage à l'étape suivante
// Verification du fichier sans interuption... passage a l'etape suivante
$sortie .= creerFormulaire($fichier, true);
$sortie .= ' </ul>'."\n";
$sortie .= ' </form>';
308,7 → 308,7
// | LISTE DES FONCTIONS |
// +------------------------------------------------------------------------------------------------------+
 
// Création du formulaire de configuration de la base de données
// Creation du formulaire de configuration de la base de donnees
function creerFormulaire($fichier, $bln_lecture = false) {
$disabled = '';
if ($bln_lecture) {
356,6 → 356,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.27 2007/04/19 16:53:57 neiluj
* fix de l'upload des fichiers de conf (ftp_put)
*
* Revision 1.26 2007/04/19 15:34:35 neiluj
* préparration release (livraison) "Narmer" - v0.25
*
/trunk/papyrus/applications/installateur/instal_base_de_donnees.inc.php
32,7 → 32,7
// | (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
// | THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
// +------------------------------------------------------------------------------------------------------+
// CVS : $Id: instal_base_de_donnees.inc.php,v 1.31 2007-04-19 16:19:45 neiluj Exp $
// CVS : $Id: instal_base_de_donnees.inc.php,v 1.32 2007-04-20 09:05:46 alexandre_tb Exp $
/**
* Page de création de la base de données de Papyrus.
*
47,7 → 47,7
*@author Eric FELDSTEIN
*@author Jean-Pascal MILCENT <jpm@tela-botanica.org>
*@copyright Tela-Botanica 2000-2004
*@version $Revision: 1.31 $ $Date: 2007-04-19 16:19:45 $
*@version $Revision: 1.32 $ $Date: 2007-04-20 09:05:46 $
// +------------------------------------------------------------------------------------------------------+
**/
 
54,7 → 54,7
// +------------------------------------------------------------------------------------------------------+
// | ENTÊTE du PROGRAMME |
// +------------------------------------------------------------------------------------------------------+
// Numéro de l'étape d'installation :
// Numero de l'etape d'installation :
$num_etape = 2;
 
// Initialisation du tableau contenant les valeurs de configuration de la base de données
81,7 → 81,7
// +------------------------------------------------------------------------------------------------------+
 
// Affichage d'informations...
$sortie .= '<br /><h1>Etape n°'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
$sortie .= '<br /><h1>Etape n&deg;'.$num_etape.' sur '.INSTAL_NBRE_ETAPE.'.</h1>'."\n";
 
// Nous vérifions si nous sommes en phase de test du formulaire de config de la base de données
$erreur = 0;
88,7 → 88,7
$sortie_verif = '';
if ($_GET['installation'] == 'verif_bdd') {
// Test de la configuration à la base de données
$sortie_test .= ' <br /><h2>Test de la configuration de la base de données</h2>'."\n";
$sortie_test .= ' <br /><h2>Test de la configuration de la base de donn&eacute;es</h2>'."\n";
$dblink = @mysql_connect($bdd['PAP_BDD_SERVEUR'], $bdd['PAP_BDD_UTILISATEUR'], $bdd['PAP_BDD_MOT_DE_PASSE']);
$erreur = testerConfig($sortie_test, 'Test connexion au serveur MySQL, recherche base de donn&eacute;es ...', @mysql_select_db($bdd['PAP_BDD_NOM'], $dblink),
'<br />La base de donn&eacute;es, le serveur MySQL, ou votre identifiant / mot de passe sont invalides, veuillez Vérifier vos paramètres.', 1, $erreur);
107,7 → 107,7
$version_maj = GEN_VERSION + 0.01;
}
$sortie_test .= '<h2>Insertion des informations dans la base de données</h2>';
$sortie_test .= '<h2>Insertion des informations dans la base de donn&eacute;es</h2>';
for ( $version = $version_actuelle; $version <= $version_maj; $version = $version + 0.01) {
115,7 → 115,7
$file_sql_contenu = INSTAL_CHEMIN_SQL.'papyrus_v'.$version.'.sql';
if (file_exists($file_sql_contenu)) {
$sortie_verif .= '<h2>Insertion des données du fichier sql version '.$version.'</h2>';
$sortie_verif .= '<h2>Insertion des donn&eacute;es du fichier sql version '.$version.'</h2>';
$sql_contenu = PMA_readFile($file_sql_contenu);
} else
unset($sql_contenu);
133,14 → 133,14
$requete_type = $value['type'];
}
if ($requete_type == 'create') {
$erreur = testerConfig( $sortie_verif, 'Création table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
$erreur = testerConfig( $sortie_verif, 'Cr&eacute;ation table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Déjà créée ?', 0, $erreur);
} else if ($requete_type == 'alter') {
$erreur = testerConfig( $sortie_verif, 'Modification structure table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Déjà modifiée ?', 0, $erreur);
'D&eacute;j&agrave; modifi&eacute;e ?', 0, $erreur);
} else if ($requete_type == 'insert') {
$erreur = testerConfig( $sortie_verif, 'Insertion table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Donn°es déjà présente ?', 0, $erreur);
'Donn&eacute;es d&eacute;j&agrave; pr&eacute;sente ?', 0, $erreur);
}
}
168,14 → 168,14
$requete_type = $value['type'];
}
if ($requete_type == 'create') {
$erreur = testerConfig( $sortie_verif, 'Création table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Déjà créée ?', 0, $erreur);
$erreur = testerConfig( $sortie_verif, 'Cr&eacute;ation table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'D&eacute;j&agrave; cr&eacute;&eacute; ?', 0, $erreur);
} else if ($requete_type == 'alter') {
$erreur = testerConfig( $sortie_verif, 'Modification structure table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Déjà modifiée ?', 0, $erreur);
'D&eacute;j&agrave; modifi&eacute;e ?', 0, $erreur);
} else if ($requete_type == 'insert') {
$erreur = testerConfig( $sortie_verif, 'Insertion table '.$table_nom.'...', @mysql_query($value['query'], $dblink),
'Donn°es déjà présente ?', 0, $erreur);
'Donn&eacute;es d&eacute;j&agrave; pr&eacute;sente ?', 0, $erreur);
}
}
}
186,12 → 186,12
//Insertion des requêtes dàpendant du formulaire d'installation
$sortie_verif .= '<h2>Insertion des données dàpendant du formulaire précédent</h2>';
$sortie_verif .= '<h2>Insertion des donn&eacute;es d&eacute;pendant du formulaire pr&eacute;c&eacute;dent</h2>';
$requete_admin = 'INSERT INTO gen_annuaire VALUES (1, "'.$pref['ADMIN_I18N'].'", "'.$pref['ADMIN_NOM'].
'", "'.$pref['ADMIN_PRENOM'].'", "'.md5($pref['ADMIN_MDP_01']).'", "'.
$pref['ADMIN_MAIL'].'");';
$erreur = testerConfig($sortie_verif, 'Insertion de l\'administrateur...', @mysql_query($requete_admin, $dblink),
'Donn°es déjà présente ?', 0, $erreur);
'Donn&eacute;es d&eacute;j&agrave; pr&eacute;sente ?', 0, $erreur);
$requete_auth = 'INSERT INTO gen_site_auth_bdd VALUES (1, "mysql://'.
$bdd['PAP_BDD_UTILISATEUR'].':'.$bdd['PAP_BDD_MOT_DE_PASSE'].'@'.$bdd['PAP_BDD_SERVEUR'].'/'.$bdd['PAP_BDD_NOM'].'", "gen_annuaire", "ga_mail", '.
'"ga_mot_de_passe", "md5","chp_personne_prenom=ga_prenom chp_personne_nom=ga_nom");';
204,7 → 204,7
'url_inscription='.$url_inscription.' url_inscription_modif='.$url_inscription.'");';
 
$erreur = testerConfig($sortie_verif, 'Insertion de l\'authentification utilisateurs ...', @mysql_query($requete_auth, $dblink),
'Donn°es déjà présente ?', 0, $erreur);
'Donn&eacute;es d&eacute;j&agrave; pr&eacute;sente ?', 0, $erreur);
291,6 → 291,9
/* +--Fin du code ----------------------------------------------------------------------------------------+
*
* $Log: not supported by cvs2svn $
* Revision 1.31 2007/04/19 16:19:45 neiluj
* optimisation
*
* Revision 1.30 2007/04/19 16:18:05 neiluj
* correction bug lecture fichier SQL
*