CGI, Mail::Mailer und print (gelöst) (Perl/CGI)

[thread]15300[/thread]

CGI, Mail::Mailer und print [gelöst]

Leser: 16

Articles: hide open all | hide show old branches

+7 replies
conray

2010-07-20 14:25
User since
2010-02-19
52 Artikel
BenutzerIn
Hallo liebe Community,
Ich habe hier ein Problemchen wo ich nicht weiter komme.
Ich möchte ein Perlscript schreiben welches HTML-Templates aufruft, auswertet und dann das ergebnis per Mail mit Mail::Mailer verschickt.

Laut CPAN-Beschreibung von Mail::Mailer sieht der Code zum verschicken so aus
Code (perl): (dl )

1 2 3

$mailer->open(\%headers); print $mailer $body; $mailer->close
Nun verschluckt CGI jedoch alle print Befehle und gibt sie im Browser aus. auch den der für den Mailbody bestimmt ist und die Mail bleibt leer :(

Wie kann ich CGI dazu bringen diesen einen print Befehl zu ignorieren??

mfg
conray
- +6 replies
- Linuxer
  
  2010-07-20 14:56
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Ich glaube kaum, dass hier CGI die Schuld zu geben ist...
  
  Du schreibst von CGI; demnach ist ein Webserver im Spiel, der ein error_log schreiben sollte.
  Finden sich dort Meldungen, die Dein Problem beschreiben?
  
  Kontrolliere doch mal, ob und was in $mailer drin steht.
  
  CGI verändert(/verschluckt) keine print()-Anweisungen.
  In der Regel erscheint alles, was auf STDOUT ausgegeben wird, im Browser.
  Wenn Deine print()-Anweisung eben auch im Browser erscheint, ist sie wohl auf STDOUT ausgegeben worden.
  Demnach scheint in $mailer etwas falsch zu laufen...
  
  Mangels Code kann man aber nichts konkretes zu Deinem Fall schreiben.
  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!
  - +5 replies
  - conray
    
    2010-07-20 15:13
    User since
    2010-02-19
    52 Artikel
    BenutzerIn
    
    Mein Code zum Mail-Modul ansprechen
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    sub mail() { my $mailer = Mail::Mailer->new('smtp', Server => $server); $mailer->open(\%headers) or die "Can't open Mailheaders: $!\n"; print "$mailer \n\n @check\n"; $mailer->close();
    
    Auf dem Browser erscheint "Mail::Mailer::smtp=GLOB(0x9a3fb0)" beim abschicken. Habe auch schon daran gedacht das da was falsch läuft drum mal $mailer mit ausgeben lassen. @check ist leer.
    
    Apache Errorlog:
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11
    
    [Tue Jul 20 15:07:43 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34. [Tue Jul 20 15:07:43 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34. [Tue Jul 20 15:07:43 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34. [Tue Jul 20 15:07:43 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34. [Tue Jul 20 15:07:43 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34. [Tue Jul 20 15:07:50 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34, <STDIN> line 1., referer: http://localhost/cgi-bin/test.pl?formtype=newnametpl [Tue Jul 20 15:07:50 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34, <STDIN> line 1., referer: http://localhost/cgi-bin/test.pl?formtype=newnametpl [Tue Jul 20 15:07:50 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34, <STDIN> line 1., referer: http://localhost/cgi-bin/test.pl?formtype=newnametpl [Tue Jul 20 15:07:50 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34, <STDIN> line 1., referer: http://localhost/cgi-bin/test.pl?formtype=newnametpl [Tue Jul 20 15:07:50 2010] [error] [client 127.0.0.1] Use of uninitialized value in pattern match (m//) at /var/www/localhost/cgi-bin/test.pl line 34, <STDIN> line 1., referer: http://localhost/cgi-bin/test.pl?formtype=newnametpl
    
    Zeile 34 sieht so aus:
    
    Code (perl): (dl )
    
    if ($query->url_param("formtype") =~ /newnametpl/)
    
    Habe nochmal geprüft ob alle Variables richtig deklariert sind un konnte keinen fehler enddecken.
    
    mfg
    conray
    - +4 replies
    - pq
      
      2010-07-20 15:25
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      2010-07-20T13:13:51 conray
      Mein Code zum Mail-Modul ansprechen
      
      Code (perl): (dl )
      
      print "$mailer \n\n @check\n";
      
      [...]
      Habe nochmal geprüft ob alle Variables richtig deklariert sind un konnte keinen fehler enddecken.
      
      und eben hast du noch die dokumentation zitiert:
      
      Code (perl): (dl )
      
      print $mailer $body;
      
      dieser befehl printet den inhalt der variable $body an den filehandle $mailer.
      
      dein code:
      
      Code (perl): (dl )
      
      print "$mailer \n\n @check\n";
      
      printet den inhalt der variable $mailer, ein leerzeichen, zwei newlines, noch ein leerzeichen und den inhalt der variable @check mit leerzeichen konkateniert an STDOUT.
      
      CGI verschluckt also nichts. du gibst den output freiwillig an STDOUT, und all das, was an STDOUT geliefert wird, geht natürlich an den browser, wohin soll es auch sonst gehen?
      wenn es funktionieren soll, solltest du dich an die dokumentation halten.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
      - +3 replies
      - conray
        
        2010-07-20 15:36
        
        User since
        2010-02-19
        52 Artikel
        BenutzerIn
        
        Man bin ich bescheuert -.-
        
        Danke für eure Hilfe!
        So funktionierts!
        
        Könnt ihr mir das mit der Zeile 34 erklären? Ist das vllt auch so ein Denkfehler?
        
        mfg
        conray
        
        +2 replies
        
        pq
        
        2010-07-20 15:47
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        "Use of uninitialized value in pattern match"
        heisst
        "Benutzung eines nicht initialisierten Wertes in einem Pattern Match"
        
        der wert ist undef. $query->url_param("formtype") ist undef. heisst, du übergibst keinen paramater formtype. und perl ist so nett und warnt dich deshalb.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        conray
        
        2010-07-21 10:14
        
        User since
        2010-02-19
        52 Artikel
        BenutzerIn
        
        Achso.
        Danke für eure Hilfe!
        Problem gelöst
        mfg
        conray

View all threads created 2010-07-20 14:25.