Subversion Repositories Sites.obs-saisons.fr

Compare Revisions

Problem with comparison.

Ignore whitespace Rev HEAD → Rev 1

/obs_saisons/SPIP-v1-8-3/modules/genere_sql_maj_station.php
New file
0,0 → 1,49
<?php
 
 
// Programme de migration jetable
include_once 'connect.php';
//bouh! c'est pas propre! c'est a cause de PEAR et de ses includes
set_include_path('configuration/'.PATH_SEPARATOR.get_include_path());
//librairies PEAR
require_once 'configuration/DB.php' ;
$dsn='mysql://'.$login.':'.$pass.'@'.$hote.'/'.$db;
//echo $dsn.'<br /><br />';
$GLOBALS['car_db'] =& DB::connect($dsn) ;
if (DB::isError($GLOBALS['car_db'])) {
die ($GLOBALS['car_db']->getMessage());
}
 
$requete = 'SELECT SEQUENCE_ID, ESPECE_ID, SEQUENCE.COMMUNE_ID, STATION_ID, SEQUENCE_ALTITUDE, ENVIRONNEMENT_ID, PARTICIPANT_ID, COMMUNE_NOM, COMMUNE_LATITUDE, COMMUNE_LONGITUDE, COMMUNE_ALTITUDE FROM SEQUENCE, COMMUNE WHERE SEQUENCE.COMMUNE_ID=COMMUNE.COMMUNE_ID ';
 
$resultat = $GLOBALS['car_db']->query($requete) ;
if (DB::isError($resultat)) {
die ($resultat->getMessage());
}
 
$i=1;
 
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
// $alt = file_get_contents('http://ws.geonames.org/srtm3?lat='.$ligne['COMMUNE_LATITUDE'].'&lng='.$ligne['COMMUNE_LONGITUDE'], 'r') ;
$alt=0;
$requete2 = 'INSERT INTO STATION (PARTICIPANT_ID, STATION_NOM, STATION_LATITUDE , STATION_LONGITUDE, STATION_ALTITUDE, STATION_ENVIRONNEMENT_ID)' .
' VALUES ('.$ligne['PARTICIPANT_ID'].',\''.addslashes($ligne['COMMUNE_NOM']).'\','.$ligne['COMMUNE_LATITUDE']. ','.$ligne['COMMUNE_LONGITUDE']. ','.$alt.','.$ligne['ENVIRONNEMENT_ID'].');';
echo $requete2.'<br/>';
 
$requete3= 'UPDATE SEQUENCE SET STATION_ID='.$i.' WHERE SEQUENCE_ID='.$ligne['SEQUENCE_ID'].';';
echo $requete3.'<br/>';
$i++;
}
?>