FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +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}}) { foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl}; my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str; my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "DIR"); next if ($lCtrl ne "DIR");
if ($lCtrl eq "DIR") { if ($lCtrl eq "DIR") {
$str = update_CleanUpLocalFiles($lCtrl,"$f",""); $str = update_CleanUpLocalFiles($lCtrl,"$f","");
$cleanup .= "==> $str\n"; if($str) {
Log 1, "update $str"; $cleanup .= "==> $str\n" ;
Log 1, "update $str";
}
} }
} }
@ -241,7 +242,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) { foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl}; my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str; my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "MOV"); next if ($lCtrl ne "MOV");
if ($lCtrl eq "MOV" && $f !~ /\*/) { if ($lCtrl eq "MOV" && $f !~ /\*/) {
@ -255,7 +255,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) { foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl}; my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str; my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "MOV"); next if ($lCtrl ne "MOV");
if ($lCtrl eq "MOV" && $f =~ /\*/) { if ($lCtrl eq "MOV" && $f =~ /\*/) {
@ -275,7 +274,6 @@ update_DoHousekeeping($)
foreach my $f (sort keys %{$lControl{$pack}}) { foreach my $f (sort keys %{$lControl{$pack}}) {
my $lCtrl = $lControl{$pack}{$f}{ctrl}; my $lCtrl = $lControl{$pack}{$f}{ctrl};
my $str; my $str;
next if ($f =~ m/.hex$/); # skip firmware files
next if ($lCtrl ne "DEL"); next if ($lCtrl ne "DEL");
if ($f =~ /\*/) { if ($f =~ /\*/) {
@ -341,8 +339,6 @@ update_CheckUpdates($$$$)
my %rControl = %$rControl_ref; my %rControl = %$rControl_ref;
my %lControl = %$lControl_ref; my %lControl = %$lControl_ref;
foreach my $f (sort keys %{$rControl{$pack}}) { foreach my $f (sort keys %{$rControl{$pack}}) {
# skip firmware files
next if ($f =~ m/.hex$/);
# skip housekeeping # skip housekeeping
next if ($rControl{$pack}{$f}{ctrl} eq "DEL" || next if ($rControl{$pack}{$f}{ctrl} eq "DEL" ||
$rControl{$pack}{$f}{ctrl} eq "DIR" || $rControl{$pack}{$f}{ctrl} eq "DIR" ||
@ -607,7 +603,6 @@ update_ListChanges($)
my %rControl = %$rControl_ref; my %rControl = %$rControl_ref;
my %lControl = %$lControl_ref; my %lControl = %$lControl_ref;
foreach my $f (sort keys %{$rControl{$pack}}) { foreach my $f (sort keys %{$rControl{$pack}}) {
next if ($f =~ m/.hex$/); # skip firmware files
next if ($rControl{$pack}{$f}{ctrl} eq "DEL" || next if ($rControl{$pack}{$f}{ctrl} eq "DEL" ||
$rControl{$pack}{$f}{ctrl} eq "DIR" || $rControl{$pack}{$f}{ctrl} eq "DIR" ||
$rControl{$pack}{$f}{ctrl} eq "MOV"); $rControl{$pack}{$f}{ctrl} eq "MOV");
@ -817,9 +812,7 @@ update_CleanUpLocalFiles($$$)
# make dir # make dir
if ($ctrl eq "DIR") { if ($ctrl eq "DIR") {
my $mret = update_MakeDirectory($file); my $mret = update_MakeDirectory($file);
if (!$mret) { if ($mret) {
$ret = "create directory $modpath/$file";
} else {
$ret = "create directory $modpath/$file failed: $mret"; $ret = "create directory $modpath/$file failed: $mret";
} }
} }