############################################## # $Id: FritzBoxUtils.pm 1148 2011-12-28 19:21:19Z rudolfkoenig $ package main; use strict; use warnings; use Digest::MD5 "md5_hex"; use HttpUtils; my ($lastOkPw, $lastOkTime) =("", 0); sub FB_getPage($$$) { my ($host, $pw, $page) = @_; my $data = GetFileFromURL("http://$host". "/cgi-bin/webcm?getpage=../html/login_sid.xml", undef, undef, 1); return undef if(!$data); my $chl; $chl = $1 if($data =~ /(\w+)<\/Challenge>/i); my $chlAnsw .= "$chl-$pw"; $chlAnsw =~ s/(.)/$1.chr(0)/eg; # works probably only with ascii $chlAnsw = "$chl-".lc(md5_hex($chlAnsw)); my @d = ( "login:command/response=$chlAnsw", "getpage=$page" ); $data = join("&", map {join("=", map {urlEncode($_)} split("=",$_,2))} @d); return GetFileFromURL("http://$host/cgi-bin/webcm", undef, $data, 1); } sub FB_checkPw($$) { my ($host, $pw) = @_; my $now = time(); return 1 if($lastOkPw eq $pw && ($now - $lastOkTime) < 300); # 5min cache my $data = FB_getPage($host, $pw, "../html/de/internet/connect_status.txt"); if(defined($data) && $data =~ m/"checkStatus":/) { $lastOkPw = $pw; $lastOkTime = $now; return 1; } else { return 0; } } ######## FB_mail ################################################## # What : Sends a mail # Call : { FB_mail('empfaenger@mail.de','Subject','text 123') } # Source: http://www.fhemwiki.de/wiki/E-Mail_senden # Prereq: - FB7390 needs fhem-installation from fhem.de; installation from AVM will _not_ work (chroot) # - In FritzBox, Push-Service needs to be active sub FB_mail($$$) { my ($rcpt, $subject, $text) = @_; my $tmpfile = "fhem_nachricht.txt"; system("/bin/echo \'$text\' > \'$tmpfile\' "); system("/sbin/mailer send -i \"$tmpfile\" -s \"$subject\" -t \"$rcpt\""); system("rm \"$tmpfile\""); Log 3, "Mail sent to $rcpt"; } ######## FB_WLANswitch ############################################ # What : Switches WLAN on or off # Call : { FB_WLANswitch("on") } # Source: http://www.fhemwiki.de/wiki/Fritzbox:_WLAN_ein/ausschalten sub FB_WLANswitch($) { 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 4, "FB_WLANswitch($cmd) returned: $ret"; } 1;