FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-25 03:39:21 +00:00
Code Issues Releases Wiki Activity

FRITZFON: set customerRingTone

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@7029 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
tpoitzsch 2014-11-20 22:49:58 +00:00
parent c31a6bccdf
commit baaa355582
1 changed files with 66 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
fhem/FHEM/72_FRITZFON.pm
View File

@ -185,16 +185,27 @@ FRITZFON_Set($$@)
my ($hash, $name, $cmd, @val) = @_; my ($hash, $name, $cmd, @val) = @_;
my $resultStr = ""; my $resultStr = "";
if( lc $cmd eq 'reinit' ) if ( lc $cmd eq 'customerringtone')
{
if (int @val > 0)
{
return FRITZFON_SetCustomerRingTone $hash, @val;
}
else
{
return "Missing parameters after command 'set $name $cmd'";
}
}
elsif( lc $cmd eq 'reinit' )
{ {
FRITZFON_Init($hash); FRITZFON_Init($hash);
return undef; return undef;
} }
elsif ( lc $cmd eq 'ring') elsif ( lc $cmd eq 'message')
{ {
if (int @val > 0) if (int @val > 0)
{ {
FRITZFON_Ring $hash, @val; $hash->{Message} = substr (join(" ", @val),0,30) ;
return undef; return undef;
} }
else else
@ -202,11 +213,11 @@ FRITZFON_Set($$@)
return "Missing parameters after command 'set $name $cmd'"; return "Missing parameters after command 'set $name $cmd'";
} }
} }
elsif ( lc $cmd eq 'message') elsif ( lc $cmd eq 'ring')
{ {
if (int @val > 0) if (int @val > 0)
{ {
$hash->{Message} = substr (join(" ", @val),0,30) ; FRITZFON_Ring $hash, @val;
return undef; return undef;
} }
else else
@ -238,6 +249,7 @@ FRITZFON_Set($$@)
} }
} }
my $list = "reinit:noArg" my $list = "reinit:noArg"
. " customerRingTone"
. " convertRingTone" . " convertRingTone"
. " message" . " message"
. " ring" . " ring"
@ -411,7 +423,7 @@ FRITZFON_Ring($@)
if ( exists( $hash->{helper}{RUNNING_PID} ) ) if ( exists( $hash->{helper}{RUNNING_PID} ) )
{ {
FRITZFON_Log $hash, 5, "Killing existing background process ".$hash->{helper}{RUNNING_PID}; FRITZFON_Log $hash, 1, "Double call. Killing old process ".$hash->{helper}{RUNNING_PID};
BlockingKill( $hash->{helper}{RUNNING_PID} ); BlockingKill( $hash->{helper}{RUNNING_PID} );
delete($hash->{helper}{RUNNING_PID}); delete($hash->{helper}{RUNNING_PID});
} }
@ -525,21 +537,59 @@ FRITZFON_Ring_Aborted($$)
FRITZFON_Log $hash, 1, "Timeout when ringing"; FRITZFON_Log $hash, 1, "Timeout when ringing";
} }
sub ############################################
FRITZFON_SetCustomerRingTone($@)
{
my ($hash, $intern, @file) = @_;
my $returnStr;
my $inFile = join " ", @file;
my $uploadFile = '/tmp/fhem'.$intern.'.G722';
$inFile =~ s/file:\/\///;
if (lc (substr($inFile,-4)) eq ".mp3")
{
# mp3 files are converted
$returnStr = FRITZFON_Exec ($hash,
'picconv.sh "file://'.$inFile.'" "'.$uploadFile.'" ringtonemp3');
}
elsif (lc (substr($inFile,-5)) eq ".g722")
{
# G722 files are copied
$returnStr = FRITZFON_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".FRITZFON_Exec ($hash,
'/usr/bin/pbd --set-ringtone-url --book="255" --id="'.$intern.'" --url="file:///'.$uploadFile.'" --name="FHEM"');
return $returnStr;
}
sub ############################################ sub ############################################
FRITZFON_ConvertRingTone ($@) FRITZFON_ConvertRingTone ($@)
{ {
my ($hash, @val) = @_; my ($hash, @val) = @_;
my $inFile = join " ", @val; my $inFile = join " ", @val;
my $returnStr; $inFile =~ s/file:\/\///;
my $outFile = $inFile; my $outFile = $inFile;
$outFile = substr($inFile,0,-4) $outFile = substr($inFile,0,-4)
if (lc substr($inFile,-4) =~ /\.(mp3|wav)/); if (lc substr($inFile,-4) =~ /\.(mp3|wav)/);
$returnStr = FRITZFON_Exec ($hash, my $returnStr = FRITZFON_Exec ($hash,
"ffmpegconv -i '$inFile' -o '$outFile.g722' --limit 240 --type 1"); 'picconv.sh "file://'.$inFile.'" "'.$outFile.'.g722" ringtonemp3');
return $returnStr; 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=/var/InternerSpeicher/FRITZ/fonring/1416431162.g722 --type=1
#pbd --set-image-url --book=255 --id=612 --url=file://var/InternerSpeicher/fritzfontest.g722 --type=1 #pbd --set-image-url --book=255 --id=612 --url=file://var/InternerSpeicher/fritzfontest.g722 --type=1
#ctlmgr_ctl r user settings/user0/bpjm_filter_enable #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"
} }
@ -600,7 +650,14 @@ FRITZFON_Exec($$)
<li><code>set &lt;name&gt; ring &lt;internalNumber&gt; [duration] [ringTone]</code> <li><code>set &lt;name&gt; ring &lt;internalNumber&gt; [duration] [ringTone]</code>
<br> <br>
Rings the internal number for duration (seconds) and (if possible) with the given ring tone name. Rings the internal number for duration (seconds) and (if possible) with the given ring tone name.
</li><br>
<li><code>set &lt;name&gt; customerRingTone &lt;internalNumber&gt; &lt;fullFilePath&gt;</code>
<br> <br>
Uploads the file fullFilePath on the given handset. Only mp3 or G722 format is allowed.
<br>
The file has to be placed on the file system of the fritzbox.
<br>
The upload takes about one minute before the tone is available.
</li><br> </li><br>
<li><code>set &lt;name&gt; startradio &lt;internalNumber&gt; [name]</code> <li><code>set &lt;name&gt; startradio &lt;internalNumber&gt; [name]</code>
<br> <br>