background image

$fp

 = 

fsockopen

 (

$ip

, 2000, 

$errno

$errstr

, 2);

if

 (!

$fp

) {

return

 

$errno

;

}

else

 {

if

(!

empty

(

$host

)){

$out

 = "purge req.http.host == {$host} && req.url ~ ^/$ \r\n";

}

else

{

$out

 = " purge.url {$url} \r\n";

}

fputs

 (

$fp

$out

);

$out

 = 

fgets

(

$fp

 , 4096);

fclose (

$fp

);

return

 

$out

}
}