![](https://seccdn.libravatar.org/avatar/3315311bb8e9e2e94780da1ac1b7f51d.jpg?s=120&d=mm&r=g)
6 Jan
2002
6 Jan
'02
21:56
* Thorsten Haude wrote on 06 Jan 2002: > Moin, > > * Thomas Preissler[02-01-06 22:15]: > >Neben diversen anderen netten Kleinigkeiten wie Mail-Subject > >umschreiben oder anderes wie "X-Warned: HTML" möchte ich eine > >Möglichkeit wissen, ob und wie ich einen Filter in meiner procmailrc > >einfügen kann, der mich warnt, dass eine Mail nicht richtig > >formatiert ist, also die Zeilen zu lang sind. > > > >Wie mache ich das am klügsten? > > > >Vielleicht hat ja einer so was schon am laufen und ist vielleicht so > >nett, mir es auch zu verraten... > Ich muß zum Glück kein Procmail benutzen, aber vielleicht kannst Du ja > was damit anfangen: > - - - Schnipp - - - > my $maxLength = 0; > foreach my $line (@$body) > { > ($maxLength > length($line)) or ($maxLength = length($line)); > } > if ($maxLength > 80) > { > $mail->put_header("X-LineTooLong", $maxLength); > } > - - - Schnapp - - - Wow, kann ich. Danke Thomas