<? /////////////// // Basisdaten /////////////// $questerinfos = „daten/daten_quester.xml“; /////////////////////////////////////////////// // DateiEinlesen - Datei oeffnen und einlesen /////////////////////////////////////////////// Function DateiEinlesen($dateiname) { If ($connection = @FOpen($dateiname, „r“)) { While (!FEoF($connection)) { $serverinfos .= FGets($connection, 4096); } FClose($connection); Return ($serverinfos); } } ////////////////////////////////// // HackMac - Ermittelt XML-Daten ////////////////////////////////// Function HackMac($quellzeugs, $vomanfang, $biszumende) { $tempgetyddel = Split($vomanfang, $quellzeugs); $tempgetyddel = $tempgetyddel[1]; $tempgetyddel = Split($biszumende, $tempgetyddel); $tempgetyddel = $tempgetyddel[0]; Return ($tempgetyddel); } ////////////////////////////////////////////////////////// // Hauptprogramm - Alle QuesterInfos von Pergon ausgeben ////////////////////////////////////////////////////////// Print(„\n \n“); $serverinfos = DateiEinlesen($questerinfos); $anzahl = HackMac($serverinfos, „“, „“); $questerarray = Split(„“, $serverinfos); Print(„
TOP $anzahl ...der besten aktiven Quester
\n“); Print(„ “); Print(„ Platz
Name Güte “); // Quester ausgeben For ($k=1; $questerarray[$k]!=„“; $k++) { $name = HackMac($questerarray[$k], „“, „“); $guete = HackMac($questerarray[$k], „“, „“); Print(„ $k “); Print(„ $name “); Print(„ $guete \n“); } Print(„ \n“); Print „ “; ?>