scrict-fehler -- und ich find nix -- hilcs

[s.roettger]

hallo leute!
ich habe unter http://www.jehu.at/downloads/whois.zip ein (so scheint es) ein super script (test unter http://www.jehu.at/php/whois.php) für whois-abfragen in php gefunden! es können ca. 40 verschiedene tld`s abgefragt werden! super! aber jetzt hab ich mir das script runtergeladen und in den ordner "whois" gepackt und krieg nur fehlermeldungen! es fängt immer mit line 60 an - da steht der befehl "print <<<ENDE"?!?!?! in der datei domains.dat stehen die ganzen server und domainendungen drin!
wo ist jetzt der fehler im script? kann mir jemand helfen, ich find nix mehr!

vielen dank für die hilfe!
sven

<?php


// $datafile contains the absolute server-path to the domain data file
// The domain data file is distributed with this script.
$datafile = '/home/www/whois/domains.dat';


// function print_form - your guess!

function print_form($query) {
    global $datafile;
    global $tld;
    
    if ($query == "") {
        $query = "test";    // default query domain
    }
    if ($tld == "") {
        $tld = ".de";        // default query tld (with leading dot!)
    }
    $searchdomains = "<option>all</option>";    // first option: lookup all tlds
    
    $fp = @fopen($datafile,'r');
    if ($fp) {
        while (!feof($fp)) {
            $zeile = fgets($fp,255);
            if (substr($zeile,0,2) != '//')    {
                list($dom,$temp_server,$temp_nft,$temp_tm,$temp_cty) = split('/',$zeile);
                // $searchdomains .= $dom . ', ';
                if ($dom == $tld) {
                    $selected = " selected";
                } else {
                    $selected = "";
                }
                $searchdomains .= "<option$selected>$dom</option>";
            }
        }
        fclose($fp);
    } else {
        print "<b>Error!</b><p>Domain data not found<br>";
    }
    $ich = $_SERVER['PHP_SELF'];
    
    print <<<ENDE   //hier krieg ich immer meine fehlermeldung line60
    <form action="$ich" method="post">
    <input type="hidden" name="showwhois" value="false">
    Search for domain: [url]www.[/url]
    <input type="text" name="query" value="$query">
    <select name="tld">$searchdomains</select>&nbsp;
    <input type="submit" value="Lookup">
    </form>
        <br>
ENDE;
} // end function print_form

// function whois_all - query all tlds
function whois_all($query) {
    global $datafile;
    
    print_form($query);
    
    if ($query != "") {
        $whois_port = 43;                    // whois -Port
        $whois_server = "";    
        $notfoundtext = "";    
        $timeout = 30;
        $trustme = true;
        $foundtext = "";
        
        $fp = fopen($datafile,'r');
        if ($fp) {
            while (!feof($fp)) {
                $zeile = fgets($fp,255);
                if (substr($zeile,0,2) != '//')    {
                    list($dom,$temp_server,$temp_nft,$temp_tm,$temp_cty) = split('/',$zeile);
                    $foundtext = "";
                    $notfoundtext = "";
                    
                    $whois_server = $temp_server;
                    if (strpos($temp_nft,'!') > 0) {
                        $foundtext = substr($temp_nft,0,strlen($temp_nft)-1);
                    } else {
                        $notfoundtext = $temp_nft;
                    }
                    $trustme = $temp_tm;
                    $country = trim($temp_cty);
                    
                    $whois_answer = "";
                    if ($foundtext=="") {
                        $domain_exists = true;
                    } else {
                        $domain_exists = false;
                    }
                    $anfrage = $query . $dom;
                    
                    $socket = fsockopen ($whois_server,$whois_port,$errno,$errstring,$timeout);
            
                    if ($socket) {
                        fputs ($socket,"$anfrage\r\n");
                        while (!feof($socket)) {
                            $whois_answer .= fgets($socket,128);
                        }
                        fclose($socket);
                        if ($foundtext == "") {
                            if ((strpos($whois_answer,$notfoundtext)>0) && ($notfoundtext != "")) {    
                                    $domain_exists = false;            
                            }
                        } else {
                            if ((strpos($whois_answer,$foundtext)>0) && ($foundtext != "")) {    
                                    $domain_exists = true;            
                            }
                        }
                        if (($notfoundtext != "") || ($foundtext != "")) {
                            if ($domain_exists) {
                                print "<i>$anfrage</i> ($country): not available!<br>";
                            } else {
                                print "<b><i>$anfrage</i> ($country): available!</b>";
                                if ($trustme == "false") {
                                    print " <b>not trustworthy!</b>";
                                }
                                print "<br>";
                            }
                        } else {
                            print "<i>$anfrage</i> ($country): no result<br>";
                        }
                    } else {
                        print "<i>$anfrage</i> ($country): <b>Error</b>! $errstring ($errno)<br>";
                    }
                }
            }
            fclose($fp);
        } else {
            print "<b>Error!</b><p>Domain data not found<br>";
        }
    }
}

function whois($query) {

    global $datafile;
    global $tld;
    global $showwhois;

    if ($query == "") {
        print_form($query);
    } else {
        $whois_port = 43;
        $whois_server = "";
        $notfoundtext = "";
        $timeout = 30;
        $trustme = true;
        $foundtext = "";
        
        $fp = fopen($datafile,'r');
        if ($fp) {
            while (!feof($fp)) {
                $zeile = fgets($fp,255);
                if (substr($zeile,0,2) != '//')    {
                    list($dom,$temp_server,$temp_nft,$temp_tm,$temp_cty) = split('/',$zeile);
                    if ($dom == $tld) {
                        $whois_server = $temp_server;
                        if (strpos($temp_nft,'!') > 0) {
                            $foundtext = substr($temp_nft,0,strlen($temp_nft)-1);
                        } else {
                            $notfoundtext = $temp_nft;
                        }
                        $trustme = $temp_tm;
                        $country = trim($temp_cty);
                    }
                }
            }
            fclose($fp);
        } else {
            print "<b>Error!</b><p>Domain data not found<br>";
        }
        
        print_form($query);
                    
        if ($whois_server != "") {
        
            $socket = fsockopen ($whois_server,$whois_port,$errno,$errstring,$timeout);
            
            $whois_answer = "";
            if ($foundtext=="") {
                $domain_exists = true;
            } else {
                $domain_exists = false;
            }
            $anfrage = $query . $tld;
            
            if ($socket) {
                fputs ($socket,"$anfrage\r\n");
                while (!feof($socket)) {
                    $whois_answer .= fgets($socket,128);
                }
                fclose($socket);
                if ($foundtext == "") {
                    if ((strpos($whois_answer,$notfoundtext)>0) && ($notfoundtext != "")) {    
                            $domain_exists = false;            
                    }
                } else {
                    if ((strpos($whois_answer,$foundtext)>0) && ($foundtext != "")) {    
                            $domain_exists = true;            
                    }
                }
                if (($notfoundtext != "") || ($foundtext != "")) {
                    if ($domain_exists) {
                        print "<h3>Domain <i>$anfrage</i> ($country) is already delegated!</h3>";
                    } else {
                        print "<h3>Domain <i>$anfrage</i> ($country) is available!</h3>";
                        if ($trustme == "false") {
                            print "<b>Warning:</b> Results for $tld-Domains are not trustworthy.<p>";
                        }
                    }
                }
                
                if ($showwhois == "true") {
                    print "<pre>";
                    print $whois_answer;
                    print "</pre>";
                } else {
                    $ich = $_SERVER['PHP_SELF'];
                    print <<<ENDE
    <form action="$ich" method="post">
    <input type="hidden" name="showwhois" value="true">
    <input type="hidden" name="query" value="$query">&nbsp;
    <input type="hidden" name="tld" value="$tld">
    <input type="submit" value="Show Info">
ENDE;
                }
            } else {
                print "<p>Error: $errstring ($errno)<br>";
            }
        } else {
            print "Looking for .$tld-Domains is not supported!<br>";
        }
    }
} // end function whois()

// Here comes the code
// Simply insert the desired code
// SSI can be done with "virtual('path')"

// virtual('include.html');

    print <<<ENDE
    
    <!-- before the whois-query -->
    
ENDE;
    
    if ($tld == "all") {        // compare with line 46!!!!
        whois_all($query);
    } else {
        whois($query);
    }

    print <<<ENDE
    
    <!-- after the whois-query -->
    
ENDE;


?>

[admin]

schau dir mal das Script auf http://mattsscripts.co.uk/mwhois.htm an.
Das funktioniert ohne Probleme.

[s.roettger]

auch sehr schön, aber da krieg ich immer diese fehlermeldung (sonst klappt alles):
Warning: Variable passed to each() is not an array or object in /www/domain.de/mwhois/mwhois.php on line 620

616 if(!isset($_SESSION)) { $_SESSION = $HTTP_SESSION_VARS; }
617
619 while(list($key, $var) = each($_GET)) { $vars[$key] = $var; }
620 while(list($key, $var) = each($_POST)) { $vars[$key] = $var; }
621 

warum?
danke!

[wahsaga]

er erkennt $_GET und $_POST so nicht als arrays.

funzt evtl. $_GET[] bzw. $_POST[] ?