fixing issues with .eu.be and .name whois servers (new syntax) Fixes #571

.gitattributes

@@ -351,6 +351,7 @@ src/slave_dns -text
 src/spoolsize.php -text
 src/sqlbackup.sh -text
 src/update_domains.sh -text
+tests/whois_test.php -text
 tools/get_account_by_domain -text
 tools/get_domains_by_account -text
 tools/top_ftp_users -text

bureau/class/m_dom.php

@@ -336,6 +336,7 @@ class m_dom {
       break;
     case "name":
       $serveur="whois.nic.name";
+      $egal="domain = ";
       break;
     case "ws":
       $serveur="whois.samoanic.ws";
@@ -392,7 +393,7 @@ class m_dom {
 	  break;
         case "eu":
 	case "be":
-          $ligne=ereg_replace(chr(10), "",ereg_replace(chr(13),"",ereg_replace(" ","", $ligne)));
+          $ligne=preg_replace("/^ *([^ ]*) \(.*\)$/","\\1",trim($ligne));
           if($found)
              $tmp = trim($ligne);
           if ($tmp)

tests/whois_test.php

@@ -0,0 +1,26 @@
+#!/usr/bin/php
+<?php
+
+// test de la fonction whois : 
+
+include("../bureau/class/m_err.php");
+include("../bureau/class/m_dom.php");
+
+$err=new m_err();
+$dom=new m_dom();
+
+$doms=array("dns.be","eurid.eu","sonntag.name","alternc.com","alternc.org","alternc.net","sonntag.fr");
+foreach($doms as $d) {
+	echo "\n";
+	echo "Searching for whois for domain [$d]\n";
+	$srv=$dom->whois($d);
+	if (is_array($srv)) {
+		foreach($srv as $s) {
+			echo "	Nameserver: $s\n";
+		}
+	} else {
+		echo "	No nameserver found !\n";
+	}
+}
+
+?>