mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-01 20:20:10 +00:00
6936b0ae3c
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@1916 2b470e98-0d58-463d-a4d8-8e2adae1ed80
91 lines
2.6 KiB
Perl
91 lines
2.6 KiB
Perl
##############################################
|
|
# $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 =~ /<Challenge>(\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;
|