vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Serverliste im Internet 
Autor: E7
Datum: 11.02.04 19:54

Hi,

stimmt:

<?php
/***************************************
* Script zur Verwaltung von Chatrooms
* [c] 2003 by www.insider.de.vu
****************************************
* Aufrufe:
* Vorspann: ms.php?action=
* Danach immer die ... überspringen; ab
* da anhängen. Beispiel: ...v&v=a
*  --> ms.php?action=v&v=a
* ACHTUNG: Parameter immer urlencodiert
*    angeben; d. h.: @ = %40
*                   ' ' = +     etc.
* 
* ...add&server=IP_ADRESSE&room=RAUM_NAME
* ...get&room=RAUM_NAME
*    ANM: room kann leer bleiben; dann
*         werden alle Räume zurückgegeben
*    Rückgabe: Liste im Format
*    SERVER_IP RAUM_NAME X
*      X kann sein:
* 	     DEF      Keine Übereinstimmung
*        SRV      Wenn Parameter ROOM auf IP passt
*        MATCH    Wenn Parameter ROOM passt
*        ISTR     Wenn ROOM in Raumname enthalten
* ...del&room=x
* ...del&server=x
****************************************
* Rückgabe des Scripts:
*  String im Format NR BESCHREIBUNG
*          BSP: 0 Fehlerfrei
*  Anschließend durch \n | CHR(10) getrennt
*  einzelne Parameter wie IP-Liste.
****************************************
* Neuen Raum erzeugen (Beispiel):
* ms.php?action=add&server=172.173.174.175&room=my+room
*  --> Rückgabe: 0 Fehlerfrei
* 
* Aktuelle Räume:
* ms.php?action=get&room=
*  --> Rückgabe (ähnlich):
*   0 Fehlerfrei
*   175.199.120.24 Raum+1 DEF
*   19.124.22.104 Allgemeiner+Chat DEF
* 
* Raum suchen:
* ms.php?action=get&room=x
*  wobei x entweder Raumname, ServerIP
*  oder Ausschnitt aus Raumname sein kann.
* 
* Räume entfernen:
*  Räume werden nach einem Tag autom.
*  aus der Liste entfernt
*  del&room=x
*  del&server=x
***************************************/
header("Content-Type: text/plain");
switch ($action) {
	case "add":
		$room = urlencode(strtolower($room));
		$fh = fopen("ips.dat", "a");
		fputs($fh, time() . "|$server|$room|\n");
		fclose($fh);
		echo "0 Fehlerfrei\nSERVER=$server\nROOM=$room\n";
		break;
	case "get":
		$room = urlencode(strtolower($room));
		$a = file("ips.dat");
		$fh = fopen("ips.dat", "w");
		echo "0 Fehlerfrei\n";
		foreach ($a as $val) {
			$b = explode("|", $val);
			if (strlen($val) > 2 && time() - $b[0] < 86400) {
				if (strlen($room) > 0 && $room == $b[2]) {
					echo "${b[1]} ${b[2]} MATCH\n";
				} elseif (strlen($room) > 0 && $room == $b[1]) {
					echo "${b[1]} ${b[2]} SRV\n";
				} elseif (strlen($room) > 0 && !(strpos($b[2], $room) === false)) {
					echo "${b[1]} ${b[2]} ISTR\n";
				} elseif (strlen($room) < 1) {
					echo "${b[1]} ${b[2]} DEF\n";
				}
				fputs($fh, $val);
			}
		}
		fclose($fh);
		break;
	case "del":
		$room = urlencode(strtolower($room));
		$a = file("ips.dat");
		$fh = fopen("ips.dat", "w");
		echo "0 Fehlerfrei\n";
		foreach ($a as $val) {
			$b = explode("|", $val);
			if ($b[2] != $room && $b[1] != $server) {
				fputs($fh, $val);
			}
		}
		fclose($fh);
		break;
	case "about":
		echo "0 Alles OK\n(c) 2003 by www.insider.de.vu\n";
		break;
	case "":
		echo "1 Kein Befehl angegeben\n";
		break;
	default:
		echo "1 Befehl '$action' nicht gefunden!\n";
}
?>
E7

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Serverliste im Internet918makrele3210.02.04 21:46
Re: Serverliste im Internet641Schlumpf.s11.02.04 16:15
Re: Serverliste im Internet709E711.02.04 18:57
Re: Serverliste im Internet636Piekarek11.02.04 19:33
Re: Serverliste im Internet1.034E711.02.04 19:54
Re: Serverliste im Internet649Piekarek11.02.04 20:24
Re: Serverliste im Internet667E713.02.04 15:04
Re: Serverliste im Internet662makrele3211.02.04 22:54

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel