Le principe : un script génére la liste des fichiers ".csv" a utiliser
dans les scripts php du serveur web sous la forme d'un fichier .php a inclure.
Un second script génère toute les minutes le fichier ".csv" des données
quotidienne.
Un fichier ".csv" par jour.
/usr/local/open2300/ws2300-calscv.pl > /mnt/HDD/meteo/csv.phpscipt ws2300-calscv.pl
#!/usr/bin/perl
use DBI ;
use Time::Local ;
# Paramètres base MySql a mettre a jour;
my $db = "BASE_MYSQL";
my $SQL_Driver = "mysql";
my $SQL_User = "USER_MYSQL";
my $SQL_Passw = "PASS_MYSQL" ;
my $SQL_host = "127.0.0.1";
my $table = "weather";
my $database = DBI->connect("DBI:$SQL_Driver:$db:$SQL_host", $SQL_User, $SQL_Passw) or die "La connexion n'a pu être établie: $DBI::errstr\n";
print "<? \n";
my $query= $database->prepare("SELECT date_format(now(),\"%Y-%m-%d\") ") ;
$query -> execute() ;
($csv_jour)=$query->fetchrow_array;
print "\$CSV_JOUR=\"jour-$csv_jour.csv\"; \n";
$query->finish;
for (my $d=0;$d<8;$d++){
my $query= $database->prepare("select date_format(now() - INTERVAL $d DAY,\"%Y-%m-%d\") ");
$query -> execute() ;
($csv_sem)=$query->fetchrow_array;
print "\$CSV_SEM$d=\"jour-$csv_sem.csv\"; \n";
$query->finish;
}
$query->finish;
for (my $d=0;$d<30;$d++){
my $query= $database->prepare("select date_format(now() - INTERVAL $d DAY,\"%Y-%m-%d\") ");
$query -> execute() ;
($csv_mois)=$query->fetchrow_array;
print "\$CSV_MOIS$d=\"jour-$csv_mois.csv\"; \n";
$query->finish;
}
print "?> \n";
$database->disconnect ;
JOUR=$(date +"%Y-%m-%d") /usr/local/open2300/ws2300-jour.pl > /mnt/HDD/meteo/jour-$JOUR.phpscipt ws2300-jour.pl
#!/usr/bin/perl
use DBI ;
use Time::Local ;
# Paramètres base MySql a metter a jour;
my $db = "BASE_MYSQL";
my $SQL_Driver = "mysql";
my $SQL_User = "USER_MYSQL";
my $SQL_Passw = "PASS_MYSQL" ;
my $SQL_host = "127.0.0.1";
my $table = "weather";
my $database = DBI->connect("DBI:$SQL_Driver:$db:$SQL_host", $SQL_User, $SQL_Passw) or die "La connexion n'a pu être établie: $DBI::errstr\n";
$Q="date_format(datetime,\"%Y-%m-%d\")=date_format(now(),\"%Y-%m-%d\")";
my $query= $database->prepare("SELECT date_format(datetime,\"%Y/%m/%d %H:%i:%S\"),temp_out,dewpoint,rel_hum_out,
wind_speed,wind_chill,rel_pressure,rain_1h,rain_24h,rain_total FROM $table
where $Q order by datetime") ;
$query -> execute() ;
while (($datereleve,$temp_out,$dewpoint,$rel_hum_out,
$wind_speed,$wind_chill,$rel_pressure,$rain_1h,$rain_24h,$rain_total )=$query->fetchrow_array){
print "[ new Date(\"$datereleve\"),$temp_out,$dewpoint,$rel_hum_out,
$wind_speed,$wind_chill,$rel_pressure,$rain_1h,$rain_24h,$rain_total],\n";
}
$query->finish;
$database->disconnect ;