Hi, On Wed, Jun 28 2000 at 11:26 +0200, Heiner Lamprecht wrote:
Ich will ja nicht mecker, aber kann mir mal jemand erklären, wie diese Subject-Zeile zustandekommt???
Für den Fall, dass es nicht bei allen gleich ankommt: So sieht es bei mir (Netscape 4.5?) aus:
=?X-UNKNOWN?Q?Re=3A_OT=3A_Was_ist_'dag=B0'=2C_war_'RE=3A_da?= =?X-UNKNOWN?Q?teinamen_unter_vfat=2E=2E=2E'?=
Kann man das irgendwie automatisch reparieren???
Anbei ein kleines Perl-Skript, das ich verwende, um Subject-Tags wie z. B. [suse-security] zu entfernen. Ein kleiner Nebeneffekt ist, dass es auch Subject-Zeilen wie die obige decodiert. Es muss einfach von procmail/maildrop aus aufgerufen werden und erwartet eine Mail (Header und Body) auf stdin und gibt das Ergebnis auf stdout aus. ---------------------------------------------------------------------> #!/usr/bin/perl -w use strict; (my $me = $0) =~ s#.*/##; eval "use MIME::Head; use Text::Wrap"; if ($@) { print STDERR "$me: perl modules missing, couldn't filter anything\n"; print while <STDIN>; exit 0; } my @tags = ( '[suse-linux]', '[suse linux]', '[sle]', '{sle}', '[suse-linux-e]', '[suse-security]', '[suse security]', '[suse-announce]', '[suse-announce-e]', '[suse-security-announce]', '[suse-oracle]', '[suse-isdn]', '[suse-talk]', 'fvwm:', '[leafnode-list]', '[all-linux]', '[linux-schulsoftware]', '[pingos]', ); my $head = MIME::Head->read(\*STDIN); if ($head->count('Subject')) { $head->decode('Subject'); my $subject = $head->get('Subject', -1); $subject =~ s/[ \t]*\n[ \t]*/ /g; foreach (@tags) { $subject =~ s/ ?\Q$_\E ?/ /gi; } $subject = wrap(" ", " ", $subject); $subject =~ s/^ //; $head->replace('Subject', $subject); } $head->print(\*STDOUT); print "\n"; print while <STDIN>; exit 0; <--------------------------------------------------------------------- Ciao, Stefan --------------------------------------------------------------------- To unsubscribe, e-mail: suse-linux-unsubscribe@suse.com For additional commands, e-mail: suse-linux-help@suse.com