Mail::Sender - Umlaute und Kopfzeilen (gelöst) (Fragen zu Perl-Modulen)

[thread]18144[/thread]

Mail::Sender - Umlaute und Kopfzeilen [gelöst]

Tags: perl5 mail Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+6 replies
MarkusH

2013-02-14 17:20
User since
2012-04-08
161 Artikel
BenutzerIn
Hallo,

habe mich heute den ganzen Tag mit dem Modul Mail::Sender beschäftigt.
Zwei Probleme mit dem Modul habe ich aber nicht lösen können.
1. Wie kann ich in der Betreffzeile Umlaute darstellen?
2. Wie kann ich X-Mailer aus den Kopfzeilen ersetzen? Also die Zeilen 3-6 sollen durch die Zeile 8 ersetzt werden.
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11

Subject: Neue Dateien fXXr Siemens PLM-Produkte verfXXgbar Date: Thu, 14 Feb 2013 16:31:16 +0100 X-Mailer: Perl script "SPLMget.pl" using Mail::Sender 0.8.21 by Jenda Krynicky, Czechlands running on C2EF3081 (192.168.116.131) under account "Administrator" Message-ID: <20130214_153116_074105.Absender> X-Mailer: SPLMget MIME-Version: 1.0 Content-Type: text/html; charset="UTF-8" Content-Transfer-Encoding: quoted-printable
$q =~ /(bb|[^b]{2})/
- bianca
  
  2013-02-14 17:37
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  Erinnert mich an Zeichensatz bei MIME::Lite
  Hängt da irgendwo MIME::Lite mit drin?
  10 print "Hallo"
  20 goto 10
- +4 replies
- GwenDragon
  
  2013-02-14 17:56
  User since
  2005-01-17
  14746 Artikel
  Admin1
  X-Mailer:
  
  Code (perl): (dl )
  
  1 2
  
  $Mail::Sender::NO_X_MAILER = 1; $Mail::Sender::SITE_HEADERS = 'Blah Mailer/0.8.15';
  
  Was die Umlaute anbelangt:
  
  Code (perl): (dl )
  
  1 2 3 4
  
  use MIME::QuotedPrint qw(encode_qp); use Encode qw(encode); $subject = encode_qp(encode("UTF-8", $subject));
  
  Last edited: 2013-02-14 18:05:33 +0100 (CET)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +3 replies
  - MarkusH
    
    2013-02-15 12:51
    User since
    2012-04-08
    161 Artikel
    BenutzerIn
    
    2013-02-14T16:56:53 GwenDragon
    X-Mailer:
    
    Code (perl): (dl )
    
    1 2
    
    $Mail::Sender::NO_X_MAILER = 1; $Mail::Sender::SITE_HEADERS = 'Blah Mailer/0.8.15';
    
    Ich hab die Doku mehrmals nach "X-Mailer" durchsucht, bin aber offenbar immer an der Variable vorbeigesprungen. Danke!
    
    2013-02-14T16:56:53 GwenDragon
    Was die Umlaute anbelangt:
    
    Code (perl): (dl )
    
    1 2 3 4
    
    use MIME::QuotedPrint qw(encode_qp); use Encode qw(encode); $subject = encode_qp(encode("UTF-8", $subject));
    
    Für die Zeichenfolge "Neue Dateien für PLM-Produkte verfügbar" enthält
    
    Code (perl): (dl )
    
    $subject = "Neue Dateien f=C3=83=C2=BCrPLM-Produkte verf=C3=83=C2=BCgbar="
    
    Eine richtige Anzeige erhalte ich aber nur mit
    
    Code (perl): (dl )
    
    $subject = "=?utf-8?Q?Neue Dateien f=C3=BCr PLM-Produkte verf=C3=BCgbar?="
    
    Da sich der Betreff nicht ändert, habe ich das jetzt so eingebaut.
    $q =~ /(bb|[^b]{2})/
    - +2 replies
    - GwenDragon
      
      2013-02-15 13:04
      
      User since
      2005-01-17
      14746 Artikel
      Admin1
      
      Ja, du hast recht, als MIME-header ist das zu wenig, wenn das encoding fehlt.
      
      Mit Encode geht das so:
      
      Code (perl): (dl )
      
      $subject = Encode::encode("MIME-B",$subject);
      
      Für MIME-Header gibt es da auch Encode::MIME::Header.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - MarkusH
        
        2013-02-15 13:37
        
        User since
        2012-04-08
        161 Artikel
        BenutzerIn
        
        2013-02-15T12:04:14 GwenDragon
        Ja, du hast recht, als MIME-header ist das zu wenig, wenn das encoding fehlt.
        
        Mit Encode geht das so:
        
        Code (perl): (dl )
        
        $subject = Encode::encode("MIME-B",$subject);
        
        Code (perl): (dl )
        
        $subject = Encode::encode("MIME-Q",$subject);
        
        habe ich jetzt mal versucht. das ü wird hier auch mit =C3=83=C2=BC übersetzt, was zu einer falschen Anzeige führt. =C3=BC ist richtig
        
        Edit: Es liegt an der Dateicodierung.
        
        Code (perl): (dl )
        
        $subject = Encode::encode("MIME-Q", Encode::decode_utf8($subject));
        
        Last edited: 2013-02-15 13:49:34 +0100 (CET)
        $q =~ /(bb|[^b]{2})/

View all threads created 2013-02-14 17:20.