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

fhem() bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@635 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2010-05-18 08:08:53 +00:00
parent bb1f500b43
commit 7a37734b3f
4 changed files with 14 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fhem/FHEM/90_at.pm
View File

@ -103,7 +103,8 @@ at_Exec($)
delete $attr{$name}{skip_next} if($skip);
my (undef, $command) = split("[ \t]+", $defs{$name}{DEF}, 2);
$command = SemicolonEscape($command);
AnalyzeCommandChain(undef, $command) if(!$skip && !$disable);
my $ret = AnalyzeCommandChain(undef, $command) if(!$skip && !$disable);
Log 3, $ret if($ret);
return if(!$defs{$name}); # Deleted in the Command

1
fhem/FHEM/91_notify.pm
View File

@ -79,6 +79,7 @@ notify_Exec($$)
$exec =~ s/____/@/g;
my $r = AnalyzeCommandChain(undef, $exec);
Log 3, $r if($r);
$ret .= " $r" if($r);
}
}

3
fhem/FHEM/91_watchdog.pm
View File

@ -95,7 +95,8 @@ watchdog_Trigger($)
my $exec = SemicolonEscape($ntfy->{CMD});;
$ntfy->{STATE} = "triggered";
$ntfy->{INWATCHDOG} = 1;
AnalyzeCommandChain(undef, $exec);
my $ret = AnalyzeCommandChain(undef, $exec);
Log 3, $ret if($ret);
$ntfy->{INWATCHDOG} = 0;
}

36
fhem/fhem.pl
View File

@ -154,14 +154,13 @@ my %client; # Client array
my $rcvdquit; # Used for quit handling in init files
my $sig_term = 0; # if set to 1, terminate (saving the state)
my $modpath_set; # Check if modpath was used, and report if not.
my $global_cl; # To use from perl snippets
my %defaultattr; # Default attributes
my %intAt; # Internal at timer hash.
my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool
my $cvsid = '$Id: fhem.pl,v 1.106 2010-05-14 12:19:31 rudolfkoenig Exp $';
my $cvsid = '$Id: fhem.pl,v 1.107 2010-05-18 08:08:53 rudolfkoenig Exp $';
my $namedef =
"where <name> is either:\n" .
"- a single device name\n" .
@ -544,13 +543,17 @@ sub
AnalyzeCommandChain($$)
{
my ($c, $cmd) = @_;
my $ret = "";
$cmd =~ s/#.*$//s;
$cmd =~ s/;;/____/g;
foreach my $subcmd (split(";", $cmd)) {
$subcmd =~ s/____/;/g;
AnalyzeCommand($c, $subcmd);
my $lret = AnalyzeCommand($c, $subcmd);
$ret .= $lret if(defined($lret));
last if($c && !defined($client{$c})); # quit
}
return $ret;
}
#####################################
@ -583,16 +586,9 @@ AnalyzeCommand($$)
$month++;
$year+=1900;
$global_cl = $cl;
my $ret = eval $cmd;
$ret = $@ if($@);
if($ret) {
if($cl) {
syswrite($client{$cl}{fd}, "$ret\n")
} else {
Log 3, $ret;
}
}
syswrite($client{$cl}{fd}, "$ret\n") if($ret && $cl);
return $ret;
}
@ -635,13 +631,7 @@ AnalyzeCommand($$)
my $ret = &{$cmds{$fn}{Fn} }($cl, $param);
use strict "refs";
if($ret) {
if($cl) {
syswrite($client{$cl}{fd}, $ret . "\n");
} else {
Log 3, $ret;
}
}
syswrite($client{$cl}{fd}, $ret . "\n") if($ret && $cl);
return $ret;
}
@ -1979,15 +1969,7 @@ sub
fhem($)
{
my $param = shift;
return AnalyzeCommandChain($global_cl, $param);
}
# the "old" name, kept to make upgrade process easier
sub
fhz($)
{
my $param = shift;
return AnalyzeCommandChain($global_cl, $param);
return AnalyzeCommandChain(undef, $param);
}
#####################################