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

.hex enabled, DIR message removed

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1978 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-10-16 07:16:36 +00:00
parent b81da2b843
commit f4e685a13f
1 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
fhem/FHEM/99_update.pm
View File

@ -227,13 +227,14 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "DIR");
if ($lCtrl eq "DIR") {
$str = update_CleanUpLocalFiles($lCtrl,"$f","");
$cleanup .= "==> $str\n";
Log 1, "update $str";
if($str) {
$cleanup .= "==> $str\n" ;
Log 1, "update $str";
}
}
}
@ -241,7 +242,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "MOV");
if ($lCtrl eq "MOV" && $f !~ /\*/) {
@ -255,7 +255,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "MOV");
if ($lCtrl eq "MOV" && $f =~ /\*/) {
@ -275,7 +274,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "DEL");
if ($f =~ /\*/) {
@ -341,8 +339,6 @@ update_CheckUpdates($$$$)
my %rControl = %$rControl_ref;
my %lControl = %$lControl_ref;
foreach my $f (sort keys %{$rControl{$pack}}) {
# skip firmware files
next if ($f =~ m/.hex$/);
# skip housekeeping
next if ($rControl{$pack}{$f}{ctrl} eq "DEL" ||
$rControl{$pack}{$f}{ctrl} eq "DIR" ||
@ -607,7 +603,6 @@ update_ListChanges($)
my %rControl = %$rControl_ref;
my %lControl = %$lControl_ref;
foreach my $f (sort keys %{$rControl{$pack}}) {
next if ($f =~ m/.hex$/); # skip firmware files
next if ($rControl{$pack}{$f}{ctrl} eq "DEL" ||
$rControl{$pack}{$f}{ctrl} eq "DIR" ||
$rControl{$pack}{$f}{ctrl} eq "MOV");
@ -817,9 +812,7 @@ update_CleanUpLocalFiles($$$)
# make dir
if ($ctrl eq "DIR") {
my $mret = update_MakeDirectory($file);
if (!$mret) {
$ret = "create directory $modpath/$file";
} else {
if ($mret) {
$ret = "create directory $modpath/$file failed: $mret";
}
}