Mail nichtblockierend (für das Skript) versenden (Allgemeines zu Perl) - Perl-Community.de

Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl

2025-04-05 13:54:58
Europe/Berlin
Einloggen (Registrieren)
- Einstellungen
- Statistics
Jemand zu Hause?
0 Benutzer online
5 Gäste

[thread]14607[/thread]

submit to reddit

Mail nichtblockierend (für das Skript) versenden

Leser: 24

Articles: hide open all | hide show old branches

+27 replies
GwenDragon

2010-02-07 18:12
User since
2005-01-17
14830 Artikel
Admin1
Ein Mail soll lokal per pipe und sendmail von einem Skript versandt werden.
Wie das geht ist ja bekannt. ;)

Ansonsten mal für die Anfänger kurz angerissen:
Code (perl): (dl )

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

my $mailfh; if ( open($mailfh, '| /usr/sbin/sendmail -t -oi ') ) { print $mailfh 'From: test@example.org', "\n", 'To: admin@example.org', "\n", 'Subject: ERROR in blah blah', "\n", "\n", 'Error occured in ThisOrThat', "\n", "" . localtime(time), "\n", '.'; close($mailfh) or warn ("Mail not sent by sendmail: $!"); } else { warn ("pipe to sendmail cannot be opened: $!"); }
Ja, es gibt Module für den Mailversand. Auch bekannt. ;)

Falls im Server ein Fehler auftritt, wird dass durch ein Skript eine Fehlerseite angezeigt und gleichzeitig per sendmail eine Mail an den Admin versandt.

Derzeit habe ich das Problem, dass beim Senden per pipe an sendmail das Skript solange anhält, bis das Mail versendet wurde.
Ein profiling per nytprof ergab, dass ein Schließn der Pipe, also das close($mailfh) manchmal elend lange dauert.
Da kann es passieren, dass nach ½ oder 3 oder 15 Sekunden das Mail erst weggeht. Das liegt wohl am Spamfilter, der leider auch lokale Absender scannt, und was derzeit nicht änderbar ist.

Welche Möglichkeit gibt es, für ein CGI-Skript, sozusagen asynchron an sendmail zu senden, sodass das Skript nicht blockiert.

Meine Idee war, die Mails erstmal in ein Verzeichnis eigene Warteschlange zu speichern und dann per Cron mit einem externen Skript diese zu an sendmail versenden.

Wie könnte ich die Mails noch mit dem Skript versenden ohne Blockierung?

Ich bin für Tipps dankbar.

/EDIT: Code
Last edited: 2010-02-07 18:14:09 +0100 (CET)
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- topeg
  
  2010-02-07 18:28
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  "fork" das Script:
  
  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
  
  $SIG{CHLD}='IGNORE'; #... unless(fork()) { SIG{CHILD}='DEFAULT'; close(STDIN); close(STOUT); close(STERR); open(my $mailfh, '| /usr/sbin/sendmail -t -oi ') or exit(); print $mailfh 'From: test@example.org', "\n", 'To: admin@example.org', "\n", 'Subject: ERROR in blah blah', "\n", "\n", 'Error occured in ThisOrThat', "\n", "" . localtime(time), "\n", '.'; close($mailfh); exit(); }
  
  EDIT: Das nötige Signalhandling hinzugefügt, damit es auch funktioniert.
  Last edited: 2010-02-09 20:52:09 +0100 (CET)
  - GwenDragon
    
    2010-02-07 18:44
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Ja, forken wäre eine Möglichkeit – mal sehen, ob das die Umgebung bei Belastung zulässt.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +2 replies
  - GwenDragon
    
    2010-02-08 15:45
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Ich werde erst mal forken, es handelt sich ja nur um ein Fehlerskript, das nur „herumjammert“ und per Mail meldet, wenn was unübliches abläuft.
    
    Mal sehen wie es den Server belastet.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - GwenDragon
      
      2010-02-09 20:10
      
      User since
      2005-01-17
      14830 Artikel
      Admin1
      
      Mit topegs Hilfe konnte das Problem des der Fehlermeldung von close beim Forken gelöst werden.
      Danke.
      
      Damit wäre meine Threadstart-Frage erstmal gelöst.
      
      Aber wenn noch jemand Ideen hat, nur her damit. Ich brauche sie derzeit nicht, aber ich bin sicher irgendwann kommt jemand und fragt ähnliches. ;)
      
      Danke für eure Unterstützung. :)
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +7 replies
- murphy
  
  2010-02-07 18:28
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  Im Zweifelsfall kannst Du natürlich forken und sendmail in einem Kindprozess ausführen, vielleicht hilft es aber auch, sendmail die richtigen Kommandozeilenargumente mitzugeben — zum Beispiel -ODeliveryMode=q, was bedeutet, dass die Nachricht nur in die Warteschlange eingereiht und bei nächster Gelegenheit versendet werden soll.
  When C++ is your hammer, every problem looks like your thumb.
  - +5 replies
  - GwenDragon
    
    2010-02-07 18:56
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Ist leider kein reinrassiges sendmail wie ich gerade sehen musste sondern qmail. Und das kennt weder -q noch --ODeliveryMode=q.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +4 replies
    - bianca
      
      2010-02-07 19:03
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      Dann würde ich per Pipe qmail-inject direkt ansprechen
      Das stellt alles in die Queue.
      Glaub ich zumindest, war mal so. Ob das heute noch so ist, weiß ich nicht genau. Bin manchmal etwas veraltet ;)
      Last edited: 2010-02-07 19:04:30 +0100 (CET)
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - GwenDragon
        
        2010-02-07 20:20
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Das wäre nicht portabel, qmail-inject zu verwenden, schon wegen der diversen sendmail switches.
        
        Ich werde morgen weiter sehen müssen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        bianca
        
        2010-02-07 20:26
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        2010-02-07T19:20:51 GwenDragon
        Das wäre nicht portabel
        
        Warum nicht? Man kann doch den kompletten Aufruf für open() in eine übergreifende Var packen?!
        Verstehe ich nicht das Argument.
        10 print "Hallo"
        20 goto 10
        
        GwenDragon
        
        2010-02-08 12:06
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Es ist in dem Projekt, das ich bearbeiten soll, nicht portabel. Das ist eine interne Entscheidung.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - GwenDragon
    
    2010-02-08 12:07
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Leider ist es auch nicht möglich, das Original-sendmail zu installieren wie ich heute erfuhr.
    
    Da bleibt nur noch das forken.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +4 replies
- bianca
  
  2010-02-07 18:34
  
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  
  In diesem Zusammenhang hab ich mal irgendwann irgendwo von einem Schalter -odq für sendmail gelesen.
  Mal damit probiert?
  Hab jetzt nicht nachgelesen, was es damit auf sich hat.
  10 print "Hallo"
  20 goto 10
  - +2 replies
  - murphy
    
    2010-02-07 18:45
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Die von bianca vorgeschlagene Kommandozeilenoption ist eine äquivalente Schreibweise der von mir vorgeschlagenen.
    When C++ is your hammer, every problem looks like your thumb.
    - bianca
      
      2010-02-07 18:47
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2010-02-07T17:45:18 murphy
      Die von bianca vorgeschlagene Kommandozeilenoption ist eine äquivalente Schreibweise der von mir vorgeschlagenen.
      
      Hatte ich mir auch schon fast gedacht und hätte es auch entsprechend erwähnt. Aber ich hab bei geöffnetem Antwortfenster solang rumgesucht und als ich gepostet hab, war Dein Beitrag auch schon da :))
      10 print "Hallo"
      20 goto 10
  - GwenDragon
    
    2010-02-07 20:06
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Das sendmail gibt sich nur so aus.
    
    qmails sendmail kann -odq antweder nicht oder es erzeugt nicht das was bei
    -ODeliveryMode=q stattfindet.
    
    Die QMail-Doku ist auch sowas von übelst mager. Eine manpage für sendmail existiert nicht.
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- GwenDragon
  
  2010-02-07 20:21
  
  User since
  2005-01-17
  14830 Artikel
  Admin1
  
  Danke erstmal für die Tipps.
  
  Aus Zeitmangel werde ich morgen erst mal weiter machen und eure Tipps tiefergehend testen können.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- +8 replies
- betterworld
  
  2010-02-08 12:38
  
  User since
  2003-08-21
  2614 Artikel
  ModeratorIn
  
  2010-02-07T17:12:09 GwenDragon
  Meine Idee war, die Mails erstmal in ein Verzeichnis eigene Warteschlange zu speichern und dann per Cron mit einem externen Skript diese zu an sendmail versenden.
  
  Was spricht denn eigentlich gegen diese Lösung?
  
  Ich würde dabei nur aufpassen, dass keine Dateien verschickt werden, die noch geschrieben werden. Dazu koennte man erst in "tmp.mail123" schreiben und die Datei umbenennen, sobald sie fertig ist, und den Cronjob dann "mail*" wegschicken lassen.
  
  Letztendlich machen Programme wie qmail-queue (wird von qmail-inject aufgerufen, welches von der sendmail-Emulation aufgerufen wird) ja genau dies. Der Delay kommt vermutlich dadurch zustande, dass danach noch auf eine Rueckmeldung vom Daemon gewartet wird. Wenn Du das einigermaßen portabel vermeiden willst, kannst Du Dir eben einen eigenen Maildrop bauen.
  
  Abgesehen davon, dass es durch die Verteiltheit des Codes etwas Aufwand bereitet, finde ich das eigentlich die eleganteste Lösung, weil es möglichst wenig tut, während es in der feindseligen Umgebung des Webservers läuft.
  Lieblingsmodule: IPC::System::Simple, Path::Class
  - +7 replies
  - GwenDragon
    
    2010-02-08 15:49
    
    User since
    2005-01-17
    14830 Artikel
    Admin1
    
    Gegen das Versenden per cron spricht nichts, ich würde es so machen.
    Die Entscheidung ging aber an fork, weil »(…) da die Programmierer nichts weiter machen müssen«.
    Dass ein externes cron-Skript entlastet, war bestimmten Leuten nicht dauerhaft vermittelbar.
    Mir kann es recht sein. Im Zweifelsfall wird halt eben der Server aufgestockt, wenn er zu schwach ist. ;)
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +6 replies
    - Escape
      
      2010-02-09 23:03
      
      User since
      2008-07-24
      312 Artikel
      BenutzerIn
      
      2010-02-08T14:49:25 GwenDragon
      Gegen das Versenden per cron spricht nichts, ich würde es so machen.
      Die Entscheidung ging aber an fork, weil »(…) da die Programmierer nichts weiter machen müssen«.
      
      In beiden Fällen endet es irgendwann böse, wenn via Server-Config, die Ausführungszeit eines (jeden) Scripts begrenzt ist.
      Je nach Anzahl der eMail Adressen, können die Kosten für den Versand recht hoch werden.
      Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
      - +5 replies
      - GwenDragon
        
        2010-02-10 09:44
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        @Escape
        Ja, dein Hinweis in Bezug auf die Ausführungszeit ist sinnvoll.
        Es ist zu berücksichtigen, dass je nach Hoster bzw. und Webserver ein Skript nur eine bestimmte Lebensdauer hat.
        
        In meinem Fall trifft das nicht zu, der fork/das cron ist nur Bestandteil eines Skripts, welches die diversen Fehlercodes des Servers behandelt und per Mail eine Meldung versendet.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +4 replies
        
        Escape
        
        2010-02-10 15:46
        
        User since
        2008-07-24
        312 Artikel
        BenutzerIn
        
        @GwenDragon
        Eine Frage als Nebenkriegsschauplatz ;-)
        Hälst Du (wie und wo auch immer) fest, welche eMail-Adressen abgearbeitet und an welche eMail-Adressen erfolgreich versendet wurde?
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        +3 replies
        
        GwenDragon
        
        2010-02-10 15:54
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Hmm, du meinst, die Überprüfung, ob erfolgreich an sendmail weiter gereicht?
        Dann ja, siehe oben, es wird ja eine Warnung ins Logfile geschrieben.
        
        Wenn du meinst, ob das Mail wirklich weg ist, Nein.
        Ich kann ja nur prüfen, ob es an den MTA weiter gereicht wurde. Die Mailqueue des Mailservers kann ich ja nicht abfragen.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        Escape
        
        2010-02-10 16:10
        
        User since
        2008-07-24
        312 Artikel
        BenutzerIn
        
        2010-02-10T14:54:25 GwenDragon
        Hmm, du meinst, die Überprüfung, ob erfolgreich an sendmail weiter gereicht?
        Dann ja, siehe oben, es wird ja eine Warnung ins Logfile geschrieben.
        
        Joo - hab ich gelesen (auch den Part mit der eMail an den Admin).
        Ein Eintrag in eine gesonderte Log-Datei (z.B. eMail-Adresse, Datum des Fehlschlags und Link auf die Datei die gesendet werden sollte) bringt aber m.E. mehr Übersicht und schafft die Möglichkeit, die fehlgeschlagenen Übertragungen zu wiederholen.
        Die Deutsche Rechtschreibung ist Freeware; Du darfst sie kostenlos nutzen – aber sie ist nicht Open Source, d.h. Du darfst sie nicht verändern und/oder in veränderter Form veröffentlichen.
        
        GwenDragon
        
        2010-02-10 16:50
        
        User since
        2005-01-17
        14830 Artikel
        Admin1
        
        Ja, dann müsste ich wieder diese fehlgeschlagenen Mails asynchron spoolen.
        Also doch wieder cron oder geforkter Dämon, der das Spoolen übernimmt.
        
        Wird beim nächsten Todo eingeplant.
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
- murphy
  
  2010-02-08 15:46
  
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  
  2010-02-07T17:12:09 GwenDragon
  [...]
  Meine Idee war, die Mails erstmal in ein Verzeichnis eigene Warteschlange zu speichern und dann per Cron mit einem externen Skript diese zu an sendmail versenden.
  [...]
  
  Eine Variante dieser Lösung wäre es auch noch, die Warteschlange nicht per Cronjob sondern durch einen Daemon abarbeiten zu lassen, der das Maildropverzeichnis zum Beispiel mittels File::ChangeNotify überwacht.
  
  Man könnte es sogar so einrichten, dass das CGI-Skript einen solchen Dämon automatisch forkt, sofern er noch nicht läuft.
  
  Ob das allerdings besser oder schlechter als die Verwendung von Cron ist, hängt wohl vom Geschmack der Programmiererin ab :-)
  When C++ is your hammer, every problem looks like your thumb.
- esskar
  
  2010-02-11 14:08
  
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  
  find ja fork bei CGI irgendwie unheimlich.
  auch wenn ich genaue ahnung davon hab, bekäme ich bauchweh.
  ich würde das ganze auslagern ...
  * mail in ordner packen und mit cron oder eigenem daemon (der das verzeichnis überwacht) abschicken
  * könntest auch nen kleinen smtp local installieren, der nur local hört und nur local annimmt, und dann smtp machen.
  
  edit: hatte den beitrag von murphy grad erst gelesen.

View all threads created 2010-02-07 18:12.