Originally posted by: <email address deleted>
Hallo,
ich suche jetzt schon seit Tagen wie man das WLAN der FritzBox aus FHEM
heraus schalten kann, aber nichts hilfreiches gefunden.
mit dem Befehlen "{doWLANswitch("off")}" und "{doWLANswitch("on")}" , bzw
"trigger WLANSwitch off" und "trigger WLANSwitch on" kann ich das WLAN
ausschalten und einschalten.
Aber das muss ich jedesmal eingeben.
Ist es möglich das irgendwie mit "On" und "Off" Buttons zu schalten? Hab
schon alles mögliche versucht.
*Meine 99_myUtils.pm:*
package main;
use strict;
use warnings;
use POSIX;
sub
myUtils_Initialize($$)
{
my ($hash) = @_;
}
######## FritzBox eMail senden ############
sub
MyUtils_Initialize($$)
{
my ($hash) = @_;
}
sub fb_mail {
my $rcpt = $_[0];
my $subject = $_[1];
my $text = $_[2];
system("echo \"$text\" > fhem_nachricht.txt");
system("mailer send -i 'fhem_nachricht.txt' -s \"$subject\" -t
\"$rcpt\"");
system("rm fhem_nachricht.txt");
}
######## Switch FB WLAN on/off ############
# call from notify with {doWLANSwitch("%")}
sub
doWLANSwitch($) {
my $cmd = shift;
my $ret = "";
if ($cmd =~ m"on"i) { # on or ON
$ret .= "ATD: " . `echo "ATD#96*1*" | nc 127.0.0.1 1011` ;
sleep 1 ;
$ret .= " ATH: " . `echo "ATH" | nc 127.0.0.1 1011` ;
}
if ($cmd =~ m"off"i) { # off or OFF
$ret .= "ATD: " . `echo "ATD#96*0*" | nc 127.0.0.1 1011` ;
sleep 1 ;
$ret .= " ATH: " . `echo "ATH" | nc 127.0.0.1 1011` ;
}
$ret =~ s,[\r\n]*,,g; # remove CR from return-string
Log 1, "doWLANSwitch($cmd) returned: $ret";
}
1;
*Meine fhem.cfg*
...
#### FritzBox WLAN
define WLANSwitch notify WLANSwitch {doWLANswitch("%")}
attr WLANSwitch alias WLAN
attr WLANSwitch room Computerzimmer
...
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
So wie ich das sehen, musst Du Dir einen Dummy Schalter einrichten, auf den
der notify reagiert.
Am Dienstag, 11. September 2012 19:22:20 UTC+2 schrieb Slibo:
>
> Hallo,
>
> ich suche jetzt schon seit Tagen wie man das WLAN der FritzBox aus FHEM
> heraus schalten kann, aber nichts hilfreiches gefunden.
>
> mit dem Befehlen "{doWLANswitch("off")}" und "{doWLANswitch("on")}" , bzw
> "trigger WLANSwitch off" und "trigger WLANSwitch on" kann ich das WLAN
> ausschalten und einschalten.
> Aber das muss ich jedesmal eingeben.
>
> Ist es möglich das irgendwie mit "On" und "Off" Buttons zu schalten? Hab
> schon alles mögliche versucht.
>
>
> *Meine 99_myUtils.pm:*
>
> package main;
> use strict;
> use warnings;
> use POSIX;
>
> sub
> myUtils_Initialize($$)
> {
> my ($hash) = @_;
> }
>
>
> ######## FritzBox eMail senden ############
>
> sub
> MyUtils_Initialize($$)
> {
> my ($hash) = @_;
> }
>
> sub fb_mail {
>
> my $rcpt = $_[0];
> my $subject = $_[1];
> my $text = $_[2];
> system("echo \"$text\" > fhem_nachricht.txt");
> system("mailer send -i 'fhem_nachricht.txt' -s \"$subject\" -t
> \"$rcpt\"");
> system("rm fhem_nachricht.txt");
> }
>
>
> ######## Switch FB WLAN on/off ############
> # call from notify with {doWLANSwitch("%")}
> sub
> doWLANSwitch($) {
> my $cmd = shift;
> my $ret = "";
> if ($cmd =~ m"on"i) { # on or ON
> $ret .= "ATD: " . `echo "ATD#96*1*" | nc 127.0.0.1 1011` ;
> sleep 1 ;
> $ret .= " ATH: " . `echo "ATH" | nc 127.0.0.1 1011` ;
> }
> if ($cmd =~ m"off"i) { # off or OFF
> $ret .= "ATD: " . `echo "ATD#96*0*" | nc 127.0.0.1 1011` ;
> sleep 1 ;
> $ret .= " ATH: " . `echo "ATH" | nc 127.0.0.1 1011` ;
> }
> $ret =~ s,[\r\n]*,,g; # remove CR from return-string
> Log 1, "doWLANSwitch($cmd) returned: $ret";
> }
>
> 1;
>
>
> *Meine fhem.cfg*
>
> ...
> #### FritzBox WLAN
> define WLANSwitch notify WLANSwitch {doWLANswitch("%")}
> attr WLANSwitch alias WLAN
> attr WLANSwitch room Computerzimmer
> ...
>
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
Originally posted by: <email address deleted>
Ein Dummy hab ich eingerichtet. Aber wie bekomme ich das jetzt mit dem
schalten hin?
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
aus dem Kopf (ohne Gewähr):
define WLAN FS20 1111 00
attr WLAN dummy 1
attr WLAN model fs20st
attr WLAN room Computerzimmer
define WLANSwitch notify WLAN {doWLANswitch("%")}
attr WLANSwitch room Computerzimmer
Am Dienstag, 11. September 2012 20:07:20 UTC+2 schrieb Slibo:
>
> Ein Dummy hab ich eingerichtet. Aber wie bekomme ich das jetzt mit dem
> schalten hin?
>
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
Originally posted by: <email address deleted>
Da wäre ich ja im leben nicht drauf gekommen. :)
Funktioniert wunderbar.
Dankeschön.
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com
Originally posted by: <email address deleted>
Funktioniert wunderbar.
>
> Dankeschön.
>
Hallo,
ich habe leider keinen Erfolg mit dieser Schaltung für WLAN an der FB 7390.
Das liegt wohl daran, dass ich CUL für HomeMatic und sonst HMLAN verwende.
Wie könnte dafür die Schaltung "WLAN on/off" aussehen? Ich habe es nicht
hinbekommen.
--
To unsubscribe from this group, send email to
fhem-users+unsubscribe@googlegroups.com