Envoyer l’article à un ami par email

http://www.spip-contrib.net/article36.html
Sur Apinc, le fopen ne fonctionne pas ===> voir http://aide.apinc.org/wakka.php?wiki=FopenEnLocal
remplacer la ligne $fr=fopen($texte,"r") ;
<?<br>
$serveur_ip "127.0.0.1"// ip du serveur ou est hébergée la page<br>
$serveur_port 80// nom de domaine de la page que l'on veut prendre<br>
$serveur_host "aec.apinc.org"// par exemple<br>
$fr fsockopen($serveur_ip$serveur_port, &$errno, &$errstr3);<br>
if(!
$fr)<br>
{<
br>
die(
"erreur de connection : $errstr ( $errno )");<br>
}<
br>
$res fputs($fr"GET $texte HTTP/1.0
"
.<br>
"Host: $serveur_host
"
.<br>
"Accept: text/plain
"
.<br>
"Connection: close
"
.<br>
"
"
);<br>
if(!
$res)<br>
{<
br>
die(
"erreur d'envoi de requete");<br>
}<
br>
// passer les headers de la réponse HTTP<br>
do<br>
{<
br>
$str fgets($fr4096);<br>
}while( 
trim($str) != "");<br>
?>