FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-03 16:56:54 +00:00
Code Issues Releases Wiki Activity

95_Babble.pm: Fix eines Experimental Code Errors

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16229 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
phenning 2018-02-20 10:17:00 +00:00
parent a6ed59cfce
commit 229b69c7fc
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/95_Babble.pm
View File

@ -53,7 +53,7 @@ if (eval {require RiveScript;1;} ne 1) {
my $babblelinkname = "babbles"; # link text my $babblelinkname = "babbles"; # link text
my $babblehiddenroom = "babbleRoom"; # hidden room my $babblehiddenroom = "babbleRoom"; # hidden room
my $babblepublicroom = "babble"; # public room my $babblepublicroom = "babble"; # public room
my $babbleversion = "1.2"; my $babbleversion = "1.22";
my %babble_transtable_EN = ( my %babble_transtable_EN = (
"ok" => "OK", "ok" => "OK",
@ -1120,7 +1120,7 @@ sub Babble_TestIt{
#-- not directly - but maybe we have a device which is an extension of an alias device #-- not directly - but maybe we have a device which is an extension of an alias device
if( (!defined($cmd) || $cmd eq "") && defined($device) ){ if( (!defined($cmd) || $cmd eq "") && defined($device) ){
my $realdev = $device; my $realdev = $device;
foreach my $stardev (keys $hash->{DATA}{"devsalias"}){ foreach my $stardev (keys %{$hash->{DATA}{"devsalias"}}){
if(index($stardev,'*')!=-1){ if(index($stardev,'*')!=-1){
my $starrexp = $stardev; my $starrexp = $stardev;
$starrexp =~ s/\*/\(\.\*\)/; $starrexp =~ s/\*/\(\.\*\)/;
@ -1277,7 +1277,7 @@ sub Babble_DoIt{
#-- not directly - but maybe we have a device which is an extension of an alias device #-- not directly - but maybe we have a device which is an extension of an alias device
if( (!defined($cmd) || $cmd eq "") && defined($device) ){ if( (!defined($cmd) || $cmd eq "") && defined($device) ){
my $realdev = $device; my $realdev = $device;
foreach my $stardev (keys $hash->{DATA}{"devsalias"}){ foreach my $stardev (keys %{$hash->{DATA}{"devsalias"}}){
if(index($stardev,'*')!=-1){ if(index($stardev,'*')!=-1){
my $starrexp = $stardev; my $starrexp = $stardev;
$starrexp =~ s/\*/\(\.\*\)/; $starrexp =~ s/\*/\(\.\*\)/;
@ -2272,7 +2272,7 @@ sub Babble_Html($)
in the tested command</li> in the tested command</li>
<li><a name="noChatBot"><code>attr &lt;name&gt; noChatBot 0|1</code></a> <li><a name="noChatBot"><code>attr &lt;name&gt; noChatBot 0|1</code></a>
<br/>if this attribute is set to 1, a local RiveScript interpreter will be ignored even though it is present in the system</li> <br/>if this attribute is set to 1, a local RiveScript interpreter will be ignored even though it is present in the system</li>
<li><a name="remoteFHEM"><code>attr &lt;name&gt; remoteFHEM(0|1|2|3) &lt;IP address:port&rt;</code></a> <li><a name="remoteFHEM"><code>attr &lt;name&gt; remoteFHEM(0|1|2|3) [&lt;user&gt;:&lt;password&gt;@]&lt;IP address:port&rt;</code></a>
<br/>IP address and port for a remote FHEM installation</li> <br/>IP address and port for a remote FHEM installation</li>
<li><a name="remoteFunc"><code>attr &lt;name&gt; remoteFunc(0|1|2|3) &lt;function name&rt;</code></a> <li><a name="remoteFunc"><code>attr &lt;name&gt; remoteFunc(0|1|2|3) &lt;function name&rt;</code></a>
<br/>name of a Perl function that is called for addressing a certain remote FHEM device</li> <br/>name of a Perl function that is called for addressing a certain remote FHEM device</li>