FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

culflash is using th "new" update directory structure now

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@2803 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2013-02-25 11:04:38 +00:00
parent ca83b364d8
commit 2436989292
2 changed files with 19 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
fhem/FHEM/98_CULflash.pm
View File

@ -7,11 +7,10 @@ use warnings;
use HttpUtils;
sub CommandCULflash($$);
sub CULflash_SplitNewFiletimes($);
my $server = "http://fhem.de:80";
my $sdir = "/fhemupdate2";
my $ftime = "filetimes.txt";
my $host = "http://fhem.de";
my $path = "/fhemupdate4/svn/";
my $file = "controls_fhem.txt";
my $dfu = "dfu-programmer";
#####################################
@ -50,18 +49,23 @@ CommandCULflash($$)
################################
# First get the index file to prove the file size
my $filetimes = GetFileFromURL("$server$sdir/$ftime");
return "Can't get $ftime from $server" if(!$filetimes);
my $filetimes = GetFileFromURL("$host$path$file");
return "Can't get $host$path$file" if(!$filetimes);
# split filetime and filesize
my ($ret, $filetime, $filesize) = CULflash_SplitNewFiletimes($filetimes);
return $ret if($ret);
my %filesize;
foreach my $l (split("[\r\n]", $filetimes)) {
chomp($l);
next if ($l !~ m/^UPD (20\d\d-\d\d-\d\d_\d\d:\d\d:\d\d) (\d+) (.*)$/);
$filesize{$3} = $2;
}
return "FHEM/$target.hex is not found in $host$path$file"
if(!$filesize{"FHEM/$target.hex"});
################################
# Now get the firmware file:
my $content = GetFileFromURL("$server$sdir/FHEM/$target.hex");
return "File size for $target.hex does not correspond to filetimes.txt entry"
if(length($content) ne $filesize->{"FHEM/$target.hex"});
my $content = GetFileFromURL("$host$path/FHEM/$target.hex");
return "File size for $target.hex does not correspond to $file entry"
if(length($content) ne $filesize{"FHEM/$target.hex"});
my $localfile = "$moddir/$target.hex";
open(FH,">$localfile") || return "Can't write $localfile";
print FH $content;
@ -82,24 +86,6 @@ CommandCULflash($$)
return $result;
}
sub
CULflash_SplitNewFiletimes($)
{
my $filetimes = shift;
my $ret;
my (%filetime, %filesize) = ();
foreach my $l (split("[\r\n]", $filetimes)) {
chomp($l);
$ret = "Corrupted filetimes.txt file"
if($l !~ m/^20\d\d-\d\d-\d\d_\d\d:\d\d:\d\d /);
last if($ret);
my ($ts, $fs, $file) = split(" ", $l, 3);
$filetime{$file} = $ts;
$filesize{$file} = $fs;
}
return ($ret, \%filetime, \%filesize);
}
# vim: ts=2:et
1;

8
fhem/fhem.pl
View File

@ -704,13 +704,11 @@ AnalyzeCommand($$)
my ($fn, $param) = split("[ \t][ \t]*", $cmd, 2);
return undef if(!$fn);
$fn = "setdefaultattr" if($fn eq "defattr"); # Compatibility mode
#############
# Search for abbreviation
if(!defined($cmds{$fn})) {
foreach my $f (sort keys %cmds) {
if(length($f) > length($fn) && substr($f, 0, length($fn)) eq $fn) {
if(length($f) > length($fn) && lc(substr($f, 0, length($fn))) eq lc($fn)) {
Log 5, "$fn => $f";
$fn = $f;
last;
@ -721,8 +719,8 @@ AnalyzeCommand($$)
#############
# autoload commands.
if(!defined($cmds{$fn})) {
map { $fn = $_ if(uc($fn) eq uc($_)); } keys %modules;
$fn = lc(LoadModule($fn));
map { $fn = $_ if(lc($fn) eq lc($_)); } keys %modules;
$fn = LoadModule($fn);
return "Unknown command $fn, try help" if(!defined($cmds{$fn}));
}