Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/08/2005, 09:16
ledlogan
 
Fecha de Ingreso: mayo-2005
Mensajes: 15
Antigüedad: 18 años, 10 meses
Puntos: 0
Limitar tamaño de archivo

No logro restringir el tamaño del archivo a 1MB. Apreciaré vuestra respuesta.

Saludos, Ledlogan
Código PHP:
function form_mail($sPara$sAsunto$sTexto$sDe){
        
        
$bHayFicheros 0;
        
$sCabeceraTexto "";
        
$sAdjuntos "";
        
        if (
$sDe)$sCabeceras "From:".$sDe."\n"; else $sCabeceras "";
        
$sCabeceras .= "MIME-version: 1.0\n"

        foreach (
$_POST as $sNombre => $sValor)
                
$sTexto $sTexto."\n".$sNombre.
                
" , ".$sValor
        
        foreach (
$_FILES as $vAdjunto){
                
                if (
$bHayFicheros == 0){
                
                    
$bHayFicheros 1;
                    
                    
$sCabeceras .= "Content-type: multipart/mixed;"
                    
$sCabeceras .= "boundary=\"--_Separador-de-mensajes_--\"\n";
                    
                    
$sCabeceraTexto "----_Separador-de-mensajes_--\n"
                    
$sCabeceraTexto .= "Content-type: text/plain;charset=iso-8859-1\n"
                    
$sCabeceraTexto .= "Content-transfer-encoding: 7BIT\n";
                    
                    
$sTexto $sCabeceraTexto.$sTexto;

                }
                
                if (
$vAdjunto["size"] > 0){
                                        
                    
$sAdjuntos .= "\n\n----_Separador-de-mensajes_--\n";
                    
$sAdjuntos .= "Content-type: ".$vAdjunto["type"].";name=\"".$vAdjunto["name"]."\"\n";;
                    
$sAdjuntos .= "Content-Transfer-Encoding: BASE64\n"
                    
$sAdjuntos .= "Content-disposition: attachment;filename=\"".$vAdjunto["name"]."\"\n\n";                 
                    
                    
$oFichero fopen($vAdjunto["tmp_name"], 'r'); 
                    
$sContenido fread($oFicherofilesize($vAdjunto["tmp_name"])); 
                    
$sAdjuntos .= chunk_split(base64_encode($sContenido));
                    
fclose($oFichero); 
                }
                
        }
        
        if (
$bHayFicheros)
            
$sTexto .= $sAdjuntos."\n\n----_Separador-de-mensajes_----\n"
        
        return(
mail($sPara$sAsunto$sTexto$sCabeceras));
    }