MIME::Parser => Umlaute bei Anhängen (Fragen zu Perl-Modulen)

[thread]20209[/thread]

MIME::Parser => Umlaute bei Anhängen

Tags: perl5 Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+9 replies
Gast derChristian

2016-12-27 18:28

Hallo zusammen,
ich bin neu hier, darum kurz eine paar Worte zu mir.
Ich bin IT Systemadmin und arbeite seit mehreren Jahren im Bereich IT Infrastruktur.
Perl nutze ich auch bereits seit längerer Zeit, jedoch würde ich mich lange noch nicht als Experten bezeichnen.
Nun zu meinem Problem:
Ich leite mit Postfix eingehende Mails an ein Perlscript weiter und möchte von den Mails einfach nur die Anhänge zur weitere Bearbeitung auf die Platte speichern.
Dazu nutze ich das Modul MIME::Parser - Das funktioniert soweit alles prime.
Lediglich wenn der Anhang Umlaute im Dateinamen hat, bekomme ich ein Problem, weil der Anhang dann nur ASCII Zeichen enthält (was ja auch erstmal korrekt ist, denn E-Mails werden ja 7-BIT Kodiert transportiert)
Wie Schaffe ich es nun aber, den Anhang dennoch als z.B. günter.zip zu speichern?
Ich hoffe ich habe mich "verständlich" ausgedrückt und ich hoffe irgendjemand kann mir helfen :-)
Allen noch einen schönen Abend und Grüße
Christian
Last edited: 2016-12-27 18:31:26 +0100 (CET)
- +2 replies
- Linuxer
  
  2016-12-27 20:55
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Hallo und Willkommen,
  
  leider zeigst Du keinen Code, auf dem man eine Beratung aufbauen könnte. Daher hier nur ein paar wild geratene Hinweise. Vorab dazu: ich habe keine Erfahrungen mit dem Modul.
  
  Laut MIME::Parser wird ja für die Dateiausgabe das Modul MIME::Parser::Filer verwendet.
  In der dortigen Perldoc gibt es Hinweise auf eine Methode evil_filename() zusammen mit dem Hinweis, was bei Dateinamen in nicht-ASCII-Zeichensätzen zu tun ist.
  
  Zusätzlich stellt sich die Frage, ob das Dateisystem das entsprechende Encoding unterstützt.
  Und wenn es korrekt im Dateisystem kodiert ist, hängt es noch von den Terminaleinstellungen ab, ob die Namen dann korrekt wiedergegeben werden können.
  
  Vielleicht meldet sich noch eine/r mit tiefergehenden Kenntnissen und Erfahrungen mit diesem Modul.
  
  Neben der Angabe des relevanten Codes wäre es auch hilfreich, wenn Du verraten würdest, wie beispielsweise eine günter.zip bei Dir abgespeichert wird. Oder ob sie gar nicht gespeichert wird.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - derChristian
    
    2016-12-28 09:22
    User since
    2016-12-27
    2 Artikel
    BenutzerIn
    
    OK, vielen Dank, ich suche mal weiter in die Richtung mit dem Filer()
    
    Code gibt es eigentlich noch keinen.
    Ich habe folgenden Code aus der Doku:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13
    
    #!/usr/bin/perl -w use MIME::Parser; use strict; use utf8; ########################################### ### Mail parsen ### ########################################### # Create a new MIME parser: my $parser = new MIME::Parser; # Create and set the output directory: $parser->output_dir("/tmp/workdir"); # Read the MIME message: my $entity = $parser->read(\*STDIN) or die "couldn't parse MIME stream";
    
    Damit wird die Mail in Ihre Bestandteile zerlegt und auf der Platte gespeichert.
    Es ist ein Linux System und prinzipiell kann man Dateien mit Umlauten speichern.
    Last edited: 2016-12-28 10:46:15 +0100 (CET)
- GwenDragon
  
  2016-12-27 21:07
  
  User since
  2005-01-17
  14748 Artikel
  Admin1
  
  Wenn dein Dateiname im als Quoted-printable-o.ä.kodiert in Windows-1252 kodiert ist, werden die Umlaute in MIME::Parser::Filer ans unsicher angesehen.
  Schau hier:
  https://metacpan.org/source/DSKOLL/MIME-tools-5.50...
  https://metacpan.org/source/DSKOLL/MIME-tools-5.50...
  
  Deswegen hat wird ein Anhang namens günter.zip dann auch g%FCnter.zip.
  
  Du musst laut https://metacpan.org/pod/MIME::Parser::Filer#evil_... deinen eigene Subroutine schreiben, die prüft welche Zeichen für Dateinamen ok sind.
  Last edited: 2016-12-27 21:25:42 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- GwenDragon
  
  2016-12-28 11:02
  User since
  2005-01-17
  14748 Artikel
  Admin1
  Sollte den Anhang äöüß€.txt extrahieren.
  Klappt das bei dir?
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
  
  #!/usr/bin/perl use strict; use warnings; BEGIN { # find own workdir; only for test! use FindBin qw<$Bin>; } use MIME::Parser; my $parser = new MIME::Parser; $parser->output_dir("$Bin"); $parser->decode_headers(1); my $entity = $parser->read(\*DATA) or die "couldn't parse MIME stream"; __DATA__ Date: Wed, 28 Dec 2016 10:53:45 +0100 From: GwenDragon <spam@gwendragon.de> Message-ID: <1756562639.20161228105345@gwendragon.de> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="----------04D1960FE3E3E8716" ------------04D1960FE3E3E8716 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit TEST ------------04D1960FE3E3E8716 Content-Type: text/plain; name="=?windows-1252?Q?=E4=F6=FC=DF=80=2Etxt?=" Content-transfer-encoding: base64 Content-Disposition: attachment; filename="=?windows-1252?Q?=E4=F6=FC=DF=80=2Etxt?=" xNbc34A= ------------04D1960FE3E3E8716--
  
  Last edited: 2016-12-28 11:03:45 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - derChristian
    
    2016-12-28 13:29
    
    User since
    2016-12-27
    2 Artikel
    BenutzerIn
    
    Mit diesem Parameter hatte ich auch schon experimentiert.
    In meiner Testmail heißt der Anhang "öffentliche Zertifikate SWR.ZIP"
    Hier das Ergebnis:
    $parser->decode_headers(1);# was laut Doku nicht empfohlen wird
    Filename = xB6ffentliche Zertifikate SWR.ZIP
    
    $parser->decode_headers(0);# was der default ist
    %F6ffentliche Ze.ZIP
    
    Klappt also nicht . . . .
    Falls es dafür keine Lösung gibt, dann schraube ich mir einen Workaround zusammen.
    Vielen Dank!
    - GwenDragon
      
      2016-12-28 15:47
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Der Workaround ist ja in MIME::Parser => Umlaute bei Anhängen genannt.
      Eine eigene Routine evil_filename für Filer
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2017-01-04 09:39
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Wenn du magst, dass andere Fragende deine Lösung kennen lernen können, bitte poste sie hier.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- rosti
  
  2016-12-28 14:33
  
  User since
  2011-03-19
  3473 Artikel
  BenutzerIn
  
  Wie hier schon geschrieben wurde: Ein Dateiname muss zum Dateisystem passen, was in diesem Fall für den in der Mail vorgegebenen Dateinamen nicht immer zutreffend ist. Von daher würde ich im eigenen FS auch die Dateinamen selbst vergeben und die Anhänge einfach nur mit fortlaufenden Nummern abspeichern.
  
  Alle anderen Informationen würde ich in einem Index persistent machen. Also Content-Type der Anlagen, Original-Dateinamen der Anlagen, Subject, From, To, BCC, CC, Datum usw. Es wäre zu überlegen ob eine solche Repository DB-gestützt aufgesetzt wird und ob die Binaries der Anlagen in Blobfeldern gespeichert werden können.
  
  Als DB-Lösung würde ich eine Index-Tabelle und eine Detail-Tabelle vorhalten. Letztere speichert die Blobs oder einfach nur die Original-Maildatei.
  
  MfG

View all threads created 2016-12-27 18:28.