Verkehrsmeldungen die xte

Habs gerade mal auf die Schnelle installiert und es kommen Meldungen.

Info für Baden-Württemberg
Verkehrsinformationen

Länderübersicht
verkehrsinfo.de

Scheint auf Bundesland-Ebene bzw. Gesamt-D beschränkt zu sein. Strassenangaben gehen nicht.

Gruß
Bruno

Das Script verwendet showmessages.php und das gibt es leider seit einigen Tagen nicht mehr. Aktuell geht eine Abfrage offenbar nur noch über mmeldung.php und das akzeptiert wohl nur eine Bundesland-ID.
Vor einigen Monaten gab es da schon mal Probleme mit der showmessages.php, ich habe daraufhin dann mal den Betreiber angemailt. Antwort:

Es sieht im Moment so aus, als wenn wir den Part nicht fixen werden, da es nach erster Abschätzung der Technik extrem aufwändig ist dies dann entsprechend weiterhin zu pflegen, zumal auch dieser Bereich kaum noch genutzt wird, da die meisten Kunden lieber auch die App (iVerkehr) von uns auf dem iPhone nutzen.
Sorry, aber es wird somit wohl eher darauf hinauslaufen, dass wir den Bereich in naher Zukunft abschalten.

Schade, hat ja über ein Jahr prima funktioniert… versteh auch nicht, was da sooo aufwändig ist, aber egal. Muss halt das Script angepaßt werden.
Wie wäre es denn, die Bundesland-Ausgabeseite zu nehmen, dann die Tabelle z.B. nach „A9“ zu durchsuchen und die Ergebnisse zwischen den <TR></TR> Tags dann in die HTML-Box zu schreiben? Die Mobilvariante hat immerhin den Charme, daß bei der Abfrage weniger Müll (=Werbung) anfällt.
Ich mach mich da mal bei Gelegenheit dran, aber das kann dauern… :rolleyes:

Hallo.

Habe das ursprüngliche Skipt umgestrickt:


<?

// Internet Online?
if (!GetValue(43296 /*[Haustechnik\Status\Internet]*/)) die();

    // liste der variablen und deren url abfragen
    //
    $variable_list = array(
    20009 => "http://pda.freiefahrt.info/?state=BY&mode=0&search=A96&sort=time",
    42957 => "http://pda.freiefahrt.info/?state=BY&mode=0&search=A8&sort=time",
    13533 => "http://pda.freiefahrt.info/?state=BY&mode=0&sort=time",
    43643 => "http://pda.freiefahrt.info/?state=BY&mode=0&search=B471&sort=time",
    48503 => "http://pda.freiefahrt.info/?state=BY&mode=0&search=B2&sort=time",
    58081 => "http://pda.freiefahrt.info/?state=BY&mode=0&search=A99&sort=time",
    );

   // Datenausgabe
    while ($varURL = current($variable_list))
    {
        $str = getTrafficMessage($varURL);

        SetValue(key($variable_list), utf8_decode($str));
        next($variable_list);
    }

    // abfrage zeit setzen
    SetValue(55520 /*[Skripte allgemein\Verkehrsmeldungen\Letzte Aktualisierung]*/,  date("H:i",time()));

// aus den links von http://pda.freiefahrt.info
//
// http://pda.freiefahrt.info/?state=BY&mode=0&search=A99&sort=time
//
// state = BY = Bayern
// search = Strasse z.b. A8
// sort = time = Sortierreihenfolge
//
// Parameter: URL - vollständige URL welche die Daten zurückgibt
//

function getTrafficMessage($value)
{
	$meldung  = file_get_contents($value);
	$meldung2 = explode("<span style=", $meldung);
	$Anzahl   = (count($meldung2)-1);
	$message  = "";
	$str      = ' <table width=90% align=center>Aktualisiert zuletzt um '.date("H:i",time())." Uhr."; // Farbe anpassen oder style entfernen

	for ($i = 1; $i <= $Anzahl; $i=$i+4) {
		$message = ' <ul> <li>'.$meldung2[$i] = str_replace('"color:#000080">', '', $meldung2[$i]);
		$message = $message.$meldung2[$i+1] = str_replace('"font-weight:bold">', "", $meldung2[$i+1]);
		$message = $message.$meldung2[$i+2] = str_replace('"color:#008000;white-space:nowrap">', '', $meldung2[$i+2]).'Verzögerung. '.'<BR>';
		$ende = strpos($message.$meldung2[$i+3] = str_replace('"color:#808080">', '', $meldung2[$i+3]), 'zurück');
		$message = substr($message.$meldung2[$i+3] = str_replace('"color:#808080">', '', $meldung2[$i+3]), 1, $ende-22).'</li></ul>"';
		$str = $str.$message;
	}

	if ($Anzahl == 0) $str=$str."<ul><li>Es liegen keine Meldungen vor.</li></ul>";

	$str=substr($str, 1, strlen($str)-2).'</table>';
	return $str;
}
?>

Die Links für die abzufragenden Strassen sollten weitgehend selbsterklärend sein wenn man sich das auf der Homepage mal angesehen hat. Ich frage noch den Internetstatus ab uns setze eine Abfragezeit. Beide Mechanismen sind entsprechend nachzurüsten oder aus dem Skipt zu entsorgen.

Viel Spass damit.

Und nun noch etwas bunter.

Nachdem das bisher ausgewertete Portal leider keine aktuellen Daten mehr liefert anbei eine neue Version welche Ihre Daten über einen anderen Anbieter bezieht.

Hallo Kronos,

Anhang 23315 bringt folgende Fehlermeldung im Forum:

vBulletin-Systemmitteilung
Ungültige Angabe: Anhang
Wenn Sie einem normalen, gültigen Link im Forum gefolgt sind, wenden Sie sich bitte an den Webmaster.

Gruss René

Seltsam. Zweiter Versuch.

Verkehrsmeldungen.zip (1.38 KB)