Formmailer und gleichzeitig Datei-Upload

[cr]

Hallo, ich möchte in einen bestehenden Formmailer (siehe text unten der cgi) ein feld für den datei upload einfügen. dies habe ich auch  im html code gemacht, aber leider versendet er die datei nicht, sondern nur das ziel als namen (z.b. C:/datei.txt)

Da ich mich mit perl noch nicht so gut auskenne die frage an euch, was muss ich hier einfügen, damit es klappt?

danke und gruß

cr

#!"\bin\perl.exe"

--> SMTP-Programm zum Versenden der Mail:

$Sendmail_Prog = "../lib/sendmail.exe";

--> Ziel-Mailadresse, an die gesendet werden soll:

$mailto = "[e-mail]";

-------> Modul für CGI-Scripts einbinden:

use CGI;

-------> Modul für CGI-Scripts zum Einlesen der Formulardaten anwenden:

$query = new CGI;
@names = $query->param;

-------> interne Daten aus den erwarteten hidden-Feldern auslesen:

$delimiter = $query->param('delimiter');  # ---> Begrenzerzeichen zwischen name und value
$returnhtml = $query->param('return');    # ---> URL für Dankeseite
$subject = $query->param('subject');      # ---> E-Mail-Subject

-------> alle Whitespace-Zeichen (Leerzeichen, Tabulator, Newline) in Leerzeichen wandeln

#             VERHINDERT sonst möglichen MISSBRAUCH des Skripts
$subject =~ s/\s/ /g;

-------> Text der E-Mail aus den Formulardaten ermitteln:

$mailtext = "";
foreach(@names) {
  $name = $_;
  @values = "";
  @values = $query->param($name);
  if($name ne "return" && $name ne "subject" && $name ne "delimiter") {
    foreach $value (@values) {
      $mailtext = $mailtext.$name;
      $mailtext = $mailtext.$delimiter;
      $mailtext = $mailtext.$value."\n";
    }
  }
}

-------> E-Mail versenden:

open(MAIL,"|$Sendmail_Prog -t") || print STDERR "Mailprogramm konnte nicht gestartet werden\n";
print MAIL "To: $mailto\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$mailtext\n";
close(MAIL);

-------> Dankeseite an Browser senden:

print "Location: $returnhtml\n\n";

[Siechfred]

Hell-O!

Hallo, ich möchte in einen bestehenden Formmailer (siehe text unten der cgi) ein feld für den datei upload einfügen. dies habe ich auch  im html code gemacht, aber leider versendet er die datei nicht, sondern nur das ziel als namen (z.b. C:/datei.txt)

Was möchtest du denn nun genau? Möchtest du die Datei einfach nur hochladen oder sie auch zusätzlich noch als Anhang einer E-Mail versenden?

Ansonsten hier schon mal zwei Links:
Feature-Artikel: Fileupload per Perl/CGI
How to send email attachments using Perl

Siechfred