fsockopen équivalent perl

Question

Je viens de rencontrer un problème avec mon FAI qui semble refuser de m'autoriser à utiliser fsockopen en me disant que c'est un risque de sécurité et que je dois trouver une alternative suggérant que j'utilise perl.

Quelqu'un at-il une alternative à fsockopen en utilisant éventuellement perl pour le script ci-dessous?

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $socket = fsockopen($ip, $port, $errno, $errstr, 0.5); 

    if($socket === false){ 
     return false; 
    } 

    fwrite($socket, "QUERY_JSON\n"); 

    $responce = stream_get_contents($socket); 

    return json_decode($responce, true); 
} 

?> 

Answer 1

On dirait que vous voulez obtenir la réponse du serveur dans $responce sans utiliser des fonctions de prise en PHP. Si shell_exec() est activé par votre fournisseur d'hébergement, vous pouvez exécuter un programme externe pour le faire à la place. Voici un exemple en utilisant perl:

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $script = <<<'EOF' 
use warnings; 
use strict; 
use IO::Socket; 

die if $#ARGV+1 != 2; 
my $ip = $ARGV[0]; 
my $port = $ARGV[1]; 
my $sock = IO::Socket::INET->new(PeerAddr => "$ip:$port") or die; 
print $sock "QUERY_JSON\n" or die; 
local $/ = undef; 
print <$sock>; 
EOF; 

    $responce = shell_exec("echo '$script' | perl - $ip $port"); 

    if ($responce == NULL) 
     return false; 

    return json_decode($responce, true); 
} 

$> 

Ou vous pouvez utiliser netcat si elles en ont:

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $responce = shell_exec("echo QUERY_JSON| nc $ip $port"); 

    if ($responce == NULL) 
     return false; 

    return json_decode($responce, true); 
} 

$>