2010-12-20T13:49:07 topeg

Warum ließt du 60*57 (3420) Byte aus der Datei? Das finde ich seltsam.

Um ehrlich zu sein, ich habe keine Ahnung. Habe es aus einem Perl-Tutorial. War sicherlich nicht für meine Anwendungszwecke gedacht, aber irgenwie funktioniert es :-)

2010-12-20T13:49:07 topeg

Weiterhin prüfe ob "$tempdir" sinnvoll gesetzt ist. Z.B. so:

Code (perl): (dl )

1
2
3
4
5
6
7
8
9
10
11
12
13
14

### HTML-Datei öffnen, lesen, Inhalt in die Email schreiben und schließen
{
  # Drei Parameter "$tempdir" könnte auch "> /tmp" sein
  # und "$htmlfile" eine wichtige Datei ("../irgendwo/hin.datei.conf").
  open(my $fh, '<', "$tempdir/$htmlfile") or die "Can't open data: '$htmlfile'!\n$!";
  binmode($fh); # keine Zeichenumwandlung
  local $/=undef; # keine Zeilentrenner
  $msg->attach(
        Type     =>'text/html',
        Data     =><$fh>,
    );

  close($fh);
}

Das prüft ob das Verzeichnis existiert. man kann auch noch weitergehend testen.

Habe ich übernommen. Danke Dir.
Last edited: 2010-12-20 15:16:27 +0100 (CET)