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

Small fix from Rene van Schaik

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@91 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2007-09-24 07:09:17 +00:00
parent c5f04f5c28
commit fa0397ad72
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/FHEM/10_FS20.pm
View File

@ -255,7 +255,7 @@ FS20_Define($$)
$hash->{XMIT} = lc($a[2]); $hash->{XMIT} = lc($a[2]);
$hash->{BTN} = lc($a[3]); $hash->{BTN} = lc($a[3]);
my $code = "$a[2] $a[3]"; my $code = lc("$a[2] $a[3]");
my $ncode = 1; my $ncode = 1;
my $name = $a[0]; my $name = $a[0];
@ -277,7 +277,7 @@ FS20_Define($$)
return $u; return $u;
} }
$code = "$a[2] $a[$i+1]"; $code = lc("$a[2] $a[$i+1]");
$hash->{CODE}{$ncode++} = $code; $hash->{CODE}{$ncode++} = $code;
$defptr{$code}{$name} = $hash; $defptr{$code}{$name} = $hash;
} }

10
fhem/fhem.pl
View File

@ -134,7 +134,7 @@ my %intAt; # Internal at timer hash.
my $intAtCnt=0; my $intAtCnt=0;
my $reread_active = 0; my $reread_active = 0;
my $AttrList = "room comment"; my $AttrList = "room comment";
my $cvsid = '$Id: fhem.pl,v 1.25 2007-09-13 07:13:50 rudolfkoenig Exp $'; my $cvsid = '$Id: fhem.pl,v 1.26 2007-09-24 07:09:17 rudolfkoenig Exp $';
$init_done = 0; $init_done = 0;
@ -243,19 +243,19 @@ if($attr{global}{statefile} && -r $attr{global}{statefile}) {
} }
SignalHandling(); SignalHandling();
Log 0, "Server started (version $attr{global}{version}, pid $$)";
################################################ ################################################
# Main loop # Main loop
$init_done = 1;
my $pfn = $attr{global}{pidfilename}; my $pfn = $attr{global}{pidfilename};
if($pfn) { if($pfn) {
return "$pfn: $!" if(!open(PID, ">$pfn")); die "$pfn: $!\n" if(!open(PID, ">$pfn"));
print PID $$ . "\n"; print PID $$ . "\n";
close(PID); close(PID);
} }
$init_done = 1;
Log 0, "Server started (version $attr{global}{version}, pid $$)";
# Main Loop # Main Loop
while (1) { while (1) {