Hallo
Ist es möglich mit dem WG auch E-Mail zu empfangen oder z.b. bei Gmail abzuholen?
Gruß NetFritz
Ist es möglich mit dem WG auch E-Mail zu empfangen oder z.b. bei Gmail abzuholen?
Gruß NetFritz
Jan 26 21:29:29 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:29:29 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib Jan 26 21:36:28 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:36:28 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib Jan 26 21:43:29 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:43:29 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib Jan 26 21:50:29 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:50:29 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib Jan 26 21:57:29 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:57:29 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib
2013-01-26 21:14:54.897,A_GroupValue_Write,1.1.255,1/1/27,01,1,DPT_Switch,1.001,0,low,7,T_DATA_XXX_REQ,0 2013-01-26 21:22:43.321,A_GroupValue_Write,1.1.255,1/1/27,01,1,DPT_Switch,1.001,0,low,7,T_DATA_XXX_REQ,0
Jan 26 21:16:31 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:16:31 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib Jan 26 21:24:28 wiregate268 /usr/sbin/wiregated.pl: INFO - *** reading config Jan 26 21:24:28 wiregate268 /usr/sbin/wiregated.pl: INFO - connected to eibd local:/tmp/eib
# Demo-Plugin zum eMail-Versand - einfache Version mit Text-only # das macht nichts sinnvolles, sendet jede Stunde ein eMail, # soll nur als Vorlage dienen # - mit SSL (alte Version ohne SSL sieh SVN rev 622) # - benoetigt Paket libnet-smtp-ssl-perl # Aufbau moeglichst so, dass man unterhalb der Definitionen nichts aendern muss! my $hostname = `hostname`; ################## ### DEFINITION ### ################## my $Empfaenger = '*****@gmail.com'; # Anpassen, mehrere mit , #my $Absender = 'WireGate <*****@gmail.com>'; # unbedingt anpassen, die Absenderadresse sollte gültig sein um Probleme zu vermeiden my $Absender = 'WireGate <*****@gmx.de>'; # unbedingt anpassen, die Absenderadresse sollte gültig sein um Probleme zu vermeiden my $Betreff = "eMail von $hostname"; my $text = "email-Body - langer Text mit sinnvollem Inhalt für den Spamfilter und so"; my $username = '****@gmx.de'; #Anpassen! Username fuer SMTP-Server my $password = "****"; #Anpassen! Passwort fuer SMTP-Server my $mailserver='mail.gmx.net:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden! #my $mailserver='smtp.gmail.com:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden! # oder z.B. smtp.gmail.com:465 fuer Gmail; $plugin_info{$plugname.'_cycle'} = 300; ####################### ### ENDE DEFINITION ### ####################### use Net::SMTP::SSL; use MIME::Base64; my $smtp = Net::SMTP::SSL->new($mailserver, Timeout => 10) or return "Fehler beim verbinden zu $mailserver $!; $@"; $smtp->auth($username,$password) or return "SASL Auth failed $!;$@"; # try SASL $smtp->status() < 5 or return "Auth failed: $!; $@ ". $smtp->status(); $smtp->mail($Absender) or return "Absender $Absender abgelehnt $!"; $smtp->to(split(',',$Empfaenger)) or return "Empfaenger $Empfaenger abgelehnt $!"; $smtp->data() or return "Data failed $!"; $smtp->datasend("To: $Empfaenger\n") or return "Empfanger $Empfaenger (Header-To) abgelehnt $!"; $smtp->datasend("Subject: $Betreff\n") or return "Subject $Betreff abgelehnt $!"; $smtp->datasend("\n") or return "Data failed $!"; $smtp->datasend("$text\n") or return "Data failed $!"; $smtp->dataend() or return "Data failed $!"; $smtp->quit or return "Quit failed $!"; #return; # keine Logausgabe return "eMail von $Absender an $Empfaenger Betreff $Betreff gesendet: $text";
#Plugin zum versenden von Emails beim Empfang eines definierten Werts auf einer definierten GA #Mehrere Mails an einer GA sind derzeit nicht möglich! # - benoetigt Paket libnet-smtp-ssl-perl # Aufbau moeglichst so, dass man unterhalb der Definitionen nichts aendern muss! my ($sec,$min,$hour,$day,$month,$yr19,@rest) = localtime(time); my $hostname = `hostname`; ################## ### DEFINITION ### ################## my $Absender = 'WireGate <***@googlemail.com>'; # unbedingt anpassen, die Absenderadresse sollte gültig sein um Probleme zu vermeiden my $username = '***@googlemail.com'; #Anpassen! Username fuer SMTP-Server my $password = '***'; #Anpassen! Passwort fuer SMTP-Server #my $mailserver= 'mail.gmx.net:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden! my $mailserver='smtp.googlemail.com:465'; # SMTP-Relay mit SSL: das muss natuerlich angepasst werden! $plugin_info{$plugname.'_cycle'} = 3600; my @actionGA; push @actionGA, { name => "Puffer", email_adress => '***@googlemail.com', email_subject => "Puffer leer", email_text => "Puffer war um $hour:$min leer.", trigger_ga => "0/7/3", value => 1 }; #push @actionGA, { name => "test", email_adress => 'email@gmx.de', email_subject => "test2", email_text => "Test 2", trigger_ga => "1/1/1", value => 0 }; #push @actionGA, { name => "test", email_adress => 'email@gmx.de' ". $smtp->status(); ####################### ### ENDE DEFINITION ### ####################### use Net::SMTP::SSL; use MIME::Base64; foreach my $element (@actionGA) { my $email_adress = $element->{email_adress}; my $email_subject = $element->{email_subject}; my $email_text = $element->{email_text}; my $trigger_ga = $element->{trigger_ga}; my $value = $element->{value}; $plugin_subscribe{$trigger_ga}{$plugname} = 1; if ($msg{'apci'} eq "A_GroupValue_Write" && $msg{'dst'} eq $trigger_ga && defined $msg{'value'} && $msg{'value'} == "$value" ) { my $smtp = Net::SMTP::SSL->new($mailserver, Timeout => 10) or return "Fehler beim verbinden zu $mailserver $!; $@"; $smtp->auth($username,$password) or return "SASL Auth failed $!;$@"; # try SASL $smtp->status() < 5 or return "Auth failed: $!; $@ ". $smtp->status(); $smtp->mail($Absender) or return "Absender $Absender abgelehnt $!"; $smtp->to(split(',',$email_adress)) or return "Empfaenger $email_adress abgelehnt $!"; $smtp->data() or return "Data failed $!"; $smtp->datasend("To: $email_adress\n") or return "Empfanger $email_adress (Header-To) abgelehnt $!"; $smtp->datasend("Subject: $email_subject\n") or return "Subject $email_subject abgelehnt $!"; $smtp->datasend("\n") or return "Data failed $!"; $smtp->datasend("$email_text\n") or return "Data failed $!"; $smtp->dataend() or return "Data failed $!"; $smtp->quit or return "Quit failed $!"; return; # keine Logausgabe return "eMail von $Absender an $email_adress\ Betreff $email_subject gesendet: $email_text"; } }
[0/7/3] DPTId=1 DPTSubId=1.001 DPT_SubTypeName=DPT_Switch name=Puffer_leer
$smtp->datasend("From: $Absender\n") or return "Absender $Absender (Header-From) abgelehnt $!";
Wir verarbeiten personenbezogene Daten über die Nutzer unserer Website mithilfe von Cookies und anderen Technologien, um unsere Dienste bereitzustellen. Weitere Informationen findest Du in unserer Datenschutzerklärung.
Indem Du unten auf "ICH stimme zu" klickst, stimmst Du unserer Datenschutzerklärung und unseren persönlichen Datenverarbeitungs- und Cookie-Praktiken zu, wie darin beschrieben. Du erkennst außerdem an, dass dieses Forum möglicherweise außerhalb Deines Landes gehostet wird und bist damit einverstanden, dass Deine Daten in dem Land, in dem dieses Forum gehostet wird, gesammelt, gespeichert und verarbeitet werden.
Kommentar