[PHP Aruba] Lista di distribuzione con email HTML non funzia [Archivio]

borexino

06-04-2007, 09:22

Ciao a tutti!

Oggi ho questo problema:
Posseggo un sito internet con relativa lista di distribuzione,e la mia idea era di inoltrare all'indirizzo della lista quotidianamente una email HTML con delle informazioni. Il problema è che lo script funziona correttamente se si tenta di inviare una email ad un normale indirizzo,mentre non arriva nulla se si tenta di inviarlo all'indirizzo della lista.
Come mittente della mail ovviamente metto un indirizzo compreso nella mailing list.

sotto vi posto il codice:

<?PHP

if (($handle = fopen ("http://www.sec.noaa.gov/ftpdir/latest/dayind.txt", "r")) !== FALSE)
{
$flag_solar_indices = FALSE;

while (($line = fgets ($handle, 4096)) !== FALSE)
{
if ($flag_solar_indices)
{
$flag_solar_indices = FALSE;

$solar_indices = preg_split ("/\\s+/", trim ($line));

}

if (strncmp ($line, "# Number", 10) == 0)
$flag_solar_indices = TRUE;
}

fclose ($handle);
}

////////////////////////////////////////////////////////////////////////////////////////////

if (($handle = fopen ("http://www.sec.noaa.gov/ftpdir/latest/wwv.txt", "r")) !== FALSE)
{
while (($line = fgets ($handle, 4096)) !== FALSE)
{
if (strncmp ($line, ":Issued:", 8) == 0) //anno
$anno = substr ($line, 9, 4); //13 8

if (strncmp ($line, ":Issued:", 8) == 0) //mese
$mese = substr ($line, 14, 3); //13 8

if (strncmp ($line, ":Issued:", 8) == 0) //mese
$giorno = substr ($line, 17, 3); //13 8

if (strncmp ($line, "Solar flux ", 11) == 0) //FLUSSO SOLARE
$solar_flux = substr ($line, 10,4);

if (strncmp ($line, "Solar flux ", 11) == 0) //A INDEX
$a_index = substr ($line, 39,2);

}

fclose ($handle);
}

/////////////////////INIZIO CODICE EMAIL /////////////////////////////////

$mess="<html>

<body bgcolor=\"#F3F3F3\">

<div align=\"center\">


Sugar Delta Daily Propagation BulletinToday: $giorno $mese $anno

<table border=\"1\" width=\"60%\" id=\"table1\" cellpadding=\"0\" style=\"border-collapse: collapse\" bordercolor=\"#000000\">
<tr>
<th width=\"20%\" bordercolor=\"#FFCC66\" height=\"45\" bgcolor=\"#FFCC66\">

Sun Spot Number</th>
<th width=\"20%\" bordercolor=\"#CCFF99\" height=\"45\" bgcolor=\"#CCFF99\">
Solar
Flux</th>
<th width=\"20%\" bordercolor=\"#99CCFF\" height=\"45\" bgcolor=\"#99CCFF\">
A-Index</th>
</tr>
<tr>
<th width=\"20%\" bordercolor=\"#FFCC66\" bgcolor=\"#FFCC66\">
$solar_indices[0]</th>
<th width=\"20%\" bordercolor=\"#CCFF99\" bgcolor=\"#CCFF99\">
$solar_flux</th>
<th width=\"20%\" bordercolor=\"#99CCFF\" bgcolor=\"#99CCFF\">
$a_index</th>
</tr>
</table>
</div>

 </div>

<div align=\"center\">
<table border=\"0\" width=\"80%\" id=\"table2\" cellpadding=\"10\">
<tr>
<td>
<a href=\"http://www.ref-union.org/infosdx/maps/dsd.png\">
<img border=\"0\" src=\"http://www.ref-union.org/infosdx/maps/dsd_small.png\" width=\"320\" height=\"240\"></a></td>
<td><a href=\"http://www.sec.noaa.gov/ftpdir/plots/2007_plots/proton/20070405_proton.gif/\">
<img border=\"0\" src=\"http://www.sec.noaa.gov/ftpdir/plots/2007_plots/proton/20070405_proton.gif\" width=\"311\" height=\"235\"></a></td>
</tr>
<tr>
<td>

<a href=\"http://infosdx.ref-union.org/\">REF-UNION</a></td>
<td>

<a href=\"http://www.sec.noaa.gov/today.html\">NASA - NOAA</a></td>
</tr>
</table>
</div>

All data from NOAA & ref-union.org/infosdx/ 
In test this and next week on sddxnet by SD ITALY

</body>

</html>";

/*Nella variabile $mess va inserito tutto il codice html che comporrà il corpo dell'email che si vuole inviare. Come nell'esempio si possono utilizzare anche i fogli di stile.*/

$e="sddxnet@sugar-delta.it"; /*Inserire l'indirizzo email a cui si vuole spedire l'email*/
$ogg="$giorno $mese $anno Propagation Bulettin in TEST"; /*Inserire l'oggetto dell'email da spedire*/
$mittente="prop@sugar-delta.it"; /*Inserire l'indirizzo email che verrà visulaizzato come mittente dell'email*/
$reply="sddxnet@sugar-delta.it"; /*Inserire l'indirizzo email a cui verranno inviate le risposte all'email inviata*/

//$titolo="allegato.pdf"; /*Inserire il nome che si vuole dare all'allegato*/
//$f="file.pdf"; /*Inserire l'indirizzo del file che si vuole inviare come allegato*/
//$filetype="application/pdf"; /*Inserire il formato MIME del file da allegare*/

/*Non modificare nulla al di sotto di questa linea*/

$intestazioni = "From: $mittente\nReply-To: $reply\nX-Mailer: Sismail Web Email Interface\nMIME-version: 1.0\nContent-type: multipart/mixed;\n boundary=\"Message-Boundary\"\nContent-transfer-encoding: 7BIT\nX-attachments: $titolo";

$body_top = "--Message-Boundary\n";
$body_top .= "Content-type: text/html; charset=iso-8859-1\n";
$body_top .= "Content-transfer-encoding: 7BIT\n";
$body_top .= "Content-description: Mail message body\n\n";

$msg_body = $body_top . $mess;

//$filez = fopen($f, "r");
//$contents = fread($filez, filesize($f));
//$encoded_attach = chunk_split(base64_encode($contents));
//fclose($filez);

//$msg_body .= "\n\n--Message-Boundary\n";
//$msg_body .= "Content-type: $filetype; name=\"$titolo\"\n";
//$msg_body .= "Content-Transfer-Encoding: BASE64\n";
//$msg_body .= "Content-disposition: attachment; filename=\"$titolo\"\n\n";
//$msg_body .= "$encoded_attach\n";
//$msg_body .= "--Message-Boundary--\n";

if(!(@mail($e,$ogg,$msg_body, $intestazioni))){
print "<H5>Invio della email fallito.</H5>";}
?>

L'hosting è quello di aruba