c't Eventwatch als Client (gelöst) (Fragen zu Perl-Modulen)

[thread]20002[/thread]

c't Eventwatch als Client [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 23

Articles: hide open all | hide show old branches

Teilbäume:
Tiny-SMTP-Server (25 Artikel) 2016-05-15 09:50
c't Eventwatch als Client (5 Artikel) 2017-03-02 07:36

+6 replies
bianca

2017-02-26 07:42

User since
2009-09-13
7016 Artikel
BenutzerIn

Guten Morgen!

Zu dieser Sache brauche ich bitte nochmal Hilfe beim Debug.
Und zwar geht es um das Eventwatch Projekt aus der c't.

Wenn ich - wie im Screenshot dort zu sehen - diese Testmail sende, bekomme ich die Fehlermeldung wie im Attachment zu sehen.
Die Client.pm (im Einsatz befindliche Version habe ich nochmal angehängt) gibt bei gesetztem Schalter $self->{DEBUG} dies aus:
Quote
S: 220 MacGyver SMTP Ready.
C: EHLO SERVER

S: 250-SERVER Hello SERVER
S: 250 AUTH LOGIN PLAIN
C: QUIT

S: 221 Good.

Der SMTP-Server funktioniert prinzipiell, Zusammenarbeit mit der FRITZ!Box klappt perfekt. Nun will ich das Eventwatch neu mit drauf nehmen und bekomme diesen Fehler.
Wo kann ich da ansetzen, das in Gang zu bringen?
Anhänge

image/png
517 x 575

eventwatch01.png

text/plain
520 lines
Client1_2_7.pm

Last edited: 2017-03-02 07:36:18 +0100 (CET)
10 print "Hallo"
20 goto 10
- +5 replies
- GwenDragon
  
  2017-02-27 09:23
  
  User since
  2005-01-17
  14890 Artikel
  Admin1
  
  Eventwatch will SSL. Und das ist im Tiny-Server nicht implementiert.
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +4 replies
  - bianca
    
    2017-02-27 19:21
    
    User since
    2009-09-13
    7016 Artikel
    BenutzerIn
    
    Sehr guter Hinweis! Habe im c't Script den Schalter für SSL raus genommen. Jetzt sieht es so aus:
    Quote
    S: 220 MacGyver SMTP Ready.
    C: EHLO SERVER
    
    S: 250-SERVER Hello SERVER
    S: 250 AUTH LOGIN PLAIN
    C: AUTH login abrakadabra==
    
    S: 504 Authentication mechanism not supported.
    C: MAIL FROM:<test@fooundbar.de>
    
    Woran kann das liegen?
    Last edited: 2017-03-02 07:35:49 +0100 (CET)
    10 print "Hallo"
    20 goto 10
    - +3 replies
    - GwenDragon
      
      2017-02-27 19:32
      
      User since
      2005-01-17
      14890 Artikel
      Admin1
      
      Oh, der sendet klein? Mein Denkfehler *schäm*, dass die Befehle nicht in Großbuchstaben kommen.
      
      Dann ändere in Client.pm Zeile 280 von:
      
      Code: (dl )
      
      1 2
      
      if ( $_auths{ $self->{authmethod} } ) { &{ $_auths{ $self->{authmethod} } }( $self, $args )
      
      nach
      
      Code: (dl )
      
      1 2 3
      
      $self->{authmethod} = uc $self->{authmethod}; if ( $_auths{ $self->{authmethod} } ) { &{ $_auths{ $self->{authmethod} } }( $self, $args )
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - bianca
        
        2017-03-02 06:03
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Danke Dir!
        
        Hab das geändert aber es funktioniert noch immer nicht. Das c't Script scheint es jetzt aber auch nicht mehr zu versuchen. Ich muss das mal isolieren und debuggen.
        10 print "Hallo"
        20 goto 10
      - bianca
        
        2017-03-02 07:34
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        Habe mir eben mal Win32::EventLog angeschaut und beschlossen, das c't Script durch einen eigenen Auslesejob zu ersetzen.
        Nochmal Danke!
        10 print "Hallo"
        20 goto 10

View all threads created 2016-02-29 15:58.