[php] Domainverfuegbarkeit pruefen

[=?iso-8859-1?B?S2FpIEj2cm5lcg==?=]

This is a multi-part message in MIME format.

------=_NextPart_000_005B_01BFD182.BFCCFFE0
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: 8bit

> checkdnsrr($domainname,"NS") liefert true/false

Ansonsten hätt ich noch eine Alternative hier, für alle inkompetenten
Betriebsysteme, oder für provider die sowas nicht mögen...
Siehe attachment.. (Keine Angst, ist ganz klein)

MfG Kai

------=_NextPart_000_005B_01BFD182.BFCCFFE0
Content-Type: application/octet-stream;
	name="whois.php3"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
	filename="whois.php3"

<?php

/*****************************************************************

       _(at)_ Author:    Kai H=F6rner <mailto: kai_(at)_pc-infos.de>
                    ICQ: 15793712            AIM: Perane

       _(at)_ Status:    Beta (ohne alles *G*)
       _(at)_ Made:      05.06.2000

                    http://pc-infos.de/kai/

       Dieses Script wird mit den Parametern domain und ending
       aufgerufen. Um die Domain "pc-infos.de" zu pr=FCfen, also
         <?php echo $PHP_SELF; ?>?domain=3Dpc-infos&ending=3D.de
       Wenn alles stimmt sollte eigentlich Eine Antwort des
       Servers kommen, dass diese Domain vergeben ist.

*****************************************************************/

$wserver =3D array (".de"  =3D> "whois.ripe.net",
                  ".com" =3D> "whois.crsnic.net",
		  ".net" =3D> "whois.crsnic.net",
		  ".org" =3D> "whois.crsnic.net",
		  ".lu"  =3D> "whois.restena.lu");


$werrors =3D array (".de"  =3D> "No entries found",
                  ".com" =3D> "No match",
		  ".net" =3D> "No match",
		  ".org" =3D> "No match",
		  ".lu"  =3D> "No entries found");

                //  Whois-Server und "Not Found"-Messages eingestellt


$whois_server =3D fsockopen ($wserver[$ending], 43, $errnr, $errstr);
                //  Verbindung zum Server herstellen

                set_socket_blocking ($whois_server, 0);
                //  Warten auf Serverresponse

                fputs ($whois_server, $domain . $ending . "\n");
                //  Sende whois-Anfrage.

      $result =3D fread ($whois_server, 2048);
                //  Auslesen des Serverresponses

		fclose($whois_server);
                //  Serververbindung Schlie=DFen

if (strpos ("x" . $result, $werrors[$ending]) =3D=3D! 0)      // Die =
Domain ist nicht vergeben
  {
    echo "Die Domain " . $domain . $ending . " ist noch frei.";
  }


else                                                      // Die Domain =
ist leider vergeben
  {
    echo "Die Domain " . $domain . $ending . " ist leider schon =
vergeben.";
  }

?>
------=_NextPart_000_005B_01BFD182.BFCCFFE0--