Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

Case Problem

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@163 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2008-04-28 16:26:10 +00:00
parent a3360475a4
commit e669f6d65e
2 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FHEM/99_SUNRISE_EL.pm
View File

@ -26,8 +26,8 @@ my $long = "8.686";
my $lat = "50.112"; my $lat = "50.112";
my $tz = ""; # will be overwritten my $tz = ""; # will be overwritten
my $altit = "-6"; # Civil twilight my $altit = "-6"; # Civil twilight
my $RADEG = ( 180 / pi ); my $RADEG = ( 180 / 3.1415926 );
my $DEGRAD = ( pi / 180 ); my $DEGRAD = ( 3.1415926 / 180 );
my $INV360 = ( 1.0 / 360.0 ); my $INV360 = ( 1.0 / 360.0 );

44
fhem.pl
View File

@ -138,7 +138,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.39 2008-04-16 16:26:25 rudolfkoenig Exp $'; my $cvsid = '$Id: fhem.pl,v 1.40 2008-04-28 16:26:10 rudolfkoenig Exp $';
$init_done = 0; $init_done = 0;
@ -1238,12 +1238,13 @@ CommandReload($$)
$param =~ s,[\./],,g; $param =~ s,[\./],,g;
$param =~ s,\.pm$,,g; $param =~ s,\.pm$,,g;
my $file = "$modpath_set/FHEM/$param.pm"; my $file = "$modpath_set/$param.pm";
return "Can't read $file: $!" if(! -r "$file"); return "Can't read $file: $!" if(! -r "$file");
my $m = $param; my $m = $param;
$m =~ s,^[0-9][0-9]_,,; $m =~ s,^([0-9][0-9])_,,;
Log 2, "Loading $file"; my $order = $1;
Log 5, "Loading $file";
my $ret; my $ret;
no strict "refs"; no strict "refs";
@ -1252,12 +1253,20 @@ CommandReload($$)
$ret = &{ "${m}_Initialize" }(\%hash); $ret = &{ "${m}_Initialize" }(\%hash);
}; };
if($@) { if($@) {
return "$@";
# Perhaps we have a "USB-Stick on the fritzbox" case problem:
my $olderr = $@;
if($olderr =~ m/Undefined subroutine/) {
$m = ($m =~ m/^[a-z]*$/) ? uc($m) : lc($m);
Log 2, "Retrying with $m";
eval { $ret = &{ "${m}_Initialize" }(\%hash); };
}
return $olderr if($@);
} }
use strict "refs"; use strict "refs";
$modules{$m} = \%hash; $modules{$m} = \%hash;
$modules{$m}{ORDER} = 99 if(!$modules{$m}{ORDER}); $modules{$m}{ORDER} = $order;
return undef; return undef;
} }
@ -1356,28 +1365,25 @@ GlobalAttr($$)
opendir(DH, $modpath) || return "Can't read $modpath: $!"; opendir(DH, $modpath) || return "Can't read $modpath: $!";
my $counter = 0; my $counter = 0;
$modpath_set = $modpath;
foreach my $m (sort grep(/^[0-9][0-9].*\.pm$/,readdir(DH))) { foreach my $m (sort grep(/^[0-9][0-9].*\.pm$/,readdir(DH))) {
$m =~ s/\.pm$//;
my $err = CommandReload(undef, $m);
if($err) {
Log 1, $err;
exit(1);
}
$counter++; $counter++;
Log 5, "Loading $m";
require "$modpath/$m";
next if($m !~ m/^([0-9]+)_(.*)\.pm$/);
$m = $2;
$modules{$m}{ORDER} = $1;
no strict "refs";
&{ "${m}_Initialize" }($modules{$m});
use strict "refs";
} }
closedir(DH); closedir(DH);
if(!$counter) { if(!$counter) {
return "No modules found, " . return "No modules found, set modpath to a directory in which a " .
"point modpath to a directory where the FHEM subdir is"; "subdirectory called \"FHEM\" exists wich in turn contains " .
"the fhem module files <*>.pm";
} }
$modpath_set = $val;
} }
return undef; return undef;