Données via blitzortung.tmt.de/Data_1/Protected/strikes.txt

meteo60

Bonjour,

J'utilise habituellement http://nom:pass@blitzortung.tmt.de/Data_1/Protected/strikes.txt pour récupérer les données mais cette adresse ne fonctionne plus. Y a t'il une solution de remplacement?

Julien Arnould

A mon avis il ont supprimer l'ancien système de données. Il faut donc utiliser le nouveau.

meteo60

Ok c'est bien dommage car ce txt donnait toutes les infos pour les utiliser ensuite avec un script php qui lui aussi a disparu du site blitzortung rubrique services > Miscellaneous.

Il ny' a plus que cet extrait d'exemple:$username= "User";

$password= "xxxxxxxx";

//

$map= 'http://www.blitzortung.org/Maps/F_Florida_-92.0_-76.0_38.0_24.3.png';

$west= -92.0;

$north= 38.0;

$east= -76;

$south= 24.3;

//

$region= "3";

$time_interval= 7200;

$local_strokes_file= '/var/www/Tmp/Strokes';

$tmp_strokes_file= '/var/www/Tmp/Strokes_tmp';

//

$font_file_bold= '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans-Bold.ttf';

$font_file= '/usr/share/fonts/truetype/ttf-dejavu/DejaVuSans.ttf';

$font_size_1= 10;

$font_size_2= 8;

$font_size_3= 7;

Mais ca nécessite de tout recoder pour utiliser les données brutes "raw data"! Un peu abusé cette évolution...

Julien Arnould

Oui surtout que l'url des raw data change en permanence suivant la date et l'heure. Il faudrait un script pour télécharger les dernière données afin de les exploiter sur son serveur perso.

Clément

Essaies un coup si ça convient :

[code]<?php $username= ""; $password= ""; $name="strikes.txt"; $region="1"; $strokes_dir= 'http://' . $username . ':' . $password . '@blitzortung.net/Data_' . $region . '/Protected/Strokes/';

$end_time= time();
$time_interval= 7200;
$l_time=$end_time-$time_interval;
$run_time= $l_time;
$filename= $strokes_dir . gmdate("Y/m/d/H/",$run_time) . $run_time/600%6 . '0.log';

$content = file_get_contents($filename);
$file = fopen($name, "w+");
fputs($file, $content);
fclose($file);

?>[/code]

DanielV37

Hello,

Pour mon SFLOC2008, qui génère certaines cartes, comme sur le site de lightningradar ou chasseurs-orages, l'adaptation c'est terminée vers 2H... soit 6 heures de boulot.

[img]http://users.telenet.be/danielv38//Lightning_radar/picture4t.jpg[/img]

Noaa couplé à blitzortung

Finalement, c'est pas si mal comme technique.

S'il y a des candidats pour les sources en .net... souffler dans la buse.

Amicalement

Dan

Thomas_37

Bonjour,

Personnellement, j'utilise ça :

[code] $temps = time()-(3600*(date("I")+1)); $mdp=""; $password="";

for($i=0; $i&lt;=11;$i++)
	{
	$annee = date("Y", $temps-($i*600));
	$mois = date("m", $temps-($i*600));
	$jour = date("d", $temps-($i*600));
	$heure = date("H", $temps-($i*600));
	$min = (floor(date("i", $temps-($i*600))/10))*10;
	if($min&lt;10) $min="0".$min;

	@copy("http://$mdp:$password@data.blitzortung.org/Data_1/Protected/Strokes/$annee/$mois/$jour/$heure/$min.log", "Temp/strikes-$i.txt");
	if(!file_exists("Temp/strikes-$i.txt")) { $file = fopen("Temp/strikes-$i.txt", "a"); fclose($file); }
	
	$file = fopen("Temp/strikes.txt", "a");
	$data = fopen("Temp/strikes-$i.txt", "r");
	while (!feof($data)) 
		{
		$page .= fgets($data, 60);
		}
	fputs($file, $page);
	fclose($file);
	fclose($data);
	$page="";
	}

unset($temps); unset($i); unset($annee); unset($mois); unset($jour); unset($heure); unset($min); unset($file); unset($data); unset($page);

$dat=date("Ymd");
$heure2="".date("H")."H".date("i");

$font2 = imageloadfont('Config/Font/ecriture_titre.gdf');

for($typecarte=1;$typecarte&lt;=5;$typecarte++)	// Type de carte
	{ 
	$t=explode(" ",TypeCarte($typecarte));
	$nomcarte=str_replace("_", " ", $t[1]); $cartebase=$t[0]; $ouest=$t[2]; $nord=$t[3]; $est=$t[4]; $sud=$t[5]; unset($t);
	
	$comm="Carte des impacts - $nomcarte";
	echo "\r\n     Carte des impacts - $nomcarte $cartebase";

	// copy image
	if($typecarte!=7) $img= imagecreatefrompng("Config/Cartes/vide.png");
	else $img= imagecreatefrompng("Config/Cartes/vide-2.png");
	$img_X= imagesx($img);
	$img_Y= imagesy($img);
	
	// colors
	$noir = imagecolorallocate($img,   0,   0,   0);
	$c1   = imagecolorallocate($img, 255, 255, 255);
	$c2   = imagecolorallocate($img, 255, 255,   0);
	$c3   = imagecolorallocate($img, 255, 170,   0);
	$c4   = imagecolorallocate($img, 255,  85,   0);
	$c5   = imagecolorallocate($img, 255,   0,   0);
	$c6   = imagecolorallocate($img, 191,   0,   0);

	$heure= time();

	$File= fopen ("Temp/strikes.txt", "r"); $strikes=0;
	while (!feof($File))
		{
		fscanf ($File,"%d-%d-%d %d:%d:%s %s", $year, $mon, $day, $hour, $min, $sec, $l);
	
		$pos=explode(";", $l);
		$lat=$pos[1];
		$lon=$pos[2];
		
		$heure_impact= mktime($hour, $min, $sec, $mon, $day, $year)+3600+(3600*date("I"));

		if (($lon &gt;= $ouest)&amp;&amp;($lon &lt;= $est)&amp;&amp;($lat &lt;= $nord)&amp;&amp;($lat &gt;= $sud)) 
			{
			$strikes++;
			
			$x=($img_X/($est-$ouest))*($lon-$ouest);
			$y=$img_Y-(($lat-$sud)*($img_Y/($nord-$sud)));
			
			if ($heure-$heure_impact &lt; 1200) $couleur= $c1;
			else if ($heure-$heure_impact &lt; 2400) $couleur= $c2;
			else if ($heure-$heure_impact &lt; 3600) $couleur= $c3;
			else if ($heure-$heure_impact &lt; 4800) $couleur= $c4;
			else if ($heure-$heure_impact &lt; 6000) $couleur= $c5;
			else $couleur= $c6;
			
			ImageFilledEllipse ($img, $x, $y, 7, 7, $couleur);
			ImageEllipse ($img, $x, $y, 7, 7, $noir);
			}	 
		}
	fclose ($File);

[/code]

Il est pas complet et utilisé comme tel, ne fonctionnera pas, mais ce script permet de télécharger, mettre en forme et détecter la date et l'emplacement des impacts.

Thomas

flc85

Intéressant tout cela,je voudrais créer une page internet avec localisation de l'utilisateur et affichage des données.

pour la localisation c'est simple mais le reste.....

Position pour smartphone [url=http://www.meteofontenay.fr/gps1.html]ici[/url]

DanielV37

Voici la version vb.net (visual studio 2005) => FrameWork 2.0

[size=85]

[code] Imports System.IO

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim OffSetGmt As Integer = -2 ' offset entre l'heure locale et GMT... bien faire attention ici !!!
    ' Usage ("L'heure GMT actuelle", "nombre de tranche de 10 minutes souhaitées")
    SFlocLoadTOA(Now().AddHours(OffSetGmt), 6)
End Sub

Sub SFlocLoadTOA(ByVal GmtTime As DateTime, ByVal ArrayStop As Integer)

    ' Ajoute le 28/02/2014 suite à un changement du protocole
    ' Maintenant les données sont disponibles qu'en paquet de 10 minutes
    ' La procédure ici ne télécharge que les anciennes valeurs, le fichier de la dizaine entamée n'est pas téléchargé

    ' Déclaration des variables 
    Dim Sfloc() As String
    Dim Boucle As Integer
    Dim Boucle3 As Integer
    Dim ArrayAnnee As New ArrayList
    Dim ArrayMois As New ArrayList
    Dim ArrayJour As New ArrayList
    Dim ArrayHeure As New ArrayList
    Dim ArrayMinute As New ArrayList
    Dim MonGmtTime As DateTime = GmtTime
    Dim ErrorMessage As String = ""
    Dim UrlUpDate As String = ""
    Dim Essai As Integer = 0

    ' Url utilisée actuellement
    Dim url As String = "http://data.blitzortung.org/Data_1/Protected/Strokes/%annee%/%mois%/%jour%/%heure%/%minute%.log"
    Dim UserName As String = "User Account"
    Dim PassWord As String = "Password"

    ' Recherche de minute multiple de dix
    Do While Mid(MonGmtTime.ToString("mm"), 2, 1) &lt;&gt; "0"
        MonGmtTime = MonGmtTime.AddMinutes(-1)
    Loop

    ' Retire 10 minutes car la butée est le début et non la fin dans les fichiers
    MonGmtTime = MonGmtTime.AddMinutes(-10)

    ' Génération des array des heures sur 24 heures pour chaques 10 minutes
    For Boucle3 = 0 To 143
        ArrayAnnee.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("yyyy"))
        ArrayMois.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("MM"))
        ArrayJour.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("dd"))
        ArrayHeure.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("HH"))
        ArrayMinute.Add(MonGmtTime.AddMinutes(-Boucle3 * 10).ToString("mm"))
    Next

    ' Test devrait correspondre au dernier fichier terminé disponible sur le serveur
    Dim test As String = ArrayAnnee(0) &amp; "/" &amp; ArrayMois(0) &amp; "/" &amp; ArrayJour(0) &amp; " " &amp; ArrayHeure(0) &amp; ":" &amp; _
        ArrayMinute(0)

    ' GUI mise à jour
    TextBox1.Text = "Download in progress, please wait..." : TextBox1.Refresh()

    ' Efface le fichier de sortie afin de partir sur une nouvelle base
    If My.Computer.FileSystem.FileExists("BlitzortungDataOutput.txt").ToString = True Then Kill("BlitzortungDataOutput.txt")

    ' Boucle de téléchargement, on commence par le fichier plus petit en heure
    For Boucle3 = ArrayStop - 1 To 0 Step -1
        'Préparation de l'URL 
        UrlUpDate = url
        UrlUpDate = UrlUpDate.Replace("%annee%", ArrayAnnee(Boucle3))
        UrlUpDate = UrlUpDate.Replace("%mois%", ArrayMois(Boucle3))
        UrlUpDate = UrlUpDate.Replace("%jour%", ArrayJour(Boucle3))
        UrlUpDate = UrlUpDate.Replace("%heure%", ArrayHeure(Boucle3))
        UrlUpDate = UrlUpDate.Replace("%minute%", ArrayMinute(Boucle3))
        ' Efface le fichier temporaire de la requet de l'url
        If My.Computer.FileSystem.FileExists("TemporyOutput.txt").ToString = True Then Kill("TemporyOutput.txt")
        ' Deux essais sont engagés avant d'abandonner
        Essai = 0
        Do While Essai &lt;&gt; 2
            Try
                ' La requête est engagée
                My.Computer.Network.DownloadFile(UrlUpDate, "TemporyOutput.txt", UserName, PassWord, True, 60000, True)
                TextBox1.Text = "Download part of date: " &amp; ArrayAnnee(Boucle3) &amp; "/" &amp; ArrayMois(Boucle3) &amp; "/" &amp; _
                    ArrayJour(Boucle3) &amp; " " &amp; ArrayHeure(Boucle3) &amp; ":" &amp; ArrayMinute(Boucle3) &amp; ":00 (Part " &amp; _
                    ArrayStop - (Boucle3) &amp; " of " &amp; ArrayStop &amp; ") " : TextBox1.Refresh()
            Catch ex As Exception
                ' S'il y a une erreur, on log l'erreur
                LogWrite("")
                LogWrite("Problem to download the TOA data from the Blitzortung server")
                LogWrite("SYS msg = " &amp; ex.Message)
                LogWrite("URL used is : " &amp; UrlUpDate)
                ErrorMessage = ex.Message
                TextBox1.Text = ex.Message : TextBox1.Refresh()
            End Try
            'Vérifie que le fichier temporaire est bien sorti, sinon on retente
            If My.Computer.FileSystem.FileExists("TemporyOutput.txt").ToString = True Then
                'Chargement du fichier temporaire dans la mémoire
                Sfloc = File.ReadAllLines("TemporyOutput.txt")
                'Ouverture en mode append du fichier de sortie
                FileOpen(1, "BlitzortungDataOutput.txt", OpenMode.Append)
                For boucle = 0 To Sfloc.Length - 1
                    PrintLine(1, Sfloc(boucle))
                Next
                FileClose(1)
                ' Effacement du fichier temporaire, sinon la requête sera bloquée car le fichier existe déjà
                Kill("TemporyOutput.txt")
                ' Le fichier était présent, donc on fixe à 2 pour sortir de la boucle
                Essai = 2
                TextBox1.Text = TextBox1.Text &amp; " complete"
                ' Laisse un mot dans le log
                LogWrite("Download part of date: " &amp; ArrayAnnee(Boucle3) &amp; "/" &amp; ArrayMois(Boucle3) &amp; "/" &amp; _
                    ArrayJour(Boucle3) &amp; " " &amp; ArrayHeure(Boucle3) &amp; ":" &amp; ArrayMinute(Boucle3) &amp; ":00 (Part " &amp; _
                (ArrayStop - Boucle3) &amp; " of " &amp; ArrayStop &amp; ") ")
                ' Petite temporisation de 2 secondes avant de continuer
                hbwait(2000)
            Else
                ' Zut, le premier essai a raté, on incrément de 1 pour le second essai
                Essai = Essai + 1
                ' Petite temporisation de 5 secondes avant de continuer
                hbwait(5000)
            End If
        Loop
    Next
    TextBox1.Text = "Execution done" : TextBox1.Refresh()

End Sub

Sub LogWrite(ByVal text As String)
    FileOpen(2, "Sfloc_Err.log", OpenMode.Append)
    PrintLine(2, Now.ToString("HH:mm:ss dd/MM/yyyy : ") &amp; text)
    FileClose(2)
End Sub

Friend Sub hbwait(ByVal ms_to_wait As Long)
    Dim endwait As Double
    endwait = Environment.TickCount + ms_to_wait
    While Environment.TickCount &lt; endwait
        System.Threading.Thread.Sleep(1)
        Application.DoEvents()
    End While
End Sub

End Class
[/code]
[/size]

[size=100]Le concepteur de vue[/size]

[size=85]

[code] <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Form1 Inherits System.Windows.Forms.Form

'Form remplace la méthode Dispose pour nettoyer la liste des composants.
&lt;System.Diagnostics.DebuggerNonUserCode()&gt; _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
    Try
        If disposing AndAlso components IsNot Nothing Then
            components.Dispose()
        End If
    Finally
        MyBase.Dispose(disposing)
    End Try
End Sub

'Requise par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer

'REMARQUE : la procédure suivante est requise par le Concepteur Windows Form
'Elle peut être modifiée à l'aide du Concepteur Windows Form.  
'Ne la modifiez pas à l'aide de l'éditeur de code.
&lt;System.Diagnostics.DebuggerStepThrough()&gt; _
Private Sub InitializeComponent()
    Me.TextBox1 = New System.Windows.Forms.TextBox
    Me.Button1 = New System.Windows.Forms.Button
    Me.SuspendLayout()
    '
    'TextBox1
    '
    Me.TextBox1.Location = New System.Drawing.Point(12, 42)
    Me.TextBox1.Name = "TextBox1"
    Me.TextBox1.Size = New System.Drawing.Size(383, 20)
    Me.TextBox1.TabIndex = 0
    '
    'Button1
    '
    Me.Button1.Location = New System.Drawing.Point(13, 13)
    Me.Button1.Name = "Button1"
    Me.Button1.Size = New System.Drawing.Size(139, 23)
    Me.Button1.TabIndex = 1
    Me.Button1.Text = "Button1"
    Me.Button1.UseVisualStyleBackColor = True
    '
    'Form1
    '
    Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
    Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
    Me.ClientSize = New System.Drawing.Size(415, 83)
    Me.Controls.Add(Me.Button1)
    Me.Controls.Add(Me.TextBox1)
    Me.Name = "Form1"
    Me.Text = "Form1"
    Me.ResumeLayout(False)
    Me.PerformLayout()

End Sub
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button

End Class
[/code]
[/size]