From d7532d7cf6dc9db0529666cdb9e514b6c35ef644 Mon Sep 17 00:00:00 2001 From: tpoitzsch <> Date: Sat, 22 Nov 2014 19:17:09 +0000 Subject: [PATCH] FRITZBOX: renamed FRITZFON git-svn-id: https://svn.fhem.de/fhem/trunk@7040 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/72_FRITZBOX.pm | 858 +++++++++++++++++++++++++++++++++++++++ 1 file changed, 858 insertions(+) create mode 100644 fhem/FHEM/72_FRITZBOX.pm diff --git a/fhem/FHEM/72_FRITZBOX.pm b/fhem/FHEM/72_FRITZBOX.pm new file mode 100644 index 000000000..8a2cb4369 --- /dev/null +++ b/fhem/FHEM/72_FRITZBOX.pm @@ -0,0 +1,858 @@ +############################################################### +# $Id: $ +# +# 72_FRITZBOX.pm +# +# (c) 2014 Torsten Poitzsch < torsten . poitzsch at gmx . de > +# +# This module handles the Fritz!Phone MT-F +# +# Copyright notice +# +# This script is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# The GNU General Public License can be found at +# http://www.gnu.org/copyleft/gpl.html. +# A copy is found in the text file GPL.txt and important notices to the license +# from the author is found in LICENSE.txt distributed with these scripts. +# +# This script is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# This copyright notice MUST APPEAR in all copies of the script! +# +############################################################################## +# +# define FRITZBOX +# +############################################################################## + +package main; + +use strict; +use warnings; +use Blocking; + + +sub FRITZBOX_Log($$$); +sub FRITZBOX_Init($); +sub FRITZBOX_Init_Reading($$$@); +sub FRITZBOX_Ring($$); +sub FRITZBOX_Exec($$); + +my %fonModel = ( + '0x01' => "MT-D" + , '0x03' => "MT-F" + , '0x04' => "C3" + , '0x05' => "C4" + , '0x08' => "M2" + ); + +my %ringTone = ( + 0 => "HandsetDefault" + , 1 => "HandsetInternalTon" + , 2 => "HandsetExternalTon" + , 3 => "Standard" + , 4 => "Eighties" + , 5 => "Alert" + , 6 => "Ring" + , 7 => "RingRing" + , 8 => "News" + , 9 => "CustomerRingTon" + , 10 => "Bamboo" + , 11 => "Andante" + , 12 => "ChaCha" + , 13 => "Budapest" + , 14 => "Asia" + , 15 => "Kullabaloo" + , 16 => "silent" + , 17 => "Comedy" + , 18 => "Funky", + , 19 => "Fatboy" + , 20 => "Calypso" + , 21 => "Pingpong" + , 22 => "Melodica" + , 23 => "Minimal" + , 24 => "Signal" + , 25 => "Blok1" + , 26 => "Musicbox" + , 27 => "Blok2" + , 28 => "2Jazz" + , 33 => "InternetRadio" + , 34 => "MusicList" + ); + +my %ringToneNumber; +while (my ($key, $value) = each %ringTone) { + $ringToneNumber{lc $value}=$key; +} + +my %alarmDays = ( + 1 => "Mo" + , 2 => "Tu" + , 4 => "We" + , 8 => "Th" + , 16 => "Fr" + , 32 => "Sa" + , 64 => "So" +); + +my @radio=(); + +sub ########################################## +FRITZBOX_Log($$$) +{ + my ( $hash, $loglevel, $text ) = @_; + my $xline = ( caller(0) )[2]; + + my $xsubroutine = ( caller(1) )[3]; + my $sub = ( split( ':', $xsubroutine ) )[2]; + $sub =~ s/FRITZBOX_//; + + my $instName = ( ref($hash) eq "HASH" ) ? $hash->{NAME} : $hash; + Log3 $hash, $loglevel, "FRITZBOX $instName: $sub.$xline " . $text; +} + +sub ########################################## +FRITZBOX_Initialize($) +{ + my ($hash) = @_; + + $hash->{DefFn} = "FRITZBOX_Define"; + $hash->{UndefFn} = "FRITZBOX_Undefine"; + + $hash->{SetFn} = "FRITZBOX_Set"; + $hash->{GetFn} = "FRITZBOX_Get"; + $hash->{AttrFn} = "FRITZBOX_Attr"; + $hash->{AttrList} = "disable:0,1 " + ."ringWithIntern:0,1,2 " + ."defaultCallerName " + ."defaultUploadDir " + .$readingFnAttributes; + +} # end FRITZBOX_Initialize + + +sub ########################################## +FRITZBOX_Define($$) +{ + my ($hash, $def) = @_; + my @args = split("[ \t][ \t]*", $def); + + return "Usage: define FRITZBOX" if(@args <2 || @args >2); + + my $name = $args[0]; + + $hash->{NAME} = $name; + + $hash->{STATE} = "Initializing"; + $hash->{Message} = "FHEM"; + $hash->{fhem}{modulVersion} = '$Date: $'; + + RemoveInternalTimer($hash); + # Get first data after 2 seconds + InternalTimer(gettimeofday() + 2, "FRITZBOX_Init", $hash, 0); + + return undef; +} #end FRITZBOX_Define + + +sub ########################################## +FRITZBOX_Undefine($$) +{ + my ($hash, $args) = @_; + + RemoveInternalTimer($hash); + + return undef; +} # end FRITZBOX_Undefine + + +sub ########################################## +FRITZBOX_Attr($@) +{ + my ($cmd,$name,$aName,$aVal) = @_; + # $cmd can be "del" or "set" + # $name is device name + # aName and aVal are Attribute name and value + my $hash = $defs{$name}; + + if ($cmd eq "set") + { + } + + return undef; +} # FRITZBOX_Attr ende + + +sub ########################################## +FRITZBOX_Set($$@) +{ + my ($hash, $name, $cmd, @val) = @_; + my $resultStr = ""; + + if ( lc $cmd eq 'convertringtone') + { + if (int @val > 0) + { + return FRITZBOX_ConvertRingTone $hash, @val; + } + } + elsif ( lc $cmd eq 'customerringtone') + { + if (int @val > 0) + { + return FRITZBOX_SetCustomerRingTone $hash, @val; + } + } + elsif ( lc $cmd eq 'message') + { + if (int @val > 0) + { + $hash->{Message} = substr (join(" ", @val),0,30) ; + return undef; + } + } + elsif ( lc $cmd eq 'ring') + { + if (int @val > 0) + { + FRITZBOX_Ring $hash, @val; + return undef; + } + } + elsif( lc $cmd eq 'reinit' ) + { + FRITZBOX_Init($hash); + return undef; + } + elsif ( lc $cmd eq 'startradio') + { + if (int @val > 0) + { + # FRITZBOX_Ring $hash, @val; # join("|", @val); + return undef; + } + } + elsif ( lc $cmd eq 'wlan') + { + if (int @val == 1 && $val[0] =~ /^(on|off)$/) + { + $val[0] =~ s/on/1/; + $val[0] =~ s/off/0/; + FRITZBOX_Exec( $hash, "ctlmgr_ctl w wlan settings/ap_enabled $val[0]"); + return undef; + } + } + elsif ( lc $cmd eq 'guestwlan') + { + if (int @val == 1 && $val[0] =~ /^(on|off)$/) + { + $val[0] =~ s/on/1/; + $val[0] =~ s/off/0/; + FRITZBOX_Exec( $hash, "ctlmgr_ctl w wlan settings/guest_ap_enabled $val[0]"); + return undef; + } + } + + my $list = "reinit:noArg" + . " customerRingTone" + . " convertRingTone" + . " guestWlan:on,off" + . " message" + . " ring" + . " startRadio" + . " wlan:on,off"; + return "Unknown argument $cmd or wrong parameter, choose one of $list"; + +} # end FRITZBOX_Set + + +sub ########################################## +FRITZBOX_Get($@) +{ + my ($hash, $name, $cmd) = @_; + my $returnStr; + + if (lc $cmd eq "ringtones") + { + $returnStr = "Ring tones to use with 'set ring '\n"; + $returnStr .= "----------------------------------------------------------------------\n"; + $returnStr .= join "\n", sort values %ringTone; + return $returnStr; + } + + my $list = "ringTones:noArg"; + return "Unknown argument $cmd, choose one of $list"; +} # end FRITZBOX_Get + + +# Starts the data capturing and sets the new timer +sub ########################################## +FRITZBOX_Init($) +{ + my ($hash) = @_; + my $name = $hash->{NAME}; + my $result; + + readingsBeginUpdate($hash); + + # Box Firmware + FRITZBOX_Init_Reading($hash + , "box_fwVersion" + , "ctlmgr_ctl r logic status/nspver" + , "fwupdate"); + FRITZBOX_Init_Reading($hash + , "box_wlan" + , "ctlmgr_ctl r wlan settings/ap_enabled" + , "onoff"); + FRITZBOX_Init_Reading($hash + , "box_guestWlan" + , "ctlmgr_ctl r wlan settings/guest_ap_enabled" + , "onoff"); + + # Internetradioliste erzeugen + my $i = 0; + @radio = (); + my $rName = sprintf ("radio%02d",$i); + do + { + $result = FRITZBOX_Init_Reading($hash + , $rName + , "ctlmgr_ctl r configd settings/WEBRADIO".$i."/Name"); + push (@radio, $result) + if $result; + $i++; + $rName = sprintf ("radio%02d",$i); + } + while ( $result ne "" || defined $hash->{READINGS}{$rName} ); + + foreach (1..6) + { + # Dect-Telefonname + FRITZBOX_Init_Reading($hash, + "dect".$_, + "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/Name"); + # Dect-Interne Nummer + FRITZBOX_Init_Reading($hash, + "dect".$_."_intern", + "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/Intern"); + # Dect-Internal Ring Tone + # FRITZBOX_Init_Reading($hash, + # "dect".$_."_intRingTone", + # "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/IntRingTone"); + # Handset manufacturer + my $brand = FRITZBOX_Init_Reading($hash, + "dect".$_."_manufacturer", + "ctlmgr_ctl r dect settings/Handset".($_-1)."/Manufacturer"); + if ($brand eq "AVM") + { + # Intrnal Ring Tone Name + FRITZBOX_Init_Reading($hash + , "dect".$_."_intRingTone" + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/IntRingTone" + , "ringtone"); + # Alarm Ring Tone Name + FRITZBOX_Init_Reading($hash + , "dect".$_."_alarmRingTone" + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/AlarmRingTone0" + , "ringtone"); + # Radio Name + FRITZBOX_Init_Reading($hash + , "dect".$_."_radio" + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/RadioRingID" + , "radio"); + # Background image + FRITZBOX_Init_Reading($hash + , "dect".$_."_imagePath " + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/ImagePath "); + # Customer Ring Tone + FRITZBOX_Init_Reading($hash + , "dect".$_."_custRingTone" + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/G722RingTone"); + # Customer Ring Tone Name + FRITZBOX_Init_Reading($hash + , "dect".$_."_custRingToneName" + , "ctlmgr_ctl r telcfg settings/Foncontrol/User".$_."/G722RingToneName"); + # Firmware Version + FRITZBOX_Init_Reading($hash + , "dect".$_."_fwVersion" + , "ctlmgr_ctl r dect settings/Handset".($_-1)."/FWVersion"); + + # Phone Model + FRITZBOX_Init_Reading($hash + , "dect".$_."_model" + , "ctlmgr_ctl r dect settings/Handset".($_-1)."/Model" + , "model"); + } + } + + foreach (1..3) + { + # Analog-Telefonname + if (FRITZBOX_Init_Reading($hash + , "fon".$_ + , "ctlmgr_ctl r telcfg settings/MSN/Port".($_-1)."/Name")) + { + readingsBulkUpdate($hash, "fon".$_."_intern", $_); + } + } + + foreach (0..2) + { + # Alarm clock state + FRITZBOX_Init_Reading($hash + , "alarm".($_+1)."_state" + , "ctlmgr_ctl r telcfg settings/AlarmClock".$_."/Active" + , "onoff"); + # Alarm clock time + FRITZBOX_Init_Reading($hash + , "alarm".($_+1)."_time" + , "ctlmgr_ctl r telcfg settings/AlarmClock".$_."/Time" + , "altime"); + # Alarm clock number + FRITZBOX_Init_Reading($hash + , "alarm".($_+1)."_number" + , "ctlmgr_ctl r telcfg settings/AlarmClock".$_."/Number" + , "alnumber"); + # Alarm clock weekdays + FRITZBOX_Init_Reading($hash + , "alarm".($_+1)."_wdays" + , "ctlmgr_ctl r telcfg settings/AlarmClock".$_."/Weekdays" + , "aldays"); + # Alarm clock name + FRITZBOX_Init_Reading($hash + , "alarm".($_+1)."_name" + , "ctlmgr_ctl r telcfg settings/AlarmClock".$_."/Name"); + } + + readingsEndUpdate( $hash, 1 ); +} + +sub ########################################## +FRITZBOX_Init_Reading($$$@) +{ + my ($hash, $rName, $cmd, $replace) = @_; + $replace = "" + unless defined $replace; + my $result = FRITZBOX_Exec( $hash, $cmd); + if ($result ne "") { + if ($replace eq "altime") + { + $result = substr($result,0,2).":".substr($result,-2); + } + if ($replace eq "aldays") + { + if ($result == 0) + { + $result = "only once"; + } + elsif ($result == 127) + { + $result = "daily"; + } + else + { + my $bitStr = $result; + $result = ""; + foreach (sort keys %alarmDays) + { + $result .= (($bitStr & $_) == $_) ? $alarmDays{$_}." " : ""; + } + } + } + if ($replace eq "alnumber") + { + } + elsif ($replace eq "fwupdate") + { + my $update = FRITZBOX_Exec( $hash, "ctlmgr_ctl r updatecheck status/update_available_hint"); + $result .= " (old)" + if $update == 1; + } + if ($replace eq "model") + { + $result = $fonModel{$result} + if defined $fonModel{$result}; + } + elsif ($replace eq "onoff") + { + $result =~ s/0/off/; + $result =~ s/1/on/; + } + elsif ($replace eq "radio") + { + $result = $radio[$result]; + } + elsif ($replace eq "ringtone") + { + $result = $ringTone{$result}; + } + + readingsBulkUpdate($hash, $rName, $result) + if $result; + } elsif (defined $hash->{READINGS}{$rName} ) { + delete $hash->{READINGS}{$rName}; + } + return $result; +} + +sub ########################################## +FRITZBOX_Ring($@) +{ + my ($hash, @val) = @_; + my $name = $hash->{NAME}; + + my $timeOut = 20; + $timeOut = $val[1] + 15 + if defined $val[1]; + + if ( exists( $hash->{helper}{RUNNING_PID} ) ) + { + FRITZBOX_Log $hash, 1, "Double call. Killing old process ".$hash->{helper}{RUNNING_PID}; + BlockingKill( $hash->{helper}{RUNNING_PID} ); + delete($hash->{helper}{RUNNING_PID}); + } + + $hash->{helper}{RUNNING_PID} = BlockingCall("FRITZBOX_Ring_Run", $name."|".join("|", @val), + "FRITZBOX_Ring_Done", $timeOut, + "FRITZBOX_Ring_Aborted", $hash); +} # end FRITZBOX_Ring + +sub ########################################## +FRITZBOX_Ring_Run($$) +{ + my ($string) = @_; + my ($name, $intNo, $duration, $ringTone) = split /\|/, $string; + my $hash = $defs{$name}; + + my $fonType; + my $fonTypeNo; + my $result; + my $curIntRingTone; + my $curCallerName; + my $cmd; + + if (610<=$intNo && $intNo<=615) + { + $fonType = "DECT"; $fonTypeNo = $intNo - 609; + } + + return $name."|0|Error: Internal number '$intNo' not valid" + unless defined $fonType; + + $duration = 5 + unless defined $duration; + + if (defined $ringTone) + { + my $temp = $ringTone; + $ringTone = $ringToneNumber{lc $ringTone}; + return $name."|0|Error: Ring tone '$temp' not valid" + unless defined $ringTone; + } + + my $msg = $hash->{Message}; + $msg = "FHEM" + unless defined $msg; + + my $ringWithIntern = AttrVal( $name, "ringWithIntern", 0 ); + + # uses name of virtual port 0 (dial port 1) to show message on ringing phone + if ($ringWithIntern =~ /^(1|2)$/ ) + { + $curCallerName = FRITZBOX_Exec( $hash, "ctlmgr_ctl r telcfg settings/MSN/Port".($ringWithIntern-1)."/Name"); + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/MSN/Port".($ringWithIntern-1)."/Name '$msg'"); + } + + if ($fonType eq "DECT" ) + { + return $name."|0|Error: Internal number ".$intNo." does not exist" + unless FRITZBOX_Exec( $hash, "ctlmgr_ctl r telcfg settings/Foncontrol/User".$fonTypeNo."/Intern"); + if (defined $ringTone) + { + $curIntRingTone = FRITZBOX_Exec( $hash, "ctlmgr_ctl r telcfg settings/Foncontrol/User".$fonTypeNo."/IntRingTone"); + FRITZBOX_Log $hash, 5, "Current internal ring tone of DECT ".$fonTypeNo." is ".$curIntRingTone; + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/Foncontrol/User".$fonTypeNo."/IntRingTone ".$ringTone); + FRITZBOX_Log $hash, 5, "Set internal ring tone of DECT ".$fonTypeNo." to ".$ringTone; + } + if ( $ringWithIntern != 0 ) + { + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/DialPort ".$ringWithIntern); + } + FRITZBOX_Log $hash, 5, "Ringing $intNo for $duration seconds"; + $cmd = "ctlmgr_ctl w telcfg command/Dial **".$intNo."\n"; + $cmd .= "sleep ".($duration+1)."\n"; + $cmd .= "ctlmgr_ctl w telcfg command/Hangup **".$intNo; + FRITZBOX_Exec( $hash, $cmd); + if ( $ringWithIntern != 0 ) + { + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/DialPort 50"); + } + if (defined $ringTone) + { + FRITZBOX_Log $hash, 5, "Set internal ring tone of DECT ".$fonTypeNo." back to ".$curIntRingTone; + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/Foncontrol/User".$fonTypeNo."/IntRingTone ".$curIntRingTone); + } + } + + if ($ringWithIntern =~ /^(1|2)$/ ) + { + FRITZBOX_Exec( $hash, "ctlmgr_ctl w telcfg settings/MSN/Port".($ringWithIntern-1)."/Name '$curCallerName'"); + } + + return $name."|1|"; +} + +sub ########################################## +FRITZBOX_Ring_Done($$) +{ + my ($string) = @_; + return unless defined $string; + + my ($name, $success, $result) = split("\\|", $string); + my $hash = $defs{$name}; + + delete($hash->{helper}{RUNNING_PID}); + + if ($success != 1) + { + FRITZBOX_Log $hash, 1, $result; + } +} + +sub ########################################## +FRITZBOX_Ring_Aborted($$) +{ + my ($hash) = @_; + delete($hash->{helper}{RUNNING_PID}); + FRITZBOX_Log $hash, 1, "Timeout when ringing"; +} + +sub ############################################ +FRITZBOX_SetCustomerRingTone($@) +{ + my ($hash, $intern, @file) = @_; + my $returnStr; + my $name = $hash->{NAME}; + + my $uploadDir = AttrVal( $name, "defaultUploadDir", "" ); + $uploadDir .= "/" + unless $uploadDir =~ /\/$|^$/; + + my $inFile = join " ", @file; + $inFile = $uploadDir.$inFile + unless $inFile =~ /^\//; + + return "Error: Please give a complete file path or the attribute 'defaultUploadDir'" + unless $inFile =~ /^\//; + + return "Error: Only MP3 or G722 files can be uploaded to the phone." + unless $inFile =~ /\.mp3$|.g722$/i; + + my $uploadFile = '/var/InternerSpeicher/FRITZ/fonring/'.time().'.g722'; + + $inFile =~ s/file:\/\///i; + if ( $inFile =~ /\.mp3$/i ) + { + # mp3 files are converted + $returnStr = FRITZBOX_Exec ($hash + , 'picconv.sh "file://'.$inFile.'" "'.$uploadFile.'" ringtonemp3'); + } + elsif ( $inFile =~ /\.g722$/i ) + { + # G722 files are copied + $returnStr = FRITZBOX_Exec ($hash, + "cp '$inFile' '$uploadFile'"); + } + else + { + return "Error: only MP3 or G722 files can be uploaded to the phone"; + } + # trigger the loading of the file to the phone, file will be deleted as soon as the upload finished + $returnStr .= "\n".FRITZBOX_Exec ($hash, + '/usr/bin/pbd --set-ringtone-url --book="255" --id="'.$intern.'" --url="file://'.$uploadFile.'" --name="FHEM'.time().'"'); + return $returnStr; +} + +sub ############################################ +FRITZBOX_ConvertRingTone ($@) +{ + my ($hash, @file) = @_; + + my $name = $hash->{NAME}; + + my $uploadDir = AttrVal( $name, "defaultUploadDir", "" ); + $uploadDir .= "/" + unless $uploadDir =~ /\/$|^$/; + + my $inFile = join " ", @file; + $inFile = $uploadDir.$inFile + unless $inFile =~ /^\//; + + return "Error: You have to give a complete file path or to set the attribute 'defaultUploadDir'" + unless $inFile =~ /^\//; + + return "Error: only MP3 or WAV files can be converted" + unless $inFile =~ /\.mp3$|.wav$/i; + + $inFile =~ s/file:\/\///; + + my $outFile = $inFile; + $outFile = substr($inFile,0,-4) + if (lc substr($inFile,-4) =~ /\.(mp3|wav)/); + my $returnStr = FRITZBOX_Exec ($hash + , 'picconv.sh "file://'.$inFile.'" "'.$outFile.'.g722" ringtonemp3'); + return $returnStr; + +#'picconv.sh "'.$inFile.'" "'.$outFile.'.g722" ringtonemp3' +#picconv.sh "file://$dir/upload.mp3" "$dir/$filename" ringtonemp3 +#"ffmpegconv -i '$inFile' -o '$outFile.g722' --limit 240"); +#ffmpegconv -i "${in}" -o "${out}" --limit 240 +#pbd --set-image-url --book=255 --id=612 --url=/var/InternerSpeicher/FRITZ/fonring/1416431162.g722 --type=1 +#pbd --set-image-url --book=255 --id=612 --url=file://var/InternerSpeicher/FRITZBOXtest.g722 --type=1 +#ctlmgr_ctl r user settings/user0/bpjm_filter_enable +#CustomerRingTon +#/usr/bin/pbd --set-ringtone-url --book="255" --id="612" --url="file:///var/InternerSpeicher/claydermann.g722" --name="Claydermann" +} + + +# Executed the command on the FritzBox Shell +sub ############################################ +FRITZBOX_Exec($$) +{ + my ($hash, $cmd) = @_; + FRITZBOX_Log $hash, 5, "Execute '".$cmd."'"; + my $result = qx($cmd); + chomp ($result); + FRITZBOX_Log $hash, 5, "Result '".$result."'"; + + return $result; +} + +##################################### + +1; + +=pod +=begin html + + +

FRITZBOX

+
+
    + The modul allows to control some features of a Fritz!Box and to use connected Fritz!Fon's (MT-F, MT-D, C3, C4) as signaling devices. +
    + FHEM has to run on a Fritz!Box. +

    + + Define +
      +
      + define <name> FRITZBOX +
      + Example: +
      + define FRITZBOXs FRITZBOX +

      +
    + + + Set +
      +
      +
    • set <name> guestWLAN <on|off> +
      + Switches the guest WLAN on or off. +

      • +
    • set <name> reinit +
      + Reads in some information of the connected phone devices. +

      • +
    • set <name> ring <internalNumber> [duration [ringTone]] [msg(yourMessage)] + Example: set FRITZBOXs ring 612 5 Budapest msg:It is raining +
      + Rings the internal number for "duration" seconds with the given "ring tone" name. +
      + The text in msg() will be shown as the callers name. + Maximal 30 characters are allowed. + The attribute "ringWithIntern" must also be specified. +
      + Default duration is 5 seconds. Default ring tone is the internal ring tone of the device. +

      • +
    • set <name> customerRingTone <internalNumber> <fullFilePath> +
      + Uploads the file fullFilePath on the given handset. Only mp3 or G722 format is allowed. +
      + The file has to be placed on the file system of the fritzbox. +
      + The upload takes about one minute before the tone is available. +

      • +
    • set <name> startradio <internalNumber> [name] +
      + not implemented yet. Start the internet radio on the given Fritz!Fon +
      +

      • +
    • set <name> wlan <on|off> +
      + Switches WLAN on or off. +

      • +
    + + + Get +
      +
    • get <name> ringTones +
      + Shows a list of ring tones that can be used. +

      • +
    + + + Attributes +
      +
      +
    • defaultCallerName +
      + The default text to show on the ringing phone as 'caller'. +
      + This is done by temporarily changing the name of the calling internal number during the ring. +
      + Maximal 30 characters are allowed. The attribute "ringWithIntern" must also be specified. +

      • +
    • ringWithIntern <internalNumber> +
      + To ring a fon a caller must always be specified. Default of this modul is 50 "ISDN:Wählhilfe". +
      + To show a message (default is "FHEM") during a ring a free internal phone number can be specified here. +

      • +
    • defaultUploadDir <fritzBoxPath> +
      + This is the default path that will be used if a file name does not start with / (slash). +
      + It needs to be the name of the path on the Fritz!Box, so it should start with /var/InternerSpeicher if it equals in windows \\ip-address\fritz.nas +

      • +
    • readingFnAttributes
      • +
    +
    + + + Readings +

      +
    • dect1_intRingTone - Internal ring tone of the DECT device 1
      • +
    • dect1_intern - Internal number of the DECT device 1
      • +
    • dect1_manufacturer - Manufacturer of the DECT device 1
      • +
    • dect1_name - Internal name of the DECT device 1
      • +
    +
    +
+
+ +=end html + +=cut \ No newline at end of file