<?php   #### mime_mail.php #### Version 0.8   vom 03.12.2003 04:05
                           #### Version 0.9   vom 16.04.2005 21:29
                           #### Version 0.9.1 vom 17.04.2005 13:44
                           #### Version 0.9.2 vom 18.04.2005 
                         
# Dieses Beispielscript darf auf eigene Gefahr zu privaten
# Zwecken frei verwendet werden. Der Name des Autors soll enthalten bleiben
# Für kommerzielle Zwecke ist eine Rücksprache mit dem Autor erforderlich
# Autor: Thomas Schmieder, bitworks Braunschweig
#        tom@bitworks.de
# 

# Das Upload-Filearray liegt bei einem einzelnen 
# Fileupload in der Form:

# $_FILES['userfile']['name']
# Der ursprüngliche Dateiname auf der Client Maschine. 

# $_FILES['userfile']['type']
# Der Mime-Type der Datei, falls der Browser diese 
# Information zur Verfügung gestellt hat. Ein Beispiel wäre "image/gif". 

# $_FILES['userfile']['size']
# Die Größe der hochgeladenen Datei in Bytes. 

# $_FILES['userfile']['tmp_name']
# Der temporäre Dateiname, unter dem die hochgeladene Datei auf dem 
# Server gespeichert wurde. 

# $_FILES['userfile']['error']

# oder bei einem Multiupload mit einem Feldnamen in Array-Form in der Form

# $_FILES["attach"]["name"][0] 
# $_FILES["attach"]["name"][1] 
# $_FILES["attach"]["name"][n] 

# $_FILES["attach"]["type"][0] 
# $_FILES["attach"]["type"][1] 
# $_FILES["attach"]["type"][n] 

# $_FILES["attach"]["size"][0] 
# $_FILES["attach"]["size"][1] 
# $_FILES["attach"]["size"][n] 

# $_FILES["attach"]["tmp_name"][0] 
# $_FILES["attach"]["tmp_name"][1] 
# $_FILES["attach"]["tmp_name"][n] 

# $_FILES["attach"]["error"][0] 
# $_FILES["attach"]["error"][1] 
# $_FILES["attach"]["error"][n] 

# vor.

# Das Array kann auch gemischt vorliegen.

# Für die leichtere Verarbeitung wir das (gemischte) Array  
# mittels der Funktion convert_filearray() invertiert:

# $_FILES["attach"][0]["name"]         #
# $_FILES["attach"][0]["client_type"]  # vom Client gemeldeter Typ    
# $_FILES["attach"][0]["type"]         # auf dem Server ermittelter Typ
# $_FILES["attach"][0]["size"] 
# $_FILES["attach"][0]["tmp_name"] 
# $_FILES["attach"][0]["error"] 

# $_FILES["attach"][1]["name"] 
# $_FILES["attach"][1]["client_type"]  # vom Client gemeldeter Typ    
# $_FILES["attach"][1]["type"]         # auf dem Server ermittelter Typ
# $_FILES["attach"][1]["size"] 
# $_FILES["attach"][1]["tmp_name"] 
# $_FILES["attach"][1]["error"]

# usw.

#------------------------------------------------------------------------------

## Das Password sollte man mit einer Datenbank und der Absender-eMail 
## abgleichen oder sonst irgendwie absichern

$password = "tollesPW";

## Mit 0Dh 0Ah klappt es leider nicht, obwohl die RFC das eigentlich verlangt

#define("CRLF",chr(13).chr(10));
define("CRLF",chr(10));

#------------------------------------------------------------------------------
function convert_filearray($_files,&$_error)
{
  $_attach = NULL;
    
  if(is_array($_files))
  foreach($_files as $feldname => $filespecs)  ## $filespecs muss nicht benutzt werden
  {
    if ($_files[$feldname]['error']===0)
    {
      # es wurde EINE Datei unter dem Feldnamen hochgeladen, es trat kein Fehler auf
     
      $_file = array();
      $_file['feldname']    = $feldname;                      # Feldname des Upload-Feldes
      $_file['client_type'] = $_files[$feldname]['type'];     # gemeldeter Type des uploaded Files (Client)
      $_file['type']        = mime_content_type($_files[$feldname]['tmp_name']); # Type des uploaded Files (Server)
      $_file['name']        = basename($_files[$feldname]['name']); # Name des uploaded Files 
      $_file['tmp_name']    = $_files[$feldname]['tmp_name']; # Temp-Name des uploaded Files
      $_file['size']        = $_files[$feldname]['size'];     # Größe des uploaded Files 

      $_attach[] = $_file;                                 # Filemetadaten ins array eintragen
    }
    elseif (is_array($_files[$feldname]['error']))
    {
      # es wurden mehrere Dateien unter dem Feldnamen hochgeladen
      foreach ($_files[$feldname]['error'] as $key => $error)
      {
        if ($error === 0)
        {
          ## unter dem Tempörärnamen $_FILES[$feldname]['tmp_name'][$key] liegt nun
          ## eine Datei vor, deren Mime-Type  an mit

          $_file = array();
          $_file['feldname']    = $feldname;                            # Feldname des Upload-Feldes
          $_file['client_type'] = $_files[$feldname]['type'][$key];     # vom Client gemeldeter Typ
          $_file['type']        = mime_content_type($_files[$feldname]['tmp_name'][$key]); # wirklicher Typ des uploaded Files
          $_file['name']        = basename($_files[$feldname]['name'][$key]);     # Name des uploaded Files
          $_file['tmp_name']    = $_files[$feldname]['tmp_name'][$key]; # Temp-Name des uploaded Files
          $_file['size']        = $_files[$feldname]['size'][$key];     # Größe des uploaded Files 
          
          $_attach[] = $_file;                                # Filemetadaten ins array eintragen
        }
        elseif ($_files[$feldname]['error'][$key] === 4)
        {
          # Upload enthioelt keine Filedaten 
        }
        else
        {
          ## Fehlermeldung entsprechend Muster im IF-Zweig
          $_error[] = "Mit Datei '".$_FILES[$feldname]['name'][$key].
               "' trat der Fehler ".$_FILES[$feldname]['error'][$key]." auf"; 
        }
      }
    }
    else
    {
      $_error[] = "unerlaubte Operation beim Fileupload";
    }
  }
  
  return $_attach;
}

#--------------------------------------------------------------------
# Bestimmung des Mime-Content-Types

if(!function_exists('mime_content_type'))
{
  function mime_content_type($filename)
  {
    $filepath = realpath($filename);
    $_mime = array();

    // Spaces werden maskiert, weil sie sonst trennen
    $filepath = str_replace(" ","\\ ",$filepath);

    exec ("file -bi $filepath", $_mime, $error);

    if (($error) or (count($_mime) != 1)) return false;

    if (strpos($_mime[0], "can't stat") !== false)
    {
      $mime = "Typ unbekannt";
    }
    elseif (strpos($_mime[0], "can't read") !== false)
    {
      $mime = "Datei nicht lesbar";
    }
    elseif (strpos($_mime[0], "can't ") !== false)
    {
      $mime = "unbekannter Fehler";
    }
    else
    {
      $mime = trim($_mime[0]);
    }

    return $mime;
  }
}

#--------------------------------------------------------------------
function mime_mail($from,$recipient,$subject,$text,$_files=array())
{

  $_err = array();
  if (strlen($recipient)<4)   ## schöner Mail@check wäre besser
  {
    $_err[] = "Empfängerangabe fehlt";
    return $_err;
  }
    
  ## Empfänger-Zeilen umbrechen, damit sie nicth 76 Zeichen überschreiten
  ## Es könnten jetzt noch Semikolon oder Doppelkomma drinstehen...
  ## Sollte man noch korrigieren
  $recipient = str_replace(",", ",".CRLF, $recipient);


  ## Filearray umsortieren
  $_attach = convert_filearray($_files,$_err);
  
  if(count($_err) > 0) return $_err;
    
  $text = wordwrap($text,76,CRLF,1); ## Textumbruch nach maximal 76 Zeichen


  ## einen Boundary-Kern berechnen   
  $boundary = strtoupper(md5(uniqid(time())));

  $header="";
  
  if (strlen($from)>0)  ## keine leeren Header setzen, Mailclient stirbt!
  {
    $header .= "From: <$from>".CRLF; //kommt von Formular
  }  
  
  $header .= "MIME-Version: 1.0".CRLF;
  $header .= "Content-Type: multipart/mixed;".CRLF." boundary=\"$boundary\"".CRLF;

  ## nach den zwei Zeilenschaltungen beginnt der Mailbody

  $header .= "This is a multi-part message in MIME format".CRLF.
             "Dies ist eine mehrteilige Nachricht im MIME-Format".CRLF.CRLF;

  ### nach dieser Boundary beginnt der erste Mime-Teil

  $header .= "--$boundary".CRLF;
  $header .= "Content-Type: text/plain".CRLF;
  $header .= "Content-Transfer-Encoding: 8bit".CRLF.CRLF;

  # 20 nach wieder zwei Zeilenschaltungen beginnt der Body dieses
  # Abschnitts. Und das ist der Plain-Text.

  $header .= "$text".CRLF.CRLF;

  # Attachments anfügen
  
  if(is_array($_attach))
  {
    foreach($_attach as $_filedata)
    {
      if ($_filedata["size"] > 0)                  ## wurde das File-Feld benutzt?            
      { 
        ## An dieser Stelle könnte auch $_filedata['feldname'] geprüft
        ## werden, ob das Feld überhaupt genehmigtes Fileupload-Feld ist
        ## und $_filedata['type'], ob der MIME-Type der Datei angenehm ist.

        $fh = @fopen($_filedata["tmp_name"],"rb"); ## Temporärdatei öffnen
        if ($fh)                                   ## hats geklappt?
        {
          $file_content = @fread($fh,$_filedata["size"]);
          @fclose($fh);

          ## Codiertes Attachment aller 76 Zeichen umbrechen 
          $file_content = chunk_split(base64_encode($file_content),76,chr(10));  ## hier nur "\n" benutzen!
          $header .= "--$boundary".CRLF; 
          $header .= "Content-Type: ".$_filedata['type'].";".CRLF.
                     " name=\"".basename($_filedata["name"])."\"".CRLF;
          $header .= "Content-Transfer-Encoding: base64".CRLF;
          $header .= "Content-Disposition: attachment;".CRLF.
                     " filename=\"".basename($_filedata["name"])."\"".CRLF.CRLF;
          $header .= "$file_content".CRLF.CRLF;
        }
        else     ## wenn nicht, Fehlermeldung für das eine Attachment erzeugen
        {
          $_err[] = "Attachment File ".$_filedata["name"]." kann nicht übertragen werden";
        }
      }

    } ## end foreach()
  } ## end if isarray()
  

  ###Ende Vorbereitung
  $header .= "--$boundary--".CRLF;

  $ok = mail($recipient,$subject,"",$header);
  if ($ok)
  { 
    $_err[] = "Ok"; 
    $_err[] = "Nachricht wurde versandt...";
  }
  else
  {
  
    $_err[] = "Fehler";
    $_err[] = "Nachricht konnte nicht gesendet werden...";
  }


  ## nur zum Debug 
  
  # echo "<pre>";
  # echo htmlentities($header);
  # print_r($_FILES);
  # print_r($_attach);
  # echo "</pre>";
     
  return $_err;
  
} // end of mime_mail()

#--------------------------------------------------------------------
function strip($data)
{
  if (!get_magic_quotes_gpc())
  {
    return $data;
  }
  
  if (is_array($data))
  {
    foreach($data as $key => $val)
    {
      $data[$key] = strip($val); 
    }
  }
  else
  {
    $data = stripslashes($data);
  }  
  
  return $data;
}

###############################################################################
# Hauptprogramm
###############################################################################

$_err = array();

$_POST = strip($_POST);       ## rekursiv alle Magic Quotes entfernen

$from    = '';
$subject = '';
$to      = '';
$text    = '';

if (isset($_POST['absender']))   { $from    = trim($_POST['absender']); }
if (isset($_POST['subject']))    { $subject = trim($_POST['subject']); }  
if (isset($_POST['text']))       { $text    = $_POST['text']; }
if (isset($_POST['empfaenger'])) { $to      = trim($_POST['empfaenger']); }

if (isset($_POST['btn']['send']))
{ 
  if (isset($_POST['password']) and ($password == $_POST["password"]))
  {
    $_err = mime_mail($from,$to,$subject,$text,$_FILES);
 
    if ($_err[0]=="Ok")
    {
      ## Rücksetzen der Postvars
      $from = "";
      $subject = "";
      $to = "";
      $text = "";
    }
  }
  else
  {
    $_err[] = "Passwort ist falsch";
    $_err[] = "eMail wurde nicht versandt";
  }
} 

$errstr = '';
foreach ($_err as $meldung)
{  
  $errstr .= "<br />".htmlentities($meldung);
}


###############################################################################
# HTML-Ausgabe
###############################################################################
?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
     "http://www.w3.org/TR/html4/transitional.dtd">
<html>
<head>
  <title>Mime Mail Formmailer</title>
  <META NAME="Author" CONTENT="Thomas Schmieder, bitworks Braunschweig">
  <META NAME="Keywords" CONTENT="mime-mailer">
  <META NAME="Description" CONTENT="einfaches Mime-Mail-Programm zum 
              Versenden von Attachments">
</head>

<body>
  <?php  echo $errstr; ?>
    
  <form action="mime_mail.php" 
                method="post" 
                enctype="multipart/form-data">

  <table border="0">
    <tr>
      <td>Empfänger: </td>
      <td><input type="text" 
                 name="empfaenger" 
                 value="<?php echo $to; ?>"
                 size="60"></td>
    </tr>

    <tr>
      <td>Absender: </td>
      <td><input type="text" 
                 name="absender" 
                 value="<?php echo $from; ?>" 
                 size="60"></td>
    </tr>  
    
    <tr>
      <td>Betreff: </td>
      <td><input type="text" 
                 name="subject" 
                 value="<?php echo $subject; ?>"
                 size="60"></td>
    </tr>

    <tr>
      <td>Text: </td>
      <td><textarea name="text" rows="10" cols="64" 
                    WRAP="VIRTUAL"><?php echo $text; ?></TEXTAREA></td>
    </tr>
  
    <!-- Das Upload-Feld kann beliebig heißen. Es können beliebig
         viele Upload-Felder eingebaut werden. Die Anzahl ist nur durch
         den Max-Upload-Parameter in der php.ini begrenzt -->
    
    <tr>
      <td>Attachment: </td>
      <td><input type="file" name="attach[]" size="50"></td>
    </tr>
    
    <tr>
      <td>Attachment: </td>
      <td><input type="file" name="attach[]" size="50"></td>
    </tr>

    <tr>
      <td>Attachment: </td>
      <td><input type="file" name="attach[]" size="50"></td>
    </tr>

    
    <tr>
      <td>Passwort: </td>
      <td><input type="password" name="password" size="16">
          <input type="submit" value="versenden" name="btn[send]">
          <input type="reset" value="r&uuml;cksetzen"></td>
    </tr>  
  </table>
  
  </form>
</body>
</html>